[Delphi] Vykreslovani vlastnich komponent

[MEluZíNa]

Zdravim,
uz dost dlouho resim problem jak napsat komponentu, aby se vykreslovala jenom tehdy kdyz chci...

Pr:

Type
  TComp = class(TCustomControl)
  protected 
  procedure paint; override;
  public
  procedure repaint; override;
  procedure invalidate; override;
  end;

procedure TComp.paint;
begin
  canvas.brush.color:=clred;
  canvas.rectangle(0,0,width,height);
end;

procedure TComp.repaint;
begin
  paint;
end;

procedure TComp.invalidate;
begin
  paint;
end;

a kdyz tuto komponentu vytvorim, nastavim parent a zacnu s ni pohybovat po formulari(treba pomoci TScrollBar) tak se zacne fakt divne vykreslovat - do ty doby co drzim posuvnik(mam stiskly tlacitko mysi), tak se komponenta nevykresluje, jenom posouva kresli deafultni barvu pozadi...
Cely zdrojak se pokusim umistit nekam na web, link napisu...

[Gargamel]

No to je sice pekny, co udelal, ale dela se to jinak (ted budu vzpominat, uz dlouho sem to nedelal).

Bud muzes zachytit udalost WM_PAINT a kreslit, nebo overridovat jakousi VCL funkcni - OnPaint? nebo OnDraw. Nevim, mrkni do helpu nebo examples.

Kazdopadne vykreslovani by mela delat jenom jedna funkce, ostatni (Invalidate, Repaint atd) se nesmi menit. Vetsinou se i do vykreslovaci funkce predava parametr Rect, kde je oblast, ktera se ma prekreslit. Neni tak potreba prekreslovat cely obsah okna (kresliciho ve smyslu API), ale jenom jeho cast.