Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Punkt in Canvas Koordinatensystem zeichnen

  Alt 24. Apr 2014, 14:57
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..
  Mit Zitat antworten Zitat