INNO TROUBLESHOOT - Questions Here

[Gupta]

yener had used A dummy label to use as shadows.
jst top and left property be +1 else everything is same

procedure UpdateShadow(var Current, Shadow :TLabel);
begin
  if Shadow = nil then
    Shadow := TLabel.Create(WizardForm);
  if Current.Visible and (ShadowTXT >= 0) then begin
    with Shadow do begin
      Caption := Current.Caption;
      Alignment := Current.Alignment;
      AutoSize := Current.Autosize;
      Transparent := Current.Transparent;
      WordWrap := Current.Wordwrap;
      Parent := Current.Parent;
      OnClick := Current.OnClick;
      OnDblClick := Current.OnDblClick;
      OnMouseDown := Current.OnMouseDown;
      OnMouseMove := Current.OnMouseMove;
      OnMouseUp := Current.OnMouseUp;
      Font.Color := ShadowTXT;  
      Font.Size := Current.Font.Size;
      Font.Name := Current.Font.Name;
      Font.Style := Current.Font.Style;
      Visible := Current.Visible;
      Height := Current.Height;
      Width := Current.Width;
      Left := Current.Left + 1;
      Top := Current.Top + 1;
      SendToBack;
    end;
  end else
    Shadow.Hide;
end;

or
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[KaktoR]

procedure CurPageChanged(CurPageID: integer);
  begin
  case CurPageID of
    wpInstalling: begin
      WizardForm.ClientHeight := (180);
      WizardForm.ClientWidth := (497);
      WizardForm.CancelButton.SetBounds(ScaleX(75), ScaleY(23), ScaleX(412), ScaleY(327));
...
...

I'm not able to move Cancel button on installing page. Anyone knows why?

Also, BackButton just disappears with this

wpSelectDir: begin
      WizardForm.NextButton.Caption := 'Install';
      WizardForm.BackButton.SetBounds(ScaleX(75), ScaleY(23), ScaleX(242), ScaleY(227));

I have to define these buttons seperatly? I just thought because there are already in "InnoSetup Support" tab.

[Gupta]

if u r using Native controls(Notebooks), then you can't put anything on them unless control is a child

[KaktoR]

Thank you for your help.

Do it a different way then.

[KaktoR]

How i can hide

wpInfoBefore: begin
      WizardForm.NoStartMenu.Hide; WizardForm.Icons.Hide;
    end;

Unknown identifier

var
  Icons: TNewCheckBox;
  NoStartMenu: TNewCheckBox;

NoStartMenu := TNewCheckBox.Create(WizardForm);
  with NoStartMenu do begin
    Parent := WizardForm.InnerPage;
    Left := ScaleX(46);
    Top := ScaleY(224);
    Width := ScaleX(411);
    Height := ScaleY(17);
    Caption := 'Don''t create Start Menu folder';
    OnClick := @NoStartMenuClick;
    Checked := False;
  end;

  Icons := TNewCheckBox.Create(WizardForm);
  with Icons do begin
    Parent := WizardForm.InnerPage;
    Left := ScaleX(46);
    Top := ScaleY(248);
    Width := ScaleX(411);
    Height := ScaleY(17);
    Caption := 'Create {#Name} Desktop Icon';
    Checked := False;
  end;

[Gupta]

NoStartMenu, Icons aren't real members of WizardForm, you added them later on
try
NoStartMenu.Hide; Icons.Hide;

[KaktoR]

That makes totally sense. THank you, it works

Sometimes i make mistakes like those things.

[KaktoR]

Is there a way to resize SelectDirPage? Because i can't deactivate it.

with WizardForm.SelectDirPage do begin
    Left := ScaleX(1);
    Top := ScaleY(1);
    Width := ScaleX(500);
    Height := ScaleY(364);
  end;

wpSelectDir: begin
      WizardForm.SelectDirPage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(500), ScaleY(364));

Both doesn't work.

I'm not in the mood to create a whole new page instead.

[KaktoR]

Any way to set CheckBox style to default?

CheckBoxes from [Run] and Style (cjstyle/vsf) are different in appearance. I don't like that.

[KaktoR]

Using GetIniInt to get required space (mb) digits. But at this point i don't know exactly how to replace it with the SizeMB define properly.

NeedSpaceLabel.Caption := ExpandConstant('{cm:NeedSpace}  ') + MbOrTb({#SizeMB});

I've tried with {code:RequiredSpace} and it's associated procedure, but get an error when it comes to the page where disk space is called.

Going to change my code to get rid of defines and using GetIniStr and GetIniInt instead. GetIniStr is fine, not a problem.

I hope someony could point me in right direction.

[78372]

Maybe I am not understanding the question. Reading from ini and placing in the wizard form doesn't work or what?

[KaktoR]

Yes, exactly, but only for the one mentioned code tag above.

[78372]

Show code please (you used ISPP code, right?)

[MARCUS HOLLOWAY]

Hey KaktoR,
#define SizeMB ReadIni(SourcePath + "\setup.ini", "Application", "Appsize", "")

in setup.ini
[Application]
Appsize=4096

[KaktoR]

Originally Posted by MARCUS HOLLOWAY

Hey KaktoR,
#define SizeMB ReadIni(SourcePath + "\setup.ini", "Application", "Appsize", "")

in setup.ini
[Application]
Appsize=4096

Ok, didn't know it's possible to read from ini through define. Good to know.

I guess this answeres my question.

Thanks both of you