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

Pr:

Kód:
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...