|
|
|
#1
|
||||
|
||||
|
About me a hand I want to put a bmp or logo.png down
![]() or this old code that I lent year. How do I change. [CODE] Code:
procedure InheritBoundsRect(ASource, ATarget: TControl);
begin
ATarget.Left := ASource.Left;
ATarget.Top := ASource.Top;
ATarget.Width := ASource.Width;
ATarget.Height := ASource.Height;
end;
procedure InitializeWizard;
var
TopWelcomeLabel: TLabel;
BottomWelcomeLabel: TLabel;
begin
WizardForm.WizardBitmapImage.Align := alClient;
WizardForm.WizardBitmapImage.Bitmap.LoadFromFile('F:\example.495x314.bmp');
TopWelcomeLabel := TLabel.Create(WizardForm);
TopWelcomeLabel.Parent := WizardForm.WelcomeLabel1.Parent;
TopWelcomeLabel.Font := WizardForm.WelcomeLabel1.Font;
TopWelcomeLabel.Caption := WizardForm.WelcomeLabel1.Caption;
TopWelcomeLabel.WordWrap := WizardForm.WelcomeLabel1.WordWrap;
InheritBoundsRect(WizardForm.WelcomeLabel1, TopWelcomeLabel);
WizardForm.WelcomeLabel1.Visible := False;
BottomWelcomeLabel := TLabel.Create(WizardForm);
BottomWelcomeLabel.Parent := WizardForm.WelcomeLabel2.Parent;
BottomWelcomeLabel.Font := WizardForm.WelcomeLabel2.Font;
BottomWelcomeLabel.Caption := WizardForm.WelcomeLabel2.Caption;
BottomWelcomeLabel.WordWrap := WizardForm.WelcomeLabel2.WordWrap;
InheritBoundsRect(WizardForm.WelcomeLabel2, BottomWelcomeLabel);
WizardForm.WelcomeLabel2.Visible := False;
end;
[CODE] Code:
function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; end; function GetCustomSetupExitCode(): Integer; begin Result := 1; end; procedure InitializeWizard(); var WLabel1, WLabel2, FLabel1, FLabel2: TLabel; begin WizardForm.WelcomeLabel1.Hide; WizardForm.WelcomeLabel2.Hide; WizardForm.FinishedHeadingLabel.Hide; WizardForm.FinishedLabel.Hide; WizardForm.WizardBitmapImage.Width := 500; WizardForm.WizardBitmapImage.Height := 315; WLabel1 := TLabel.Create(WizardForm); WLabel1.Left := ScaleX(176); WLabel1.Top := ScaleY(16); WLabel1.Width := ScaleX(301); WLabel1.Height := ScaleY(54); WLabel1.AutoSize := False; WLabel1.WordWrap := True; WLabel1.Font.Name := 'verdana'; WLabel1.Font.Size := 12; WLabel1.Font.Style := [fsBold]; WLabel1.Font.Color:= clBlack; WLabel1.ShowAccelChar := False; WLabel1.Caption := WizardForm.WelcomeLabel1.Caption; WLabel1.Transparent := True; WLabel1.Parent := WizardForm.WelcomePage; WLabel2 :=TLabel.Create(WizardForm); WLabel2.Top := ScaleY(76); WLabel2.Left := ScaleX(176); WLabel2.Width := ScaleX(301); WLabel2.Height := ScaleY(234); WLabel2.AutoSize := False; WLabel2.WordWrap := True; WLabel2.Font.Name := 'tahoma'; WLabel2.Font.Color:= clBlack; WLabel2.ShowAccelChar := False; WLabel2.Caption := WizardForm.WelcomeLabel2.Caption; WLabel2.Transparent := True; WLabel2.Parent := WizardForm.WelcomePage; WizardForm.WizardBitmapImage2.Width := 500; WizardForm.WizardBitmapImage2.Height := 315; FLabel1 := TLabel.Create(WizardForm); FLabel1.Left := ScaleX(176); FLabel1.Top := ScaleY(16); FLabel1.Width := ScaleX(301); FLabel1.Height := ScaleY(54); FLabel1.AutoSize := False; FLabel1.WordWrap := True; FLabel1.Font.Name := 'verdana'; FLabel1.Font.Size := 12; FLabel1.Font.Style := [fsBold]; FLabel1.Font.Color:= clBlack; FLabel1.ShowAccelChar := False; FLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption; FLabel1.Transparent := True; FLabel1.Parent := WizardForm.FinishedPage; FLabel2 :=TLabel.Create(WizardForm); FLabel2.Top := ScaleY(76); FLabel2.Left := ScaleX(176); FLabel2.Width := ScaleX(301); FLabel2.Height := ScaleY(53); FLabel2.AutoSize := False; FLabel2.WordWrap := True; FLabel2.Font.Name := 'tahoma'; FLabel2.Font.Color:= clBlack; FLabel2.ShowAccelChar := False; FLabel2.Caption := WizardForm.FinishedLabel.Caption; FLabel2.Transparent := True; FLabel2.Parent := WizardForm.FinishedPage; end; Last edited by nicola16; 29-05-2013 at 16:21. |
| Sponsored Links |
|
#2
|
|||
|
|||
|
I have 2 probrem with my code
1. I can't show license page before welcome page & ready page before installing page 2. I using StatusLabel.SetBounds but i don't see status in installing page Please help myyyyy. Sr for my english bad @@ Last edited by Thang; 06-06-2013 at 23:29. |
|
#3
|
||||
|
||||
|
Quote:
2. chk attachment.. |
| The Following User Says Thank You to y_thelastknight For This Useful Post: | ||
Thang (30-05-2013) | ||
![]() |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup | REV0 | Conversion Tutorials | 129 | 21-05-2021 05:51 |
| INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup | REV0 | Conversion Tutorials | 51 | 26-03-2015 06:57 |
| Frequently Asked Questions | Joe Forster/STA | PC Games - Frequently Asked Questions | 0 | 29-11-2005 09:48 |