Add icon ready page

[buttignol]

Friends adding the menu icon in the start ready page

I do not know how to add the function UpdateReadyMemo

Could someone for an example of how to add

Example below as I use

IconCB := TNewCheckBox.Create(WizardForm);
with IconCB do begin
Parent := WizardForm.SelectTasksPage;
SetBounds(0,215,300,20);
Caption := ExpandConstant('{cm:CreateDesktopIcon}');
Checked:=True;
end;

imagem.jpg

Thank you

[JRD!]

If you want just "Create a desktop icon" in the Ready Memo with your personal IconCB:

[Tasks]
//Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:Icons}";
Name: "groupicon"  ; Description: "{cm:CreateGroupIcon}";   GroupDescription: "{cm:Icons}";

[CustomMessages]
Icons=Icons:
CreateDesktopIcon=Create a desktop icon
CreateGroupIcon=Create a startmenu icon

[#Code]
var
  IconCB: TNewCheckBox;

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
  MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
  S1, S2: String;
begin
  S1 := '';
  S2 := '';
  S1 := S1 + MemoDirInfo + NewLine + NewLine;
  if IconCB.Checked then
  S2 := #32#32#32#32#32#32#32#32#32+CustomMessage('CreateDesktopIcon');
  S1 := S1 + MemoTasksInfo + NewLine + S2 + NewLine;
  Result := S1;
end;

If you want show your personal IconCB in the memo add this code:

[#Code]
Procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpReady then IconCB.Show else IconCB.Hide;
end;

For IconCB creation:

Procedure InitializeWizard();
begin
  IconCB := TNewCheckBox.Create(WizardForm);
  with IconCB do
  begin
    Parent := WizardForm.ReadyMemo;
    SetBounds(25,150,150,15);
    Caption:=CustomMessage('CreateDesktopIcon');
    Checked:=True;
  end;
end;

I have not quite understood your request ...

[buttignol]

Thank JRD! but it is to appear "Create an icon on the Desktop" on UpdateReadyMemo

Example: Image

Capturar3.jpg

Create an icon on the Desktop. together with Start Menu folder destination and additional tasks

[JRD!]

Just add:

[CustomMessages]
Icons=Icons:

[#Code]
function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
  MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
  S1, S2: String;
begin
  S1 := '';
  S2 := '';
  S1 := S1 + MemoDirInfo + NewLine + NewLine;
  if IconCB.Checked then
  S2 := #32#32#32#32#32#32+CustomMessage('Icons')+ NewLine + #32#32#32#32#32#32#32#32#32+CustomMessage('CreateDesktopIcon');
  S1 := S1 + MemoTasksInfo + NewLine + S2 + NewLine;
  Result := S1;
end;

[JRD!]

[buttignol]

Resolved That's what I wanted

Thank JRD! for their work to help

[JRD!]

You're welcome.