|
no possible! isee is limitated
use external code:
ex:
[Setup]
AppName=TlamaTest
AppVersion=Test
DefaultDirName=Test
OutputDir=.
[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"
[code]
procedure InitializeWizard();
var
WizardLabel1, WizardLabel2, FinalLabel1, FinalLabel2: TLabel;
begin
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.WizardBitmapImage.Width := 501;
WizardForm.WizardBitmapImage.Height := 315;
WizardLabel1 := TLabel.Create(WizardForm);
WizardLabel1.Left := ScaleX(176);
WizardLabel1.Top := ScaleY(16);
WizardLabel1.Width := ScaleX(301);
WizardLabel1.Height := ScaleY(54);
WizardLabel1.AutoSize := False;
WizardLabel1.WordWrap := True;
WizardLabel1.Font.Name := 'impact';
WizardLabel1.Font.Size := 13;
WizardLabel1.Font.Color:= clWhite;
WizardLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
WizardLabel1.Transparent := True;
WizardLabel1.Parent := WizardForm.WelcomePage;
WizardLabel2 :=TLabel.Create(WizardForm);
WizardLabel2.Top := ScaleY(76);
WizardLabel2.Left := ScaleX(176);
WizardLabel2.Width := ScaleX(301);
WizardLabel2.Height := ScaleY(234);
WizardLabel2.AutoSize := False;
WizardLabel2.WordWrap := True;
WizardLabel2.Font.Name := 'Arial';
WizardLabel2.Font.Color:= clYellow;
WizardLabel2.ShowAccelChar := False;
WizardLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
WizardLabel2.Transparent := True;
WizardLabel2.Parent := WizardForm.WelcomePage;
WizardForm.WizardBitmapImage2.Width := 501;
WizardForm.WizardBitmapImage2.Height := 315;
FinalLabel1 := TLabel.Create(WizardForm);
FinalLabel1.Left := ScaleX(176);
FinalLabel1.Top := ScaleY(16);
FinalLabel1.Width := ScaleX(301);
FinalLabel1.Height := ScaleY(54);
FinalLabel1.AutoSize := False;
FinalLabel1.WordWrap := True;
FinalLabel1.Font.Name := 'impact';
FinalLabel1.Font.Size := 15;
FinalLabel1.Font.Style := [fsBold];
FinalLabel1.Font.Color:= clLime;
FinalLabel1.ShowAccelChar := False;
FinalLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption;
FinalLabel1.Transparent := True;
FinalLabel1.Parent := WizardForm.FinishedPage;
FinalLabel2 :=TLabel.Create(WizardForm);
FinalLabel2.Top := ScaleY(76);
FinalLabel2.Left := ScaleX(176);
FinalLabel2.Width := ScaleX(301);
FinalLabel2.Height := ScaleY(53);
FinalLabel2.AutoSize := False;
FinalLabel2.WordWrap := True;
FinalLabel2.Font.Name := 'Arial';
FinalLabel2.Font.Color:= clolive;
FinalLabel2.ShowAccelChar := False;
FinalLabel2.Caption := WizardForm.FinishedLabel.Caption;
FinalLabel2.Transparent := True;
FinalLabel2.Parent := WizardForm.FinishedPage;
end;
logo:
[Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton
[Files]
Source: Button.bmp; Flags: dontcopy
[Code]
procedure TestButtonOnClick(Sender: TObject);
begin
MsgBox('Hello!', mbInformation, MB_OK)
end;
procedure InitializeWizard();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;
begin
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=325
Width:=132
Height:=27
Cursor:=crHand
OnClick:=@TestButtonOnClick
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True
Enabled:=False
ExtractTemporaryFile('Button.bmp')
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Butt on.bmp')
Parent:=BtnPanel
end
end;
Last edited by sentinelks; 02-12-2013 at 07:29.
|