added resurce strings for gtk file dlg

git-svn-id: trunk@6391 -
This commit is contained in:
mattias 2004-12-18 23:46:17 +00:00
parent cf403dcab6
commit 924cd35914
39 changed files with 327 additions and 23 deletions

View File

@ -2409,6 +2409,7 @@ resourcestring
lisPckOptsMajor = 'Major';
lisPckOptsMinor = 'Minor';
lisPckOptsRelease = 'Release';
lisBuildNumber = 'Build Number';
lisPckOptsAutomaticallyIncrementVersionOnBuild = 'Automatically increment '
+'version on build';
lisPckOptsPackageType = 'PackageType';

View File

@ -323,22 +323,22 @@ end;
procedure TSortSelectionDialog.SortSelectionDialogResize(Sender: TObject);
begin
with PreviewGroupBox do begin
Width:=Self.ClientWidth-2*Left;
Height:=Self.ClientHeight-Top-90;
end;
with PreviewGroupBox do
SetBounds(Left,Top,Self.ClientWidth-2*Left,Self.ClientHeight-Top-110);
with DirectionRadioGroup do begin
Top:=PreviewGroupBox.Top+PreviewGroupBox.Height+5;
Width:=((Self.ClientWidth-5) div 2)-Left;
end;
with DirectionRadioGroup do
SetBounds(Left,PreviewGroupBox.Top+PreviewGroupBox.Height+5,
((Self.ClientWidth-5) div 2)-Left,Height);
with DomainRadioGroup do begin
Left:=DirectionRadioGroup.Left+DirectionRadioGroup.Width+5;
Top:=DirectionRadioGroup.Top;
Width:=DirectionRadioGroup.Width;
Height:=DirectionRadioGroup.Height;
end;
with DomainRadioGroup do
SetBounds(DirectionRadioGroup.Left+DirectionRadioGroup.Width+5,
DirectionRadioGroup.Top,
DirectionRadioGroup.Width,DirectionRadioGroup.Height);
with OptionsCheckGroup do
SetBounds(DirectionRadioGroup.Left,
DirectionRadioGroup.Top+DirectionRadioGroup.Height+5,
DirectionRadioGroup.Width,DirectionRadioGroup.Height);
with OkButton do begin
Left:=Self.ClientWidth-200;
@ -561,6 +561,7 @@ begin
OnResize:=@SortSelectionDialogResize;
OnClose:=@SortSelectionDialogClose;
OnResize(Self);
end;
procedure TSortSelectionDialog.BeginUpdate;

View File

@ -420,7 +420,6 @@ type
private
FItems: TList;
FHelpDBClasses: TList;
FMacroTimeStamp: integer;
function GetItems(Index: integer): THelpDatabase;
procedure DoRegisterDatabase(ADatabase: THelpDatabase);
procedure DoUnregisterDatabase(ADatabase: THelpDatabase);

View File

@ -721,6 +721,10 @@ msgstr ""
msgid "Build Lazarus"
msgstr ""
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr ""

View File

@ -710,6 +710,10 @@ msgstr "Construir LCL"
msgid "Build Lazarus"
msgstr "Construir Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Construir Package Registration"

View File

@ -720,6 +720,10 @@ msgstr ""
msgid "Build Lazarus"
msgstr "Kompiliere Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr ""

View File

@ -721,6 +721,10 @@ msgstr "Construir LCL"
msgid "Build Lazarus"
msgstr "Construir Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Construir Registro de Paquete"

View File

@ -721,6 +721,10 @@ msgstr "Construir LCL"
msgid "Build Lazarus"
msgstr "Construir Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Construir Registro de Paquete"

View File

@ -710,6 +710,10 @@ msgstr ""
msgid "Build Lazarus"
msgstr ""
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr ""

View File

@ -720,6 +720,10 @@ msgstr "Construire LCL"
msgid "Build Lazarus"
msgstr "Construire Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Construire l'enregistrement d'un paquet"

View File

@ -721,6 +721,10 @@ msgstr ""
msgid "Build Lazarus"
msgstr ""
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr ""

View File

@ -720,6 +720,10 @@ msgstr "Esegui build dell'LCL"
msgid "Build Lazarus"
msgstr "Build Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Esegui build della registrazione del pacchetto"

View File

@ -720,6 +720,10 @@ msgstr "Esegui build dell'LCL"
msgid "Build Lazarus"
msgstr "Build Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Esegui build della registrazione del pacchetto"

View File

@ -721,6 +721,10 @@ msgstr "Buduj LCL"
msgid "Build Lazarus"
msgstr "Buduj Lazarusa"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Buduj rejestrację pakietów"

View File

@ -721,6 +721,10 @@ msgstr "Buduj LCL"
msgid "Build Lazarus"
msgstr "Buduj Lazarusa"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Buduj rejestracjê pakietów"

View File

@ -721,6 +721,10 @@ msgstr "Buduj LCL"
msgid "Build Lazarus"
msgstr "Buduj Lazarusa"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Buduj rejestracjê pakietów"

View File

@ -7198,6 +7198,10 @@ msgstr ""
msgid "Release"
msgstr ""
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lispckoptsautomaticallyincrementversiononbuild
msgid "Automatically increment version on build"
msgstr ""

View File

@ -710,6 +710,10 @@ msgstr "
msgid "Build Lazarus"
msgstr "óÏÂÒÁÔØ Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "úÁÒÅÇÉÓÔÒÉÒÏ×ÁÔØ ÐÁËÅÔ"

View File

@ -710,6 +710,10 @@ msgstr "
msgid "Build Lazarus"
msgstr "Ñîáðàòü Lazarus"
#: lazarusidestrconsts:lisbuildnumber
msgid "Build Number"
msgstr ""
#: lazarusidestrconsts:lisbuildpkgreg
msgid "Build Package Registration"
msgstr "Çàðåãèñòðèðîâàòü ïàêåò"

View File

@ -25,7 +25,7 @@ unit FileUtil;
interface
uses
Classes, SysUtils;
Classes, SysUtils, LCLStrConsts;
// file attributes and states
function CompareFilenames(const Filename1, Filename2: string): integer;
@ -116,6 +116,9 @@ end.
{
$Log$
Revision 1.4 2004/12/18 23:46:16 mattias
added resurce strings for gtk file dlg
Revision 1.3 2004/12/04 01:17:41 mattias
implemented Target Directory for IDE

View File

@ -575,11 +575,11 @@ begin
//Result:=Result+' Owner: '+IntToStr(info.uid)+'.'+IntToStr(info.gid);
// size
Result:=Result+' size '+IntToStr({$ifdef ver1_0}info.size{$else}info.st_size{$endif});
Result:=Result+rsSize+IntToStr({$ifdef ver1_0}info.size{$else}info.st_size{$endif});
{$ENDIF}
// date + time
Result:=Result+' modified ';
Result:=Result+rsModified;
try
Result:=Result+FormatDateTime('DD/MM/YYYY hh:mm',
FileDateToDateTime(FileAge(AFilename)));
@ -1093,6 +1093,9 @@ end;
{
$Log$
Revision 1.8 2004/12/18 23:46:16 mattias
added resurce strings for gtk file dlg
Revision 1.7 2004/12/06 17:31:02 mattias
added access to lresources

View File

@ -3959,7 +3959,8 @@ begin
HBox,false,false,0);
// create the label 'History:'
LabelWidget:=gtk_label_new('History:');
s:=rsgtkHistory;
LabelWidget:=gtk_label_new(PChar(s));
gtk_box_pack_start(GTK_BOX(HBox),LabelWidget,false,false,5);
gtk_widget_show(LabelWidget);
@ -4144,6 +4145,7 @@ var
HBox, LabelWidget, FilterPullDownWidget,
MenuWidget, MenuItemWidget: PGtkWidget;
i, CurMask: integer;
s: String;
begin
ExtractFilterList(OpenDialog.Filter,FilterList);
if FilterList.Count>0 then begin
@ -4155,7 +4157,8 @@ begin
HBox,false,false,0);
// create the label 'Filter:'
LabelWidget:=gtk_label_new('Filter:');
s:=rsgtkFilter;
LabelWidget:=gtk_label_new(PChar(s));
gtk_box_pack_start(GTK_BOX(HBox),LabelWidget,false,false,5);
gtk_widget_show(LabelWidget);
@ -6941,6 +6944,9 @@ end;
{ =============================================================================
$Log$
Revision 1.611 2004/12/18 23:46:16 mattias
added resurce strings for gtk file dlg
Revision 1.610 2004/11/28 00:55:44 mattias
deactivated sending SYSKey messages in gtk intf - they are not used anyway

View File

@ -1,3 +1,11 @@
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " Avís: s'ha deixat %s estructures TimerInfo, les allibero"
@ -250,6 +258,10 @@ msgstr "No es pot escriure el fitxer"
msgid "File must exist"
msgstr "El fitxer ha d'existir"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -282,6 +294,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -4,6 +4,14 @@ msgstr ""
"Content-Type: text/plain; charset=ISO-8859-1\n"
"Content-Transfer-Encoding: 8bit\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr ""
@ -256,6 +264,10 @@ msgstr ""
msgid "File must exist"
msgstr ""
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -288,6 +300,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -8,6 +8,14 @@ msgstr ""
"X-Generator: KBabel 1.0.2\n"
"Project-Id-Version: lcl\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " ADVERTENCIA: Quedan %d estructuras TimerInfo, se liberarán."
@ -260,6 +268,10 @@ msgstr "El archivo no se puede escribir"
msgid "File must exist"
msgstr "Debe salir el archivo"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr "Final"
@ -292,6 +304,10 @@ msgstr ""
msgid "Help"
msgstr "Ayuda"
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr "Inicio"

View File

@ -8,6 +8,14 @@ msgstr ""
"X-Generator: KBabel 1.0.2\n"
"Project-Id-Version: lcl\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " ADVERTENCIA: Quedan %d estructuras TimerInfo, se liberarán."
@ -260,6 +268,10 @@ msgstr "El archivo no se puede escribir"
msgid "File must exist"
msgstr "Debe salir el archivo"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -292,6 +304,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -1,3 +1,11 @@
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr ""
@ -250,6 +258,10 @@ msgstr ""
msgid "File must exist"
msgstr ""
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -282,6 +294,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -8,6 +8,14 @@ msgstr ""
"Content-Transfer-Encoding: 8bit\n"
"X-Generator: KBabel 0.9.6\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " ATTENTION: Il y a %d structures TimerInfo, elles seront supprimées."
@ -260,6 +268,10 @@ msgstr "Fichier prot
msgid "File must exist"
msgstr "Le fichier doit exister"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -292,6 +304,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -8,6 +8,14 @@ msgstr ""
"Project-Id-Version: 0.9.2\n"
"MIME-Version: 1.0\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr "Attenzione: ci sono ancora %d strutture Timer Info, li sto liberando "
@ -260,6 +268,10 @@ msgstr "Il file non è scrivibile"
msgid "File must exist"
msgstr "Il file deve esistere"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -292,6 +304,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -8,6 +8,14 @@ msgstr ""
"Project-Id-Version: 0.9.2\n"
"MIME-Version: 1.0\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr "Attenzione: ci sono ancora %d strutture Timer Info, li sto liberando "
@ -260,6 +268,10 @@ msgstr "Il file non
msgid "File must exist"
msgstr "Il file deve esistere"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -292,6 +304,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -9,6 +9,14 @@ msgstr ""
"X-Generator: KBabel 1.3\n"
"Plural-Forms: nplurals=3; plural=(n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " UWAGA: Pozostało %d struktur TimerInfo zostaną usunięte"
@ -261,6 +269,10 @@ msgstr "Plik nie jest zapisywalny"
msgid "File must exist"
msgstr "Plik musi istnieć"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -293,6 +305,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -9,6 +9,14 @@ msgstr ""
"X-Generator: KBabel 1.3\n"
"Plural-Forms: nplurals=3; plural=(n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " UWAGA: Pozosta³o %d struktur TimerInfo zostan± usuniête"
@ -261,6 +269,10 @@ msgstr "Plik nie jest zapisywalny"
msgid "File must exist"
msgstr "Plik musi istnieæ"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -293,6 +305,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -9,6 +9,14 @@ msgstr ""
"X-Generator: KBabel 1.3\n"
"Plural-Forms: nplurals=3; plural=(n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " UWAGA: Pozosta³o %d struktur TimerInfo zostan¹ usuniête"
@ -261,6 +269,10 @@ msgstr "Plik nie jest zapisywalny"
msgid "File must exist"
msgstr "Plik musi istnieæ"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -293,6 +305,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -158,6 +158,14 @@ msgstr ""
msgid "File information"
msgstr ""
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:rsdefaultfileinfovalue
msgid "permissions user group size date time"
msgstr ""
@ -418,6 +426,14 @@ msgstr ""
msgid "Select a date"
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:ifsvk_unknown
msgid "Unknown"
msgstr ""

View File

@ -1,3 +1,11 @@
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " ÷îéíáîéå: ïÓÔÁÌÏÓØ %d ÓÔÒÕËÔÕÒ TimerInfo, Ñ ÉÈ ÏÓ×ÏÂÏÖÄÁÀ"
@ -250,6 +258,10 @@ msgstr "
msgid "File must exist"
msgstr "æÁÊÌ ÄÏÌÖÅÎ ÓÕÝÅÓÔ×Ï×ÁÔØ"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -282,6 +294,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -1,3 +1,11 @@
#: lclstrconsts:rsmodified
msgid " modified "
msgstr ""
#: lclstrconsts:rssize
msgid " size "
msgstr ""
#: lclstrconsts:rswarningunreleasedtimerinfos
msgid " WARNING: There are %d TimerInfo structures left, I'll free them"
msgstr " ÂÍÈÌÀÍÈÅ: Îñòàëîñü %d ñòðóêòóð TimerInfo, ÿ èõ îñâîáîæäàþ"
@ -250,6 +258,10 @@ msgstr "
msgid "File must exist"
msgstr "Ôàéë äîëæåí ñóùåñòâîâàòü"
#: lclstrconsts:rsgtkfilter
msgid "Filter:"
msgstr ""
#: lclstrconsts:ifsvk_final
msgid "Final"
msgstr ""
@ -282,6 +294,10 @@ msgstr ""
msgid "Help"
msgstr ""
#: lclstrconsts:rsgtkhistory
msgid "History:"
msgstr ""
#: lclstrconsts:ifsvk_home
msgid "Home"
msgstr ""

View File

@ -91,6 +91,8 @@ ResourceString
rsWarningUnreleasedTimerInfos = ' WARNING: There are %d TimerInfo '
+'structures left, I''ll free them';
rsFileInformation = 'File information';
rsgtkFilter = 'Filter:';
rsgtkHistory = 'History:';
rsDefaultFileInfoValue = 'permissions user group size date time';
rsBlank = 'Blank';
rsUnableToLoadDefaultFont = 'Unable to load default font';
@ -185,6 +187,8 @@ ResourceString
rsCalculator = 'Calculator';
rsError = 'Error';
rsPickDate = 'Select a date';
rsSize = ' size ';
rsModified = ' modified ';
// I'm not sure if in all languages the Dialog texts for a button
// have the same meaning as a key

View File

@ -346,7 +346,7 @@ begin
x:=0;
y:=0;
w:=ClientWidth div 5;
h:=25;
h:=SaveBitBtn.Height;
y1:=y;
y2:=y1+h;
// first column of buttons

View File

@ -626,14 +626,13 @@ begin
with VersionBuildLabel do begin
Name:='VersionBuildLabel';
Parent:=VersionGroupBox;
Caption:=lisMenuBuild;
Caption:=lisBuildNumber;
end;
VersionBuildSpinEdit:=TSpinEdit.Create(Self);
with VersionBuildSpinEdit do begin
Name:='VersionBuildSpinEdit';
Parent:=VersionGroupBox;
Caption:=lisMenuBuild;
Decimal_Places:=0;
MinValue:=0;
MaxValue:=9999;