Punkt in Canvas Koordinatensystem zeichnen

Thema durchsuchen

Ansicht

Themen-Optionen

Punkt in Canvas Koordinatensystem zeichnen

Ein Thema von nadery · begonnen am 24. Apr 2014 · letzter Beitrag vom 24. Apr 2014

Vorheriger Beitrag

Nächster Beitrag

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge

Delphi 10.4 Sydney

AW: Punkt in Canvas Koordinatensystem zeichnen

24. Apr 2014, 14:57

Letzter Versuch:

zusammenfalten · markieren

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..