to Kotoff / полупрозрачность в Delphi

[BOBAH13]

Добрый день.
По причине не далекой, я не смог отправить вам личное сообщение. Но не думаю что тема будет лишней и поможет другим интересующимся.

И так, как сделать окошко в дельфи прозрачным с красивыми тенями и другой мутью.

Перво наперво, качаем gdiplus.dll (если есть желание) с MS Official Site

Потом смотрим мои (DIB) и не мои (GdiPlus) модули в аттаче.

И так... Подготовим плацдарм для нашего окошка

implementation

const
  WndClassName = 'Trulyalya';

var
  WndClass: TWndClass = (
    style: CS_DBLCLKS;
    cbClsExtra: 0;
    cbWndExtra: 0;
    hbrBackground: 0;
    lpszMenuName: NIL;
    lpszClassName: WndClassName;
  );

...

initialization
  WndClass.lpfnWndProc := @DefWindowProc; // I hope...
  WndClass.hInstance := HInstance;
  WndClass.hIcon := LoadIcon(HInstance, 'MAINICON');
  WndClass.hCursor := LoadCursor(0, IDC_ARROW);
  Windows.RegisterClass(WndClass);

finalization
  Windows.UnregisterClass(WndClassName, HInstance);

И так у нас есть зарегиный класс, вот ведь счастье ну мы не собираемся на этом останавливаться и пойдем до конца! Теперь давайте создадим окошко

hWnd := CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_LAYERED,
    WndClass.lpszClassName, NIL, WS_POPUP or WS_VISIBLE, 0, 0, 0, 0, 0, 0, HInstance, NIL);

Думаю то что здесь, понять не составит труда. Теперь стоит понять, что у нас есть окошко со стилем WS_EX_LAYERED и это дает нам по сути установить и отобразить любое 32х битное изображение разумеется в формате ARGB никакие PNG и т.п. на прямую не ставятся. Как же это сделать?

var
  Context: GpGraphics;
  Tmp: TDIB;
  Image: TDIB;
  Rect: TRect;
begin
  // Rect := GetWindowRect(); / GetClientRect(); не помню как точно, сами разберетесь

   Tmp := TDIB.Create(Rect.right - Rect.left, Rect.bottom - Rect.top); // создаем битмап по размеру окна
   Image := TDIB.Create('my_image.png'); // загрузим какое то изображение

  GdipCreateFromHDC(Tmp.DC, Context); // создадим контекст GDI+ c Tmp
  GdipSetSmoothingMode(Context, SmoothingModeAntiAlias); // antialias включим
  GdipSetCompositingMode(Context, CompositingModeSourceCopy); // рисование с перекрытием
  GdipSetInterpolationMode(Context, InterpolationModeHighQualityBicubic); // качественно масштабировать изображения

  GdipDrawImageRectRect(Context, Image.Bitmap,
        0, 0, Tmp.Width, Tmp.Height, // покрываем все окно
        0, 0, Image.Width, Image.Height, // берем все изображение
        UnitPixel, NIL, NIL, NIL);

  GdipDeleteGraphics(Context);
  Image.Free();

И так, мы узнали размер окна, создали битпам для окна, загрузили картинку, связали GDI+ с Tmp и нарисовали с помощью GDI+ нашу картинку, потом все освободили. Теперь у нас есть Tmp на с отрисованной картинкой. Осталось дело за малым, отобразить на окне.

var
  BlendFunc: TBlendFunction;
  ZPoint: TPoint;
  LeftTop: TPoint;
  Size: TSize;
  Rect: TRect;
begin
  with BlendFunc do
  begin
    BlendOp := AC_SRC_OVER;
    BlendFlags := 0;
    AlphaFormat := AC_SRC_ALPHA;
    SourceConstantAlpha := 255; // не желательно менять это, да станет прозрачней, но тормаза начнутся, лучше перерисовать сам битмап в более прозрачный.
  end;

  // Rect := GetWindowRect(); / GetClientRect(); не помню как точно, сами разберетесь

  ZPoint := Point(0, 0);
  LeftTop := Point(Rect.left, Rect.top);
  Size.cx := Rect.right - Rect.left;
  Size.cy := Rect.bottom - Rect.top;

  UpdateLayeredWindow(hWnd, 0, @LeftTop, @Size, Tmp.DC, @ZPoint, 0, @BlendFunc, ULW_ALPHA);

Разумеется, не забудьте сделать это Tmp.Free();

Опять такие, это мануалчик, проверять не могу сейчас, да и думаю тут суть ясна, садитесь и пробуйте.

[docbrain]

А куда весь этот код писать? В какой модуль?

[Vikenty]

Сообщение от docbrain

А куда весь этот код писать? В какой модуль?

Создаешь новый проект, удаляешь из него форму, Project->View Source, туда и пишешь

[Utkin]

-9 это показательно . docbrain, ты случайно Coel не родственник? Вроде тоже Делфист или Паскалист...

[zumm]

-9 это показательно . docbrain, ты случайно Coel не родственник? Вроде тоже Делфист или Паскалист...

Ага, они с DRAgon™ три брата...

[mutabor]

Вован, в журнальчик статейку не хотите писануть?

[DomiNick]

Так уже же почти всё и написано...

// Rect := GetWindowRect(); / GetClientRect(); не помню как точно

Если у окна есть рамка (хотя для слоёных окон она и не нужна по сути) - то первое, а если как в примере (только WS_POPUP) - то без разницы...

Переменные LeftTop, Size, ZPoint и BlendFunc лучше объявить глобальными, причём LeftTop нужно обновлять при перемещении окна (а то после UpdateLayeredWindow оно окажется в старом месте)...

Область битмапа которая "используется" для окна должна быть в пределах битмапа - то есть размер окна (в Size) не может быть больше размера битмапа (с учётом ZPoint), а в сам ZPoint нельзя помещать отрицательные числа...

И слоёное окно нельзя делать дочерним - возможны жуткие баги...

[BOBAH13]

Сообщение от DomiNick

Так уже же почти всё и написано...


Если у окна есть рамка (хотя для слоёных окон она и не нужна по сути) - то первое, а если как в примере (только WS_POPUP) - то без разницы...

Переменные LeftTop, Size, ZPoint и BlendFunc лучше объявить глобальными, причём LeftTop нужно обновлять при перемещении окна (а то после UpdateLayeredWindow оно окажется в старом месте)...

Область битмапа которая "используется" для окна должна быть в пределах битмапа - то есть размер окна (в Size) не может быть больше размера битмапа (с учётом ZPoint), а в сам ZPoint нельзя помещать отрицательные числа...

И слоёное окно нельзя делать дочерним - возможны жуткие баги...

Я в курсе, просто описал как сделать основные моменты (линейно если хотите) да и дельфи уже подзабыл, а проверить ставить надо так что только так выдал. И еще, там в DIB.pas очень много вкусных функций типа бленда и блюра, да и сам класс очень вкусный, т.к. дает сразу связку HDC + Gdi+ Bitmap + HBITMAP + Scan0. Кто хочет, может оформит статью, я врятли смогу

[raxp]

эм... оформить-то можно, но это будет максимум где-то 2 странички, несолидно как-то ...тут бы скрины, рабочий проект-пример, заключение с точки зрения автора, ссылки на сопутствующую литературу и ресурсы...

[spamer]

Вован, в журнальчик статейку не хотите писануть?

Да, действительно было бы хорошо...возможно все же BOBAH13 и напишет статейку...