yener90's Inno Project Source Codes

[REV0]

Originally Posted by yener90

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

[yener90]

Originally Posted by Fabioddq

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.

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

[yener90]

UPDATE 8.5.7.3
- fixed shortcut for components

[Fabioddq]

Originally Posted by yener90

UPDATE 8.5.7.3
- fixed shortcut for components

Thanks for fix yener! Works great!

[BAMsE]

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

1.jpg
2.jpg
3.jpg

Have nice day

[yener90]

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

[BAMsE]

Well... idea is mine, realization is yours

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)

[yener90]

Originally Posted by BAMsE

Well... idea is mine, realization is yours

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)

comfortable yes...but im using limited inno code

[johnnyusa]

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:

    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:

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.

[yener90]

default state false:

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):

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

[johnnyusa]

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

EDIT: Works very well. Thanks again!

[yener90]

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

[Th3Raven]

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

[Fabioddq]

Originally Posted by yener90

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.

[johnnyusa]

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:

#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:

#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:

#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