pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

GridPrinter: Minor rework in multi-language demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8615 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-12 22:38:55 +00:00
parent 998ea63b35
commit 3af3022fac
2 changed files with 19 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/gridprinter/examples/multi-language/main.pas
View File

@ -30,7 +30,7 @@ type
StringGrid1: TStringGrid;
procedure btnPrintClick(Sender: TObject);
procedure btnPreviewClick(Sender: TObject);
procedure ccbPreviewOptionsItemChange(Sender: TObject; AIndex: Integer);
procedure ccbPreviewOptionsItemChange(Sender: TObject; {%H-}AIndex: Integer);
procedure cmbLanguagesChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
@ -115,15 +115,15 @@ const
var
i, r, c: Integer;
begin
FLanguagesDir := ExpandFileName(Application.Location + '../../languages/');
PopulateLanguages;
SelectLanguage(cmbLanguages.ItemIndex);
cmbDialogs.ItemIndex := 2;
ccbPreviewOptions.ItemIndex := 0;
for i := 0 to ccbPreviewOptions.Count-1 do
ccbPreviewOptions.Checked[i] := TGridPrintPreviewOption(i) in DEFAULT_GRIDPRN_OPTIONS;
FLanguagesDir := ExpandFileName(Application.Location + '../../languages/');
PopulateLanguages;
SelectLanguage(cmbLanguages.ItemIndex);
StringGrid1.BeginUpdate;
try
StringGrid1.Clear;
@ -149,10 +149,12 @@ var
List: TStringList;
s, lang: String;
i, j: Integer;
appLangMask: String;
begin
List := TStringList.Create;
try
FindAllFiles(List, FLanguagesDir, 'multilanguage_demo.*.po');
appLangMask := ChangeFileExt(ExtractFileName(Application.ExeName), '.*.po');
FindAllFiles(List, FLanguagesDir, appLangMask);
for i := 0 to List.Count-1 do
begin
s := List[i];
@ -166,6 +168,7 @@ begin
case lowercase(lang) of
'de': List[i] := 'de - Deutsch';
'en': List[i] := 'en - English';
// Add more cases when translations are available...
end;
end;
List.Sort;