Thread: Inno Ultra Lite
View Single Post
  #6  
Old 02-12-2013, 07:00
sentinelks sentinelks is offline
Banned
 
Join Date: May 2013
Location: hjklò
Posts: 281
Thanks: 74
Thanked 320 Times in 157 Posts
sentinelks is on a distinguished road
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.
Reply With Quote
The Following User Says Thank You to sentinelks For This Useful Post:
aj12345 (02-12-2013)