auf Tabsheet Zeichnen ?

[Delphiturbo]

Hallo

ich habe einen Code, der auf fir Form1 zeichnet
Ich habe nun ein Tabsheet auf Form1

Delphi-Quellcode:

end;
   Form1.Canvas.Draw(0, 0, bm);
   Form1.Caption := IntToStr(round(i / count * 100)) + '%';
   Application.ProcessMessages;
   if Application.Terminated then break;
end;
Form1.Canvas.Draw(0, 0, bm2);
Form1.Caption := 'done';
bm1.Destroy; bm2.Destroy; bm.Destroy;
end;

Wie kann ich auf Tabsheet statt auf Form zeichnen ?
Mein Versuch war einfach so :

Delphi-Quellcode:

//Form1.Canvas.Draw
Form1.Tabsheet1.Canvas.Draw // error hier : Undeclared canvas !

[Codewalker]

Hat ein Tabsheet denn einen Canvas? Wenn es keinen hat kann du natürlich auch nicht drauf zeichnen.

Edit: Blöd formuliert. Versuch mal nicht vom TabSheet sondern vom TabControl einen Canvas zu erhalten. Aber wie so oft: Die Hilfe, wirkt hier Wunder.

[Neutral General]

Hi delphiturbo,

Das Problem ist, dass TTabsheets keine (öffentliche) Canvas-Property besitzen.

Du kannst das Problem umgehen indem du eine Instanz von TCanvas erzeugst und dem Handle des erzeugten Canvas' den DC des Tabsheets übergibst. Mit dem so erzeugten Canvas kannst du dann auf das Tabsheet zeichnen.

Den DC eines Controls erhälst du mit GetDC.

Gruß
Neutral General

[sirius]

Bei TTabsheet ist ein Canvas nicht vorgesehen und existiert deswegen auch nicht.

Du musst dir also das Devcie Context Handle des Tabsheet-Windows besorgen (getdc, releasedc) und entweder direkt mit der WinAPI darauf zeichnen oder du kapselst es in ein ControlCanvas. Schau dir dazu mal die Implementation von TCustomControl an.

Ich würde dir auch raten:
1. im Paint-Ereignis zu zeichnen. Ansonsten ist dein Gemälde ratz-fatz wieder weg.
2. Die Verweise auf globale Variablen zu umgehen

Edit: Den einen roten Kasten hatte ich ja,.... :gruebel:

[Neutral General]

Ach ja... So nebenbei: Man gibt Objekte besser mit .Free frei, als mit Destroy ;)

[Butch87]

öhmmm könnte man nich auch einfach nen Image auf das tabsheet setzen und über deren canvas zeichnen?!? :gruebel:
oder wär das zu einfach?!

[mkinzler]

Oder eine PaintBox

[Mikescher]

Zitat:

Zitat von mkinzler

Oder eine PaintBox

Besser ein Image Paintboxe verlieren ihr gezeichnetes Canvas wenn man sie nicht mehr sieht, Image nicht

[DeddyH]

Zitat:

Zitat von Mikescher

Besser ein Image Paintboxe verlieren ihr gezeichnetes Canvas wenn man sie nicht mehr sieht, Image nicht

:?:

[Fussball-Robby]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Mikescher

Besser ein Image Paintboxe verlieren ihr gezeichnetes Canvas wenn man sie nicht mehr sieht, Image nicht

:?:

Er meint, dass die PaintBox grau wird, wenn z.B. ein anderes Fenster darüber kommt. Das kann man allerdings verhindern, indem man im OnPaint-Ereignis zeichnet.

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

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

[Tormentor32]

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]

Trotzdem gehören alle Zeichenoperationen in ooPaint bzw. Paint

[rollstuhlfahrer]

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