Advertisement
Guest User

Untitled

a guest
May 5th, 2017
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure InitializeWizard;
  2.  
  3.  begin
  4.  
  5.   CustomPage := CreateCustomPage(wpLicense, 'Title', 'Sub title.');
  6.  
  7.   ExtractTemporaryFile('image.bmp');
  8.  
  9.   BtnImage := TBitmapImage.Create(WizardForm);
  10.   with BtnImage do
  11.   begin
  12.    Parent := CustomPage.Surface;
  13.    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\image.bmp');
  14.    AutoSize := True;
  15.    Height := ScaleX(Height);
  16.    Width := ScaleY(Width);
  17.    Stretch := True;
  18.    Cursor := crHand;
  19.    OnClick := @ImageClick;
  20.  end;
  21.  
  22. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement