LanguageLabel := TLabel.Create(WizardForm);
with LanguageLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(410), ScaleX(400), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Language}');
Parent := WizardForm;
end;
LngNameLbl := TLabel.Create(WizardForm);
with LngNameLbl do begin
AutoSize:=False;
SetBounds(ScaleX(300), ScaleY(410), ScaleX(100), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$00FFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:LanguageRus}');
Parent := WizardForm;
end;
LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\ru.png'),0,True);
BtnSetEvent(LanguageButton[1],BtnClickEventID,WrapBtnCallback(@SelectLanguage,1));
BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));
LanguageButton[2]:=BtnCreate(WizardForm.Handle,ScaleX(460),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us.png'),0,True);
BtnSetEvent(LanguageButton[2],BtnClickEventID,WrapBtnCallback(@SelectLanguage,1));
BtnSetEvent(LanguageButton[2],BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(LanguageButton[2],GetSysCursorHandle(32649));
BtnSetChecked(LanguageButton[1],True); |
