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;