paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:20:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Components, Project templates: improved localization

Browse Source 
git-svn-id: trunk@30549 -
This commit is contained in:
maxim 2011-05-04 22:02:18 +00:00
parent 0362996985
commit d72f8b4369
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/projecttemplates/frmtemplatesettings.pas
View File

@ -44,6 +44,8 @@ procedure TTemplateSettingsForm.FormCreate(Sender: TObject);
begin
Caption := STitle;
Label1.Caption := SDirect;
ButtonPanel1.OKButton.Caption:=SbtnOK;
ButtonPanel1.CancelButton.Caption:=SbtnCancel;
end;
procedure TTemplateSettingsForm.OKButtonClick(Sender: TObject);

2
components/projecttemplates/frmtemplatevariables.pas
View File

@ -58,8 +58,6 @@ resourcestring
SCreateinDir = 'Create in &directory:';
SThisProject = 'This project contains some additional variables. Please provide values for these variables.';
STitle = 'New project from template';
SbtnOK = 'OK';
SbtnCancel = 'Cancel';
{ TProjectVariablesForm }

3
components/projecttemplates/projecttemplates.pp
View File

@ -91,6 +91,9 @@ Const
varprefixstr = '__'; // subtitution pattern is "__varname__"
varpostfixstr = '__';
resourcestring
SbtnOK = '&OK';
SbtnCancel = 'Cancel';
Function SubstituteString(Const S : String; Variables : TStrings): String;
Function SimpleFileCopy(Const Source,Dest : String) : Boolean;