Разобрался!
Где-то брал не помню на этом форуме или нет скрипт с procedure InitializeWizard; - в нём косяк!
Так что если у кого-то
Цитата ZanyGamer:
|
В завершающем окне есть 3 чикбокса, допустим поснимал со всех галочку, потом хочу обратно все 3 вернуть, но получается что ставится только 1 из 3 »
|
Такая же ситуация, то знайте в чём трабла!
Спасибо что создали такую тему буквально "для чайников". Ну конечно не совсем, но кто голову имеет - по кусочкам соберёт красивый инсталер!
скрипт
procedure InitializeWizard;
begin
WizardForm.RunList.OnClickCheck:=@RunListClickCheck;
URLLabelShadow:=TLabel.Create(WizardForm);
with URLLabelShadow do begin
Top:=ScaleY(331);
Left:=ScaleX(25);
Caption:='http://Bigtorrents.ru/';
AutoSize:=True;
Parent:=WizardForm;
Transparent:=True;
Font.Color:=$00FF00;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
end;
URLLabel:=TLabel.Create(WizardForm);
with URLLabel do begin
Top:=ScaleY(331)-dURL;
Left:=ScaleX(25)-dURL;
Caption:='http://Bigtorrents.ru/';
AutoSize:=True;
Parent:=WizardForm;
Cursor:=crHand;
Transparent:=True;
Font.Color:=clBlack;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
BringToFront;
OnClick:=@URLLabelClick;
OnMouseDown:=@URLLabelMouseDown;
OnMouseUp:=@URLLabelMouseUp;
end;
ExtractTemporaryFile('bt.bmp');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\bt.bmp',750,1000,750,0,255,False,$FFFFF F,10);
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID=wpFinished) or (CurPageID=wpInfoAfter) then
WizardForm.RunList.Checked[0]:=True;
end;
