Abakus RAD Studio 10.3 Rio 工控图表控件

// CodeGear C++Builder // Copyright (c) 1995, 2017 by Embarcadero Technologies, Inc. // All rights reserved // (DO NOT EDIT: machine generated header) '_GClass.pas' rev: 33.00 (Windows) #ifndef _GclassHPP #define _GclassHPP #pragma delphiheader begin #pragma option push #pragma option -w- // All warnings off #pragma option -Vx // Zero-length empty class member #pragma pack(push,8) #include <System.hpp> #include <SysInit.hpp> #include <Winapi.Windows.hpp> #include <System.Classes.hpp> #include <Vcl.Graphics.hpp> #include <Vcl.Controls.hpp> #include <Vcl.ExtCtrls.hpp> #include <Vcl.Menus.hpp> #include <System.SysUtils.hpp> #include <Winapi.Messages.hpp> #include <System.IniFiles.hpp> #include <Vcl.Buttons.hpp> #include <_AbInfo.hpp> #include <_AbProc.hpp> #include <AbFlashT.hpp> #include <System.Types.hpp> #include <System.UITypes.hpp> //-- user supplied ----------------------------------------------------------- namespace _Gclass { //-- forward type declarations ----------------------------------------------- class DELPHICLASS TAbPersistent; class DELPHICLASS TAbOffset; class DELPHICLASS TAbBevelSettings; class DELPHICLASS TAbLineSettings; class DELPHICLASS TAbCustomScale; class DELPHICLASS TAbScale; class DELPHICLASS TAbFlexScale; class DELPHICLASS TAbText; class DELPHICLASS TAbValInd; class DELPHICLASS TIniSettings; class DELPHICLASS TAbGraphicControl; class DELPHICLASS TAbCustomControl; class DELPHICLASS TAbTimerSpeedBtn; class DELPHICLASS TAbSpinButton; class DELPHICLASS TArrowSettings; class DELPHICLASS TLED; class DELPHICLASS TAbBtnBevel; class DELPHICLASS TAbGradSettings; class DELPHICLASS TAbSBevel; class DELPHICLASS TBarSettings; class DELPHICLASS TSignalSettings; class DELPHICLASS TMinMax; class DELPHICLASS TChSettings; class DELPHICLASS TSectorSettings; class DELPHICLASS TAbAnalogGControl; class DELPHICLASS TAbAnalogCControl; class DELPHICLASS TAbBinGControl; class DELPHICLASS TScaleSettings; //-- type declarations ------------------------------------------------------- enum DECLSPEC_DENUM TAngleMode : unsigned char { amAuto, amManual }; typedef void __fastcall (__closure *TOverflowEvent)(System::TObject* Sender, int PPT); typedef void __fastcall (__closure *TLimitEvent)(System::TObject* Sender, bool Lower, bool Upper); typedef void __fastcall (__closure *TSectorChangeEvent)(System::TObject* Sender, bool Sector1, bool Sector2, bool Sector3, bool Enter); enum DECLSPEC_DENUM THintOption : unsigned char { hoAutoHint, hoValue, hoName1, hoName2, hoMin, hoMax, hoMinMaxDate, hoMinMaxTime }; typedef System::Set<THintOption, THintOption::hoAutoHint, THintOption::hoMinMaxTime> THintOptions; enum DECLSPEC_DENUM TEnabledKey : unsigned char { _VK_PRIOR, _VK_NEXT, _VK_END, _VK_HOME, _VK_LEFT, _VK_DOWN, _VK_UP, _VK_RIGHT }; typedef System::Set<TEnabledKey, TEnabledKey::_VK_PRIOR, TEnabledKey::_VK_RIGHT> TEnabledKeys; enum DECLSPEC_DENUM TBarStyle : unsigned char { bsBar, bsLED_Bar, bsPoint }; enum DECLSPEC_DENUM TBarDirection : unsigned char { bdHorizontal, bdVertical }; enum DECLSPEC_DENUM TBarOption : unsigned char { opValue, opUnit, opUseSectorCol, opBidir }; typedef System::Set<TBarOption, TBarOption::opValue, TBarOption::opBidir> TBarOptions; enum DECLSPEC_DENUM TPos : unsigned char { pLeft, pRight, pTop, pBottom }; enum DECLSPEC_DENUM TPosH : unsigned char { phLeft, phRight, phCenter }; enum DECLSPEC_DENUM TPosV : unsigned char { pvTop, pvBottom, pvCenter }; enum DECLSPEC_DENUM TBevelLine : unsigned char { blNone, blOuter, blInner, blBoth }; typedef void __fastcall (__closure *THandleIniEvent)(System::Inifiles::TIniFile* Ini, bool Read); using Vcl::Buttons::TNumGlyphs; enum DECLSPEC_DENUM TMode : unsigned char { mButton, mSwitch, mIndicator, mRadioButton }; class PASCALIMPLEMENTATION TAbPersistent : public System::Classes::TPersistent { typedef System::Classes::TPersistent inherited; private: System::Classes::TNotifyEvent FOnChange; public: virtual void __fastcall Change(); virtual void __fastcall ChangeObject(System::TObject* Sender); __published: __property System::Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange}; public: /* TPersistent.Destroy */ inline __fastcall virtual ~TAbPersistent() { } public: /* TObject.Create */ inline __fastcall TAbPersistent() : System::Classes::TPersistent() { } }; class PASCALIMPLEMENTATION TAbOffset : public TAbPersistent { typedef TAbPersistent inherited; private: int FTop; int FLeft; int FRight; int FBottom; protected: virtual void __fastcall AssignTo(System::Classes::TPersistent* Dest); __fastcall TAbOffset(); void __fastcall SetTop(int Value); void __fastcall SetLeft(int Value); void __fastcall SetRight(int Value); void __fastcall SetBottom(int Value); public: System::Types::TRect __fastcall SetOffset(const System::Types::TRect &r); void __fastcall Write(int oTop, int oLeft, int oRight, int oBottom); __published: __property int Top = {read=FTop, write=SetTop, default=0}; __property int Left = {read=FLeft, write=SetLeft, default=0}; __property int Right = {read=FRight, write=SetRight, default=0}; __property int Bottom = {read=FBottom, write=SetBottom, default=0}; public: /* TPersistent.Destroy */ inline __fastcall virtual ~TAbOffset() { } }; class PASCALIMPLEMENTATION TAbBevelSettings : public TAbPersistent { typedef TAbPersistent inherited; private: System::Uitypes::TColor FColorFrom; System::Uitypes::TColor FColorTo; int FWidth; void __fastcall SetColorFrom(System::Uitypes::TColor Value); void __fastcall SetColorTo(System::Uitypes::TColor Value); void __fastcall SetWidth(int Value); public: __fastcall TAbBevelSettings(); void __fastcall SwapColors(); __published: __property System::Uitypes::TColor ColorFrom = {read=FColorFrom, write=SetColorFrom, nodefault}; __property System::Uitypes::TColor ColorTo = {read=FColorTo, write=SetColorTo, nodefault}; __property int Width = {read=FWidth, write=SetWidth, nodefault}; public: /* TPersistent.Destroy */ inline __fastcall virtual ~TAbBevelSettings() { } }; class PASCALIMPLEMENTATION TAbLineSettings : public TAbPersistent { typedef TAbPersistent inherited; private: Vcl::Graphics::TPen* FPen; int FLength; int FOffset; bool FVisible; void __fastcall SetPen(Vcl::Graphics::TPen* Value); void __fastcall SetLength(int Value); void __fastcall SetOffset(int Value); void __fastcall SetVisible(bool Value); public: __fastcall TAbLineSettings(); __fastcall virtual ~TAbLineSettings(); __published: __property Vcl::Graphics::TPen* Pen = {read=FPen, write=SetPen}; __property int Length = {read=FLength, write=SetLength, nodefault}; __property int Offset = {read=FOffset, write=SetOffset, default=0}; __property bool Visible = {read=FVisible, write=SetVisible, default=1}; }; class PASCALIMPLEMENTATION TAbCustomScale : public TAbPersistent { typedef TAbPersistent inherited; private: Vcl::Graphics::TFont* FFont; System::UnicodeString FFormatStr; TAbLineSettings* FStepLines; TAbLineSettings* FSubStepLines; int FTextOffsetX; int FTextOffsetY; System::UnicodeString FText; _Abproc::toPos FTextAlignment; int FAngle; TAngleMode FAngleMode; void __fastcall SetFormatStr(System::UnicodeString Value); void __fastcall SetAngle(int Value); void __fastcall SetAngleMode(TAngleMode Value); void __fastcall SetFont(Vcl::Graphics::TFont* Value); void __fastcall SetTextAlignment(_Abproc::toPos Value); void __fastcall SetTextOffsetX(int Value); void __fastcall SetTextOffsetY(int Value); void __fastcall SetText(System::UnicodeString Value); protected: __property System::UnicodeString FormatStr = {read=FFormatStr, write=SetFormatStr}; __property int Angle = {read=FAngle, write=SetAngle, default=0}; __proper