source: cprs/branches/tmg-cprs/dklang-package-3.01/Examples/Constants/Main.pas@ 1797

Last change on this file since 1797 was 468, checked in by Kevin Toppenberg, 16 years ago

CPRS v1.0.26.76

File size: 2.1 KB
Line 
1//**********************************************************************************************************************
2// $Id: Main.pas,v 1.8 2006/08/11 12:15:50 dale Exp $
3//----------------------------------------------------------------------------------------------------------------------
4// DKLang Localization Package
5// Copyright 2002-2006 DK Software, http://www.dk-soft.org
6//**********************************************************************************************************************
7unit Main;
8
9interface
10
11uses
12 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TntForms,
13 DKLang, StdCtrls, TntStdCtrls;
14
15type
16 TfMain = class(TTntForm)
17 bTest: TTntButton;
18 cbLanguage: TTntComboBox;
19 lcMain: TDKLanguageController;
20 lSampleMessage: TTntLabel;
21 procedure bTestClick(Sender: TObject);
22 procedure cbLanguageChange(Sender: TObject);
23 procedure FormCreate(Sender: TObject);
24 end;
25
26var
27 fMain: TfMain;
28
29implementation
30{$R *.dfm}
31uses TntSystem, TntSysUtils;
32
33 procedure TfMain.bTestClick(Sender: TObject);
34 begin
35 MessageBoxW(
36 Application.Handle,
37 PWideChar(DKLangConstW('STestMessage')),
38 PWideChar(DKLangConstW('SMessageCaption')),
39 MB_ICONINFORMATION or MB_OK);
40 end;
41
42 procedure TfMain.cbLanguageChange(Sender: TObject);
43 var iIndex: Integer;
44 begin
45 iIndex := cbLanguage.ItemIndex;
46 if iIndex<0 then iIndex := 0; // When there's no valid selection in cbLanguage we use the default language (Index=0)
47 LangManager.LanguageID := LangManager.LanguageIDs[iIndex];
48 end;
49
50 procedure TfMain.FormCreate(Sender: TObject);
51 var i: Integer;
52 begin
53 // Scan for language files in the app directory and register them in the LangManager object
54 LangManager.ScanForLangFiles(WideExtractFileDir(WideParamStr(0)), '*.lng', False);
55 // Fill cbLanguage with available languages
56 for i := 0 to LangManager.LanguageCount-1 do cbLanguage.Items.Add(LangManager.LanguageNames[i]);
57 // Index=0 always means the default language
58 cbLanguage.ItemIndex := 0;
59 end;
60
61end.
Note: See TracBrowser for help on using the repository browser.