[DA-Bro]

Может ещё кто поможет как кнопки прикручивать.

Я вот видел как у кого-то из репакоделов на фоне картинки WizardImage.bmp есть дополнительные две кнопки.
Расположены одна ниже другой.
Одна - веб ссылка на сайт программы или форума.
Вторая - открывает файл Info.RTF в культурном окошке для просмотра.

Я тут нашел кусок кода с кнопкой для ссылки, но она на всех окнах инсталлятора видна.
Не то.

Code

Код:

{ Переменные }
var
  PupMnu: TPopupMenu;
  btn: TButton;

{ Процедура обработки нажатия на кнопку }
procedure BtnOnClick(Sender: TObject);
var ErrorCode: Integer;
  p: TPoint;
begin
  p.x := btn.Left;
  p.y := btn.Top + btn.Height;
  p := Wizardform.ClientToScreen(p);
  PupMnu.Popup(p.x, p.y);
  ShellExec('open', 'http://forum.oszone.net/forum-62.html', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
  
{ Функция инициализации GUI программы установки }
procedure InitializeWizard();
var
  Mnu: TMenuItem;
begin
  PupMnu := TPopupMenu.Create(WizardForm);
  // Кнопка
  btn := TButton.Create(WizardForm);
  btn.Caption := 'OSZone';
  btn.Anchors := [akLeft, akTop, akBottom];
  btn.Left := ScaleX(165);
  btn.Top := ScaleX(336);
  btn.Width := ScaleX(62);
  btn.Height := ScaleX(22);
  btn.Parent := WizardForm;
  btn.OnClick := @BtnOnClick;
  btn.PopupMenu := PupMnu;
end;

Попробовал её рядом с кнопкой "Назад" расположить. Вроде нормально, но всё равно не то. Во всех окнах она.
На десятке вроде ровно. А на семёрке на пару пикселей вниз съезжает.
Нормально это или нет, сравнить не с чем. Не знаю.

А хотелось бы как выше описано, две кнопки с вышеописанными функциями на фоне картинки WizardImage.