Difference between revisions of "Canvas draw vertical line on form/de"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; deleted category already in page template) |
||
(2 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
{{Canvas draw vertical line on form}} | {{Canvas draw vertical line on form}} | ||
− | + | ||
− | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. |
− | + | ||
− | Das Unterprogramm zeigt, wie mit Canvas auf einem Formular eine vertikale Linie | + | Das Unterprogramm zeigt, wie mit Canvas auf einem [[TForm/de | Formular]] eine vertikale Linie gezeichnet wird. |
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang="pascal"> | ||
uses | uses | ||
Forms, Graphics, ...; | Forms, Graphics, ...; | ||
Line 33: | Line 34: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | + | ||
− | Wenn dieses Unterprogramm im Ereignis OnPaint des Formulars eingetragen wird, wird die Linie bei jeder Formularänderung neu gezeichnet. | + | Wenn dieses Unterprogramm im Ereignis OnPaint des Formulars eingetragen wird, wird die Linie bei jeder Formularänderung neu gezeichnet. |
− | Beispiel: | + | |
− | <syntaxhighlight> | + | Beispiel: |
+ | |||
+ | <syntaxhighlight lang="pascal"> | ||
uses | uses | ||
Forms, Graphics, ...; | Forms, Graphics, ...; | ||
Line 52: | Line 55: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− | |||
− |
Latest revision as of 00:40, 11 February 2020
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Das Unterprogramm zeigt, wie mit Canvas auf einem Formular eine vertikale Linie gezeichnet wird.
uses
Forms, Graphics, ...;
...
procedure subVertikaleLinie(Form: TForm; w32X, w32Y : LongWord; bytStrich: Byte; w16Farbe: Word);
// Alle Zahlen und Berechnungen sind in Pixel
begin
with Form do
begin
// Legt den Punkt fest, ab dem das Zeichnen beginnt
Canvas.MoveTo(w32X, w32Y);
// Legt die Farbe des Strichs fest
Canvas.Pen.Color := w16Farbe;
// Legt die Breite des Strichs fest
Canvas.Pen.Width := bytStrich;
// Zeichnet einen Strich
// Parameter:
// LineTo(Länge ab dem Startpunkt, Abstand zur Oberen Formularkante)
Canvas.LineTo(Width - w32X, w32Y);
end;
end;
...
Wenn dieses Unterprogramm im Ereignis OnPaint des Formulars eingetragen wird, wird die Linie bei jeder Formularänderung neu gezeichnet.
Beispiel:
uses
Forms, Graphics, ...;
...
procedure TForm1.FormPaint(Sender: TObject);
begin
// Parameter für das Unterprogramm:
// Formularname, X-Startkoordinate, Y-Startkoordinate, Strichbreite, Farbe
subVertikaleLinie(Form1, 10, 50, 2, clred);
end;
...