Punkt in Canvas Koordinatensystem zeichnen

[nadery]

http://forum.delphi-treff.de/index.p...threadID=59561 Crosspost

Wie setzte ich einen Punkt in ein mit Canvas gezeichnetes Koordinatensystem?

Die Koordinaten sollen aus zwei Edit Feldern entnommen werden.

Ich hatte an sowas hier Gedacht...

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  LVGroesse:integer;
  LVGewicht:integer;
begin
With image1.Canvas do
begin
LVGroesse:= strtoint(Edit1.Text);
LVGewicht:=strtoint(Edit2.Text);
TextOut(LVGroesse,LVGewicht,'X');
end;
end;

Nur fängt er bei TextOut vom Absolut punkt der ganzen Image an und nicht vom Koordinatensystem selbst.
Die Y-Koordinate von TextOut geht ja auch immer nach unten und nicht nach oben?

Jemand ne bessere Idee als das mit TextOut zu machen oder ein Vorschlag wie ich es mit TextOut machen kann?

Danke

[DeddyH]

Soll ich Dir die einfache Addition noch einmal erklären, oder willst Du erst noch in 3 anderen Foren fragen?

[himitsu]

Code:

9 8 7 6 5 4 3 2 1 0    <= echte Koordinaten im Canvas
      0 1 2 3 4 5      <= dein virtuelles Koordinatensystem

Wenn du jetzt was in die 4 reinmalen willst, wie kommt man dann wohl auf die 2 des Canvas?


Erstes Beispiel mit einer 1:1-Skalierung ... eventuell muß Diese auch noch mit eingerechnet werden.

Code:

9 8 7 6 5 4 3 2 1 0    <= echte Koordinaten im Canvas
      0 2 4 6 8        <= dein virtuelles Koordinatensystem mit 2 Schritten pro Pixel

[Bjoerk]

Letzter Versuch:

Delphi-Quellcode:

var
  Groesse, Gewicht: double;
  P: TPoint;
  C: char;
begin
  C := 'X';
  Groesse := StrToFloatDef(Edit1.Text, 0);
  Gewicht := StrToFloatDef(Edit2.Text, 0);
  P := Point(GetX(Groesse), GetY(Gewicht));
  P.X := P.X - Image1.Canvas.TextWidth(C) div 2;
  P.Y := P.Y - Image1.Canvas.TextHeight(C) div 2;
  Image1.Canvas.TextOut(P.X, P.Y, C);
end;

Jetzt frag mich bitte bitte bitte nicht wo die GetX und GetY herkommen..

[nadery]

Doch leider kein Schimmer :-/

hab das mal im zusammenhang mit set und get functions gehört..

[p80286]

Nun, da ich nicht alles verfolgt habe gehe ich davon aus, daß Groesse und Gewicht in die zu deinem Koordinatensystem passenden x und y Werten übersetzt werden.
Wobei natürlich auch der senkrechte und waagerechte Versatz mit berücksichtigt werden kann/sollte/muß.
An diese Stelle wird dan ein "X" geschrieben.

Hat was die Idee

Gruß
K-H

[Popov]

Zuerst etwas zum Thema Lesbarkeit von Qellcodes:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  LVGroesse:integer;
  LVGewicht:integer;
begin
With image1.Canvas do
begin
LVGroesse:= strtoint(Edit1.Text);
LVGewicht:=strtoint(Edit2.Text);
TextOut(LVGroesse,LVGewicht,'X');
end;
end;

Es hat sich so eingebürgert (es gibt Sprachen da soll es ohne gar nicht funktionieren, wie z.B. Phyton), dass man Blöcke einrückt. Dadurch erkennt man was zu was gehört. Bei so einem kurzen Code geht es noch, aber irgendwann wird es unübersichtlich und man verbraucht die Hälfte der Zeit damit den Code im Kopf zu strukturieren.

Delphi-Quellcode:

begin
  With image1.Canvas do
  begin
    LVGroesse:= strtoint(Edit1.Text);
    LVGewicht:=strtoint(Edit2.Text);
    TextOut(LVGroesse,LVGewicht,'X');
  end;
end;

Zu der Frage. Die Koordinaten der Leinwand in Delphi (also Canvas) liegen oben links, also klein ist links und oben, größer wird es nach rechts unten. Will man in einem Koordinatensystem zeichnen, muss man die Y Werte von dem Koordinatensystem abziehen, X dazu addieren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BildWeite, BildHoehe, KoordinateX0, KoordinateY0, X, Y: Integer;
begin
  //Bildbreite und -Höhe ermitteln. Die Koordinalten 0/0 sind links oben
  BildWeite := Canvas.ClipRect.Right - Canvas.ClipRect.Left;
  BildHoehe := Canvas.ClipRect.Bottom - Canvas.ClipRect.Top;

  //Das Koordinatenkreuz (Annahme: Mitte vom Bild)
  KoordinateX0 := BildWeite div 2;
  KoordinateY0 := BildHoehe div 2;

  Canvas.MoveTo(0, KoordinateY0);
  Canvas.LineTo(BildWeite, KoordinateY0);
  Canvas.MoveTo(KoordinateX0, 0);
  Canvas.LineTo(KoordinateX0, BildHoehe);

  //Position vertikal 70 und horizontal 50 in der Koordinate setzten
  //Hier reicht es den Wert zum Koordinatenkreuz (Nullpunkt X) dazu zu addieren
  X := KoordinateX0 + 70;
  //Hier muss der Wert vom Koordinatenkreuz (Nullpunkt Y) abgezogen werden
  Y := KoordinateY0 - 50;
  Canvas.Pixels[X, Y] := clBlack;
end;

Hier ein Beispiel mit Sinus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BildWeite, BildHoehe, KoordinateX0, KoordinateY0, X, Y,
  i: Integer;
  FaktorX, FaktorY: Real;
begin
  //Bildbreite und -Höhe ermitteln. Die Koordinalten 0/0 sind links oben
  BildWeite := Canvas.ClipRect.Right - Canvas.ClipRect.Left;
  BildHoehe := Canvas.ClipRect.Bottom - Canvas.ClipRect.Top;

  //Das Koordinatenkreuz (Annahme: Mitte vom Bild)
  KoordinateX0 := BildWeite div 2;
  KoordinateY0 := BildHoehe div 2;

  Canvas.MoveTo(0, KoordinateY0);
  Canvas.LineTo(BildWeite, KoordinateY0);
  Canvas.MoveTo(KoordinateX0, 0);
  Canvas.LineTo(KoordinateX0, BildHoehe);

  //Faktoren passen die Werte an die Leinwand an, da zB Sin max 1 liefert, was nur ein Pixel wäre
  FaktorX := BildWeite / (2 * Pi);
  FaktorY := KoordinateY0 / SIN(Pi / 2);

  for i := Round(-Pi * FaktorX) to Round(Pi * FaktorX) do
  begin
    X := KoordinateX0 + i;
    Y := KoordinateY0 - Round(Sin(i / FaktorX) * FaktorY);
    Canvas.Pixels[X, Y] := clBlack;
  end;
end;

[Bjoerk]

Zitat von nadery:

Doch leider kein Schimmer :-/

Dann schau halt bitte mal nach was ich vorgestern in dem oben von dir verlinkten Thread unter #9 und #32 gepostet habe? Ich mein, ich will dir das nicht aufschwatzen. Ist nur eine von vielen Möglichkeiten..

[nadery]

Bjoerk hab vielen dank es funktioniert auf deine Art nur ob ich das auch alles erklären kann :p

andere frage kann ich von der der jetzigen Unit Edit Felder von der ersten ansprechen, weil wen ich davor Form1 schreibe sagt er mir er kennt sie nicht.

[Popov]

nadery, in welcher Klasse gehst du und wie lange hast du inzwischen Delphi (Lazarus) Unterricht?

Nichts böses, ich frage das nur um dein Kenntnisstand abschätzen zu können.