procedure TCustomForm.WMPaint(var Message: TWMPaint);
var
DC: HDC;
PS: TPaintStruct;
begin
if not IsIconic(Handle) then
begin
ControlState := ControlState + [csCustomPaint];
inherited;
ControlState := ControlState - [csCustomPaint];
end
else
begin
DC := BeginPaint(Handle, PS);
DrawIcon(DC, 0, 0, GetIconHandle);
EndPaint(Handle, PS);
end;
end;
Delphi. создание визуальных компонент.
Поделитесь опытом или доками по созданию своих визульных компонент.
Собственно интересует один момент: рисование компонента.
Для прорисовки компонента я перегружаю Paint(в TGraphicControl), но смушает, то что он слищком часто перерисовывается.
Как наиболее оптимально рисовать компоненту?
Собственно интересует один момент: рисование компонента.
Для прорисовки компонента я перегружаю Paint(в TGraphicControl), но смушает, то что он слищком часто перерисовывается.
Как наиболее оптимально рисовать компоненту?
Слошком часто - это как?
Например когда над ним перетаскиваю окно, он перерисовывается и моргает. Когда же я смотрю на стандартные виндовые компоненты такого не происходит.
Собственно я так понимаю, что стандартные компоненты перерисовываеют только необходимую часть. Как это сделать и какие сообщения перехватывать?
Собственно я так понимаю, что стандартные компоненты перерисовываеют только необходимую часть. Как это сделать и какие сообщения перехватывать?
Код:
Попробуй, может поможет.
Но предупреждаю сзаранее, я визуальных компонент не создавал, а данный пример нашол только что...
при создании компонента создаёшь TBitmap..... рисуешь когда тебе нужно в нём то, что юзер должен увидеть... а потом при отрисовке делаешь Canvas.Draw и вся любовь.....
2 misha_turist Paint выполняется при сообщении WM_PAINT... поэтому то, что ты предложил и то, что используется - равносильно....
2 misha_turist Paint выполняется при сообщении WM_PAINT... поэтому то, что ты предложил и то, что используется - равносильно....
Цитата:
компоненты перерисовываеют только необходимую часть
TCanvas.ClipRect
А как определить какую часть нужно перерисовать?
взять штангенциркуль... ну и вперед )))
а вообще при правильно поставленных задачах такого гимора не должно быть
а вообще при правильно поставленных задачах такого гимора не должно быть
[QUOTE=DrCoder]взять штангенциркуль... ну и вперед )))
а вообще при правильно поставленных задачах такого гимора не должно быть[/QUOTE]
Я имею виду например такую ситуацию:
Над моей компонентой проехало окно, винда же должна компоненте передать какую ее часть нужно перерисовать, что-бы не перерисовывать компоненту полностью.
Как мне этот месседж получить?
а вообще при правильно поставленных задачах такого гимора не должно быть[/QUOTE]
Я имею виду например такую ситуацию:
Над моей компонентой проехало окно, винда же должна компоненте передать какую ее часть нужно перерисовать, что-бы не перерисовывать компоненту полностью.
Как мне этот месседж получить?
[QUOTE=evginho]А как определить какую часть нужно перерисовать?[/QUOTE]
у нормального окна можно спросить GetUpdateRect апишкой прямоугольник прорисовки
у нормального окна можно спросить GetUpdateRect апишкой прямоугольник прорисовки
А дабл буфферинг ставил?
ВЫ ЧЁ СЛЕПЫЕ???
TCanvas.ClipRect - этот Rect и требует перерисовки...
TCanvas.ClipRect - этот Rect и требует перерисовки...