Canvas мерцает

[NEoMASTERR]

Сообщение от min@y™

A TPaintBox - не самостоятельный компонент, штоли? Такой же наследник TGraphicControl.

Еще раз намекну про TImage, и лучше сделаю на его основе, или поколупаю исходник, в общем если есть тот кто знает, всегда рад помощи, icq 426873513

[min@y™]

TImage, и лучше сделаю на его основе

флаг в руки. никто ж не запрещает.

[NEoMASTERR]

Сообщение от min@y™

флаг в руки. никто ж не запрещает.

совесть запрещает, люблю оптимизацию
Да и панелька отказывается работать с компонентом

А если послать форме sendmessage(handle, рисуй_мой_компонент) ?)

[DIONISKA]

В своём компоненте в процедурах wmmousemove и wmlbuttonup замени repaint на paint и будет тебе счастье. Ну и можешь создать переменную типа "ispainting" и при перерисовке её проверяй:

TNEoBar = class(TGraphicControl)
  private
  ispainting :boolean;
...
procedure TNEoBar.paint;
 var
...
begin
  if ispainting then exit;
  ispainting:=true;
  ...
  ...
  ispainting:=false;
end;

[NEoMASTERR]

Боже вот это я дурак) Спасибо огромное