Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как нормально рисовать на панели? [D7, WinXP]

tytus © (2006-08-09 11:41:00)
Доброго дня ВСЕМ!
Нужно нарисовать рисунок из ресурса на панели.
private
{ Private declarations }
PanelDC,PD:HDC;
Bmp:TBitMap;

procedureTForm1.FormCreate(Sender: TObject);
begin
Bmp:=TBitMap.Create;
Bmp.LoadFromResourceName(HInstance,'PanelImage');
end;

procedureTForm1.FormPaint(Sender: TObject);
begin

PD:=GetWindowDC(Panel1.Handle);
PanelDC:=CreateCompatibleDC(0);
SelectObject(PanelDC,Bmp.Handle);
BitBlt(PD,10,10,200,200,PanelDC,0,0,SRCCOPY);
Label1.Caption:=IntToStr(PanelDC);

DeleteDC(PanelDC);
DeleteDC(PD);
end;
Так вот, если убрать строку Label1.Caption..., то не рисуется ничего вообще. А с этой строчкой метка отображает постоянно
меняющиеся цифры.
Помогите нормально нарисовать на панели.

Loginov Dmitry (2006-08-09 18:12:00) [1]
Короче, использование панели для рисования малой кровью:

...
type
TMyPanel = class(TPanel)
public
property Canvas;
procedure Paint; override;
end;

TPanel = class(TMyPanel);

TForm1 = class(TForm)
...
end;

...
implementation
...
procedure TMyPanel.Paint;
begin
inherited;
if Self.Tag = 1000 then
begin
// Тут рисуешь на канве
end;
end;

Однако, использовать PaintBox все-же проще.

Loginov Dmitry (2006-08-09 18:03:00) [2]
> Rial © (09.08.06 14:51) [6]

Тогда уж можно переобъявить свойство Canvas, и в этом случае GetDC и ReleaseDC станут ненужными

Rial (2006-08-09 14:51:00) [3]
Создавай свой наследник от TPanel, лучше даже от TCustomPanel.
Перекрывай protected Paint; override;
ТТам рисый, что тебе надо.
И вот это

PD := GetDC(Panel1.Handle);
PanelDC:=CreateCompatibleDC(PD);

....

ReleaseDC(Panel1.Handle, PD);

Делай только один раз - при создании и удалении объекта.

clickmaker (2006-08-09 13:54:00) [4]

> tytus (09.08.06 13:28) [4]

я не понимаю... если тебе контролы на панели не нужны, зачем тебе сама панель? рисовать можно и прямо на форме и на PaintBox

tytus (2006-08-09 13:28:00) [5]
[3]>clickmaker
Вот кинул кнопку, и теперь все нормально рисуется.
Но это не выход.

clickmaker (2006-08-09 12:21:00) [6]

> tytus (09.08.06 12:06) [2]

не заметил, что рисуешь в Form.OnPaint... Неправильно это.
Тебе принципиально рисовать именно на панели или PaintBox устроит, а может и Image?

tytus (2006-08-09 12:06:00) [7]
>[1]clickmaker
а воз и ныне там...

clickmaker (2006-08-09 12:01:00) [8]
PD := GetDC(Panel1.Handle);
PanelDC:=CreateCompatibleDC(PD);

....

ReleaseDC(Panel1.Handle, PD);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »