[Code_]
var
CheckListBox : TNewCheckListBox;
function DesktopIconChecked(): Boolean;
begin
Result := CheckListBox.checked[1];
end;
function StartMenuProgIconChecked(): Boolean;
begin
Result := CheckListBox.Checked[2];
end;
function RemoveAccelChar(S: String): String;
begin
Result := S;
StringChangeEx(Result, '&', '', True);
end;
procedure InitializeWizard();
begin
CheckListBox := TNewCheckListBox.Create(WizardForm);
CheckListBox.Parent := WizardForm.SelectDirPage;
CheckListBox.Top := WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + ScaleY(20);
CheckListBox.Width := WizardForm.DirEdit.Width;
// CheckListBox.Width := ScaleX(350);
CheckListBox.Height := ScaleY(55);
CheckListBox.Flat := True;
CheckListBox.WantTabs := True;
CheckListBox.BorderStyle := bsNone;
CheckListBox.Color := clBtnFace;
CheckListBox.AddGroup(CustomMessage('AdditionalIcons'), '', 0, nil);
CheckListBox.AddCheckBox(RemoveAccelChar(CustomMessage('CreateDesktopIcon')), '', 1, False, True, False, True, nil);
CheckListBox.AddCheckBox(RemoveAccelChar(CustomMessage('CreateStartMenuProgIcon')), '', 1, False, True, False, True, nil);
end; |
