[CustomMessages]
rus.SelectComponentsLabel=Выберите компоненты, которые Вы хотите установить; снимите флажки с компонентов, устанавливать которые не требуется. Нажмите «Далее», когда Вы будете готовы продолжить.
ComponentsList := TLabel.Create(WizardForm);
with ComponentsList do begin
WizardForm.ComponentsList.Left:= ScaleX(50)///положение панели
WizardForm.ComponentsList.Top:= ScaleY(150);
WizardForm.ComponentsList.Width:= ScaleX(400)///размер панели
WizardForm.ComponentsList.Height:= ScaleY(120)
WizardForm.ComponentsList.Color:= $272727;///цвет фона в панели страници компонентов
WizardForm.ComponentsList.Font.Color:= ClWhite;///цвет текста в панели страници компонентов
WizardForm.ComponentsList.Font.Style:= [fsBold];
WizardForm.ComponentsList.Font.Size:= 8;
WizardForm.ComponentsList.Font.Name:= 'Arial'
WizardForm.ComponentsList.Parent:= WizardForm;
WizardForm.SelectComponentsPage;
end;
SelectComponentsLabel := TLabel.Create(WizardForm);
with SelectComponentsLabel do begin
AutoSize:=False;
SetBounds(ScaleX(50), ScaleY(75), ScaleX(400), ScaleY(70));
WordWrap:= True;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 8;
Font.Color:=$FFFFFF;
Font.Style:=[fsItalic];
Caption:= ExpandConstant('{cm:SelectComponentsLabel}');
Parent := WizardForm;
end; |
