serg_aka_lain
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Components]
Name: "N1"; Description: "Рабочая база"; Flags: exclusive;
Name: "N2"; Description: "Демо база"; Flags: exclusive;
[Code]
function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
S: String;
begin
S := S + MemoDirInfo + NewLine + NewLine;
S := S + MemoGroupInfo + NewLine + NewLine;
S := S + MemoComponentsInfo + NewLine + NewLine;
S := S + NewLine + NewLine;
Result := S;
end;
procedure InitializeWizard();
begin
WizardForm.TypesCombo.Visible := False;
WizardForm.ComponentsList.Color := clBtnFace;
WizardForm.ComponentsList.BorderStyle := ecLowerCase;
end;
|
