For-Schleife mit Canvas umsetzten

[Chris211183]

Hallo,

ich hänge hier immernoch an meiner Skala, er Zeichnet mir einzelne Striche am Rand, aber ich bekomme es nicht hin, dass er mir von alleine die Skalenstriche am Rand mit dem selben Abstand zeichnet und diese angleicht, wenn ich den Abstand ändere. Ich hoffe diesmal kann mir jemand folgen ?

Delphi-Quellcode:

procedure THixBarGraph.Paint;
var
   R                : TRect;                                                    // Bargraphrechteck vom Typ TRect
   i                : double;                                                   // aufgespannter Wertebereich (Abstand zwischen den Skalenstrichen)
   Anz_Striche      : Integer;                                         // Skalenstriche
   Value            : double;
   ValueMin         : double;
   ValueMax         : double;

begin
  inherited;
  if (Parent = NIL) or not visible
  then Exit;


   Canvas.Brush.Color := FColor;
   Canvas.FillRect(Rect(0, 0, Width, Height));               // Hintergrund des Objektes als Rechteck Zeichnen
   case FKind of

      sbHorizontal : begin                                                // horizontale Ausrichtung der Komponente
                        R := Rect(OffsetUpper,                        // Bargraphrechteckes 
                                 (Height - Barwidth) div 2,
                                  Width - OffsetLower,
                                 (Height + Barwidth) div 2);
                                                                                // Skalen zeichnen
                        case FLabelingStyle of

                         lbsLines :      begin
                                             Canvas.Pen.Color := clBlack;
                                             for i := 0 to round(Anz_Striche+1)
                                             do Inc(Anz_Striche[i]);
                                             Canvas.MoveTo(round(OffsetUpper + i * LabelingGap), Height);
                                             Canvas.LineTo(round(OffsetUpper + i * LabelingGap), (Height +                         Barwidth) div 2);

                                                                            
{*HIER SOLL ER, ABHÄNGIG VON DEM ABSTAND ZWISCHEN DEN SKALENSTRICHEN, DIESE ZEICHNEN*}
            end;