Font Problem mit TextRect

[ddog]

Ich habe momentan ein kleines Problem mit TextRect. Obwohl ich Font und Size festgelegt habe kommt folgendes dabei heraus:



Was mache ich falsch ich hätte die Zahlen 10-180 gerne auch im angegebenen Font und vor allem der Größe wie "DIAGRAMM" rechts oben.

Hier der Ausschnitt des Codes:

Code: Alles auswählen

 
         i:=15;
         a:=10;
         Brush.Color:=$00FEFFFF;
         rAlign.Alignment:=taRightJustify;
         Font.Name:='Pathway Gothic One Regular';
         Font.Color:=$00777877;
         Font.Size:=12;
         while i<=270 do begin
              aRect.Left:=15;
              aRect.Top:=350-i;
              aRect.Right:=38;
              aRect.Bottom:=365-i;
              TextRect(aRect,1,1,inttostr(a),rAlign);
              inc(i,15);
              inc(a,10);
         end;

[Michl]

Wahrscheinlich liegt das daran, daß Du nicht alle Eigenschaften von rAlign gesetzt hast. Speziell die Eigenschaft r.Align.Systemfont:=true könnte Dich ärgern.

z.B.

Code: Alles auswählen

  rAlign.Alignment:=taRightJustify;
  rAlign.Clipping:=false;
  rAlign.EndEllipsis:=false;
  rAlign.ExpandTabs:=false;
  rAlign.Layout:=tlCenter;
  rAlign.Opaque:=false;
  rAlign.RightToLeft:=false;
  rAlign.ShowPrefix:=false;
  rAlign.SingleLine:=true;
  rAlign.SystemFont:=false;
  rAlign.Wordbreak:=false; 

[ddog]

Vielen Tausend Dank!