[localhost]

2serg aka lain
Супер. Работает, как часы. Но это свойство распространяется только на одно окно, остальные остаются неизменными.

Кто умеет, соедините мой скрипт и нижеприведенный.

читать дальше »

procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.BorderStyle := bsSingle;
WizardForm.CancelButton.Top := ScaleY(327);
WizardForm.NextButton.Top := ScaleY(327);
WizardForm.BackButton.Top := ScaleY(327);
WizardForm.ClientHeight := ScaleY(360);

if CurPageID = wpSelectDir then
begin
WizardForm.BorderStyle := bsNone;
WizardForm.ClientHeight := ScaleY(160);
WizardForm.CancelButton.Top := WizardForm.CancelButton.Top - ScaleY(200);
WizardForm.CancelButton.BringToFront;
WizardForm.NextButton.Top := WizardForm.CancelButton.Top;
WizardForm.NextButton.BringToFront;
WizardForm.BackButton.Top := WizardForm.CancelButton.Top;
WizardForm.BackButton.BringToFront;
WizardForm.SelectDirBitmapImage.Hide;
WizardForm.SelectDirLabel.Hide;
WizardForm.SelectDirBrowseLabel.Hide;
WizardForm.DirEdit.Top := ScaleY(1);
WizardForm.DirBrowseButton.Top := 0;
end;
end;

читать дальше »

var
PageNameLabel, PageDescriptionLabel: 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 := clWhite;
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 := clWhite;
ShowAccelChar := False;
Transparent := True;
Parent := WizardForm.MainPanel;
end;

with WizardForm do
begin
PageNameLabel.Hide;
PageDescriptionLabel.Hide;
with MainPanel do
begin
with WizardSmallBitmapImage do
begin
Left := ScaleX(0);
Top := ScaleY(0);
Width := Mainpanel.Width;
Height := MainPanel.Height;
end;
end;
end;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption := WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption;
end;