![]() |
Re: auf Tabsheet Zeichnen ?
Dafür ist das OnPaint-Ereignis ja auch da. Beim TImage dürfte das übrigens auch passieren, wenn man keine Grafik lädt, sondern direkt auf den Canvas pinselt (und zwar nicht im OnPaint).
|
Re: auf Tabsheet Zeichnen ?
Zitat:
|
Re: auf Tabsheet Zeichnen ?
Weil TImage soweit ich weiß noch einen internen Buffer hat welcher im OnPaint kopiert wird
edit: wenn das image an einer Stelle nicht mehr verdeckt ist |
Re: auf Tabsheet Zeichnen ?
Trotzdem gehören alle Zeichenoperationen in ooPaint bzw. Paint
|
Re: auf Tabsheet Zeichnen ?
HI,
Zitat:
Delphi-Quellcode:
Deswegen bleibt der Inhalt erhalten. Bei einer Paintbox gibts keine Graphik. Hier wird alles (wirklich alles) über OnPaint gezeichnet. Deswegen verschwindet der Inhalt auch so schnell.
function TImage.GetCanvas: TCanvas;
var Bitmap: TBitmap; begin if Picture.Graphic = nil then begin Bitmap := TBitmap.Create; try Bitmap.Width := Width; Bitmap.Height := Height; Picture.Graphic := Bitmap; finally Bitmap.Free; end; end; if Picture.Graphic is TBitmap then Result := TBitmap(Picture.Graphic).Canvas else raise EInvalidOperation.Create(SImageCanvasNeedsBitmap); end; rollstuhlfahrer PS: @Delphiturbo: Such dir raus, was du willst/brauchst |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:25 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz