Design von visuellen Objekten ändern

[3_of_8]

Ich bin mir nicht sicher, ob das geht:

Delphi-Quellcode:

procedure TMyListbox.Repaint; override;
var Pnt: TPoint;
begin
inherited Repaint;
Perform(EM_GETSCROLLPOS, 0, Integer(@Pnt));
Canvas.Brush.Color:=clSkyBlue;
Canvas.rectangle(Width-10,0,Width,Height);
Canvas.Brush.Color:=clBlue;
//In Pnt.Y steht drin, wie weit das Teil gescrollt ist. Aber wie der Rest gezeichnet wird, weiß ich //nicht.
end;