Page Control mit einzubauender Graphic

roemer · Hält's aus hier Beiträge: 3

hallo,,

hab ein kleines prog geschrieben, indem ich ellipsen, rechtecke ausfülle(SolidBrush, HatchBrush) und texturen in form von bildern erzeuge(TextureBrush)! klappt alles auch wunderbar, aber nur im kleinen prog, indem ich so starte:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormCreate(Sender: TObject);
begin
  gr:=TGPGraphics.Create(Form1.handle,false);
  gr.Clear($0FF0000);
end;

nun habe ich mit pagecontrol mehrere solcher progs zusammengefasst, eins in jeweils einem tabsheet. konnte aber diese graphiken logischerweise so nur auf die form1 produzieren, aber ich will diese ja auf das bestimmte tabsheet erzeugen! einer n plan wie ich das anspeche ...
problem verstanden? wäre echt kewl, wenn mir einer da weiter helfen könnte!

Moderiert von raziel: Delphi-Tags hinzugefügt

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Du hast sicherlich vergessen das Parrent nach dem Konstruktor noch explezit auf das jeweilige tabsheet zu legen.

azubi_20 · Verfasst: Fr 09.06.06 16:06

Vielleicht so :

markieren

Delphi-Quelltext

1:
2:

gr:=TGPGraphics.Create(tabsheet.Canvas.Handle); // tabsheet= name deines Pagecontrols
gr.Clear($0FF0000);

roemer · Hält's aus hier Beiträge: 3

@ digi_c

ich weiss nicht zu hundertprozent, was du jez meintest!? sowas ähnliches wie azubi_20?

@ azubi_20

jez gibt er mir es schon auf dem PageControl aus, nur leider auf keinen expliziten TabSheet! es ist irgendwie versteckt hinter allen und wenn ich den den TabSheet noch explizit mit angebe, erkennt er diesen nicht wirklich, so das keine ausgabe zu stande kommt! habe es soweit so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormCreate(Sender: TObject);
begin
  gr:=TGPGraphics.Create(PageControl1.handle,false);
  gr.Clear($0FF0000);
end;

übrigens funktioniert es nit mit canvas! man muss schon handle benutzen! kann vielleicht einer noch ein paar ideen äusern, wie ich das verwirklichen kann? danke. gruss

Moderiert von raziel: Delphi-Tags hinzugefügt

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Fast ich meinte gr.Parent:=PageControl1;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme