VPF::И снова о текстурировании - Форум программистов

Гость_Дмитрий

Дата 30.4.2005, 09:49 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Проблема вот в чём.
Я создал свой компонент от класса TPanel, и перехватил событие WMPaint:

Код


procedure TImagePan.WMPaint(var Message: TMessage);
var
  ACanvas: TCanvas;
  TT:TBitmap;
  r,g,b,bwidth:byte;
begin
 inherited;
 if img='' then exit;
    ACanvas := TCanvas.Create;
    ACanvas.Handle := GetWindowDC(Handle);
      TT:=TBitMap.Create;
      TT.LoadFromFile(img);
      ACanvas.Brush.Bitmap:=TT;
      ACanvas.FillRect(ClientRect);
      TT.Free;
    ACanvas.Brush.Style := bsClear;
    ReleaseDC(Handle, ACanvas.Handle);
    ACanvas.Free;
end;

и поместил на этот компонент самые различные объекты(edit, memo, checkbox и т.д.)
так вот при перерисовке моего компонента, т.е. когда он "покрывается" моей текстурой, текстура закрывает эти самые объекты и они становятся не видны :'(
Как мне снова прорисовать мои объекты, чтобы они стали видны. :wall:

Код

maxim1000

Дата 30.4.2005, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: нет
Всего: 110

не разу не занимался созданием новых компонент
но так и просится поставить inherited в конец процедуры...

--------------------

qqq

dvamaster

Дата 1.5.2005, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10

WM_PAINT здесь малость не подходит
используй WM_ERASEBKGND

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Дата 2.5.2005, 21:55 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

Гость_Дмитрий то что происходит это естесно, ведь ты ресуешь по канфе Десктопа а не панели.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »