|
Revision 155, 1.4 kB
(checked in by sagrer, 5 months ago)
|
- Функционал переводов отвязан от класса консольной утилиты, выдернут в новый класс в новый модуль TranslManager?.pas. При подключении модуля создается глобальный объект TranslMan? и доступна глобальная функция _() которая по сути обертка над методом _() класса TMOExtractor. Все это нужно чтобы не было привязки функционала локализации к классу консольного приложения.
- В связи с вышеизложенным поправлены исходники всех проектов, использовавших старый способ подключения переводов.
- Локализация прикручена к VerRevUpdater?, он же локализован на русский язык - выполнено #36.
|
- Property svnmailer:content-charset set to
cp1251
|
| Line | |
|---|
| 1 |
/////////////////////////////////////////////////////////// |
|---|
| 2 |
// GGBuildTools // |
|---|
| 3 |
// Набор утилит для сборки проектов Gipat Group // |
|---|
| 4 |
// Copyright (C) 2007 Gipat Group // |
|---|
| 5 |
// Распространяется на условиях // |
|---|
| 6 |
// Gipat Group's opened EI-editor-utility license // |
|---|
| 7 |
// версии 1.0 // |
|---|
| 8 |
// // |
|---|
| 9 |
// www.gipatgroup.org // |
|---|
| 10 |
/////////////////////////////////////////////////////////// |
|---|
| 11 |
|
|---|
| 12 |
//К работе над данным файлом приложили руки, ноги.... короче аффтары: |
|---|
| 13 |
// 1) Sagrer (sagrer@yandex.ru) |
|---|
| 14 |
|
|---|
| 15 |
//////////////////////////////////////////////////////////////////////// |
|---|
| 16 |
|
|---|
| 17 |
program Installer; |
|---|
| 18 |
|
|---|
| 19 |
{$mode objfpc}{$H+} |
|---|
| 20 |
|
|---|
| 21 |
uses |
|---|
| 22 |
{$IFDEF UNIX}{$IFDEF UseCThreads} |
|---|
| 23 |
cthreads, |
|---|
| 24 |
{$ENDIF}{$ENDIF} |
|---|
| 25 |
Classes |
|---|
| 26 |
{ add your units here }, forms, InstallerServiceClass, ExtraFunctionsLcl, |
|---|
| 27 |
GGBuildToolsShared, ConsUtilServiceClass, GGConsUtilServiceClass, |
|---|
| 28 |
TranslManager; |
|---|
| 29 |
|
|---|
| 30 |
begin |
|---|
| 31 |
//Проверим опции командной строки... |
|---|
| 32 |
InstServClass.ProcessParameters; |
|---|
| 33 |
//И запустим все на выполнение... |
|---|
| 34 |
InstServClass.DoWork; |
|---|
| 35 |
|
|---|
| 36 |
//Подождем нажматия любого кнопка %). |
|---|
| 37 |
if InstServClass.DoPause then begin |
|---|
| 38 |
Writeln(_('Press Enter to close application...')); |
|---|
| 39 |
Readln(); |
|---|
| 40 |
end; |
|---|
| 41 |
end. |
|---|
| 42 |
|
|---|
