EagleSH
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
var
PageNameLabel, PageDescriptionLabel, FileNameLabel: TLabel;
procedure InitializeWizard();
begin
PageNameLabel := TLabel.Create(WizardForm);
with PageNameLabel do
begin
Left := ScaleX(10);
Top := ScaleY(10);
Width := ScaleX(300);
Height := ScaleY(14);
AutoSize := False;
WordWrap := True;
Font.Color := clBlack;
Font.Style := [fsBold];
ShowAccelChar := False;
Transparent := True;
Parent := WizardForm.MainPanel;
end;
PageDescriptionLabel := TLabel.Create(WizardForm);
with PageDescriptionLabel do
begin
Left := ScaleX(15);
Top := ScaleY(25);
Width := ScaleX(475);
Height := ScaleY(30);
AutoSize := False;
WordWrap := True;
Font.Color := clBlack;
ShowAccelChar := False;
Transparent := True;
Parent := WizardForm.MainPanel;
end;
FileNameLabel := TLabel.Create(WizardForm);
with FileNameLabel do
begin
Left := ScaleX(15);
Top := ScaleY(65);
Width := ScaleX(475);
Height := ScaleY(30);
AutoSize := False;
WordWrap := True;
Font.Color := clBlack;
ShowAccelChar := False;
Transparent := True;
Parent := WizardForm.MainPanel;
end;
with WizardForm do
begin
PageNameLabel.Hide;
PageDescriptionLabel.Hide;
FileNameLabel.Hide;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption := WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption;
FileNameLabel.Caption := WizardForm.FileNameLabel.Caption;
end;
|
Всего записей: 318 | Зарегистр. 20-12-2005 | Отправлено: 16:14 24-12-2008 | Исправлено: EagleSH, 16:25 24-12-2008 |
|
