| 0,0 → 1,84 |
|---|
| unit Warten; |
| |
| interface |
| |
| uses |
| Windows, Messages, SysUtils, Forms, IniFiles, Controls, Classes, |
| ComCtrls, StdCtrls, DCConst, ExtCtrls, |
| dialogs; |
| |
| type |
| TWartenForm = class(TForm) |
| pbr_progress: TProgressBar; |
| lbl_wait: TLabel; |
| lbl_info1: TLabel; |
| lbl_info2: TLabel; |
| btn_escape: TButton; |
| procedure btn_escapeClick(Sender: TObject); |
| procedure FormCreate(Sender: TObject); |
| private |
| LangArray: array of TLanguageEntry; |
| function GetLangEntry(name: string): string; |
| end; |
| |
| var |
| WartenForm: TWartenForm; |
| |
| implementation |
| |
| uses Main; |
| |
| {$R *.dfm} |
| |
| function TWartenForm.GetLangEntry(name: string): string; |
| var |
| i: integer; |
| begin |
| for i := 0 to high(LangArray) do |
| begin |
| if LangArray[i].name = name then |
| begin |
| result := LangArray[i].text; |
| break; |
| end; |
| end; |
| end; |
| |
| procedure TWartenForm.btn_escapeClick(Sender: TObject); |
| begin |
| mainform.close; |
| end; |
| |
| procedure TWartenForm.FormCreate(Sender: TObject); |
| var |
| ini: TIniFile; |
| str: TStringList; |
| i: integer; |
| begin |
| // Sprachdatei auslesen |
| |
| ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Language.ini'); |
| str := TStringList.Create(); |
| try |
| ini.ReadSection(Name, str); |
| for i := 0 to str.count-1 do |
| begin |
| setlength(LangArray, length(LangArray)+1); |
| LangArray[length(LangArray)-1].name := str.strings[i]; |
| LangArray[length(LangArray)-1].text := ini.ReadString(name, str.strings[i], '?'); |
| LangArray[length(LangArray)-1].text := StringReplace(LangArray[length(LangArray)-1].text, '###', #13#10, [rfReplaceAll]); |
| end; |
| finally |
| ini.free; |
| str.Free; |
| end; |
| |
| // Formular vorbereiten |
| |
| lbl_wait.Caption := GetLangEntry('wait'); |
| btn_escape.Caption := GetLangEntry('exit'); |
| |
| lbl_wait.Left := clientwidth div 2 - lbl_wait.Width div 2; |
| end; |
| |
| end. |