Codigo Muestra
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
[Tasks]
Name: task1; Description: "1. Task"; Flags: unchecked
Name: task2; Description: "2. Task"; Flags: unchecked
[Code]
const
NoteHeight = 50;
procedure InitializeWizard;
var
Note: TNewStaticText;
begin
WizardForm.TasksList.Height := WizardForm.TasksList.Height - NoteHeight;
Note := TNewStaticText.Create(WizardForm);
Note.Parent := WizardForm.SelectTasksPage;
Note.AutoSize := False;
Note.SetBounds(
WizardForm.TasksList.Left,
WizardForm.TasksList.Top + WizardForm.TasksList.Height,
WizardForm.TasksList.Width,
NoteHeight
);
Note.Font.Color := clBlue;
Note.Caption := 'Lorem ipsum dolor sit amet, consectetur adipisicing' + #13#10 +
'elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.';
end;