окно по рисунку

[Roof]

Хочу разобраться с кодом, который создает окно по любому рисунку.

TStretchHandle = class(TCustomControl)
private procedure WMEraseBkgnd(var message: TWMEraseBkgnd); message WM_ERASEBKGND;
procedure WMGetDLGCode(var message: TMessage);
message WM_GETDLGCODE;
protected procedure Paint;
override; property Canvas;
public procedure CreateParams(var Params: TCreateParams);
override;end;procedure TStretchHandle.CreateParams(var Params: TCreateParams);
begin { set default Params values } inherited CreateParams(Params); { then add transparency } Params.ExStyle := Params.ExStyle + WS_EX_TRANSPARENT;
end;
procedure TStretchHandle.WMGetDLGCode(var message: TMessage);
begin { completely fake erase, don't call inherited, don't collect $200 } message.Result := DLGC_WANTARROWS;
end;procedure TStretchHandle.WMEraseBkgnd(var message: TWMEraseBkgnd);
begin { completely fake erase, don't call inherited, don't collect $200 } message.Result := 1;
end;
procedure TStretchHandle.Paint;
begin inherited Paint; with Canvas do begin // рисуете что нужно - // где не рисовали, там будет "прозрачно"
end;
end;

Вопрос в procedure TStretchHandle.Paint;
как понять рисуете что надо??

мне подойдет любой другой код, если у Вас есть другие решения буду очень рад их рассмотреть.

Заранее большое спасибо. )

[mutabor]

Так и понимать, рисуешь что надо функциями
LineTo, MoveTo, Pen, Brush и т.д. это все методы TCanvas смотри справку или скопируй на эту канву bmp файл

p.s. Если не разберешься поищу пример где-то на диске был от книги

[Virtson]

{ completely fake erase, don't call inherited, don't collect $200 }

где такой код нашел ? ))

[Roof]

спасиб, постараюсь разобраться, но буду благодарен, если примерчик пришлешь, не лишний будет

[Roof]

я так и не уверен, что правильно понял комментарий , просто когда копировал, чего то внимания не обратил
про клончиков почитал, возможно попозже))

[Roof]

а нашел код на http://delphiworld.narod.ru
статья: Программа и Интерфейс - Интерфейс - Окно по рисунку

[mutabor]

Нашел диск, именно этого примера на нем нет Но я нашел свой старый исходник, немного доработал, в смысле упростил, результат здесь Вложение 811

[Roof]

Спасиб!!
Прикольная штука буду разбираться.
А я уже по-другому немного сделал.
через Image.