INNO TROUBLESHOOT - Questions Here

[MMR]

Hi , I want the installer don't make AppName or DefaultDirName to use installer as abatch like this :

[Razor12911]

Defaultdirname should be {sd}

[MMR]

Originally Posted by Razor12911

Defaultdirname should be {sd}

thanks Razor12911 but it didn't work well , after opening setup.exe file it work like this :


but if press browse & change the location it dosn't work like this :

please any help .

[Dante1995]

try this

[MMR]

Originally Posted by Dante1995

try this

thanks but the same problem , you don't understand what I mean ,
I want the setup doesn't make folder to install the files ( setup don't use DefaultDirName ) just install files in any partition or folder

[Darkangel5]

hello,

sorry to use google translation to translate.

I made an autorun (see screen).



I would like to know how to make a zoom effect passage of the mouse has on the button readme, manual etc etc.

I post a message there about 2 months and had me help razor12911
but I can not do
So if anyone has a script to help me would be nice ca

thank you

[Logrim]

One little question, please help me in you can

i have a botva2 button, this:

InstallGame1Btn:=BtnCreate(WizardForm.Handle,55,84 ,15,15,'AutorunMainBtn.png',0,False);
BtnSetEvent(InstallGame1Btn,BtnClickEventID,CallBa ckAddr('InstallGame1BtnClick'));
BtnSetEvent(InstallGame1Btn,BtnMouseEnterEventID,C allBackAddr('BtnEnter'));
BtnSetCursor(InstallGame1Btn,GetSysCursorHandle(32 649));

and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:

InstallGame1Label:=TLabel.Create(WizardForm);
InstallGame1Label.Parent:=WizardForm;
InstallGame1Label.SetBounds(75,84,0,0);
InstallGame1Label.Font.Name:='Verdana';
InstallGame1Label.Font.Style:=[fsBold];
InstallGame1Label.Font.Color:=$C0C0C0; //Light Gray;
InstallGame1Label.Font.Size:=9;
InstallGame1Label.Caption:=ExpandConstant('{#Game1 Name}');
InstallGame1Label.OnMouseDown:=@WFMouseDown;
InstallGame1LabelS:=TLabel.Create(WizardForm);
with InstallGame1LabelS do begin
Parent:=WizardForm;
SetBounds(75+1,84+1,0,0);
Font.Name:='Verdana';
Font.Style:=[fsBold];
Font.Color:=clBlack;
Font.Size:=9;
SendToBack;
Caption:=ExpandConstant('{#Game1Name}');
OnMouseDown:=@WFMouseDown;
end;

Thanks

Edit: anyone know how to make a label color semitransparent?

[Razor12911]

@Darkangel5

Fix the lines where there are errors, using phone in bed, not even using a computer.
first create a timer like this:
var
FontTimer: TTimer;
InstallMouseMove: Boolean;

second create the Timer's procedure

procedure FontOnTimer(Sender: TObject);
begin
if InstallMouseMove and (installlabel.font.size < 18) then
installlabel.font.size:=installlabel.font.size:= + 1;
if not InstallMouseMove and (installlabel.font.size > 12) then
installlabel.font.size:=installlabel.font.size:= - 1;
end;

the label's mouse enter and leave

procedure InstallLabelOnEnter(Sender: TObject);
begin
InstallMouseMove:=True;
end;

procedure InstallLabelOnLeave(Sender: TObject);
begin
InstallMouseMove:=False;
end;

now at initializewizard do this

InstallLabel.OnMouseLeave:=@InstallLabelOnLeave;
InstallLabel.OnMouseEnter:=@InstallLabelOnEnter;
FontTimer:=TTimer.Create(WizardForm)
with FontTimer do
begin
OnTimer:=@FontOnTimer;
Interval:=10;
Enabled:=True;
end;

installlabel is the existing label.

[Razor12911]

Originally Posted by Logrim

One little question, please help me in you can

i have a botva2 button, this:



and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:


Thanks

Edit: anyone know how to make a label color semitransparent?

these botva2 buttons are longintegers, looks at the functions and the variables, they are longint and longit doesn't have left, nor top and stuff like that but you can get those values by doing this:
var
Pos: TRect;
begin
BtnGetPosition(InstallGame1Btn,Pos.Left,Pos.Top,Po s.Right,Pos.Bottom);
//Right is Width and and Bottom is Height
SetBounds((Pos.Left + Pos.Right) + 10,0,0,0);
end;

[Razor12911]

Originally Posted by MMR

thanks Razor12911 but it didn't work well , after opening setup.exe file it work like this :


but if press browse & change the location it dosn't work like this :

please any help .

[setup]
defaultdirname={sd}

[code]
procedure DirEditOnChange(Sender:TObject);
begin
WizardForm.DirEdit.Text:=AddBackSlash(ExtractFileD rive(WizardForm.DirEdit.Text));
end;

procedure InitializeWizard;
begin
WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;

[Razor12911]

Originally Posted by Logrim

One little question, please help me in you can

i have a botva2 button, this:



and i have a label for that button. i want to have the same setbounds in the label that the button, but, and this is the problem, i want if i have to positioning the button in another point of the autorun, move the label at the same position automatly.. i hope you understand my problem.

I want something like this, but with button not work.
SetBounds((InstallGame1Btn.Left + InstallGame1Btn.Width) + 10,0,0,0);

This is the label:


Thanks

Edit: anyone know how to make a label color semitransparent?

semitransparent font color? I don't think it is possible under VCL well maybe it is but is possible in FMX where color is written in this manner $AARRGGBB where the AA is the alpha/transparent color level but in VCL/Inno Ssetup it is something like this $AABBGGRR where AA is normal when it is < 60 but when it is > 60 it is black.

[aj12345]

How to add disk space required and avaible.

[MMR]

Originally Posted by Razor12911

[setup]
defaultdirname={sd}

[code]
procedure DirEditOnChange(Sender:TObject);
begin
WizardForm.DirEdit.Text:=AddBackSlash(ExtractFileD rive(WizardForm.DirEdit.Text));
end;

procedure InitializeWizard;
begin
WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;

thanks "Razor12911" but thier's error ;
i choose the location "C:\fraps\" but it make new folder automatically :

and if i press ok the location change to "C:\" without any dir then it give me error :

please help if you can .

[Logrim]

i have a question, i'm trying to add wintb to my code, and i can add it without errors, but the taskbar preview not show correctly, my code have mask, and only show in preview the picture, but not the welcome letters or the buttons.. how can i solve it? i hope you can understand my problem.

[altef_4]

Originally Posted by Logrim

i have a question, i'm trying to add wintb to my code, and i can add it without errors, but the taskbar preview not show correctly, my code have mask, and only show in preview the picture, but not the welcome letters or the buttons.. how can i solve it? i hope you can understand my problem.

it's happening because in task bar shows your "mask" form and not form with text, i have same problem in my Enhanced Installer.