[SteamShip]

Помогите пожалуйста решить ошибку:

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

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
AllowNoIcons=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe

[code]
var
pnl: TPanel;


procedure SelectGroupFolderPage;
begin
with WizardForm do
begin
with GroupEdit do
begin
Left:= 40;
Top:= 167;
Parent:= pnl;
end;
with GroupBrowseButton do
begin
Left:= WizardForm.GroupEdit.Left + WizardForm.GroupEdit.Width + 10;
Top:= WizardForm.GroupEdit.Top - 1;
Parent:= pnl;
end;
with SelectGroupBitmapImage do
begin
Left:= WizardForm.GroupEdit.Left;
Top:= WizardForm.GroupEdit.Top - 62;
Stretch:= True;
Parent:= pnl;
end;
with TLabel.Create(pnl) do
begin
AutoSize:= WizardForm.SelectStartMenuFolderLabel.AutoSize;
SetBounds(WizardForm.GroupEdit.Left,WizardForm.GroupEdit.Top - 60,
WizardForm.SelectStartMenuFolderLabel.Width, WizardForm.SelectStartMenuFolderLabel.Height);
WordWrap:= WizardForm.SelectStartMenuFolderLabel.WordWrap;
Caption:= WizardForm.SelectStartMenuFolderLabel.Caption;
with Font do
begin
Color:= WizardForm.SelectStartMenuFolderLabel.Font.Color;
Style:= WizardForm.SelectStartMenuFolderLabel.Font.Style;
Name:= WizardForm.SelectStartMenuFolderLabel.Font.Name;
Size:= WizardForm.SelectStartMenuFolderLabel.Font.Size;
end;
Transparent:= True;
Parent:= pnl;
end;
with TLabel.Create(pnl) do
begin
AutoSize:= WizardForm.SelectStartMenuFolderlabel.AutoSize;
SetBounds(WizardForm.GroupEdit.Left,WizardForm.GroupEdit.Top - 60,
WizardForm.SelectStartMenuFolderLabel.Width, WizardForm.SelectStartMenuFolderLabel.Height);
WordWrap:= WizardForm.SelectStartMenuFolderLabel.WordWrap;
Caption:= WizardForm.SelectStartMenuFolderLabel.Caption;
with Font do
begin
Color:= WizardForm.SelectStartMenuFolderLabel.Font.Color;
Style:= WizardForm.SelectStartMenuFolderLabel.Font.Style;
Name:= WizardForm.SelectStartMenuFolderLabel.Font.Name;
Size:= WizardForm.SelectStartMenuFolderLabel.Font.Size;
end;
Transparent:= True;
Parent:= pnl;
end;

end;
with TLabel.Create(pnl) do
begin
AutoSize:= WizardForm.NoIconsCheck.AutoSize;
SetBounds(WizardForm.GroupEdit.Left,WizardForm.GroupEdit.Top - 60,
WizardForm.NoIconsCheck.Width, WizardForm.NoIconsCheck.Height);
WordWrap:= WizardForm.NoIconsCheck.WordWrap;
Caption:= WizardForm.NoIconsCheck.Caption;
with Font do
begin
Color:= WizardForm.NoIconsCheck.Font.Color;
Style:= WizardForm.NoIconsCheck.Font.Style;
Name:= WizardForm.NoIconsCheck.Font.Name;
Size:= WizardForm.NoIconsCheck.Font.Size;
end;
Transparent:= True;
Parent:= pnl;
end;
pnl.Repaint;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
pnl:= TPanel.Create(WizardForm);
with pnl do
begin
Align:= alClient;
Parent:= WizardForm;
end;
with WizardForm do
begin
with WizardBitmapImage do
begin
Align:= alClient;
Stretch:= True;
Parent:= pnl;
end;
NextButton.Parent:= pnl;
CancelButton.Parent:= pnl;
pnl.Repaint;
end;

if CurPageID = wpSelectProgramGroup then SelectGroupFolderPage
end;