Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi auf Tabsheet Zeichnen ? (https://www.delphipraxis.net/115328-auf-tabsheet-zeichnen.html)

DeddyH 10. Jun 2008 14:24

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).

Fussball-Robby 10. Jun 2008 14:25

Re: auf Tabsheet Zeichnen ?
 
Zitat:

Zitat von DeddyH
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).

Nein, da bleibt das gepinselte da. Warum auch immer..

Tormentor32 10. Jun 2008 14:29

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

mkinzler 10. Jun 2008 14:31

Re: auf Tabsheet Zeichnen ?
 
Trotzdem gehören alle Zeichenoperationen in ooPaint bzw. Paint

rollstuhlfahrer 10. Jun 2008 14:38

Re: auf Tabsheet Zeichnen ?
 
HI,

Zitat:

Zitat von Fussball-Robby
Zitat:

Zitat von DeddyH
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).

Nein, da bleibt das gepinselte da. Warum auch immer..

Ganz einfach: Wenn du auf ein Image mit Canvas zeichnest, wird, falls noch nicht vorhanden, ein TBitmap angelegt, auf welches jede Canvas-aktion weitergeleitet wird. (Deswegen auch Probleme beim Zeichnen mit Canvas auf JPEG)
Delphi-Quellcode:
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;
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.

rollstuhlfahrer

PS: @Delphiturbo: Such dir raus, was du willst/brauchst


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:40 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz