Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Hints formatieren

    Delphi
    by Jens01, 27. Okt 2009
  Habe hier das Programmteil von patti ergänzt :
  FormatTextSize gibt die Größe des Textstrings an.
  FormatText ist um einen Tab-Sprung und Änderung der Zeichengröße ergänzt. Außerdem werden eckige Klammern ohne / hier ausgegeben.
  
  
  procedure FormatText(ACanvas : TCanvas; APosition : TPoint; AInput : string);
  var
  CurComand: string;
  c, x, y, THmax: integer;
  OldFont: TFont;