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

[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?!?
oder wär das zu einfach?!

[mkinzler]

Oder eine PaintBox

[Mikescher]

Zitat von mkinzler:

Oder eine PaintBox

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

[DeddyH]

Zitat von Mikescher:

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

[Fussball-Robby]

Zitat von DeddyH:

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.