Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure InitializeWizard;
- begin
- CustomPage := CreateCustomPage(wpLicense, 'Title', 'Sub title.');
- ExtractTemporaryFile('image.bmp');
- BtnImage := TBitmapImage.Create(WizardForm);
- with BtnImage do
- begin
- Parent := CustomPage.Surface;
- Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\image.bmp');
- AutoSize := True;
- Height := ScaleX(Height);
- Width := ScaleY(Width);
- Stretch := True;
- Cursor := crHand;
- OnClick := @ImageClick;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement