Difference between revisions of "Drawing with canvas/de"

From Free Pascal wiki
Jump to navigationJump to search
(Created page with "{{Drawing with canvas}} <br> Zurück zu den Zusätzlichen Informationen.<br> <br> veröffentlicht von leo_tecnologica@yahoo.com.ar --- Leonardo G...")
 
m (Fixed syntax highlighting; deleted category included in page template)
 
(3 intermediate revisions by 3 users not shown)
Line 1: Line 1:
 
{{Drawing with canvas}}
 
{{Drawing with canvas}}
 
<br>
 
<br>
−
Zurück zu den [[Additional information/de|Zusätzlichen Informationen]].<br>
+
Zurück zur Seite [[code examples/de|Code Beispiele]].<br>
 
<br>
 
<br>
 
veröffentlicht von leo_tecnologica@yahoo.com.ar --- Leonardo Gabriel Calautti<br>
 
veröffentlicht von leo_tecnologica@yahoo.com.ar --- Leonardo Gabriel Calautti<br>
−
<br>
+
* '''Line''' (x1, y1, x2, y2) -> zieht eine Linie von Punkt (x1, y1) zu Punkt (x2, y2)<br>
−
'''Line''' (x1, y1, x2, y2)-> zieht eine Linie von Punkt (x1, y1) zu Punkt (x2, y2)<br>
+
* '''Rectangle''' (x1, y1, x2, y2) -> zeichnet ein Rechteck mit einem Scheitelpunkt ausgehend vom Punkt (x1, y1) und dem gegenüberliegenden Punkt (x2, y2)<br>
−
<br>
+
* '''Ellipse''' (x1, y1, x2, y2) -> zeichnet eine Ellipse in einem durch die Punkte (x1, y1) und (x2, y2) definierten Rechteck<br>
−
'''Rectangle''' (x1, y1, x2, y2)-> zeichnet ein Rechteck mit einem Scheitelpunkt ausgehend vom Punkt (x1, y1) und dem gegenüberliegenden Punkt (x2, y2)<br>
 
−
<br>
 
−
'''Ellipse''' (x1, y1, x2, y2)-> zeichnet eine Ellipse in einem durch die Punkte (x1, y1) und (x2, y2) definierten Rechteck<br>
 
−
<br>
 
 
[[Image:canvas2.png]]
 
[[Image:canvas2.png]]
−
<br>
+
 
−
Beispiel: Der folgende Code zeichnet zwei Diagonalen. Geben Sie den untenstehenden Code zwischen ''Begin'' und ''End'' der Funktion Button1Click ein:<br>
+
Beispiel: Der folgende Code zeichnet zwei Diagonalen auf dem Formular:
−
<syntaxhighlight>
+
 
−
procedure TForm1.Button1Click(Sender: TObject);
+
<syntaxhighlight lang=pascal>
 +
procedure TForm1.Form1Paint(Sender: TObject);
 
begin
 
begin
−
   canvas.Line(0,0, form1.Width,form1.Height);
+
   Canvas.Line(0, 0, Width-1, Height-1);
−
   canvas.Line(0,form1.height,form1.width,0);
+
   Canvas.Line(0, Height-1, Width-1, 0);
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
−
Wie kann man die Innenseite der Rechtecke und Ellipsen malen?<br>
+
 
−
Im Canvas-Objekt, gibt es ein Objekt namens'' 'Brush''' (Pinsel) und ein Objekt namens '''Pen''' (Stift), beide haben Farbeigenschaften für die Fläche und die Kontur der Objekte.<br>
+
Wie kann man das Innere der Rechtecke und Ellipsen malen?<br>
−
Um ein Objekt in einer Farbe zu malen müssen die Eigenschaften von Bürste und Pinsel entsprechend angepasst werden.<br>
+
Im Canvas-Objekt, gibt es ein Objekt namens'' <code>Brush</code> (Pinsel) und ein Objekt namens <code>Pen</code> (Stift), beide haben Farbeigenschaften (<code>Color</code>) für die Fläche und die Kontur der Objekte.<br>
−
<syntaxhighlight>
+
Um ein Objekt in einer Farbe zu malen müssen die Eigenschaften von <code>Brush</code> und <code>Pen</code> entsprechend angepasst werden.
−
   canvas.Brush.color:= clred;
+
 
−
   canvas.Ellipse(195, 117, 205, 128);
+
<syntaxhighlight lang=pascal>
−
   canvas.Brush.color:= clblue;
+
   Canvas.Brush.Color := clRed;
−
   canvas.Rectangle (192, 130,208,160);
+
   Canvas.Ellipse(195, 117, 205, 128);
−
   canvas.Brush.color:= clgreen;
+
   Canvas.Brush.Color:= clBlue;
 +
   Canvas.Rectangle (192, 130,208,160);
 +
   Canvas.Brush.Color:= clGreen;
 
   Canvas.Rectangle (187, 130,191,162);
 
   Canvas.Rectangle (187, 130,191,162);
−
   canvas.Brush.color:= clyellow;
+
   Canvas.Brush.Color:= clYellow;
 
   Canvas.Rectangle (209, 130,213,162);
 
   Canvas.Rectangle (209, 130,213,162);
−
   canvas.Brush.color:= clmaroon;
+
   Canvas.Brush.Color:= clMaroon;
 
   Canvas.Rectangle (193,161,199,200);
 
   Canvas.Rectangle (193,161,199,200);
−
   canvas.Brush.color:= clpurple;
+
   Canvas.Brush.Color:= clPurple;
 
   Canvas.Rectangle (201,161,207,200);
 
   Canvas.Rectangle (201,161,207,200);
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
−
Falls Sie die obenstehenden Schritte nachvollzogenhaben, dann sehen Sie folgendes Bild:<br>
+
Falls Sie die obenstehenden Schritte nachvollzogen haben, dann sehen Sie folgendes Bild:<br>
 
[[Image:canvas.png]]
 
[[Image:canvas.png]]
−
<br>
 
−
<br>
 
−
 
−
{{AutoCategory}}[[Category:Tutorials/de]][[Category:Lazarus/de]][[Category:GUI/de]]
 

Latest revision as of 08:12, 14 February 2020

│ Deutsch (de) │ English (en) │ français (fr) │ 中文（中国大陆）‎ (zh_CN) │

Zurück zur Seite Code Beispiele.

veröffentlicht von leo_tecnologica@yahoo.com.ar --- Leonardo Gabriel Calautti

  • Line (x1, y1, x2, y2) -> zieht eine Linie von Punkt (x1, y1) zu Punkt (x2, y2)
  • Rectangle (x1, y1, x2, y2) -> zeichnet ein Rechteck mit einem Scheitelpunkt ausgehend vom Punkt (x1, y1) und dem gegenüberliegenden Punkt (x2, y2)
  • Ellipse (x1, y1, x2, y2) -> zeichnet eine Ellipse in einem durch die Punkte (x1, y1) und (x2, y2) definierten Rechteck

canvas2.png

Beispiel: Der folgende Code zeichnet zwei Diagonalen auf dem Formular: 

procedure TForm1.Form1Paint(Sender: TObject);
begin
  Canvas.Line(0, 0, Width-1, Height-1);
  Canvas.Line(0, Height-1, Width-1, 0);
end;

Wie kann man das Innere der Rechtecke und Ellipsen malen?
Im Canvas-Objekt, gibt es ein Objekt namens Brush (Pinsel) und ein Objekt namens Pen (Stift), beide haben Farbeigenschaften (Color) für die Fläche und die Kontur der Objekte.
 Um ein Objekt in einer Farbe zu malen müssen die Eigenschaften von Brush und Pen entsprechend angepasst werden. 

   Canvas.Brush.Color := clRed;
   Canvas.Ellipse(195, 117, 205, 128);
   Canvas.Brush.Color:= clBlue;
   Canvas.Rectangle (192, 130,208,160);
   Canvas.Brush.Color:= clGreen;
   Canvas.Rectangle (187, 130,191,162);
   Canvas.Brush.Color:= clYellow;
   Canvas.Rectangle (209, 130,213,162);
   Canvas.Brush.Color:= clMaroon;
   Canvas.Rectangle (193,161,199,200);
   Canvas.Brush.Color:= clPurple;
   Canvas.Rectangle (201,161,207,200);


Falls Sie die obenstehenden Schritte nachvollzogen haben, dann sehen Sie folgendes Bild:
canvas.png

Retrieved from "http://wiki.freepascal.org/index.php?title=Drawing_with_canvas/de&oldid=131896"