отрисовка контролов UpdateLayeredWindow()

[skalt12]

Всем доброго времени суток!
мне нужно научиться отрисовывать контролы самостоятельно с UpdateLayeredWindow().. меня на это натолкнул код взятый где-то в недрах паутины вот он:

unit mainWin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  last_pos: TPoint;
  hbmp: HBITMAP;
  backdc: HDC;
implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormCreate(Sender: TObject);
var
  img: TGPBitmap;
  screendc: HDC;
  pt1, pt2 : TPoint;
  sz : TSize;
  bf : TBlendFunction;
begin
  self.BorderStyle := bsNone;

  if SetWindowLong(Handle, GWL_EXSTYLE,
                    GetWindowLong(Handle,
                    GWL_EXSTYLE) or
                    WS_EX_LAYERED) = 0
  then ShowMessage(SysErrorMessage(GetLastError));
  img := TGPBitmap.Create('bg.png', True);
  with img do begin
    GetHBITMAP(0,hbmp);
    Width := GetWidth;
    Height := GetHeight;
    Free;
  end;
  screendc := GetDC(0);
  backdc := CreateCompatibleDC(screendc);
  SelectObject(backdc, hbmp);
  pt1 := Point(Left, Top);
  pt2 := Point(0,0);
  sz.cx := Width;
  sz.cy := Height;
  with bf do begin
    BlendOp := AC_SRC_OVER;
    BlendFlags := 0;
    SourceConstantAlpha := $FF;
    AlphaFormat := AC_SRC_ALPHA;
  end;
  UpdateLayeredWindow(Handle, screendc, @pt1,
                      @sz, backdc, @pt2,0,
                      @bf,ULW_ALPHA);
  ReleaseDC(0,screendc);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeleteObject(hbmp);
  DeleteDC(backdc);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  last_pos.X := X;
  last_pos.Y := Y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  cur_pos: TPoint;
begin
  if ssLeft in Shift then
  begin
    GetCursorPos(cur_pos);
    Left := cur_pos.X - last_pos.X;
    Top := cur_pos.Y - last_pos.Y;
  end;

end;

end.

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

[skalt12]

сложная задача, по всей видимости

[Stilet]

отрисовывать контролы самостоятельно с UpdateLayeredWindow()

А просто описать для них обработчик WM_PAINT и WM_ERASEBACKGROUND не проще?

[skalt12]

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

А просто описать для них обработчик WM_PAINT и WM_ERASEBACKGROUND не проще?

может и проще сейчас поищу что-нибудь по этому поводу

хех.. что-то не получается осилить WM_PAINT ... не поможете примерчиком?

[Stilet]

skalt12, давай уточним задачу - ты хочешь сделать форму со скином, ну типа этого. так?

[skalt12]

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

skalt12, давай уточним задачу - ты хочешь сделать форму со скином, ну типа этого. так?

Так точно! Но при всем при этом, пользовать всякие AlphaSkins и ALMDevSkin не тянет... я понимаю, можно использовать просто регионы по изображению, типа *.bmp .. и не париться, но в таком случае, скругленные края будут рваными..

[Stilet]

хм... Да как то я из виду упустил работу с скинами...
В основном только регионами и пользовался...

[skalt12]

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

хм... Да как то я из виду упустил работу с скинами...
В основном только регионами и пользовался...

так вот я тоже только ими и пользовался, но как-то "обрубки" по краям надоели... да и красивостей хочется, типа тени от окошка, переменной прозрачности и т.п.

А по отрисовке или WM_PAINT идей нету никаких?

[BOBAH13]

Ничего у вас не выйдет. Почему? Ищем по форуму год назад а то и больше наверное уже обсуждали такие темы, поверьте вы не первый!

[skalt12]

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

Ничего у вас не выйдет. Почему? Ищем по форуму год назад а то и больше наверное уже обсуждали такие темы, поверьте вы не первый!

обидно, однако