Skala an Komponente

[Chris211183]

Hallo Delphianer,

ich möchte an meiner Komponente an der linken Seite eine Messskala haben, wobei ich nicht genau weiß, wie ich das jetzt am Dümmsten anstellen soll, kann...
jemand einen Tip ?

Delphi-Quellcode:

type
THixBargraphKind = (sbHorizontal, sbVertical);
 THixBarGraphLabelingOrientation = (lboAbove, lboBelow, lboLeft, lboright);


private
FKind : THixBarGraphKind;
FLabelingStyle : ThixBarGraphLabelingStyle;
procedure SetKind(const Value: THixBarGraphKind);
procedure SetLabellingStyle(const Value: ThixBarGraphLabelingStyle);

published
property LabellingStyle : THixBarGraphLabelingStyle read FLabellingStyle write SetLabellingStyle;
Property LabelingFont : TFont read FLabelingFont write SetLabelingFont;

….....

implementation

…....
destructor THixBarGraph.Destroy;
begin
  inherited Destroy;
end;

procedure THixBarGraph.Paint;
var
   R: TRect;

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

  case FKind of

      sbHorizontal :
          R := Rect(OffsetUpper,
                   (Height - Barwidth) div 2,
                    Width - OffsetLower,
                   (Height + Barwidth) div 2);

      sbVertical :
          R := Rect((Width - BARWIDTH) div 2,
                     Height - (Height - OffsetUpper),
                     (Width + BARWIDTH) div 2,
                     Height - OffsetLower);
          end;

                 Canvas.Brush.Color := FColor;
                 Canvas.FillRect(Rect(0, 0, Width, Height));
                 Canvas.Brush.Color := FBarColor;
                 Canvas.FillRect(R);
                 Frame3D(Canvas, R, clBtnShadow, clBtnHighlight, 1);
end;

procedure THixBarGraph.SetKind(const Value: THixBarGraphKind);
begin
   if FKind <> Value
   then
   begin
       FKind := Value;
       invalidate;
   end;
end;

procedure THixBarGraph.SetOffsetLower(const Value: Integer);
begin
   if FOffsetLower <> Value
   then
     begin
       FOffsetLower := Value;
       invalidate;
     end;

end;

procedure THixBarGraph.SetOffsetUpper(const Value: Integer);
begin
   if FOffsetUpper <> Value
   then
     begin
       FOffsetUpper := Value;
       invalidate;
     end;

end;