Okay, also ich hab jetzt versucht die Paint Prozedur zu erstellen, aber es gibt noch einen kleinen Fehler:
Code:
procedure PbProgressBar.Paint;
var
BackgroundBuffer: TBitmap;
begin
BackgroundBuffer := TBitmap.Create;
BackgroundBuffer.Width := 20;
BackgroundBuffer.Height := 20;
BackgroundBuffer.Canvas.Brush.Color := clRed;
BackgroundBuffer.Canvas.Rectangle(0,0,20,20);
Self.Canvas.Draw(0, 0, BackgroundBuffer);
BackgroundBuffer.Free;
end;
Hier unterkringelt er mir Canvas.Draw, weil das keine Attribute von Self sind. Was muss ich da machen, damit ich das Bitmap jetzt auch zeichnen kann? Außerdem soll die Standard ProgressBar Klasse, von welcher ich meine ProgressBar ableite, nicht gezeichnet werden. Wie mache ich das?