Skala an Komponente

[Chris211183]

Delphi-Quellcode:

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

  case FKind of

      sbHorizontal : begin
          R := Rect(OffsetUpper,
                   (Height - Barwidth) div 2,
                    Width - OffsetLower,
                    (Height + Barwidth) div 2);
                          if FLabelingStyle = lbsLines
                          then
                             begin
                             Canvas.Pen.Color := clBlack;
                             Canvas.LineTo(OffsetUpper,(Height - Barwidth)div 2);
                             end;
                     end;

so in etwa ?