View Single Post
  #9  
Old 13-10-2019, 21:22
Cesar82's Avatar
Cesar82 Cesar82 is offline
Registered User
 
Join Date: May 2011
Location: Brazil
Posts: 1,074
Thanks: 1,814
Thanked 2,304 Times in 787 Posts
Cesar82 is on a distinguished road
@mausschieber
This "CenterInsideControl" function no longer exists in Inno Setup 6...

A possible almost similar solution is:
Delete line in color red and insert this parts in blue color.
Code:
procedure AboutFormOnShow(Sender: TObject);
begin
  TSetupForm(Sender as TSetupForm).Left := WizardForm.Left + (( WizardForm.ClientWidth -  TSetupForm(Sender as TSetupForm).ClientWidth) div 2);
  TSetupForm(Sender as TSetupForm).Top :=  WizardForm.Top + ((WizardForm.ClientHeight - TSetupForm(Sender as TSetupForm).ClientHeight) div 2);
end;

procedure AboutButtonClick(Sender: TObject);
var
  AboutForm: TSetupForm;
  AboutOKButton: TNewButton;
  AboutLabel: TNewStaticText;
  LogoImage: TBitmapImage;
begin
  AboutForm := CreateCustomForm
  try
    AboutForm.ClientWidth := ScaleX(380);
    AboutForm.ClientHeight := ScaleY(280);
    AboutForm.Caption := SetupMessage(msgAboutSetupMenuItem);
    AboutForm.OnShow := @AboutFormOnShow;
    //AboutForm.CenterInsideControl(WizardForm, False);
Reply With Quote
The Following 3 Users Say Thank You to Cesar82 For This Useful Post:
Grumpy (14-10-2019), mausschieber (14-10-2019), pakrat2k2 (13-10-2019)