В программе есть проверка языка из INI-файла. Перевод работает в меню и тулбарах, но в отдельной форме с настройками не много не так. Он меняет Caption у трех элементов, но в начале Delphi выдает ошибку после которой все даже очень работает.
Ошибка
Код
| Код |
procedure TForm1.FormCreate(Sender: TObject);
var
MyFile:TIniFile;
dir:string;
xp:string;
lang:string;
begin
Timer1Timer(timer1);
xp:='xp';
//Create and type nothing
MyFile:=TIniFile.Create('txedit_config'+'.ini');
MyFile.WriteString('TEXTEDIT','Hello','World!');
//Icons checking
with myfile do
if readstring('ICONS','Main menu','xp')=xp then
mainmenu1.Images:=imagelist1 else mainmenu1.Images:=Imagelist2;
with myfile do
if readstring('ICONS','Popup Menu 1','xp')=xp then
mainmenu1.Images:=imagelist1 else popupmenu1.Images:=Imagelist2;
with myfile do
if readstring('ICONS','Popup Menu 2','xp')=xp then
mainmenu1.Images:=imagelist1 else popupmenu2.Images:=Imagelist2;
with myfile do
if readstring('ICONS','Toolbar','xp')=xp then
mainmenu1.Images:=imagelist1 else toolbar1.Images:=Imagelist2;
//Reading Languages
fn:=myfile.readString('LANGUAGE','Language','');
GetDir(0,dir);
myfile:=TIniFile.Create(Fn);
capt:=myfile.ReadString('LANGUAGE','MMenuFile','');
File1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFileNew','');
new1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFileOpen','');
Open1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFileSave','');
Save1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFileSaveAs','');
SaveAs1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFileExit','');
Exit1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEdit','');
Edit1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditCopy','');
Copy1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditCut','');
Cut1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditPaste','');
Paste1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditPasteTAD','');
PasteTimeDate1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditSelectAll','');
SelectAll1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditPrintSetup','');
Print1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditPrint','');
Print2.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditFind','');
Find1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuEditFindAR','');
FindandReplace1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFormat','');
Format1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFormatFont','');
Font1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFormatWordWrap','');
WordWrap1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFormatWWOn','');
On1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuFormatWWOff','');
Off1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuOptions','');
Options1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuHelp','');
Help1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuHelpHelpNY','');
Helpnotyet1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuHelpReadme','');
Readme1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','MMenuHelpAbout','');
About1.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','OptionsLanguage','');
Form3.GroupBox1.caption:=capt;/вот здесь жалуется
capt:=myfile.ReadString('LANGUAGE','OptionsIcons','');
Form3.GroupBox2.caption:=capt;
capt:=myfile.ReadString('LANGUAGE','OptionsYes','');
Form3.BitBtn1.caption:=capt;
myfile:=TIniFile.Create('txedit_config'+'.ini');
myfile.WriteString('LANGUAGE','Language',Fn);
toolbar1.Transparent:=true;
end;
|
|
