The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information....



Interface of SDL_Gauge

const
{$IFDEF PAIDVERS}
  SDLVersionInfo = 'gauge_r1050_full';
  IsLightEd = false;
{$ELSE}
  SDLVersionInfo = 'gauge_r1050_lighted';
  IsLightEd = true;
{$ENDIF}
  release = 1050;

type
  TMouseMoveInGaugeEvent = procedure (Sender: TObject; InGauge: boolean;
                                      Shift: TShiftState;
                                      rMousePos: double) of object;
  TGaugeOrientation = (goHorizontal, goVertical);
  TGaugeBackground = (gbPlain, gbVertGrad, gbHorizGrad,
                      gbVertMidBand, gbHorizMidBand);
  TGaugeIndexMode = (gimThread, gimTriangle, gimThreadTriangle,
                     gimThreadTwoTriangles, gimBand, gimDualColorBand, gimBar);
  TScaleGauge = class (TCustomControl)
           private
             FInnerFrameSt : TFrameStyle;
             FOuterFrameSt : TFrameStyle;
             FCaption      : string;
             FCaptColor    : TColor;
             FCaptPosX     : integer;
             FCaptPosY     : integer;
             FCaptSize     : integer;
             FCaptStyle    : TFontStyles;
             FEnabled      : boolean;
             FGaugeMin     : double;
             FGaugeMax     : double;
             FGaugeValue   : double;                 { numeric value of label }
             FGaugeWid     : integer;            // width of gauge display
             FGaugeHgt     : integer;            // height of gauge display
             FGaugeOrient  : TGaugeOrientation;  // orientation of gauge
             FGaugeBG      : TGaugeBackground;
             FGaugeIdxMode : TGaugeIndexMode;
             FGaugeZero    : double;
             FCovMargLeft  : integer;
             FCovMargRight : integer;
             FCovMargTop   : integer;
             FCovMargBottom: integer;
             FLogarithmic  : boolean;
             FMinTicks     : integer;
             FShortTicks   : boolean;
             FColorIndex1  : TColor;
             FColorIndex2  : TColor;
             FColorSclBG1  : TColor;            { color 1 of scale background }
             FColorSclBG2  : TColor;            { color 2 of scale background }
             FColorCover   : TColor;
             FColorScale   : TColor;
             FColBlackLine : TColor;               { colors to draw the frame }
             FColGrayLine  : TColor;                            { -"- }
             FColWhiteLine : TColor;                            { -"- }
             FColorScheme  : TColorScheme;           { color scheme of frames }
             FOnMMvInGauge : TMouseMoveInGaugeEvent;
             FScale        : TScale;
             FScaleFixed   : boolean;
             FGrafBmp      : TBitMap;
             procedure SetColorSclBg1 (Value: TColor);
             procedure SetColorSclBg2 (Value: TColor);
             procedure SetColorScheme (Value: TColorScheme);
             procedure SetColorIndex1 (Value: TColor);
             procedure SetColorIndex2 (Value: TColor);
             procedure SetColorCover (Value: TColor);
             procedure SetColorScale (Value: TColor);
             procedure SetOuterFrameStyle (value: TFrameStyle);
             procedure SetInnerFrameStyle (value: TFrameStyle);
             procedure SetCaptStyles (Value: TFontStyles);
             procedure SetCaption (Value: string);
             procedure SetCaptColor (Value: TColor);
             procedure SetCaptPosX (Value: integer);
             procedure SetCaptPosY (Value: integer);
             procedure SetCaptSize (Value: integer);
             procedure SetEnabled (value: boolean); override;
             procedure SetGaugeBG (value: TGaugeBackground);
             procedure SetGaugeIdxMode (value: TGaugeIndexMode);
             procedure SetGaugeValue (value: double);
             procedure SetGaugeZero (value: double);
             procedure SetGaugeMin (value: double);
             procedure SetGaugeMax (value: double);
             procedure SetGaugeOrientation (value: TGaugeOrientation);
             procedure SetLogarithmic (value: boolean);
             procedure SetShortTicks (value: boolean);
             procedure SetMinTicks (value: integer);
             procedure SetMarginBottom (value: integer);
             procedure SetMarginLeft (value: integer);
             procedure SetMarginRight (value: integer);
             procedure SetMarginTop (value: integer);
             procedure SetScaleFixed (value: boolean);
             procedure SetScaleDims;
             procedure WMMouseMoveInGauge (var Message: TWMMouse);
                           message WM_MOUSEMOVE;
           protected
             procedure AssignTo (Dest: TPersistent); override;
             procedure MouseMove (Shift: TShiftState; X,Y: integer); override;
             procedure Paint; override;
             procedure MouseMoveInGauge (InGauge: boolean; Shift: TShiftState;
                                         RMousePos: double);
           public
             procedure   Assign(Source: TPersistent); override;
             function    ConvertPixelToScale (PixelCoord: integer): double;
             constructor Create(AOwner: TComponent); override;
             destructor  Destroy; override;
             procedure SetBounds (ALeft, ATop, AWidth, AHeight: Integer); override;
           published
             property Align;
             property Anchors;
             property Background: TGaugeBackground read FGaugeBG write SetGaugeBG;
             property Caption: string read FCaption write SetCaption;
             property CaptionColor: TColor read FCaptColor write SetCaptColor;
             property CaptionPosX: integer read FCaptPosX write SetCaptPosX;
             property CaptionPosY: integer read FCaptPosY write SetCaptPosY;
             property CaptionSize: integer read FCaptSize write SetCaptSize;
             property CaptionStyle: TFontStyles read FCaptStyle write SetCaptStyles;
             property ColorBg1: TColor read FColorSclBG1 write SetColorSclBg1;
             property ColorBg2: TColor read FColorSclBg2 write SetColorSclBg2;
             property ColorIndex1: TColor read FColorindex1 write SetColorIndex1;
             property ColorIndex2: TColor read FColorindex2 write SetColorIndex2;
             property ColorCover: TColor read FColorCover write SetColorCover;
             property ColorScale: TColor read FColorScale write SetColorScale;
             property ColorScheme: TColorScheme
                          read FColorScheme write SetColorScheme;
             property Enabled: boolean read FEnabled write SetEnabled;
             property FixedDial: boolean read FScaleFixed write SetScaleFixed;
             property Font;
             property FrameStyleOuter: TFrameStyle
                          read FOuterFrameSt write SetOuterFrameStyle;
             property FrameStyleInner: TFrameStyle
                          read FInnerFrameSt write SetInnerFrameStyle;
             property GaugeZero: double read FGaugeZero write SetGaugeZero;
             property IndexMode: TGaugeIndexMode
                          read FGaugeIdxMode write SetGaugeIdxMode;
             property Logarithmic: boolean read FLogarithmic write SetLogarithmic;
             property MarginLeft: integer read FCovMargLeft write SetMarginLeft;
             property MarginRight: integer read FCovMargRight write SetMarginRight;
             property MarginTop: integer read FCovMargTop write SetMarginTop;
             property MarginBottom: integer
                          read FCovMargBottom write SetMarginBottom;
             property Max: double read FGaugeMax write SetGaugeMax;
             property Min: double read FGaugeMin write SetGaugeMin;
             property MinTicks: integer read FMinTicks write SetMinTicks;
             property Orientation: TGaugeOrientation
                          read FGaugeOrient write SetGaugeOrientation;
             property ParentFont;
             property ParentShowHint;
             property PopupMenu;
             property ShortTicks: boolean read FShortTicks write SetShortTicks;
             property ShowHint;
{$IFDEF GE_LEV17}
             property StyleElements;
{$ENDIF}
             property Value: double read FGaugeValue write SetGaugeValue;
             property Visible;
             property OnClick;
             property OnDblClick;
             property OnMouseMove;
             property OnMouseDown;
             property OnMouseUp;
             property OnMouseMoveInGauge: TMouseMoveInGaugeEvent
                          read FOnMMvInGauge write FOnMMvInGauge;
             property OnMouseWheel;
             property OnMouseWheelUp;
             property OnMouseWheelDown;
             property OnKeyPress;
             property OnKeyDown;
             property OnKeyUp;
           end;


procedure Register;




Last Update: 2012-Oct-20