oXiOneX
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет еще раз. Решил добавить прозрачность в инсталл, но столкнулся со следующей проблемой:
Ссылка на сайт и BeveledLabel не отображаются так, как нужно. Может кто подсказать, как исправить? Кусок кода прилагаю ниже. Заранее спасибо!
Код: var
InfoButton: TNewButton;
PublisherLink: TLabel;
/////////////////////////////////////////////
procedure InfoButtonClick(Sender: TObject);
begin
MsgBox(ExpandConstant('{cm:InfoButtonText}'), mbInformation, MB_OK);
end;
/////////////////////////////////////////////
procedure PublisherLinkClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', ExpandConstant('{#MyAppURL}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
/////////////////////////////////////////////
procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);
external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND);
external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free;
external 'iswin7_free@files:iswin7.dll stdcall';
/////////////////////////////////////////////
procedure RedesignWizardForm;
begin
InfoButton := TNewButton.Create(WizardForm);
with InfoButton do
begin
Parent := WizardForm;
Caption := ExpandConstant('{cm:InfoButton}');
SetBounds(ScaleX(10), ScaleY(327), ScaleX(75), ScaleY(23));
OnClick := @InfoButtonClick;
end;
PublisherLink :=TLabel.Create(WizardForm);
with PublisherLink do
begin
Parent := WizardForm;
SetBounds(ScaleX(95), ScaleY(333), ScaleX(75), ScaleY(23));
Caption := ExpandConstant('{#MyAppURL}');
Cursor := crHand;
Color:=$FFFFFF;
// Font.Color := clBlue;
ShowHint := true;
Hint := ExpandConstant('{cm:Community}');
OnClick := @PublisherLinkClick;
transparent := true;
end;
end;
/////////////////////////////////////////////
procedure InitializeWizard();
begin
// SetCustomMessages;
//
RedesignWizardForm;
// Необходимо добавлять каждую кнопку расположенную на стекле
// до инициализации стекла для того что бы не было дыр ))
iswin7_add_button(WizardForm.BackButton.Handle);
iswin7_add_button(WizardForm.NextButton.Handle);
iswin7_add_button(WizardForm.CancelButton.Handle);
iswin7_add_button(InfoButton.Handle);
// Параметр True не трогать он для htuos ))
iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True);
end;
/////////////////////////////////////////////
procedure DeinitializeSetup();
begin
iswin7_free;
end; |
|
Всего записей: 24 | Зарегистр. 22-08-2010 | Отправлено: 07:30 29-10-2015 | Исправлено: oXiOneX, 21:27 30-10-2015 |
|
