Blackbox Inno Setup Script

[ravencrow]

Originally Posted by buntionly4u

Help needed
Want to enable or disable program group through checkbox as it is in blackbox's script.

from where did you get this script?

[buntionly4u]

Originally Posted by ravencrow

from where did you get this script?

From here:
http://fileforums.com/showthread.php...light=corepack

[ravencrow]

Originally Posted by buntionly4u

From here:
http://fileforums.com/showthread.php...light=corepack

i don't think so, look at the watermark and stuff in lockscreen

[buntionly4u]

Originally Posted by ravencrow

i don't think so, look at the watermark and stuff in lockscreen

I have made many changes in that script that you can see..

Can u help me out?
Since I am not from IT background so don't know much about programming. In this script I am not able to link the 'no start menu folder checkbox' with the 'start group selection'. if checkbox is checked then no start menu folder and disabled start group selection and if not then start menu folder.

Pl have a look at the code:

function CheckError:boolean;
begin
if ISDoneError = True then
Result := False
else
Result := True;
end;

function CreateGI:boolean;
begin
if CheckError = True then
begin
if NoIconsCheck.IsChecked then
Result:=True
else
Result:=False;
end;
end;

procedure NoIconsCheckOnClick(Sender: TObject);
begin
if NoIconsCheck.IsChecked=True then begin
WizardForm.GroupEdit.Enabled:= false;
WizardForm.GroupBrowseButton.Enabled:= false;
ButtonSetEnabled(GroupBtn, false);
end else begin
WizardForm.GroupEdit.Enabled:= true;
WizardForm.GroupBrowseButton.Enabled:= true;
ButtonSetEnabled(GroupBtn, true);
end;
WizardForm.GroupEdit.Color:= clblack;
end;

[-NORO-]

Originally Posted by buntionly4u

I have made many changes in that script that you can see..

Can u help me out?
Since I am not from IT background so don't know much about programming. In this script I am not able to link the 'no start menu folder checkbox' with the 'start group selection'. if checkbox is checked then no start menu folder and disabled start group selection and if not then start menu folder.

Pl have a look at the code:

function CheckError:boolean;
begin
if ISDoneError = True then
Result := False
else
Result := True;
end;

function CreateGI:boolean;
begin
if CheckError = True then
begin
if NoIconsCheck.IsChecked then
Result:=True
else
Result:=False;
end;
end;

procedure NoIconsCheckOnClick(Sender: TObject);
begin
if NoIconsCheck.IsChecked=True then begin
WizardForm.GroupEdit.Enabled:= false;
WizardForm.GroupBrowseButton.Enabled:= false;
ButtonSetEnabled(GroupBtn, false);
end else begin
WizardForm.GroupEdit.Enabled:= true;
WizardForm.GroupBrowseButton.Enabled:= true;
ButtonSetEnabled(GroupBtn, true);
end;
WizardForm.GroupEdit.Color:= clblack;
end;

Hello
Can you tell me, from where you got it ? , am curious because there is my name in watermark and i shared it only to few people.
Btw your functions to analyze hard disk and give informations arent working when you choose another drive like D ,F , etc.

[buntionly4u]

Originally Posted by -NORO-

Hello
Can you tell me, from where you got it ? , am curious because there is my name in watermark and i shared it only to few people.
Btw your functions to analyze hard disk and give informations arent working when you choose another drive like D ,F , etc.

can u pl tell how to remove this bug

[-NORO-]

Originally Posted by buntionly4u

can u pl tell how to remove this bug

I guess you didnt answer to my question first

[ravencrow]

Originally Posted by buntionly4u

I have made many changes in that script that you can see..

Can u help me out?
Since I am not from IT background so don't know much about programming. In this script I am not able to link the 'no start menu folder checkbox' with the 'start group selection'. if checkbox is checked then no start menu folder and disabled start group selection and if not then start menu folder.

Pl have a look at the code:

function CheckError:boolean;
begin
if ISDoneError = True then
Result := False
else
Result := True;
end;

function CreateGI:boolean;
begin
if CheckError = True then
begin
if NoIconsCheck.IsChecked then
Result:=True
else
Result:=False;
end;
end;

procedure NoIconsCheckOnClick(Sender: TObject);
begin
if NoIconsCheck.IsChecked=True then begin
WizardForm.GroupEdit.Enabled:= false;
WizardForm.GroupBrowseButton.Enabled:= false;
ButtonSetEnabled(GroupBtn, false);
end else begin
WizardForm.GroupEdit.Enabled:= true;
WizardForm.GroupBrowseButton.Enabled:= true;
ButtonSetEnabled(GroupBtn, true);
end;
WizardForm.GroupEdit.Color:= clblack;
end;

you say you have no it background and programming knowledge, yet you managed to make all these changes to the script? and why did you put my name and NORO's name into your script? it doesn't make sense

[buntionly4u]

Originally Posted by ravencrow

you say you have no it background and programming knowledge, yet you managed to make all these changes to the script? and why did you put my name and NORO's name into your script? it doesn't make sense

I will remove all the names from the script once I done with the script.

[Kobi Blade]

Originally Posted by ravencrow

you say you have no it background and programming knowledge, yet you managed to make all these changes to the script? and why did you put my name and NORO's name into your script? it doesn't make sense

Clearly someone leaked it, any other bugs we should know about to fix it and use? (NORO did say he shared with few people, big mistake)

Originally Posted by buntionly4u

I will remove all the names from the script once I done with the script.

That won't solve the problem of you stealing others work and claiming to be your own, and now you just admitted you're going to remove the credits (no wonder everyone is closing their sources and/or stopping development).

[buntionly4u]

Originally Posted by Kobi Blade

Clearly someone leaked it, any other bugs we should know about to fix it and use? (NORO did say he shared with few people, big mistake)


That won't solve the problem of you stealing others work and claiming to be your own, and now you just admitted you're going to remove the credits (no wonder everyone is closing their sources and/or stopping development).

where the question of stealing others work comes from when someone made his work open for public. pl check the below link for god sake

http://fileforums.com/showthread.php...light=corepack