AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ÜberObject von PaintBox und Image

Ein Thema von Alexander I · begonnen am 15. Sep 2015 · letzter Beitrag vom 15. Sep 2015
Antwort Antwort
Alexander I

Registriert seit: 16. Mai 2014
18 Beiträge
 
Delphi XE5 Starter
 
#1

ÜberObject von PaintBox und Image

  Alt 15. Sep 2015, 09:18
Hallo,

ich möchte eine Grafikroutine schreiben, bei der man beim instanziieren entscheiden kann ob auf eine PaintBox oder auf ein Image gemalt wird.

 grafik:= TGrafik.Create(paintBox1); oder

 grafik:= TGrafik.Create(image1);
Die Konstruktoren:
Delphi-Quellcode:
constructor Create(paintBox : TPaintBox);
begin
zeichenFläche:= paintBox;
end;
constructor Create(image: TImage);
begin
zeichenFläche:= image;
end;
Die Frage ist nun : Gibt es sowas wie ein "TÜberObject" das es möglich ist der

zeichenFläche : TÜberObject entweder eine PaintBox oder ein Image zu übergeben?
...das man dann folgendes tu kann:


Delphi-Quellcode:
procedure Draw();
begin
with zeichenFläche do
  Canvas.Pen.color := clWebDarkBlue;
 Canvas.Polyline(p1,p2,p3,p4);
end;

Gruß
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: ÜberObject von PaintBox und Image

  Alt 15. Sep 2015, 09:34
Übergib doch einfach den Canvas, denn der interessiert dich doch, wenn du etwas malen möchtest
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: ÜberObject von PaintBox und Image

  Alt 15. Sep 2015, 09:51
Icgh würde gleich den Canvas Speichern.

Delphi-Quellcode:
FCanvas: TCanvas;

...

constructor Create(paintBox : TPaintBox);
begin
 FCanvas:= paintBox.Canvas;
end;

...

procedure Draw();
begin
  FCanvas.Pen.color := clWebDarkBlue;
  FCanvas.Polyline(p1,p2,p3,p4);
end;
Markus Kinzler
  Mit Zitat antworten Zitat
Alexander I

Registriert seit: 16. Mai 2014
18 Beiträge
 
Delphi XE5 Starter
 
#4

AW: ÜberObject von PaintBox und Image

  Alt 15. Sep 2015, 10:43
Funktioniert.
Danke.
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:00 Uhr.
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