in scrollbox zeichnen

[Christian18]

hallo,

wie kann ich eine scrollbox zeichnen. so funktioniert es nicht, da gibt es eine zugriffsverletzung.

Delphi-Quellcode:

procedure TFMain.Neu1Click(Sender: TObject);
  var s : TScrollBox;
begin
  // Parameter festlegen
  s:=ScrollBox1;

  // Blatt zeichnen
  s.Brush.Bitmap.Canvas.Rectangle(0,0,s.Width,s.Height);
end;

[Christian18]

Kann man ich eine ScrollBox nicht zeichnen???

MFG

Christian18

[Sharky]

Hai Christian,

lege auf deine Scrollbox einfach ein TImage. Darauf kannst Du dann zeichen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var i : TImage;
begin
  // Parameter festlegen
  i:=Image1;
  // Blatt zeichnen
  i.Canvas.Rectangle(0,0,i.Width,i.Height);
end;

[semo]

um die frage direkt zu beantworten:

NEIN, man kann nicht direkt auf die Scrollbox malen, da diese keinen Canvas besitzt!