Eine Zeichnen-Funktion für 2 TImage Komponenten

Tongamann · Hält's aus hier Beiträge: 4

Ich habe ein Formular mit zwei TImage Komponenten. In einer wird eine Art Vorschau, in der anderen wird später ein größeres Bild angezeigt. In beiden möchte ich nun ein identisches Dreieck zeichnen.

Wie kann ich verhindern, dass ich die Zeichnen-Aufrufe nicht doppelt programmieren muss?

Momentan:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure zeichneDreieckInPreviewWindow();
begin
with Form1.Image1.Canvas do begin
  pen.color := ...
  ...
  lineTo(..)...
end;
end;

procedure zeichneDreieckInRealWindow();
begin
with Form1.Image2.Canvas do begin
  pen.color := ...
  ...
  lineTo(..)...
end;
end;

Ziel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure zeichneDreieckInPreviewWindow();
with Form1.Image1.Canvas do
  zeichne();

procedure zeichneDreieckInRealWindow();
with Form1.Image2.Canvas do
  zeichne();


procedure zeichne();
...

PS: Wie kann ich den Code als "Code" wie in anderen Threads auszeichnen?
Moderiert von Narses: Indem du eckige, statt spitzen Klammern verwendest. :idea:

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

dummzeuch · Verfasst: So 20.12.09 11:02

Tongamann hat folgendes geschrieben :

Ich habe ein Formular mit zwei TImage Komponenten. In beiden möchte ich nun ein identisches Dreieck zeichnen.

Wie kann ich verhindern, dass ich die Zeichnen-Aufrufe nicht doppelt programmieren muss?

Indem Du es laesst wie es ist? (doppelte Verneinung ...)

Zitat:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure zeichneDreieckInPreviewWindow();
begin
with Form1.Image1.Canvas do begin
  pen.color := ...
  ...
  lineTo(..)...
end;
end;

procedure zeichneDreieckInRealWindow();
begin
with Form1.Image2.Canvas do begin
  pen.color := ...
  ...
  lineTo(..)...
end;
end;

Ziel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure zeichneDreieckInPreviewWindow();
with Form1.Image1.Canvas do
  zeichne();

procedure zeichneDreieckInRealWindow();
with Form1.Image2.Canvas do
  zeichne();

procedure zeichne();
...

Zunaechst einmal verabschiede Dich bitte so schnell wie moeglich vom WITH Statement, das wird frueher oder spaeter zum Alptraum bei der Programmpflege. Die Loesung ist ganz einfach:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure Zeichne(_cnv: TCanvas);
begin
  _cnv.Pen.Color := clBlack;
  // usw.
end;

procedure zeichneDreieckInPreviewWindow();
  zeichne(Form1.Image1.Canvas);

procedure zeichneDreieckInRealWindow();
  zeichne(Form1.Image2.Canvas);

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Tongamann · Hält's aus hier Beiträge: 4

Wunderbar - genau das habe ich gesucht. 1000 Dank!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme