[GolD18]

Помогите еще раз) С черным инсталлом стала сливаться верхняя надпись. Где изменить у нее цвет или сделать чтобы она была видна?

читать дальше »

[code]
const
dURL = 2;
Color = clblack;

var
URLLabel, URLLabelShadow: TLabel;
ResultCode: Integer;

procedure URLLabelClick(Sender: TObject);
begin
ShellExec('open', 'http://Сайт/', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

procedure URLLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
URLLabel.Top := URLLabel.Top + dURL;
URLLabel.Left := URLLabel.Left + dURL;
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabelShadow.Hide;
end;

procedure URLLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
URLLabel.Top := URLLabel.Top - dURL;
URLLabel.Left := URLLabel.Left - dURL;
URLLabel.Font.Style := URLLabel.Font.Style - [fsUnderline];
URLLabel.Font.Color := clMaroon;
URLLabelShadow.Show;
end;

procedure InitializeWizard();
begin
WizardForm.Font.Color := clWhite;
WizardForm.Color := Color;
WizardForm.WelcomePage.Color := Color;
WizardForm.InnerPage.Color := Color;
WizardForm.FinishedPage.Color := Color;
WizardForm.LicensePage.Color := Color;
WizardForm.PasswordPage.Color := Color;
WizardForm.InfoBeforePage.Color := Color;
WizardForm.UserInfoPage.Color := Color;
WizardForm.SelectDirPage.Color := Color;
WizardForm.SelectComponentsPage.Color := Color;
WizardForm.SelectProgramGroupPage.Color := Color;
WizardForm.SelectTasksPage.Color := Color;
WizardForm.ReadyPage.Color := Color;
WizardForm.PreparingPage.Color := Color;
WizardForm.InstallingPage.Color := Color;
WizardForm.InfoAfterPage.Color := Color;
WizardForm.DirEdit.Color := Color;
WizardForm.DiskSpaceLabel.Color := Color;
WizardForm.DirEdit.Color := Color;
WizardForm.GroupEdit.Color := Color;
WizardForm.PasswordLabel.Color := Color;
WizardForm.PasswordEdit.Color := Color;
WizardForm.PasswordEditLabel.Color := Color;
WizardForm.ReadyMemo.Color := Color;
WizardForm.TypesCombo.Color := Color;
WizardForm.TypesCombo.ItemIndex := 0;
WizardForm.WelcomeLabel1.Color := Color;
WizardForm.InfoBeforeClickLabel.Color := Color;
WizardForm.MainPanel.Color := Color;
WizardForm.PageNameLabel.Color := Color;
WizardForm.PageDescriptionLabel.Color := Color;
WizardForm.ReadyLabel.Color := Color;
WizardForm.FinishedLabel.Color := Color;
WizardForm.YesRadio.Color := Color;
WizardForm.NoRadio.Color := Color;
WizardForm.WelcomeLabel2.Color := Color;
WizardForm.LicenseLabel1.Color := Color;
WizardForm.InfoAfterClickLabel.Color := Color;
WizardForm.ComponentsList.Color := Color;
WizardForm.ComponentsDiskSpaceLabel.Color := Color;
WizardForm.BeveledLabel.Color := Color;
WizardForm.StatusLabel.Color := Color;
WizardForm.FilenameLabel.Color := Color;
WizardForm.SelectDirLabel.Color := Color;
WizardForm.SelectStartMenuFolderLabel.Color := Color;
WizardForm.SelectComponentsLabel.Color := Color;
WizardForm.SelectTasksLabel.Color := Color;
WizardForm.LicenseAcceptedRadio.Color := Color;
WizardForm.LicenseNotAcceptedRadio.Color := Color;
WizardForm.UserInfoNameLabel.Color := Color;
WizardForm.UserInfoNameEdit.Color := Color;
WizardForm.UserInfoOrgLabel.Color := Color;
WizardForm.UserInfoOrgEdit.Color := Color;
WizardForm.PreparingLabel.Color := Color;
WizardForm.FinishedHeadingLabel.Color := Color;
WizardForm.UserInfoSerialLabel.Color := Color;
WizardForm.UserInfoSerialEdit.Color := Color;
WizardForm.TasksList.Color := Color;
WizardForm.RunList.Color := Color;
WizardForm.SelectDirBrowseLabel.Color := Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color := Color;

WizardForm.NoIconsCheck.Width := ScaleY(16)

URLLabelShadow := TLabel.Create(nil);
with URLLabelShadow do
begin
Parent := WizardForm;
SetBounds(ScaleX(25), ScaleY(331), 0, 0);
AutoSize := True;
Transparent := True;
Font.Color := $969696;
Font.Height := -12;
Font.Style := Font.Style + [fsBold];
Caption := 'http://Сайт/';
end;

URLLabel := TLabel.Create(nil);
with URLLabel do
begin
Parent := WizardForm;
SetBounds(ScaleX(25) - dURL, ScaleY(331) - dURL, 0, 0);
AutoSize := True;
Transparent := True;
Cursor := crHand;
Font.Color := clMaroon;
Font.Height := -12;
Font.Style := Font.Style + [fsBold];
Caption := 'http://Сайт/';
BringToFront;
OnClick := @URLLabelClick;
OnMouseDown := @URLLabelMouseDown;
OnMouseUp := @URLLabelMouseUp;
end;

with TLabel.Create(nil) do
begin
Parent:= WizardForm.SelectProgramGroupPage;
SetBounds(WizardForm.NoIconsCheck.Left + 18, WizardForm.NoIconsCheck.Top + 2, 0, 0)
AutoSize:= True;
Transparent := True;
Font.Color := clWhite;
Caption := SetupMessage(msgNoProgramGroupCheck2);
end;
end;