Tutorial using CI 8.0.0

[red01]

Originally Posted by Razor12911

Set precomp version

error

arc a -m0 data.cab "c:\*"
precomp.exe data.arc
srep.exe -m3 data.pcf data.srep
arc a -m5 data.cab data.srep

for best compression

do this

srep -m3f

final arc method must be -mx

it finally works for me.

here is what i did..
compressions method
arc a -m0 data.arc "C:\Program Files\*"
precomp.exe -c- data.arc
srep.exe -m3f data.pcf data.srep
arc a -mx data.cab data.srep

precompver=0.42

[ExtractSettings]
FreeArcFile1=Data.cab;DestDir:{app};Disk:1;PrecSre p:1

i put the arc.ini in setup.cab (i modified arc.ini a little according to the method i used above).



no error this time.
i tried two times with full success.

Thanks for ur help Razor 12911

[red01]

i want to make progress bar vertical at the right corner of the screen of installer..

is it possible?

[Razor12911]

Inno Setup uses old delphi so no. other wise you could have use RotationAngle Property but anything is possible in delphi.

[Razor12911]

not unless if you are using a custom graphic progress. PBProc

check on ImgPBSetPosition procedure

procedure ImgPBSetPosition(var PB :TImgPB; Percent :Extended);
begin
if PB.img1<>0 then begin
NewWidth:=Round(PB.MaxWidth*Percent/100);
if PB.Width<>NewWidth then begin
PB.Width:=NewWidth;
ImgSetPosition(PB.img1,PB.Left,PB.Top,PB.Width,PB. Height);
end;
end;
end;

substitute width with height

[red01]

Originally Posted by Razor12911

not unless if you are using a custom graphic progress. PBProc

check on ImgPBSetPosition procedure

procedure ImgPBSetPosition(var PB :TImgPB; Percent :Extended);
begin
if PB.img1<>0 then begin
NewWidth:=Round(PB.MaxWidth*Percent/100);
if PB.Width<>NewWidth then begin
PB.Width:=NewWidth;
ImgSetPosition(PB.img1,PB.Left,PB.Top,PB.Width,PB. Height);
end;
end;
end;

substitute width with height

i will try it and will inform u soon..

[red01]

i follow ur instructions and now inno is giving me the following error
please have a look

[Razor12911]

find

MaxWidth : integer;

change it to

MaxHeight : integer;

[red01]

Originally Posted by Razor12911

find

MaxWidth : integer;

change it to

MaxHeight : integer;

its not working

after changing this
" MaxWidth : integer;

change it to

MaxHeight : integer; "



i cant follow ur first instruction..


and when i try without step one (ur first instruction) its not working.
its still same progress bar.

can u give me an example script with such progress bar?

[Razor12911]

hmm, It works.

Might consider adding this to my installer

function ImgPBCreate(hParent :HWND; bk, pb :ansistring; Left, Top, Width, Height :integer):TImgPB;
begin
Result.Left:=Left+1;
Result.Top:=Top+1;
Result.Width:=Width-2;
Result.Height:=0;
Result.MaxHeight:=Height-2;
if Length(pb)>0 then Result.img1:=ImgLoad(hParent,pb,Result.Left,Result .Top,0,Result.Height,True,False) else Result.img1:=0;
if Length(bk)>0 then Result.img2:=ImgLoad(hParent,bk,Left,Top,Width,Hei ght,True,False) else Result.img2:=0;
end;

procedure ImgPBSetPosition(var PB :TImgPB; Percent :Extended);
begin
if PB.img1<>0 then begin
NewHeight:=Round(PB.MaxHeight*Percent/100);
if PB.Height<>NewHeight then begin
PB.Height:=NewHeight;
ImgSetPosition(PB.img1,PB.Left,PB.Top,PB.Width,PB. Height);
end;
end;
end;

find

NewWidth and MaxWidth

and change them to

NewHeight and MaxHeight

they are under var

[red01]

i am sorry to bother you again and again but still error.

i attached the image.

[Razor12911]

find MaxWidth and Change it to MaxHeight

it's under var

[red01]

Originally Posted by Razor12911

find MaxWidth and Change it to MaxHeight

it's under var

sorry i cant find it.

[pakrat2k2]

look here

[Razor12911]

Here's the script with your request

[red01]

Originally Posted by Razor12911

Here's the script with your request

i try this script and still the same progress bar (look at pic) and its not showing filling of bar with progress of installation (empty progress bar).