Thema: Delphi TImage "scrollen"

Einzelnen Beitrag anzeigen

Benutzerbild von Khabarakh
Khabarakh

Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
 
#17

Re: TImage "scrollen"

  Alt 29. Mär 2005, 16:59
Zitat von Alexander:
Die Lib ist wirklich klasse, aber einen Clear-Ersatz gibt es beim normalen Canvas auch. Du musst einfach alles übermalen, das ist ja auch nicht all zu umständlich..
Eigentlich nicht, aber das ist wie beim TabbedBrowsing, es geht einfach alles leichter und schneller ) .
Delphi-Quellcode:
Bitmap.Canvas.Pen.Color := clWhite;
Bitmap.Canvas.Brush.Color := clWhite;
Bitmap.Canvas.Rectangle(Rect(0, 0, Bitmap.Width, Bitmap.Height));

Bitmap32.Clear(clWhite32);


Bitmap.Canvas.Pen.Color := clRed;
Bitmap.Canvas.Brush.Style := bsClear;
Bitmap.Canvas.Rectangle(MyRect);

Bitmap32.FrameRectS(MyRect, clRed32);
Etwas übertrieben .

[edit]Hups, langsam wirds etwas OT.
Sebastian
Moderator in der EE
  Mit Zitat antworten Zitat