Вопрос Пару вопросов по формам.

zettend

Старожил
Как сделать кнопку свернуть по примеру:
Код:
  with WizardForm.CancelButton do begin
    hCancelBtn:=BtnCreate(WizardForm.Handle, ScaleX(739), ScaleY(1), ScaleX(61),ScaleY(27), ExpandConstant('close.png'), 1, False);
    BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetCursor(hCancelBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;
Как расположить в определенном месте название игры?

И как расположить иконку игры в определенном месте?

Скриншот уже сделанного:
upload_2015-4-23_18-46-53.png

Что должно получится:
Лаунчер.png
 

YURSHAT

Тех. админ
Администратор
Как сделать кнопку свернуть по примеру:
В обработчике события клика прописать
Код:
SendMessage(WizardForm.Handle, $0112, 61472, 0)
Как расположить в определенном месте название игры?
И как расположить иконку игры в определенном месте?
Указать необходимые координаты Left, Top, Width, Height :)
 

Adil

Старожил
Код:
procedure MinBtnClick(hBtn:HWND);
begin
  SendMessage(WizardForm.Handle,$0112,61472,0);
end;

hMinBtn:=BtnCreate(WizardForm.Handle,ScaleX(467),ScaleY(5),ScaleX(25),ScaleY(15),ExpandConstant('Min.png'),0,False);
BtnSetEvent(hMinBtn,BtnClickEventID,WrapBtnCallback(@MinBtnClick,1));
насчет координат, создайте точную копию в редакторе форм и берите координаты оттуда
 

Shegorat

Lord of Madness
Администратор
Интересно как можно указать эти координаты для WizardForm.Caption?
Либо скин, либо вручную рисовать. Но, судя по скриншотам выше, там BorderStyle = None, и, следовательно, там используется простой TLabel для этих целей.
 

Shegorat

Lord of Madness
Администратор
А на стандартную форму можно прикрутить TLabel?
В качестве WindowTitle?
Ну я же говорю, либо вручную рисовать не клиентскую область окна, т.е. border, либо убирать border вообще и вместо него делать свою, так сказать, эмуляцию, как на скриншотах выше. Ну или использовать скин.
Но TLabel в качестве WindowTitle возможен только во втором варианте.
 
Сверху