Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Форма с полупрозрачной тенью   Найти похожие ветки 

 
Сашик   (2008-03-27 14:36) [0]

Привожу процедуру прорисовки тени от модальной формы (Window XP). Жду замечаний и советов...
Подключение к форме:

FormShadow:= NewShadowForm(Form1.Form);
Form1.Form.AttachProc(WndProcFormShadow);


unit FmShadow;
interface

uses Windows, Messages, KOL {$IFNDEF VER120}, Variants{$ENDIF};

function WndProcFormShadow(Self_: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
function NewShadowForm(pForm: PControl): PControl;

var
FormShadow: PControl;

implementation

var
ShadowSize: Integer = 20;
ShadowColor: TColor = clBlack;
ShadowAlphaBlend: Byte = 120;

function WndProcFormShadow(Self_: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
var Bounds: TRect;
begin
 if (Msg.Message = WM_WINDOWPOSCHANGED) or
 (Msg.Message = WM_KILLFOCUS) then begin
  GetWindowRect(Self_.Handle, Bounds);
  SetWindowPos(FormShadow.Handle, Self_.Handle, Bounds.Left + ShadowSize,
   Bounds.Top + ShadowSize, Bounds.Right - Bounds.Left,
    Bounds.Bottom - Bounds.Top, SWP_NOACTIVATE + SWP_SHOWWINDOW);
 end;
Result:= False;
end;

function NewShadowForm(pForm: PControl): PControl;
var r: TRect; aWidth, aHeight: Integer;
Src, Dst: HRGN;
begin
 Result:= NewForm(Applet, "");
 pForm.CanResize:= False;
 pForm.StayOnTop:= True;
 pForm.Style := pForm.Style and not WS_MAXIMIZEBOX;
 with Result^ do begin
  HasBorder:= False;
  HasCaption:= False;
  Color:= ShadowColor;
  GetWindowRect(pForm.Handle, r);
  aWidth:= r.Right - r.Left;
  aHeight:= r.Bottom - r.Top;
  Src:= CreateRectRgn(0, 0, aWidth, aHeight);
  Dst:= CreateRectRgn(0, 0, aWidth - ShadowSize, aHeight - ShadowSize);
  CombineRgn(Src, Src, Dst, RGN_DIFF);
  SetWindowRgn(Handle, Src, True);
  AlphaBlend:= ShadowAlphaBlend;
  SetWindowPos(Handle, HWND_TOP, r.Left + ShadowSize, r.Top + ShadowSize,
   aWidth, aHeight, SWP_NOACTIVATE + SWP_SHOWWINDOW);
  DeleteObject(Src);
  DeleteObject(Dst);
 end;
end;
end.


 
Ар2р   (2008-09-17 08:47) [1]

FormShadow:= NewShadowForm(Form1.Form);
Form1.Form.AttachProc(WndProcFormShadow);

и как это юзать ? у формы нет сво-ва form!


 
MTsv DN   (2008-09-17 11:50) [2]

> у формы нет сво-ва form!
Посмотрите название конференции - KOL!!!


 
Сашик   (2008-09-23 00:22) [3]

Прошу прощения... Имеется ввиду Form:= NewForm(...). Скорее всего код взят из проекта c MCK, а там Form1.Form имеет место наряду с Form. В Delphi 4 по крайней мере ошибок не выдается...

msgok(Form.Caption);
msgok(Form1.Form.Caption);

В обоих случаях выдает сообщение "Form1"


 
MTsv DN   (2008-09-23 10:52) [4]

msgok(Form.Caption);
msgok(Form1.Form.Caption);

Вообще-то в KOL - это одно и тоже при наличии одной формы...



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.142 c
15-1271830825
12
2010-04-21 10:20
2010.08.27
Apache2.2. Странный глюк


15-1267104405
GDI+
2010-02-25 16:26
2010.08.27
Вопрос знатокам ассеблера и современных процессоров


2-1268353155
Женя
2010-03-12 03:19
2010.08.27
связанные таблицы


4-1237444361
Demt
2009-03-19 09:32
2010.08.27
Задать нестандартный атрибут для файла.


2-1274159330
webpauk
2010-05-18 09:08
2010.08.27
Поиск оптимума пересмотром всех значений