Вопрос Как добавить тень на форму?

Статус
В этой теме нельзя размещать новые ответы.

Хамик

Старожил
Shift85,
Код:
[Setup]
AppName=11
AppVersion=1.1
DefaultDirName={pf}\11

[Code]
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint; external 'SetClassLongA@user32 stdcall';

procedure InitializeWizard;
begin
//WizardForm.BorderStyle:= bsNone; //Скрываем границы инсталлятора
SetClassLong(WizardForm.Handle, (-26), GetWindowLong(WizardForm.Handle, (-27)) or $00020000); //Чтобы отрисовалась тень от окна инсталлятора
end;
 

Snoopak96

Старожил
Хамик, там ботва2 и две формы, ну и инстал который писался на коленке в 2012 году :D
 

Shift85

Старожил
Snoopak96, Возможно ли улучшить этот пример:
 

Вложения

  • 277.2 KB Просмотры: 36

Snoopak96

Старожил
Shift85, мелочи - такие как таскание за вторую форму и передача фокуса когда таскаешь за неё, формы надо показывать после загрузки то бишь ShowWindow(WizardForm.Handle, SW_HIDE); и ShowWindow(WizardForm.Handle, SW_SHOW); Frame.Show, ботву надо выгружать правильно если инсталл двухязычный и есть окно выбора языка, ну вообщем мелочи - всё это в PDA-S.t.a.l.k.e.r найдёшь, мне же уже инсталлы на ботве не интересны стали :boredom: вот, как-то так. Тебе сейтер что ли скрипт дал?
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху