FileForums - yener90's Inno Project Source Codes

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - yener90's Inno Project Source Codes (https://fileforums.com/showthread.php?t=91563)

Quote:

Originally Posted by yener90 (Post 408115)

UPDATE 8.5.7.2
- added Components feature
-> decription in tutorial section
- updated autorun
- added future systems support on System Requirement page
-> windows 8 should be supported now

Thanks for update yener, two things:

1. Just a thought, maybe if we keep uninstall files of original installation, we can delete the specific component without deleting completely ?

2. is srep still functional ? I made a run but got unidentified compression method error in the very beginning of setup

Quote:

Originally Posted by Fabioddq (Post 408131)

Only thing:

If i install one game only, the installer creates the shortcut of the game is not installed yet. Look:

But is not a problem, i just delete the useless shortcut. :D

i realized it^^
will bring out hotfix for this.

UPDATE 8.5.7.3
- fixed shortcut for components

Quote:

Originally Posted by yener90 (Post 408157)

UPDATE 8.5.7.3
- fixed shortcut for components

Thanks for fix yener! Works great! :D

Hi yener90, long time making no sign, but now I have an idea. What about active zones for buttons. Now it's determined by image resolution, but what when I need smaller one? Look at the splash bottom

Attachment 4491
Attachment 4492
Attachment 4493

Have nice day

if you come...then with great ideas :p
im thing how to make this possible....
maybe extra position selection for this??

Well... idea is mine, realization is yours :p

The most comfortable solution is detecting button text dimensions and automatically creating active zone, but it's quite complicated. The easiest solution is adding new variables describing vertical and horizontal amplification from the center of button text (what is already implemented)

Quote:

Originally Posted by BAMsE (Post 408182)

comfortable yes...but im using limited inno code :p

yener, i have a few questions if i may.

Let's say i want all Components unchecked by default when starting the Installer.

I've modified the code to look like this:

Code:

    ComponentsPage.ID:

    begin

      SelectComponentsLabel.Show

      ComponentsDiskSpaceLabel.Show;

      Components1.Checked := False;

      Components2.Checked := False;

      Components3.Checked := False;

      Components4.Checked := False;

      if not FileExists(ExpandConstant('{tmp}\Checkbox.png')) then begin

      Components1.Visible := Components1V;

      Components2.Visible := Components2V;

      Components3.Visible := Components3V;

      Components4.Visible := Components4V;

      Components5.Visible := Components5V;

      Components6.Visible := Components6V;

      Components7.Visible := Components7V;

      Components8.Visible := Components8V;

      end;

      BtnSetVisibility(Components1Check,Components1V);

      BtnSetVisibility(Components2Check,Components2V);

      BtnSetVisibility(Components3Check,Components3V);

      BtnSetVisibility(Components4Check,Components4V);

      BtnSetVisibility(Components5Check,Components5V);

      BtnSetVisibility(Components6Check,Components6V);

      BtnSetVisibility(Components7Check,Components7V);

      BtnSetVisibility(Components8Check,Components8V);

      Components1Label.Visible := Components1V;

      Components2Label.Visible := Components2V;

      Components3Label.Visible := Components3V;

      Components4Label.Visible := Components4V;

      Components5Label.Visible := Components5V;

      Components6Label.Visible := Components6V;

      Components7Label.Visible := Components7V;

      Components8Label.Visible := Components8V;

    end;

Maybe you have another solution?

Also, i want to add some conditional checks. For example. If i check Component2, Component3 should uncheck automatically and if i check Component3, Component2 should uncheck automatically.

I've modified the following code:

Code:

procedure UpdateComponentsPage;

var TempInt: Integer; TempStr:String;

begin

TempInt := 0;

if Components1.Checked then

TempInt := TempInt + GetIniInt('ComponentsSettings', 'Component1Size', 0,0,0, ExpandConstant('{tmp}\Setup.ini'));

//if Components2.Checked then

//TempInt := TempInt + GetIniInt('ComponentsSettings', 'Component2Size', 0,0,0, ExpandConstant('{tmp}\Setup.ini'));

//if Components3.Checked then

//TempInt := TempInt + GetIniInt('ComponentsSettings', 'Component3Size', 0,0,0, ExpandConstant('{tmp}\Setup.ini'));



//*************** Teste **************///



if Components2.Checked then

                       begin

                        Components3.Checked:=False;

                        BtnSetChecked(Components3Check,False);

                        TempInt := TempInt + GetIniInt('ComponentsSettings', 'Component2Size', 0,0,0, ExpandConstant('{tmp}\Setup.ini'));

                       end;                    

if Components3.Checked then

                       begin

                        Components2.Checked:=False;

                        BtnSetChecked(Components2Check,False);

                        TempInt := TempInt + GetIniInt('ComponentsSettings', 'Component3Size', 0,0,0, ExpandConstant('{tmp}\Setup.ini'));

                       end;



//*************** Teste **************///

............... ................

But doesnt work like i want it to work.

Any hints? Thanks in advance.

default state false:

Code:

Components1:= TCheckBox.Create(WizardForm);

with Components1 do

begin

Parent:= WizardForm;

Left:= NewLeftPositionCP; 

Top:= TextPositionTop + 130 + MoveDirectoryInfo;

Width:= 13;

Height:= 13;

TabOrder:= 0;

Checked:= Components1V; -> change to false

Visible:= Components1V;

OnClick:= @ComponentsClick;

...

BtnSetChecked(Components1Check,True); -> Change To false

end;

inverting buttons(make sure you defined correctly in previous step):

Code:

procedure Components2CheckClick(hBtn:HWND);

begin

if Components2.Checked = False then

Components2.Checked:= True else

Components2.Checked:= False;

BtnSetChecked(Components2Check,Components2.Checked)

Components3.Checked:= not Components2.Checked; 

BtnSetChecked(Components3Check,not Components2.Checked)

end;



procedure Components3CheckClick(hBtn:HWND);

begin

if Components3.Checked = False then

Components3.Checked:= True else

Components3.Checked:= False;

BtnSetChecked(Components3Check,Components3.Checked)

Components2.Checked:= not Components3.Checked; 

BtnSetChecked(Components2Check,not Components3.Checked)

end;



same changes for Components2LabelOnClick and Components3LabelOnClick

Thanks alot man. I'll try right away <3

EDIT: Works very well. Thanks again!

UPDATE 8.5.7.4
- advanced buttons -> now you can define touch position
-> NOT NECESSARY
for better description look here:
http://imageshack.us/a/img202/9290/setposition.jpg

THX Yener90 SIR .:D
I will try this new update as soon as i finish my Doom 3 BFG Edition C.I. :p

Quote:

Originally Posted by yener90 (Post 408218)

UPDATE 8.5.7.4
- advanced buttons -> now you can define touch position
-> NOT NECESSARY
for better description look here:
http://imageshack.us/a/img202/9290/setposition.jpg

Thanks for the update yener. I will test these new features soon. Will drop like a bomb in my conversion of Doom 3 BFG. :p:D

Hello again yener, i hope you can help me again with one problem :)

i've used your latest CI v8.5.7.4 to build an installation using:

Code:

#define ProgramFiles

#define Internal

The files have around 6gb, the problem is, after successful compiling. When i run setup.exe, it takes a few minutes for the setup window to open. If i look in TaskManager, setup.exe is shown as "Not responding", but if after a few minutes, the setup window appears and i can install the files.

I've tried another method using:

Code:

#define ProgramFiles

;#define Internal

And this time, when i run setup.exe, the installer window is shown like it should. Almost instantly.

In my 3rd try to find the problem, i've tried the 1st method:

Code:

#define ProgramFiles

#define Internal

,but with some minimal files to install. around 20mb.

This time when i ran setup.exe, all is fine, the installer window is shown very fast .. etc.

To sum this up, when i've used #define Internal, for large amount of files, around 6gb, the setup had problems with very slow loads. But when i've used #define Internal with small amount of files, around 20mb, the setup had no problems. Also, if i dont use #define Internal, i have no problems even with 6gb+ files.

What is the problem? I really want to make the setup work with #define Internal for larger files.

Thanks in advance, as always ;)