home *** CD-ROM | disk | FTP | other *** search
/ Supercompiler 1997 / SUPERCOMPILER97.iso / Delphi 3.0 / DATA.Z / DELLIB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-30  |  252.7 KB  |  6,211 lines
  1. unit DelLib;
  2.  
  3. { DelCtrlsLib Library }
  4. { Version 1.0 }
  5.  
  6. interface
  7.  
  8. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  9.  
  10. const
  11.   LIBID_DelLib: TGUID = '{5A565950-7975-11D0-BE02-00A024D1875C}';
  12.  
  13. const
  14.  
  15. { TxDragMode }
  16.  
  17.   dmManual = 0;
  18.   dmAutomatic = 1;
  19.  
  20. { TxMouseButton }
  21.  
  22.   mbLeft = 0;
  23.   mbRight = 1;
  24.   mbMiddle = 2;
  25.  
  26. { TxBorderStyle }
  27.  
  28.   bsNone = 0;
  29.   bsSingle = 1;
  30.   bsSizeable = 2;
  31.   bsDialog = 3;
  32.   bsToolWindow = 4;
  33.   bsSizeToolWin = 5;
  34.  
  35. { TxLeftRight }
  36.  
  37.   taLeftJustify = 0;
  38.   taRightJustify = 1;
  39.   taCenter = 2;
  40.  
  41. { TxCheckBoxState }
  42.  
  43.   cbUnchecked = 0;
  44.   cbChecked = 1;
  45.   cbGrayed = 2;
  46.  
  47. { TxImeMode }
  48.  
  49.   imDisable = 0;
  50.   imClose = 1;
  51.   imOpen = 2;
  52.   imDontCare = 3;
  53.   imSAlpha = 4;
  54.   imAlpha = 5;
  55.   imHira = 6;
  56.   imSKata = 7;
  57.   imKata = 8;
  58.   imChinese = 9;
  59.   imSHanguel = 10;
  60.   imHanguel = 11;
  61.  
  62. { TxListBoxStyle }
  63.  
  64.   lbStandard = 0;
  65.   lbOwnerDrawFixed = 1;
  66.   lbOwnerDrawVariable = 2;
  67.  
  68. { TxGridOrdering }
  69.  
  70.   go16x1 = 0;
  71.   go8x2 = 1;
  72.   go4x4 = 2;
  73.   go2x8 = 3;
  74.   go1x16 = 4;
  75.  
  76. { TxDTCalAlignment }
  77.  
  78.   dtaLeft = 0;
  79.   dtaRight = 1;
  80.  
  81. { TxDTDateFormat }
  82.  
  83.   dfShort = 0;
  84.   dfLong = 1;
  85.  
  86. { TxDTDateMode }
  87.  
  88.   dmComboBox = 0;
  89.   dmUpDown = 1;
  90.  
  91. { TxDateTimeKind }
  92.  
  93.   dtkDate = 0;
  94.   dtkTime = 1;
  95.  
  96. { TxScrollStyle }
  97.  
  98.   ssNone = 0;
  99.   ssHorizontal = 1;
  100.   ssVertical = 2;
  101.   ssBoth = 3;
  102.  
  103. { TxEditCharCase }
  104.  
  105.   ecNormal = 0;
  106.   ecUpperCase = 1;
  107.   ecLowerCase = 2;
  108.  
  109. { TxMPModes }
  110.  
  111.   mpNotReady = 0;
  112.   mpStopped = 1;
  113.   mpPlaying = 2;
  114.   mpRecording = 3;
  115.   mpSeeking = 4;
  116.   mpPaused = 5;
  117.   mpOpen = 6;
  118.  
  119. { TxMPNotifyValues }
  120.  
  121.   nvSuccessful = 0;
  122.   nvSuperseded = 1;
  123.   nvAborted = 2;
  124.   nvFailure = 3;
  125.  
  126. { TxMPTimeFormats }
  127.  
  128.   tfMilliseconds = 0;
  129.   tfHMS = 1;
  130.   tfMSF = 2;
  131.   tfFrames = 3;
  132.   tfSMPTE24 = 4;
  133.   tfSMPTE25 = 5;
  134.   tfSMPTE30 = 6;
  135.   tfSMPTE30Drop = 7;
  136.   tfBytes = 8;
  137.   tfSamples = 9;
  138.   tfTMSF = 10;
  139.  
  140. { TxMPDeviceTypes }
  141.  
  142.   dtAutoSelect = 0;
  143.   dtAVIVideo = 1;
  144.   dtCDAudio = 2;
  145.   dtDAT = 3;
  146.   dtDigitalVideo = 4;
  147.   dtMMMovie = 5;
  148.   dtOther = 6;
  149.   dtOverlay = 7;
  150.   dtScanner = 8;
  151.   dtSequencer = 9;
  152.   dtVCR = 10;
  153.   dtVideodisc = 11;
  154.   dtWaveAudio = 12;
  155.  
  156. { TxMPBtnType }
  157.  
  158.   btPlay = 0;
  159.   btPause = 1;
  160.   btStop = 2;
  161.   btNext = 3;
  162.   btPrev = 4;
  163.   btStep = 5;
  164.   btBack = 6;
  165.   btRecord = 7;
  166.   btEject = 8;
  167.  
  168. { TxAlignment }
  169.  
  170. //taLeftJustify = 0;
  171. //taRightJustify = 1;
  172. //taCenter = 2;
  173.  
  174. { TxOutlineStyle }
  175.  
  176.   osText = 0;
  177.   osPlusMinusText = 1;
  178.   osPictureText = 2;
  179.   osPlusMinusPictureText = 3;
  180.   osTreeText = 4;
  181.   osTreePictureText = 5;
  182.  
  183. { TxOutlineType }
  184.  
  185.   otStandard = 0;
  186.   otOwnerDraw = 1;
  187.  
  188. { TxPanelBevel }
  189.  
  190.   bvNone = 0;
  191.   bvLowered = 1;
  192.   bvRaised = 2;
  193.  
  194. { TxScrollBarKind }
  195.  
  196.   sbHorizontal = 0;
  197.   sbVertical = 1;
  198.  
  199. { TxScrollCode }
  200.  
  201.   scLineUp = 0;
  202.   scLineDown = 1;
  203.   scPageUp = 2;
  204.   scPageDown = 3;
  205.   scPosition = 4;
  206.   scTrack = 5;
  207.   scTop = 6;
  208.   scBottom = 7;
  209.   scEndScroll = 8;
  210.  
  211. { TxStaticBorderStyle }
  212.  
  213.   sbsNone = 0;
  214.   sbsSingle = 1;
  215.   sbsSunken = 2;
  216.  
  217. { TxTabPosition }
  218.  
  219.   tpTop = 0;
  220.   tpBottom = 1;
  221.  
  222. { TxTabStyle }
  223.  
  224.   tsStandard = 0;
  225.   tsOwnerDraw = 1;
  226.  
  227. { TxTrackBarOrientation }
  228.  
  229.   trHorizontal = 0;
  230.   trVertical = 1;
  231.  
  232. { TxTickMark }
  233.  
  234.   tmBottomRight = 0;
  235.   tmTopLeft = 1;
  236.   tmBoth = 2;
  237.  
  238. { TxTickStyle }
  239.  
  240.   tsNone = 0;
  241.   tsAuto = 1;
  242.   tsManual = 2;
  243.  
  244. { TxUDAlignButton }
  245.  
  246.   udLeft = 0;
  247.   udRight = 1;
  248.  
  249. { TxUDOrientation }
  250.  
  251.   udHorizontal = 0;
  252.   udVertical = 1;
  253.  
  254. { TxUDBtnType }
  255.  
  256. //btNext = 0;
  257. //btPrev = 1;
  258.  
  259. const
  260.  
  261. { Component class GUIDs }
  262.   Class_ButtonX: TGUID = '{5A565953-7975-11D0-BE02-00A024D1875C}';
  263.   Class_CalendarX: TGUID = '{5A56595C-7975-11D0-BE02-00A024D1875C}';
  264.   Class_CheckBoxX: TGUID = '{5A565961-7975-11D0-BE02-00A024D1875C}';
  265.   Class_CheckListBoxX: TGUID = '{5A565967-7975-11D0-BE02-00A024D1875C}';
  266.   Class_ColorGridX: TGUID = '{5A56596D-7975-11D0-BE02-00A024D1875C}';
  267.   Class_DateTimePickerX: TGUID = '{5A565972-7975-11D0-BE02-00A024D1875C}';
  268.   Class_DrawGridX: TGUID = '{5A56597A-7975-11D0-BE02-00A024D1875C}';
  269.   Class_EditX: TGUID = '{5A56597F-7975-11D0-BE02-00A024D1875C}';
  270.   Class_HotKeyX: TGUID = '{5A565984-7975-11D0-BE02-00A024D1875C}';
  271.   Class_ListBoxX: TGUID = '{5A565988-7975-11D0-BE02-00A024D1875C}';
  272.   Class_MaskEditX: TGUID = '{5A56598C-7975-11D0-BE02-00A024D1875C}';
  273.   Class_MediaPlayerX: TGUID = '{5A565990-7975-11D0-BE02-00A024D1875C}';
  274.   Class_MemoX: TGUID = '{5A565999-7975-11D0-BE02-00A024D1875C}';
  275.   Class_NotebookX: TGUID = '{5A56599E-7975-11D0-BE02-00A024D1875C}';
  276.   Class_OutlineX: TGUID = '{5A5659A2-7975-11D0-BE02-00A024D1875C}';
  277.   Class_PanelX: TGUID = '{5A5659A8-7975-11D0-BE02-00A024D1875C}';
  278.   Class_ProgressBarX: TGUID = '{5A5659AD-7975-11D0-BE02-00A024D1875C}';
  279.   Class_RadioButtonX: TGUID = '{5A5659B1-7975-11D0-BE02-00A024D1875C}';
  280.   Class_RichEditX: TGUID = '{5A5659B5-7975-11D0-BE02-00A024D1875C}';
  281.   Class_ScrollBarX: TGUID = '{5A5659B9-7975-11D0-BE02-00A024D1875C}';
  282.   Class_ScrollBoxX: TGUID = '{5A5659BF-7975-11D0-BE02-00A024D1875C}';
  283.   Class_SpinEditX: TGUID = '{5A5659C3-7975-11D0-BE02-00A024D1875C}';
  284.   Class_StaticTextX: TGUID = '{5A5659C7-7975-11D0-BE02-00A024D1875C}';
  285.   Class_StringGridX: TGUID = '{5A5659CC-7975-11D0-BE02-00A024D1875C}';
  286.   Class_TabbedNotebookX: TGUID = '{5A5659D0-7975-11D0-BE02-00A024D1875C}';
  287.   Class_TabControlX: TGUID = '{5A5659D4-7975-11D0-BE02-00A024D1875C}';
  288.   Class_TabSetX: TGUID = '{5A5659D9-7975-11D0-BE02-00A024D1875C}';
  289.   Class_TrackBarX: TGUID = '{5A5659DE-7975-11D0-BE02-00A024D1875C}';
  290.   Class_UpDownX: TGUID = '{5A5659E5-7975-11D0-BE02-00A024D1875C}';
  291.  
  292. type
  293.  
  294. { Forward declarations }
  295.   IButtonX = interface;
  296.   DButtonX = dispinterface;
  297.   IButtonXEvents = dispinterface;
  298.   ICalendarX = interface;
  299.   DCalendarX = dispinterface;
  300.   ICalendarXEvents = dispinterface;
  301.   ICheckBoxX = interface;
  302.   DCheckBoxX = dispinterface;
  303.   ICheckBoxXEvents = dispinterface;
  304.   ICheckListBoxX = interface;
  305.   DCheckListBoxX = dispinterface;
  306.   ICheckListBoxXEvents = dispinterface;
  307.   IColorGridX = interface;
  308.   DColorGridX = dispinterface;
  309.   IColorGridXEvents = dispinterface;
  310.   IDateTimePickerX = interface;
  311.   DDateTimePickerX = dispinterface;
  312.   IDateTimePickerXEvents = dispinterface;
  313.   IDrawGridX = interface;
  314.   DDrawGridX = dispinterface;
  315.   IDrawGridXEvents = dispinterface;
  316.   IEditX = interface;
  317.   DEditX = dispinterface;
  318.   IEditXEvents = dispinterface;
  319.   IHotKeyX = interface;
  320.   DHotKeyX = dispinterface;
  321.   IHotKeyXEvents = dispinterface;
  322.   IListBoxX = interface;
  323.   DListBoxX = dispinterface;
  324.   IListBoxXEvents = dispinterface;
  325.   IMaskEditX = interface;
  326.   DMaskEditX = dispinterface;
  327.   IMaskEditXEvents = dispinterface;
  328.   IMediaPlayerX = interface;
  329.   DMediaPlayerX = dispinterface;
  330.   IMediaPlayerXEvents = dispinterface;
  331.   IMemoX = interface;
  332.   DMemoX = dispinterface;
  333.   IMemoXEvents = dispinterface;
  334.   INotebookX = interface;
  335.   DNotebookX = dispinterface;
  336.   INotebookXEvents = dispinterface;
  337.   IOutlineX = interface;
  338.   DOutlineX = dispinterface;
  339.   IOutlineXEvents = dispinterface;
  340.   IPanelX = interface;
  341.   DPanelX = dispinterface;
  342.   IPanelXEvents = dispinterface;
  343.   IProgressBarX = interface;
  344.   DProgressBarX = dispinterface;
  345.   IProgressBarXEvents = dispinterface;
  346.   IRadioButtonX = interface;
  347.   DRadioButtonX = dispinterface;
  348.   IRadioButtonXEvents = dispinterface;
  349.   IRichEditX = interface;
  350.   DRichEditX = dispinterface;
  351.   IRichEditXEvents = dispinterface;
  352.   IScrollBarX = interface;
  353.   DScrollBarX = dispinterface;
  354.   IScrollBarXEvents = dispinterface;
  355.   IScrollBoxX = interface;
  356.   DScrollBoxX = dispinterface;
  357.   IScrollBoxXEvents = dispinterface;
  358.   ISpinEditX = interface;
  359.   DSpinEditX = dispinterface;
  360.   ISpinEditXEvents = dispinterface;
  361.   IStaticTextX = interface;
  362.   DStaticTextX = dispinterface;
  363.   IStaticTextXEvents = dispinterface;
  364.   IStringGridX = interface;
  365.   DStringGridX = dispinterface;
  366.   IStringGridXEvents = dispinterface;
  367.   ITabbedNotebookX = interface;
  368.   DTabbedNotebookX = dispinterface;
  369.   ITabbedNotebookXEvents = dispinterface;
  370.   ITabControlX = interface;
  371.   DTabControlX = dispinterface;
  372.   ITabControlXEvents = dispinterface;
  373.   ITabSetX = interface;
  374.   DTabSetX = dispinterface;
  375.   ITabSetXEvents = dispinterface;
  376.   ITrackBarX = interface;
  377.   DTrackBarX = dispinterface;
  378.   ITrackBarXEvents = dispinterface;
  379.   IUpDownX = interface;
  380.   DUpDownX = dispinterface;
  381.   IUpDownXEvents = dispinterface;
  382.  
  383.   TxDragMode = TOleEnum;
  384.   TxMouseButton = TOleEnum;
  385.   TxBorderStyle = TOleEnum;
  386.   TxLeftRight = TOleEnum;
  387.   TxCheckBoxState = TOleEnum;
  388.   TxImeMode = TOleEnum;
  389.   TxListBoxStyle = TOleEnum;
  390.   TxGridOrdering = TOleEnum;
  391.   TxDTCalAlignment = TOleEnum;
  392.   TxDTDateFormat = TOleEnum;
  393.   TxDTDateMode = TOleEnum;
  394.   TxDateTimeKind = TOleEnum;
  395.   TxScrollStyle = TOleEnum;
  396.   TxEditCharCase = TOleEnum;
  397.   TxMPModes = TOleEnum;
  398.   TxMPNotifyValues = TOleEnum;
  399.   TxMPTimeFormats = TOleEnum;
  400.   TxMPDeviceTypes = TOleEnum;
  401.   TxMPBtnType = TOleEnum;
  402.   TxAlignment = TOleEnum;
  403.   TxOutlineStyle = TOleEnum;
  404.   TxOutlineType = TOleEnum;
  405.   TxPanelBevel = TOleEnum;
  406.   TxScrollBarKind = TOleEnum;
  407.   TxScrollCode = TOleEnum;
  408.   TxStaticBorderStyle = TOleEnum;
  409.   TxTabPosition = TOleEnum;
  410.   TxTabStyle = TOleEnum;
  411.   TxTrackBarOrientation = TOleEnum;
  412.   TxTickMark = TOleEnum;
  413.   TxTickStyle = TOleEnum;
  414.   TxUDAlignButton = TOleEnum;
  415.   TxUDOrientation = TOleEnum;
  416.   TxUDBtnType = TOleEnum;
  417.  
  418. { Dispatch interface for ButtonX Control }
  419.  
  420.   IButtonX = interface(IDispatch)
  421.     ['{5A565951-7975-11D0-BE02-00A024D1875C}']
  422.     procedure Click; safecall;
  423.     function Get_Cancel: WordBool; safecall;
  424.     procedure Set_Cancel(Value: WordBool); safecall;
  425.     function Get_Caption: WideString; safecall;
  426.     procedure Set_Caption(const Value: WideString); safecall;
  427.     function Get_Default: WordBool; safecall;
  428.     procedure Set_Default(Value: WordBool); safecall;
  429.     function Get_DragCursor: Smallint; safecall;
  430.     procedure Set_DragCursor(Value: Smallint); safecall;
  431.     function Get_DragMode: TxDragMode; safecall;
  432.     procedure Set_DragMode(Value: TxDragMode); safecall;
  433.     function Get_Enabled: WordBool; safecall;
  434.     procedure Set_Enabled(Value: WordBool); safecall;
  435.     function Get_Font: Font; safecall;
  436.     procedure Set_Font(const Value: Font); safecall;
  437.     function Get_ModalResult: Integer; safecall;
  438.     procedure Set_ModalResult(Value: Integer); safecall;
  439.     function Get_Visible: WordBool; safecall;
  440.     procedure Set_Visible(Value: WordBool); safecall;
  441.     function Get_Cursor: Smallint; safecall;
  442.     procedure Set_Cursor(Value: Smallint); safecall;
  443.     procedure AboutBox; safecall;
  444.     property Cancel: WordBool read Get_Cancel write Set_Cancel;
  445.     property Caption: WideString read Get_Caption write Set_Caption;
  446.     property Default: WordBool read Get_Default write Set_Default;
  447.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  448.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  449.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  450.     property Font: Font read Get_Font write Set_Font;
  451.     property ModalResult: Integer read Get_ModalResult write Set_ModalResult;
  452.     property Visible: WordBool read Get_Visible write Set_Visible;
  453.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  454.   end;
  455.  
  456. { DispInterface declaration for Dual Interface IButtonX }
  457.  
  458.   DButtonX = dispinterface
  459.     ['{5A565951-7975-11D0-BE02-00A024D1875C}']
  460.     procedure Click; dispid 1;
  461.     property Cancel: WordBool dispid 2;
  462.     property Caption: WideString dispid 3;
  463.     property Default: WordBool dispid 4;
  464.     property DragCursor: Smallint dispid 5;
  465.     property DragMode: TxDragMode dispid 6;
  466.     property Enabled: WordBool dispid 7;
  467.     property Font: Font dispid 8;
  468.     property ModalResult: Integer dispid 9;
  469.     property Visible: WordBool dispid 10;
  470.     property Cursor: Smallint dispid 11;
  471.     procedure AboutBox; dispid -552;
  472.   end;
  473.  
  474. { Events interface for ButtonX Control }
  475.  
  476.   IButtonXEvents = dispinterface
  477.     ['{5A565952-7975-11D0-BE02-00A024D1875C}']
  478.     procedure OnClick; dispid 1;
  479.     procedure OnKeyPress(var Key: Smallint); dispid 2;
  480.   end;
  481.  
  482. { Dispatch interface for CalendarX Control }
  483.  
  484.   ICalendarX = interface(IDispatch)
  485.     ['{5A56595A-7975-11D0-BE02-00A024D1875C}']
  486.     function Get_CalendarDate: TDateTime; safecall;
  487.     procedure Set_CalendarDate(Value: TDateTime); safecall;
  488.     procedure NextMonth; safecall;
  489.     procedure NextYear; safecall;
  490.     procedure PrevMonth; safecall;
  491.     procedure PrevYear; safecall;
  492.     procedure UpdateCalendar; safecall;
  493.     function Get_BorderStyle: TxBorderStyle; safecall;
  494.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  495.     function Get_Color: TColor; safecall;
  496.     procedure Set_Color(Value: TColor); safecall;
  497.     function Get_Ctl3D: WordBool; safecall;
  498.     procedure Set_Ctl3D(Value: WordBool); safecall;
  499.     function Get_Day: Integer; safecall;
  500.     procedure Set_Day(Value: Integer); safecall;
  501.     function Get_Enabled: WordBool; safecall;
  502.     procedure Set_Enabled(Value: WordBool); safecall;
  503.     function Get_Font: Font; safecall;
  504.     procedure Set_Font(const Value: Font); safecall;
  505.     function Get_GridLineWidth: Integer; safecall;
  506.     procedure Set_GridLineWidth(Value: Integer); safecall;
  507.     function Get_Month: Integer; safecall;
  508.     procedure Set_Month(Value: Integer); safecall;
  509.     function Get_ParentColor: WordBool; safecall;
  510.     procedure Set_ParentColor(Value: WordBool); safecall;
  511.     function Get_ReadOnly: WordBool; safecall;
  512.     procedure Set_ReadOnly(Value: WordBool); safecall;
  513.     function Get_StartOfWeek: Smallint; safecall;
  514.     procedure Set_StartOfWeek(Value: Smallint); safecall;
  515.     function Get_UseCurrentDate: WordBool; safecall;
  516.     procedure Set_UseCurrentDate(Value: WordBool); safecall;
  517.     function Get_Visible: WordBool; safecall;
  518.     procedure Set_Visible(Value: WordBool); safecall;
  519.     function Get_Year: Integer; safecall;
  520.     procedure Set_Year(Value: Integer); safecall;
  521.     function Get_Cursor: Smallint; safecall;
  522.     procedure Set_Cursor(Value: Smallint); safecall;
  523.     procedure AboutBox; safecall;
  524.     property CalendarDate: TDateTime read Get_CalendarDate write Set_CalendarDate;
  525.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  526.     property Color: TColor read Get_Color write Set_Color;
  527.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  528.     property Day: Integer read Get_Day write Set_Day;
  529.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  530.     property Font: Font read Get_Font write Set_Font;
  531.     property GridLineWidth: Integer read Get_GridLineWidth write Set_GridLineWidth;
  532.     property Month: Integer read Get_Month write Set_Month;
  533.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  534.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  535.     property StartOfWeek: Smallint read Get_StartOfWeek write Set_StartOfWeek;
  536.     property UseCurrentDate: WordBool read Get_UseCurrentDate write Set_UseCurrentDate;
  537.     property Visible: WordBool read Get_Visible write Set_Visible;
  538.     property Year: Integer read Get_Year write Set_Year;
  539.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  540.   end;
  541.  
  542. { DispInterface declaration for Dual Interface ICalendarX }
  543.  
  544.   DCalendarX = dispinterface
  545.     ['{5A56595A-7975-11D0-BE02-00A024D1875C}']
  546.     property CalendarDate: TDateTime dispid 1;
  547.     procedure NextMonth; dispid 2;
  548.     procedure NextYear; dispid 3;
  549.     procedure PrevMonth; dispid 4;
  550.     procedure PrevYear; dispid 5;
  551.     procedure UpdateCalendar; dispid 6;
  552.     property BorderStyle: TxBorderStyle dispid 7;
  553.     property Color: TColor dispid 8;
  554.     property Ctl3D: WordBool dispid 9;
  555.     property Day: Integer dispid 10;
  556.     property Enabled: WordBool dispid 11;
  557.     property Font: Font dispid 12;
  558.     property GridLineWidth: Integer dispid 13;
  559.     property Month: Integer dispid 14;
  560.     property ParentColor: WordBool dispid 15;
  561.     property ReadOnly: WordBool dispid 16;
  562.     property StartOfWeek: Smallint dispid 17;
  563.     property UseCurrentDate: WordBool dispid 18;
  564.     property Visible: WordBool dispid 19;
  565.     property Year: Integer dispid 20;
  566.     property Cursor: Smallint dispid 21;
  567.     procedure AboutBox; dispid -552;
  568.   end;
  569.  
  570. { Events interface for CalendarX Control }
  571.  
  572.   ICalendarXEvents = dispinterface
  573.     ['{5A56595B-7975-11D0-BE02-00A024D1875C}']
  574.     procedure OnClick; dispid 1;
  575.     procedure OnChange; dispid 2;
  576.     procedure OnDblClick; dispid 3;
  577.     procedure OnKeyPress(var Key: Smallint); dispid 4;
  578.   end;
  579.  
  580. { Dispatch interface for CheckBoxX Control }
  581.  
  582.   ICheckBoxX = interface(IDispatch)
  583.     ['{5A56595F-7975-11D0-BE02-00A024D1875C}']
  584.     function Get_Alignment: TxLeftRight; safecall;
  585.     procedure Set_Alignment(Value: TxLeftRight); safecall;
  586.     function Get_AllowGrayed: WordBool; safecall;
  587.     procedure Set_AllowGrayed(Value: WordBool); safecall;
  588.     function Get_Caption: WideString; safecall;
  589.     procedure Set_Caption(const Value: WideString); safecall;
  590.     function Get_Checked: WordBool; safecall;
  591.     procedure Set_Checked(Value: WordBool); safecall;
  592.     function Get_Color: TColor; safecall;
  593.     procedure Set_Color(Value: TColor); safecall;
  594.     function Get_Ctl3D: WordBool; safecall;
  595.     procedure Set_Ctl3D(Value: WordBool); safecall;
  596.     function Get_DragCursor: Smallint; safecall;
  597.     procedure Set_DragCursor(Value: Smallint); safecall;
  598.     function Get_Enabled: WordBool; safecall;
  599.     procedure Set_Enabled(Value: WordBool); safecall;
  600.     function Get_Font: Font; safecall;
  601.     procedure Set_Font(const Value: Font); safecall;
  602.     function Get_ParentColor: WordBool; safecall;
  603.     procedure Set_ParentColor(Value: WordBool); safecall;
  604.     function Get_State: TxCheckBoxState; safecall;
  605.     procedure Set_State(Value: TxCheckBoxState); safecall;
  606.     function Get_Visible: WordBool; safecall;
  607.     procedure Set_Visible(Value: WordBool); safecall;
  608.     function Get_Cursor: Smallint; safecall;
  609.     procedure Set_Cursor(Value: Smallint); safecall;
  610.     procedure AboutBox; safecall;
  611.     property Alignment: TxLeftRight read Get_Alignment write Set_Alignment;
  612.     property AllowGrayed: WordBool read Get_AllowGrayed write Set_AllowGrayed;
  613.     property Caption: WideString read Get_Caption write Set_Caption;
  614.     property Checked: WordBool read Get_Checked write Set_Checked;
  615.     property Color: TColor read Get_Color write Set_Color;
  616.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  617.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  618.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  619.     property Font: Font read Get_Font write Set_Font;
  620.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  621.     property State: TxCheckBoxState read Get_State write Set_State;
  622.     property Visible: WordBool read Get_Visible write Set_Visible;
  623.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  624.   end;
  625.  
  626. { DispInterface declaration for Dual Interface ICheckBoxX }
  627.  
  628.   DCheckBoxX = dispinterface
  629.     ['{5A56595F-7975-11D0-BE02-00A024D1875C}']
  630.     property Alignment: TxLeftRight dispid 1;
  631.     property AllowGrayed: WordBool dispid 2;
  632.     property Caption: WideString dispid 3;
  633.     property Checked: WordBool dispid 4;
  634.     property Color: TColor dispid 5;
  635.     property Ctl3D: WordBool dispid 6;
  636.     property DragCursor: Smallint dispid 7;
  637.     property Enabled: WordBool dispid 8;
  638.     property Font: Font dispid 9;
  639.     property ParentColor: WordBool dispid 10;
  640.     property State: TxCheckBoxState dispid 11;
  641.     property Visible: WordBool dispid 12;
  642.     property Cursor: Smallint dispid 13;
  643.     procedure AboutBox; dispid -552;
  644.   end;
  645.  
  646. { Events interface for CheckBoxX Control }
  647.  
  648.   ICheckBoxXEvents = dispinterface
  649.     ['{5A565960-7975-11D0-BE02-00A024D1875C}']
  650.     procedure OnClick; dispid 1;
  651.     procedure OnKeyPress(var Key: Smallint); dispid 2;
  652.   end;
  653.  
  654. { Dispatch interface for CheckListBoxX Control }
  655.  
  656.   ICheckListBoxX = interface(IDispatch)
  657.     ['{5A565965-7975-11D0-BE02-00A024D1875C}']
  658.     function Get_AllowGrayed: WordBool; safecall;
  659.     procedure Set_AllowGrayed(Value: WordBool); safecall;
  660.     function Get_Color: TColor; safecall;
  661.     procedure Set_Color(Value: TColor); safecall;
  662.     function Get_Columns: Integer; safecall;
  663.     procedure Set_Columns(Value: Integer); safecall;
  664.     function Get_Ctl3D: WordBool; safecall;
  665.     procedure Set_Ctl3D(Value: WordBool); safecall;
  666.     function Get_DragCursor: Smallint; safecall;
  667.     procedure Set_DragCursor(Value: Smallint); safecall;
  668.     function Get_Enabled: WordBool; safecall;
  669.     procedure Set_Enabled(Value: WordBool); safecall;
  670.     function Get_Font: Font; safecall;
  671.     procedure Set_Font(const Value: Font); safecall;
  672.     function Get_ImeMode: TxImeMode; safecall;
  673.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  674.     function Get_ImeName: WideString; safecall;
  675.     procedure Set_ImeName(const Value: WideString); safecall;
  676.     function Get_IntegralHeight: WordBool; safecall;
  677.     procedure Set_IntegralHeight(Value: WordBool); safecall;
  678.     function Get_ItemHeight: Integer; safecall;
  679.     procedure Set_ItemHeight(Value: Integer); safecall;
  680.     function Get_Items: IStrings; safecall;
  681.     procedure Set_Items(const Value: IStrings); safecall;
  682.     function Get_ParentColor: WordBool; safecall;
  683.     procedure Set_ParentColor(Value: WordBool); safecall;
  684.     function Get_Sorted: WordBool; safecall;
  685.     procedure Set_Sorted(Value: WordBool); safecall;
  686.     function Get_Style: TxListBoxStyle; safecall;
  687.     procedure Set_Style(Value: TxListBoxStyle); safecall;
  688.     function Get_TabWidth: Integer; safecall;
  689.     procedure Set_TabWidth(Value: Integer); safecall;
  690.     function Get_Visible: WordBool; safecall;
  691.     procedure Set_Visible(Value: WordBool); safecall;
  692.     procedure Clear; safecall;
  693.     function Get_ItemIndex: Integer; safecall;
  694.     procedure Set_ItemIndex(Value: Integer); safecall;
  695.     function Get_SelCount: Integer; safecall;
  696.     function Get_TopIndex: Integer; safecall;
  697.     procedure Set_TopIndex(Value: Integer); safecall;
  698.     function Get_Cursor: Smallint; safecall;
  699.     procedure Set_Cursor(Value: Smallint); safecall;
  700.     procedure AboutBox; safecall;
  701.     property AllowGrayed: WordBool read Get_AllowGrayed write Set_AllowGrayed;
  702.     property Color: TColor read Get_Color write Set_Color;
  703.     property Columns: Integer read Get_Columns write Set_Columns;
  704.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  705.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  706.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  707.     property Font: Font read Get_Font write Set_Font;
  708.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  709.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  710.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  711.     property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
  712.     property Items: IStrings read Get_Items write Set_Items;
  713.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  714.     property Sorted: WordBool read Get_Sorted write Set_Sorted;
  715.     property Style: TxListBoxStyle read Get_Style write Set_Style;
  716.     property TabWidth: Integer read Get_TabWidth write Set_TabWidth;
  717.     property Visible: WordBool read Get_Visible write Set_Visible;
  718.     property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
  719.     property SelCount: Integer read Get_SelCount;
  720.     property TopIndex: Integer read Get_TopIndex write Set_TopIndex;
  721.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  722.   end;
  723.  
  724. { DispInterface declaration for Dual Interface ICheckListBoxX }
  725.  
  726.   DCheckListBoxX = dispinterface
  727.     ['{5A565965-7975-11D0-BE02-00A024D1875C}']
  728.     property AllowGrayed: WordBool dispid 1;
  729.     property Color: TColor dispid 2;
  730.     property Columns: Integer dispid 3;
  731.     property Ctl3D: WordBool dispid 4;
  732.     property DragCursor: Smallint dispid 5;
  733.     property Enabled: WordBool dispid 6;
  734.     property Font: Font dispid 7;
  735.     property ImeMode: TxImeMode dispid 8;
  736.     property ImeName: WideString dispid 9;
  737.     property IntegralHeight: WordBool dispid 10;
  738.     property ItemHeight: Integer dispid 11;
  739.     property Items: IStrings dispid 12;
  740.     property ParentColor: WordBool dispid 13;
  741.     property Sorted: WordBool dispid 14;
  742.     property Style: TxListBoxStyle dispid 15;
  743.     property TabWidth: Integer dispid 16;
  744.     property Visible: WordBool dispid 17;
  745.     procedure Clear; dispid 18;
  746.     property ItemIndex: Integer dispid 19;
  747.     property SelCount: Integer readonly dispid 20;
  748.     property TopIndex: Integer dispid 21;
  749.     property Cursor: Smallint dispid 22;
  750.     procedure AboutBox; dispid -552;
  751.   end;
  752.  
  753. { Events interface for CheckListBoxX Control }
  754.  
  755.   ICheckListBoxXEvents = dispinterface
  756.     ['{5A565966-7975-11D0-BE02-00A024D1875C}']
  757.     procedure OnClickCheck; dispid 1;
  758.     procedure OnClick; dispid 2;
  759.     procedure OnDblClick; dispid 3;
  760.     procedure OnKeyPress(var Key: Smallint); dispid 4;
  761.   end;
  762.  
  763. { Dispatch interface for ColorGridX Control }
  764.  
  765.   IColorGridX = interface(IDispatch)
  766.     ['{5A56596B-7975-11D0-BE02-00A024D1875C}']
  767.     function Get_ForegroundColor: TColor; safecall;
  768.     function Get_BackgroundColor: TColor; safecall;
  769.     function Get_ClickEnablesColor: WordBool; safecall;
  770.     procedure Set_ClickEnablesColor(Value: WordBool); safecall;
  771.     function Get_Ctl3D: WordBool; safecall;
  772.     procedure Set_Ctl3D(Value: WordBool); safecall;
  773.     function Get_DragCursor: Smallint; safecall;
  774.     procedure Set_DragCursor(Value: Smallint); safecall;
  775.     function Get_Enabled: WordBool; safecall;
  776.     procedure Set_Enabled(Value: WordBool); safecall;
  777.     function Get_GridOrdering: TxGridOrdering; safecall;
  778.     procedure Set_GridOrdering(Value: TxGridOrdering); safecall;
  779.     function Get_ForegroundIndex: Integer; safecall;
  780.     procedure Set_ForegroundIndex(Value: Integer); safecall;
  781.     function Get_BackgroundIndex: Integer; safecall;
  782.     procedure Set_BackgroundIndex(Value: Integer); safecall;
  783.     function Get_ForegroundEnabled: WordBool; safecall;
  784.     procedure Set_ForegroundEnabled(Value: WordBool); safecall;
  785.     function Get_BackgroundEnabled: WordBool; safecall;
  786.     procedure Set_BackgroundEnabled(Value: WordBool); safecall;
  787.     function Get_Font: Font; safecall;
  788.     procedure Set_Font(const Value: Font); safecall;
  789.     function Get_Selection: Integer; safecall;
  790.     procedure Set_Selection(Value: Integer); safecall;
  791.     function Get_Visible: WordBool; safecall;
  792.     procedure Set_Visible(Value: WordBool); safecall;
  793.     function Get_Cursor: Smallint; safecall;
  794.     procedure Set_Cursor(Value: Smallint); safecall;
  795.     procedure AboutBox; safecall;
  796.     property ForegroundColor: TColor read Get_ForegroundColor;
  797.     property BackgroundColor: TColor read Get_BackgroundColor;
  798.     property ClickEnablesColor: WordBool read Get_ClickEnablesColor write Set_ClickEnablesColor;
  799.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  800.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  801.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  802.     property GridOrdering: TxGridOrdering read Get_GridOrdering write Set_GridOrdering;
  803.     property ForegroundIndex: Integer read Get_ForegroundIndex write Set_ForegroundIndex;
  804.     property BackgroundIndex: Integer read Get_BackgroundIndex write Set_BackgroundIndex;
  805.     property ForegroundEnabled: WordBool read Get_ForegroundEnabled write Set_ForegroundEnabled;
  806.     property BackgroundEnabled: WordBool read Get_BackgroundEnabled write Set_BackgroundEnabled;
  807.     property Font: Font read Get_Font write Set_Font;
  808.     property Selection: Integer read Get_Selection write Set_Selection;
  809.     property Visible: WordBool read Get_Visible write Set_Visible;
  810.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  811.   end;
  812.  
  813. { DispInterface declaration for Dual Interface IColorGridX }
  814.  
  815.   DColorGridX = dispinterface
  816.     ['{5A56596B-7975-11D0-BE02-00A024D1875C}']
  817.     property ForegroundColor: TColor readonly dispid 1;
  818.     property BackgroundColor: TColor readonly dispid 2;
  819.     property ClickEnablesColor: WordBool dispid 3;
  820.     property Ctl3D: WordBool dispid 4;
  821.     property DragCursor: Smallint dispid 5;
  822.     property Enabled: WordBool dispid 6;
  823.     property GridOrdering: TxGridOrdering dispid 7;
  824.     property ForegroundIndex: Integer dispid 8;
  825.     property BackgroundIndex: Integer dispid 9;
  826.     property ForegroundEnabled: WordBool dispid 10;
  827.     property BackgroundEnabled: WordBool dispid 11;
  828.     property Font: Font dispid 12;
  829.     property Selection: Integer dispid 13;
  830.     property Visible: WordBool dispid 14;
  831.     property Cursor: Smallint dispid 15;
  832.     procedure AboutBox; dispid -552;
  833.   end;
  834.  
  835. { Events interface for ColorGridX Control }
  836.  
  837.   IColorGridXEvents = dispinterface
  838.     ['{5A56596C-7975-11D0-BE02-00A024D1875C}']
  839.     procedure OnChange; dispid 1;
  840.     procedure OnClick; dispid 2;
  841.     procedure OnKeyPress(var Key: Smallint); dispid 3;
  842.   end;
  843.  
  844. { Dispatch interface for DateTimePickerX Control }
  845.  
  846.   IDateTimePickerX = interface(IDispatch)
  847.     ['{5A565970-7975-11D0-BE02-00A024D1875C}']
  848.     function Get_CalAlignment: TxDTCalAlignment; safecall;
  849.     procedure Set_CalAlignment(Value: TxDTCalAlignment); safecall;
  850.     function Get_Checked: WordBool; safecall;
  851.     procedure Set_Checked(Value: WordBool); safecall;
  852.     function Get_Color: TColor; safecall;
  853.     procedure Set_Color(Value: TColor); safecall;
  854.     function Get_Date: Double; safecall;
  855.     procedure Set_Date(Value: Double); safecall;
  856.     function Get_DateFormat: TxDTDateFormat; safecall;
  857.     procedure Set_DateFormat(Value: TxDTDateFormat); safecall;
  858.     function Get_DateMode: TxDTDateMode; safecall;
  859.     procedure Set_DateMode(Value: TxDTDateMode); safecall;
  860.     function Get_DragCursor: Smallint; safecall;
  861.     procedure Set_DragCursor(Value: Smallint); safecall;
  862.     function Get_Enabled: WordBool; safecall;
  863.     procedure Set_Enabled(Value: WordBool); safecall;
  864.     function Get_Font: Font; safecall;
  865.     procedure Set_Font(const Value: Font); safecall;
  866.     function Get_ImeName: WideString; safecall;
  867.     procedure Set_ImeName(const Value: WideString); safecall;
  868.     function Get_Kind: TxDateTimeKind; safecall;
  869.     procedure Set_Kind(Value: TxDateTimeKind); safecall;
  870.     function Get_MaxDate: Double; safecall;
  871.     procedure Set_MaxDate(Value: Double); safecall;
  872.     function Get_MinDate: Double; safecall;
  873.     procedure Set_MinDate(Value: Double); safecall;
  874.     function Get_ParseInput: WordBool; safecall;
  875.     procedure Set_ParseInput(Value: WordBool); safecall;
  876.     function Get_ParentColor: WordBool; safecall;
  877.     procedure Set_ParentColor(Value: WordBool); safecall;
  878.     function Get_ShowCheckbox: WordBool; safecall;
  879.     procedure Set_ShowCheckbox(Value: WordBool); safecall;
  880.     function Get_Time: Double; safecall;
  881.     procedure Set_Time(Value: Double); safecall;
  882.     function Get_Visible: WordBool; safecall;
  883.     procedure Set_Visible(Value: WordBool); safecall;
  884.     function Get_Cursor: Smallint; safecall;
  885.     procedure Set_Cursor(Value: Smallint); safecall;
  886.     procedure AboutBox; safecall;
  887.     property CalAlignment: TxDTCalAlignment read Get_CalAlignment write Set_CalAlignment;
  888.     property Checked: WordBool read Get_Checked write Set_Checked;
  889.     property Color: TColor read Get_Color write Set_Color;
  890.     property Date: Double read Get_Date write Set_Date;
  891.     property DateFormat: TxDTDateFormat read Get_DateFormat write Set_DateFormat;
  892.     property DateMode: TxDTDateMode read Get_DateMode write Set_DateMode;
  893.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  894.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  895.     property Font: Font read Get_Font write Set_Font;
  896.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  897.     property Kind: TxDateTimeKind read Get_Kind write Set_Kind;
  898.     property MaxDate: Double read Get_MaxDate write Set_MaxDate;
  899.     property MinDate: Double read Get_MinDate write Set_MinDate;
  900.     property ParseInput: WordBool read Get_ParseInput write Set_ParseInput;
  901.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  902.     property ShowCheckbox: WordBool read Get_ShowCheckbox write Set_ShowCheckbox;
  903.     property Time: Double read Get_Time write Set_Time;
  904.     property Visible: WordBool read Get_Visible write Set_Visible;
  905.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  906.   end;
  907.  
  908. { DispInterface declaration for Dual Interface IDateTimePickerX }
  909.  
  910.   DDateTimePickerX = dispinterface
  911.     ['{5A565970-7975-11D0-BE02-00A024D1875C}']
  912.     property CalAlignment: TxDTCalAlignment dispid 1;
  913.     property Checked: WordBool dispid 2;
  914.     property Color: TColor dispid 3;
  915.     property Date: Double dispid 4;
  916.     property DateFormat: TxDTDateFormat dispid 5;
  917.     property DateMode: TxDTDateMode dispid 6;
  918.     property DragCursor: Smallint dispid 7;
  919.     property Enabled: WordBool dispid 8;
  920.     property Font: Font dispid 9;
  921.     property ImeName: WideString dispid 10;
  922.     property Kind: TxDateTimeKind dispid 11;
  923.     property MaxDate: Double dispid 12;
  924.     property MinDate: Double dispid 13;
  925.     property ParseInput: WordBool dispid 14;
  926.     property ParentColor: WordBool dispid 15;
  927.     property ShowCheckbox: WordBool dispid 16;
  928.     property Time: Double dispid 17;
  929.     property Visible: WordBool dispid 18;
  930.     property Cursor: Smallint dispid 19;
  931.     procedure AboutBox; dispid -552;
  932.   end;
  933.  
  934. { Events interface for DateTimePickerX Control }
  935.  
  936.   IDateTimePickerXEvents = dispinterface
  937.     ['{5A565971-7975-11D0-BE02-00A024D1875C}']
  938.     procedure OnClick; dispid 1;
  939.     procedure OnCloseUp; dispid 2;
  940.     procedure OnChange; dispid 3;
  941.     procedure OnDropDown; dispid 4;
  942.     procedure OnDblClick; dispid 5;
  943.     procedure OnKeyPress(var Key: Smallint); dispid 6;
  944.     procedure OnUserInput(const UserString: WideString; var DateAndTime: TDateTime; var AllowChange: WordBool); dispid 7;
  945.   end;
  946.  
  947. { Dispatch interface for DrawGridX Control }
  948.  
  949.   IDrawGridX = interface(IDispatch)
  950.     ['{5A565978-7975-11D0-BE02-00A024D1875C}']
  951.     procedure MouseToCell(X, Y: Integer; var ACol, ARow: Integer); safecall;
  952.     function Get_Col: Integer; safecall;
  953.     procedure Set_Col(Value: Integer); safecall;
  954.     function Get_EditorMode: WordBool; safecall;
  955.     procedure Set_EditorMode(Value: WordBool); safecall;
  956.     function Get_GridHeight: Integer; safecall;
  957.     function Get_GridWidth: Integer; safecall;
  958.     function Get_LeftCol: Integer; safecall;
  959.     procedure Set_LeftCol(Value: Integer); safecall;
  960.     function Get_Row: Integer; safecall;
  961.     procedure Set_Row(Value: Integer); safecall;
  962.     function Get_TopRow: Integer; safecall;
  963.     procedure Set_TopRow(Value: Integer); safecall;
  964.     function Get_Color: TColor; safecall;
  965.     procedure Set_Color(Value: TColor); safecall;
  966.     function Get_ColCount: Integer; safecall;
  967.     procedure Set_ColCount(Value: Integer); safecall;
  968.     function Get_Ctl3D: WordBool; safecall;
  969.     procedure Set_Ctl3D(Value: WordBool); safecall;
  970.     function Get_DefaultColWidth: Integer; safecall;
  971.     procedure Set_DefaultColWidth(Value: Integer); safecall;
  972.     function Get_DefaultRowHeight: Integer; safecall;
  973.     procedure Set_DefaultRowHeight(Value: Integer); safecall;
  974.     function Get_DefaultDrawing: WordBool; safecall;
  975.     procedure Set_DefaultDrawing(Value: WordBool); safecall;
  976.     function Get_DragCursor: Smallint; safecall;
  977.     procedure Set_DragCursor(Value: Smallint); safecall;
  978.     function Get_Enabled: WordBool; safecall;
  979.     procedure Set_Enabled(Value: WordBool); safecall;
  980.     function Get_FixedColor: TColor; safecall;
  981.     procedure Set_FixedColor(Value: TColor); safecall;
  982.     function Get_FixedCols: Integer; safecall;
  983.     procedure Set_FixedCols(Value: Integer); safecall;
  984.     function Get_RowCount: Integer; safecall;
  985.     procedure Set_RowCount(Value: Integer); safecall;
  986.     function Get_FixedRows: Integer; safecall;
  987.     procedure Set_FixedRows(Value: Integer); safecall;
  988.     function Get_Font: Font; safecall;
  989.     procedure Set_Font(const Value: Font); safecall;
  990.     function Get_GridLineWidth: Integer; safecall;
  991.     procedure Set_GridLineWidth(Value: Integer); safecall;
  992.     function Get_ParentColor: WordBool; safecall;
  993.     procedure Set_ParentColor(Value: WordBool); safecall;
  994.     function Get_ScrollBars: TxScrollStyle; safecall;
  995.     procedure Set_ScrollBars(Value: TxScrollStyle); safecall;
  996.     function Get_Visible: WordBool; safecall;
  997.     procedure Set_Visible(Value: WordBool); safecall;
  998.     function Get_VisibleColCount: Integer; safecall;
  999.     function Get_VisibleRowCount: Integer; safecall;
  1000.     function Get_Cursor: Smallint; safecall;
  1001.     procedure Set_Cursor(Value: Smallint); safecall;
  1002.     procedure AboutBox; safecall;
  1003.     property Col: Integer read Get_Col write Set_Col;
  1004.     property EditorMode: WordBool read Get_EditorMode write Set_EditorMode;
  1005.     property GridHeight: Integer read Get_GridHeight;
  1006.     property GridWidth: Integer read Get_GridWidth;
  1007.     property LeftCol: Integer read Get_LeftCol write Set_LeftCol;
  1008.     property Row: Integer read Get_Row write Set_Row;
  1009.     property TopRow: Integer read Get_TopRow write Set_TopRow;
  1010.     property Color: TColor read Get_Color write Set_Color;
  1011.     property ColCount: Integer read Get_ColCount write Set_ColCount;
  1012.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1013.     property DefaultColWidth: Integer read Get_DefaultColWidth write Set_DefaultColWidth;
  1014.     property DefaultRowHeight: Integer read Get_DefaultRowHeight write Set_DefaultRowHeight;
  1015.     property DefaultDrawing: WordBool read Get_DefaultDrawing write Set_DefaultDrawing;
  1016.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1017.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1018.     property FixedColor: TColor read Get_FixedColor write Set_FixedColor;
  1019.     property FixedCols: Integer read Get_FixedCols write Set_FixedCols;
  1020.     property RowCount: Integer read Get_RowCount write Set_RowCount;
  1021.     property FixedRows: Integer read Get_FixedRows write Set_FixedRows;
  1022.     property Font: Font read Get_Font write Set_Font;
  1023.     property GridLineWidth: Integer read Get_GridLineWidth write Set_GridLineWidth;
  1024.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1025.     property ScrollBars: TxScrollStyle read Get_ScrollBars write Set_ScrollBars;
  1026.     property Visible: WordBool read Get_Visible write Set_Visible;
  1027.     property VisibleColCount: Integer read Get_VisibleColCount;
  1028.     property VisibleRowCount: Integer read Get_VisibleRowCount;
  1029.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1030.   end;
  1031.  
  1032. { DispInterface declaration for Dual Interface IDrawGridX }
  1033.  
  1034.   DDrawGridX = dispinterface
  1035.     ['{5A565978-7975-11D0-BE02-00A024D1875C}']
  1036.     procedure MouseToCell(X, Y: Integer; var ACol, ARow: Integer); dispid 1;
  1037.     property Col: Integer dispid 2;
  1038.     property EditorMode: WordBool dispid 3;
  1039.     property GridHeight: Integer readonly dispid 4;
  1040.     property GridWidth: Integer readonly dispid 5;
  1041.     property LeftCol: Integer dispid 6;
  1042.     property Row: Integer dispid 7;
  1043.     property TopRow: Integer dispid 8;
  1044.     property Color: TColor dispid 9;
  1045.     property ColCount: Integer dispid 10;
  1046.     property Ctl3D: WordBool dispid 11;
  1047.     property DefaultColWidth: Integer dispid 12;
  1048.     property DefaultRowHeight: Integer dispid 13;
  1049.     property DefaultDrawing: WordBool dispid 14;
  1050.     property DragCursor: Smallint dispid 15;
  1051.     property Enabled: WordBool dispid 16;
  1052.     property FixedColor: TColor dispid 17;
  1053.     property FixedCols: Integer dispid 18;
  1054.     property RowCount: Integer dispid 19;
  1055.     property FixedRows: Integer dispid 20;
  1056.     property Font: Font dispid 21;
  1057.     property GridLineWidth: Integer dispid 22;
  1058.     property ParentColor: WordBool dispid 23;
  1059.     property ScrollBars: TxScrollStyle dispid 24;
  1060.     property Visible: WordBool dispid 25;
  1061.     property VisibleColCount: Integer readonly dispid 26;
  1062.     property VisibleRowCount: Integer readonly dispid 27;
  1063.     property Cursor: Smallint dispid 28;
  1064.     procedure AboutBox; dispid -552;
  1065.   end;
  1066.  
  1067. { Events interface for DrawGridX Control }
  1068.  
  1069.   IDrawGridXEvents = dispinterface
  1070.     ['{5A565979-7975-11D0-BE02-00A024D1875C}']
  1071.     procedure OnClick; dispid 1;
  1072.     procedure OnColumnMoved(FromIndex, ToIndex: Integer); dispid 2;
  1073.     procedure OnDblClick; dispid 3;
  1074.     procedure OnGetEditMask(ACol, ARow: Integer; var Value: WideString); dispid 4;
  1075.     procedure OnGetEditText(ACol, ARow: Integer; var Value: WideString); dispid 5;
  1076.     procedure OnKeyPress(var Key: Smallint); dispid 6;
  1077.     procedure OnRowMoved(FromIndex, ToIndex: Integer); dispid 7;
  1078.     procedure OnSelectCell(Col, Row: Integer; var CanSelect: WordBool); dispid 8;
  1079.     procedure OnSetEditText(ACol, ARow: Integer; const Value: WideString); dispid 9;
  1080.     procedure OnTopLeftChanged; dispid 10;
  1081.   end;
  1082.  
  1083. { Dispatch interface for EditX Control }
  1084.  
  1085.   IEditX = interface(IDispatch)
  1086.     ['{5A56597D-7975-11D0-BE02-00A024D1875C}']
  1087.     function Get_AutoSelect: WordBool; safecall;
  1088.     procedure Set_AutoSelect(Value: WordBool); safecall;
  1089.     function Get_AutoSize: WordBool; safecall;
  1090.     procedure Set_AutoSize(Value: WordBool); safecall;
  1091.     function Get_CharCase: TxEditCharCase; safecall;
  1092.     procedure Set_CharCase(Value: TxEditCharCase); safecall;
  1093.     function Get_Color: TColor; safecall;
  1094.     procedure Set_Color(Value: TColor); safecall;
  1095.     function Get_Ctl3D: WordBool; safecall;
  1096.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1097.     function Get_DragCursor: Smallint; safecall;
  1098.     procedure Set_DragCursor(Value: Smallint); safecall;
  1099.     function Get_Enabled: WordBool; safecall;
  1100.     procedure Set_Enabled(Value: WordBool); safecall;
  1101.     function Get_Font: Font; safecall;
  1102.     procedure Set_Font(const Value: Font); safecall;
  1103.     function Get_HideSelection: WordBool; safecall;
  1104.     procedure Set_HideSelection(Value: WordBool); safecall;
  1105.     function Get_ImeName: WideString; safecall;
  1106.     procedure Set_ImeName(const Value: WideString); safecall;
  1107.     function Get_MaxLength: Integer; safecall;
  1108.     procedure Set_MaxLength(Value: Integer); safecall;
  1109.     function Get_OEMConvert: WordBool; safecall;
  1110.     procedure Set_OEMConvert(Value: WordBool); safecall;
  1111.     function Get_ParentColor: WordBool; safecall;
  1112.     procedure Set_ParentColor(Value: WordBool); safecall;
  1113.     function Get_PasswordChar: Smallint; safecall;
  1114.     procedure Set_PasswordChar(Value: Smallint); safecall;
  1115.     function Get_ReadOnly: WordBool; safecall;
  1116.     procedure Set_ReadOnly(Value: WordBool); safecall;
  1117.     function Get_Text: WideString; safecall;
  1118.     procedure Set_Text(const Value: WideString); safecall;
  1119.     function Get_Visible: WordBool; safecall;
  1120.     procedure Set_Visible(Value: WordBool); safecall;
  1121.     procedure Clear; safecall;
  1122.     procedure ClearSelection; safecall;
  1123.     procedure CopyToClipboard; safecall;
  1124.     procedure CutToClipboard; safecall;
  1125.     procedure PasteFromClipboard; safecall;
  1126.     procedure SelectAll; safecall;
  1127.     function Get_Modified: WordBool; safecall;
  1128.     procedure Set_Modified(Value: WordBool); safecall;
  1129.     function Get_SelLength: Integer; safecall;
  1130.     procedure Set_SelLength(Value: Integer); safecall;
  1131.     function Get_SelStart: Integer; safecall;
  1132.     procedure Set_SelStart(Value: Integer); safecall;
  1133.     function Get_SelText: WideString; safecall;
  1134.     procedure Set_SelText(const Value: WideString); safecall;
  1135.     function Get_Cursor: Smallint; safecall;
  1136.     procedure Set_Cursor(Value: Smallint); safecall;
  1137.     procedure AboutBox; safecall;
  1138.     property AutoSelect: WordBool read Get_AutoSelect write Set_AutoSelect;
  1139.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1140.     property CharCase: TxEditCharCase read Get_CharCase write Set_CharCase;
  1141.     property Color: TColor read Get_Color write Set_Color;
  1142.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1143.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1144.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1145.     property Font: Font read Get_Font write Set_Font;
  1146.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  1147.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  1148.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  1149.     property OEMConvert: WordBool read Get_OEMConvert write Set_OEMConvert;
  1150.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1151.     property PasswordChar: Smallint read Get_PasswordChar write Set_PasswordChar;
  1152.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  1153.     property Text: WideString read Get_Text write Set_Text;
  1154.     property Visible: WordBool read Get_Visible write Set_Visible;
  1155.     property Modified: WordBool read Get_Modified write Set_Modified;
  1156.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  1157.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  1158.     property SelText: WideString read Get_SelText write Set_SelText;
  1159.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1160.   end;
  1161.  
  1162. { DispInterface declaration for Dual Interface IEditX }
  1163.  
  1164.   DEditX = dispinterface
  1165.     ['{5A56597D-7975-11D0-BE02-00A024D1875C}']
  1166.     property AutoSelect: WordBool dispid 1;
  1167.     property AutoSize: WordBool dispid 2;
  1168.     property CharCase: TxEditCharCase dispid 3;
  1169.     property Color: TColor dispid 4;
  1170.     property Ctl3D: WordBool dispid 5;
  1171.     property DragCursor: Smallint dispid 6;
  1172.     property Enabled: WordBool dispid 7;
  1173.     property Font: Font dispid 8;
  1174.     property HideSelection: WordBool dispid 9;
  1175.     property ImeName: WideString dispid 10;
  1176.     property MaxLength: Integer dispid 11;
  1177.     property OEMConvert: WordBool dispid 12;
  1178.     property ParentColor: WordBool dispid 13;
  1179.     property PasswordChar: Smallint dispid 14;
  1180.     property ReadOnly: WordBool dispid 15;
  1181.     property Text: WideString dispid 16;
  1182.     property Visible: WordBool dispid 17;
  1183.     procedure Clear; dispid 18;
  1184.     procedure ClearSelection; dispid 19;
  1185.     procedure CopyToClipboard; dispid 20;
  1186.     procedure CutToClipboard; dispid 21;
  1187.     procedure PasteFromClipboard; dispid 22;
  1188.     procedure SelectAll; dispid 23;
  1189.     property Modified: WordBool dispid 24;
  1190.     property SelLength: Integer dispid 25;
  1191.     property SelStart: Integer dispid 26;
  1192.     property SelText: WideString dispid 27;
  1193.     property Cursor: Smallint dispid 28;
  1194.     procedure AboutBox; dispid -552;
  1195.   end;
  1196.  
  1197. { Events interface for EditX Control }
  1198.  
  1199.   IEditXEvents = dispinterface
  1200.     ['{5A56597E-7975-11D0-BE02-00A024D1875C}']
  1201.     procedure OnChange; dispid 1;
  1202.     procedure OnClick; dispid 2;
  1203.     procedure OnDblClick; dispid 3;
  1204.     procedure OnKeyPress(var Key: Smallint); dispid 4;
  1205.   end;
  1206.  
  1207. { Dispatch interface for HotKeyX Control }
  1208.  
  1209.   IHotKeyX = interface(IDispatch)
  1210.     ['{5A565982-7975-11D0-BE02-00A024D1875C}']
  1211.     function Get_AutoSize: WordBool; safecall;
  1212.     procedure Set_AutoSize(Value: WordBool); safecall;
  1213.     function Get_Enabled: WordBool; safecall;
  1214.     procedure Set_Enabled(Value: WordBool); safecall;
  1215.     function Get_HotKey: Smallint; safecall;
  1216.     procedure Set_HotKey(Value: Smallint); safecall;
  1217.     function Get_Visible: WordBool; safecall;
  1218.     procedure Set_Visible(Value: WordBool); safecall;
  1219.     function Get_Cursor: Smallint; safecall;
  1220.     procedure Set_Cursor(Value: Smallint); safecall;
  1221.     procedure AboutBox; safecall;
  1222.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1223.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1224.     property HotKey: Smallint read Get_HotKey write Set_HotKey;
  1225.     property Visible: WordBool read Get_Visible write Set_Visible;
  1226.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1227.   end;
  1228.  
  1229. { DispInterface declaration for Dual Interface IHotKeyX }
  1230.  
  1231.   DHotKeyX = dispinterface
  1232.     ['{5A565982-7975-11D0-BE02-00A024D1875C}']
  1233.     property AutoSize: WordBool dispid 1;
  1234.     property Enabled: WordBool dispid 2;
  1235.     property HotKey: Smallint dispid 3;
  1236.     property Visible: WordBool dispid 4;
  1237.     property Cursor: Smallint dispid 5;
  1238.     procedure AboutBox; dispid -552;
  1239.   end;
  1240.  
  1241. { Events interface for HotKeyX Control }
  1242.  
  1243.   IHotKeyXEvents = dispinterface
  1244.     ['{5A565983-7975-11D0-BE02-00A024D1875C}']
  1245.   end;
  1246.  
  1247. { Dispatch interface for ListBoxX Control }
  1248.  
  1249.   IListBoxX = interface(IDispatch)
  1250.     ['{5A565986-7975-11D0-BE02-00A024D1875C}']
  1251.     function Get_Color: TColor; safecall;
  1252.     procedure Set_Color(Value: TColor); safecall;
  1253.     function Get_Columns: Integer; safecall;
  1254.     procedure Set_Columns(Value: Integer); safecall;
  1255.     function Get_Ctl3D: WordBool; safecall;
  1256.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1257.     function Get_DragCursor: Smallint; safecall;
  1258.     procedure Set_DragCursor(Value: Smallint); safecall;
  1259.     function Get_Enabled: WordBool; safecall;
  1260.     procedure Set_Enabled(Value: WordBool); safecall;
  1261.     function Get_ExtendedSelect: WordBool; safecall;
  1262.     procedure Set_ExtendedSelect(Value: WordBool); safecall;
  1263.     function Get_Font: Font; safecall;
  1264.     procedure Set_Font(const Value: Font); safecall;
  1265.     function Get_ImeName: WideString; safecall;
  1266.     procedure Set_ImeName(const Value: WideString); safecall;
  1267.     function Get_IntegralHeight: WordBool; safecall;
  1268.     procedure Set_IntegralHeight(Value: WordBool); safecall;
  1269.     function Get_ItemHeight: Integer; safecall;
  1270.     procedure Set_ItemHeight(Value: Integer); safecall;
  1271.     function Get_Items: IStrings; safecall;
  1272.     procedure Set_Items(const Value: IStrings); safecall;
  1273.     function Get_MultiSelect: WordBool; safecall;
  1274.     procedure Set_MultiSelect(Value: WordBool); safecall;
  1275.     function Get_ParentColor: WordBool; safecall;
  1276.     procedure Set_ParentColor(Value: WordBool); safecall;
  1277.     function Get_Sorted: WordBool; safecall;
  1278.     procedure Set_Sorted(Value: WordBool); safecall;
  1279.     function Get_TabWidth: Integer; safecall;
  1280.     procedure Set_TabWidth(Value: Integer); safecall;
  1281.     function Get_Visible: WordBool; safecall;
  1282.     procedure Set_Visible(Value: WordBool); safecall;
  1283.     procedure Clear; safecall;
  1284.     function Get_ItemIndex: Integer; safecall;
  1285.     procedure Set_ItemIndex(Value: Integer); safecall;
  1286.     function Get_SelCount: Integer; safecall;
  1287.     function Get_TopIndex: Integer; safecall;
  1288.     procedure Set_TopIndex(Value: Integer); safecall;
  1289.     function Get_Cursor: Smallint; safecall;
  1290.     procedure Set_Cursor(Value: Smallint); safecall;
  1291.     procedure AboutBox; safecall;
  1292.     property Color: TColor read Get_Color write Set_Color;
  1293.     property Columns: Integer read Get_Columns write Set_Columns;
  1294.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1295.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1296.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1297.     property ExtendedSelect: WordBool read Get_ExtendedSelect write Set_ExtendedSelect;
  1298.     property Font: Font read Get_Font write Set_Font;
  1299.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  1300.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  1301.     property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
  1302.     property Items: IStrings read Get_Items write Set_Items;
  1303.     property MultiSelect: WordBool read Get_MultiSelect write Set_MultiSelect;
  1304.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1305.     property Sorted: WordBool read Get_Sorted write Set_Sorted;
  1306.     property TabWidth: Integer read Get_TabWidth write Set_TabWidth;
  1307.     property Visible: WordBool read Get_Visible write Set_Visible;
  1308.     property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
  1309.     property SelCount: Integer read Get_SelCount;
  1310.     property TopIndex: Integer read Get_TopIndex write Set_TopIndex;
  1311.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1312.   end;
  1313.  
  1314. { DispInterface declaration for Dual Interface IListBoxX }
  1315.  
  1316.   DListBoxX = dispinterface
  1317.     ['{5A565986-7975-11D0-BE02-00A024D1875C}']
  1318.     property Color: TColor dispid 1;
  1319.     property Columns: Integer dispid 2;
  1320.     property Ctl3D: WordBool dispid 3;
  1321.     property DragCursor: Smallint dispid 4;
  1322.     property Enabled: WordBool dispid 5;
  1323.     property ExtendedSelect: WordBool dispid 6;
  1324.     property Font: Font dispid 7;
  1325.     property ImeName: WideString dispid 8;
  1326.     property IntegralHeight: WordBool dispid 9;
  1327.     property ItemHeight: Integer dispid 10;
  1328.     property Items: IStrings dispid 11;
  1329.     property MultiSelect: WordBool dispid 12;
  1330.     property ParentColor: WordBool dispid 13;
  1331.     property Sorted: WordBool dispid 14;
  1332.     property TabWidth: Integer dispid 15;
  1333.     property Visible: WordBool dispid 16;
  1334.     procedure Clear; dispid 17;
  1335.     property ItemIndex: Integer dispid 18;
  1336.     property SelCount: Integer readonly dispid 19;
  1337.     property TopIndex: Integer dispid 20;
  1338.     property Cursor: Smallint dispid 21;
  1339.     procedure AboutBox; dispid -552;
  1340.   end;
  1341.  
  1342. { Events interface for ListBoxX Control }
  1343.  
  1344.   IListBoxXEvents = dispinterface
  1345.     ['{5A565987-7975-11D0-BE02-00A024D1875C}']
  1346.     procedure OnClick; dispid 1;
  1347.     procedure OnDblClick; dispid 2;
  1348.     procedure OnKeyPress(var Key: Smallint); dispid 3;
  1349.   end;
  1350.  
  1351. { Dispatch interface for MaskEditX Control }
  1352.  
  1353.   IMaskEditX = interface(IDispatch)
  1354.     ['{5A56598A-7975-11D0-BE02-00A024D1875C}']
  1355.     function Get_AutoSelect: WordBool; safecall;
  1356.     procedure Set_AutoSelect(Value: WordBool); safecall;
  1357.     function Get_AutoSize: WordBool; safecall;
  1358.     procedure Set_AutoSize(Value: WordBool); safecall;
  1359.     function Get_Color: TColor; safecall;
  1360.     procedure Set_Color(Value: TColor); safecall;
  1361.     function Get_Ctl3D: WordBool; safecall;
  1362.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1363.     function Get_DragCursor: Smallint; safecall;
  1364.     procedure Set_DragCursor(Value: Smallint); safecall;
  1365.     function Get_Enabled: WordBool; safecall;
  1366.     procedure Set_Enabled(Value: WordBool); safecall;
  1367.     function Get_EditMask: WideString; safecall;
  1368.     procedure Set_EditMask(const Value: WideString); safecall;
  1369.     function Get_Font: Font; safecall;
  1370.     procedure Set_Font(const Value: Font); safecall;
  1371.     function Get_ImeName: WideString; safecall;
  1372.     procedure Set_ImeName(const Value: WideString); safecall;
  1373.     function Get_MaxLength: Integer; safecall;
  1374.     procedure Set_MaxLength(Value: Integer); safecall;
  1375.     function Get_ParentColor: WordBool; safecall;
  1376.     procedure Set_ParentColor(Value: WordBool); safecall;
  1377.     function Get_PasswordChar: Smallint; safecall;
  1378.     procedure Set_PasswordChar(Value: Smallint); safecall;
  1379.     function Get_ReadOnly: WordBool; safecall;
  1380.     procedure Set_ReadOnly(Value: WordBool); safecall;
  1381.     function Get_Text: WideString; safecall;
  1382.     procedure Set_Text(const Value: WideString); safecall;
  1383.     function Get_Visible: WordBool; safecall;
  1384.     procedure Set_Visible(Value: WordBool); safecall;
  1385.     procedure ValidateEdit; safecall;
  1386.     procedure Clear; safecall;
  1387.     function Get_IsMasked: WordBool; safecall;
  1388.     function Get_EditText: WideString; safecall;
  1389.     procedure Set_EditText(const Value: WideString); safecall;
  1390.     procedure ClearSelection; safecall;
  1391.     procedure CopyToClipboard; safecall;
  1392.     procedure CutToClipboard; safecall;
  1393.     procedure PasteFromClipboard; safecall;
  1394.     procedure SelectAll; safecall;
  1395.     function Get_Modified: WordBool; safecall;
  1396.     procedure Set_Modified(Value: WordBool); safecall;
  1397.     function Get_SelLength: Integer; safecall;
  1398.     procedure Set_SelLength(Value: Integer); safecall;
  1399.     function Get_SelStart: Integer; safecall;
  1400.     procedure Set_SelStart(Value: Integer); safecall;
  1401.     function Get_SelText: WideString; safecall;
  1402.     procedure Set_SelText(const Value: WideString); safecall;
  1403.     function Get_Cursor: Smallint; safecall;
  1404.     procedure Set_Cursor(Value: Smallint); safecall;
  1405.     procedure AboutBox; safecall;
  1406.     property AutoSelect: WordBool read Get_AutoSelect write Set_AutoSelect;
  1407.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1408.     property Color: TColor read Get_Color write Set_Color;
  1409.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1410.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1411.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1412.     property EditMask: WideString read Get_EditMask write Set_EditMask;
  1413.     property Font: Font read Get_Font write Set_Font;
  1414.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  1415.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  1416.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1417.     property PasswordChar: Smallint read Get_PasswordChar write Set_PasswordChar;
  1418.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  1419.     property Text: WideString read Get_Text write Set_Text;
  1420.     property Visible: WordBool read Get_Visible write Set_Visible;
  1421.     property IsMasked: WordBool read Get_IsMasked;
  1422.     property EditText: WideString read Get_EditText write Set_EditText;
  1423.     property Modified: WordBool read Get_Modified write Set_Modified;
  1424.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  1425.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  1426.     property SelText: WideString read Get_SelText write Set_SelText;
  1427.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1428.   end;
  1429.  
  1430. { DispInterface declaration for Dual Interface IMaskEditX }
  1431.  
  1432.   DMaskEditX = dispinterface
  1433.     ['{5A56598A-7975-11D0-BE02-00A024D1875C}']
  1434.     property AutoSelect: WordBool dispid 1;
  1435.     property AutoSize: WordBool dispid 2;
  1436.     property Color: TColor dispid 3;
  1437.     property Ctl3D: WordBool dispid 4;
  1438.     property DragCursor: Smallint dispid 5;
  1439.     property Enabled: WordBool dispid 6;
  1440.     property EditMask: WideString dispid 7;
  1441.     property Font: Font dispid 8;
  1442.     property ImeName: WideString dispid 9;
  1443.     property MaxLength: Integer dispid 10;
  1444.     property ParentColor: WordBool dispid 11;
  1445.     property PasswordChar: Smallint dispid 12;
  1446.     property ReadOnly: WordBool dispid 13;
  1447.     property Text: WideString dispid 14;
  1448.     property Visible: WordBool dispid 15;
  1449.     procedure ValidateEdit; dispid 16;
  1450.     procedure Clear; dispid 17;
  1451.     property IsMasked: WordBool readonly dispid 18;
  1452.     property EditText: WideString dispid 19;
  1453.     procedure ClearSelection; dispid 20;
  1454.     procedure CopyToClipboard; dispid 21;
  1455.     procedure CutToClipboard; dispid 22;
  1456.     procedure PasteFromClipboard; dispid 23;
  1457.     procedure SelectAll; dispid 24;
  1458.     property Modified: WordBool dispid 25;
  1459.     property SelLength: Integer dispid 26;
  1460.     property SelStart: Integer dispid 27;
  1461.     property SelText: WideString dispid 28;
  1462.     property Cursor: Smallint dispid 29;
  1463.     procedure AboutBox; dispid -552;
  1464.   end;
  1465.  
  1466. { Events interface for MaskEditX Control }
  1467.  
  1468.   IMaskEditXEvents = dispinterface
  1469.     ['{5A56598B-7975-11D0-BE02-00A024D1875C}']
  1470.     procedure OnChange; dispid 1;
  1471.     procedure OnClick; dispid 2;
  1472.     procedure OnDblClick; dispid 3;
  1473.     procedure OnKeyPress(var Key: Smallint); dispid 4;
  1474.   end;
  1475.  
  1476. { Dispatch interface for MediaPlayerX Control }
  1477.  
  1478.   IMediaPlayerX = interface(IDispatch)
  1479.     ['{5A56598E-7975-11D0-BE02-00A024D1875C}']
  1480.     procedure Open; safecall;
  1481.     procedure Close; safecall;
  1482.     procedure Play; safecall;
  1483.     procedure Stop; safecall;
  1484.     procedure Pause; safecall;
  1485.     procedure Step; safecall;
  1486.     procedure Back; safecall;
  1487.     procedure Previous; safecall;
  1488.     procedure Next; safecall;
  1489.     procedure StartRecording; safecall;
  1490.     procedure Eject; safecall;
  1491.     procedure Save; safecall;
  1492.     procedure PauseOnly; safecall;
  1493.     procedure Resume; safecall;
  1494.     procedure Rewind; safecall;
  1495.     function Get_Error: Integer; safecall;
  1496.     function Get_ErrorMessage: WideString; safecall;
  1497.     function Get_Start: Integer; safecall;
  1498.     function Get_Length: Integer; safecall;
  1499.     function Get_Tracks: Integer; safecall;
  1500.     function Get_Frames: Integer; safecall;
  1501.     procedure Set_Frames(Value: Integer); safecall;
  1502.     function Get_Mode: TxMPModes; safecall;
  1503.     function Get_Position: Integer; safecall;
  1504.     procedure Set_Position(Value: Integer); safecall;
  1505.     function Get_Wait: WordBool; safecall;
  1506.     procedure Set_Wait(Value: WordBool); safecall;
  1507.     function Get_Notify: WordBool; safecall;
  1508.     procedure Set_Notify(Value: WordBool); safecall;
  1509.     function Get_NotifyValue: TxMPNotifyValues; safecall;
  1510.     function Get_StartPos: Integer; safecall;
  1511.     procedure Set_StartPos(Value: Integer); safecall;
  1512.     function Get_EndPos: Integer; safecall;
  1513.     procedure Set_EndPos(Value: Integer); safecall;
  1514.     function Get_DeviceID: Smallint; safecall;
  1515.     function Get_TimeFormat: TxMPTimeFormats; safecall;
  1516.     procedure Set_TimeFormat(Value: TxMPTimeFormats); safecall;
  1517.     function Get_Enabled: WordBool; safecall;
  1518.     procedure Set_Enabled(Value: WordBool); safecall;
  1519.     function Get_AutoEnable: WordBool; safecall;
  1520.     procedure Set_AutoEnable(Value: WordBool); safecall;
  1521.     function Get_AutoOpen: WordBool; safecall;
  1522.     procedure Set_AutoOpen(Value: WordBool); safecall;
  1523.     function Get_AutoRewind: WordBool; safecall;
  1524.     procedure Set_AutoRewind(Value: WordBool); safecall;
  1525.     function Get_DeviceType: TxMPDeviceTypes; safecall;
  1526.     procedure Set_DeviceType(Value: TxMPDeviceTypes); safecall;
  1527.     function Get_FileName: WideString; safecall;
  1528.     procedure Set_FileName(const Value: WideString); safecall;
  1529.     function Get_Shareable: WordBool; safecall;
  1530.     procedure Set_Shareable(Value: WordBool); safecall;
  1531.     function Get_Visible: WordBool; safecall;
  1532.     procedure Set_Visible(Value: WordBool); safecall;
  1533.     function Get_Cursor: Smallint; safecall;
  1534.     procedure Set_Cursor(Value: Smallint); safecall;
  1535.     procedure AboutBox; safecall;
  1536.     property Error: Integer read Get_Error;
  1537.     property ErrorMessage: WideString read Get_ErrorMessage;
  1538.     property Start: Integer read Get_Start;
  1539.     property Length: Integer read Get_Length;
  1540.     property Tracks: Integer read Get_Tracks;
  1541.     property Frames: Integer read Get_Frames write Set_Frames;
  1542.     property Mode: TxMPModes read Get_Mode;
  1543.     property Position: Integer read Get_Position write Set_Position;
  1544.     property Wait: WordBool read Get_Wait write Set_Wait;
  1545.     property Notify: WordBool read Get_Notify write Set_Notify;
  1546.     property NotifyValue: TxMPNotifyValues read Get_NotifyValue;
  1547.     property StartPos: Integer read Get_StartPos write Set_StartPos;
  1548.     property EndPos: Integer read Get_EndPos write Set_EndPos;
  1549.     property DeviceID: Smallint read Get_DeviceID;
  1550.     property TimeFormat: TxMPTimeFormats read Get_TimeFormat write Set_TimeFormat;
  1551.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1552.     property AutoEnable: WordBool read Get_AutoEnable write Set_AutoEnable;
  1553.     property AutoOpen: WordBool read Get_AutoOpen write Set_AutoOpen;
  1554.     property AutoRewind: WordBool read Get_AutoRewind write Set_AutoRewind;
  1555.     property DeviceType: TxMPDeviceTypes read Get_DeviceType write Set_DeviceType;
  1556.     property FileName: WideString read Get_FileName write Set_FileName;
  1557.     property Shareable: WordBool read Get_Shareable write Set_Shareable;
  1558.     property Visible: WordBool read Get_Visible write Set_Visible;
  1559.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1560.   end;
  1561.  
  1562. { DispInterface declaration for Dual Interface IMediaPlayerX }
  1563.  
  1564.   DMediaPlayerX = dispinterface
  1565.     ['{5A56598E-7975-11D0-BE02-00A024D1875C}']
  1566.     procedure Open; dispid 1;
  1567.     procedure Close; dispid 2;
  1568.     procedure Play; dispid 3;
  1569.     procedure Stop; dispid 4;
  1570.     procedure Pause; dispid 5;
  1571.     procedure Step; dispid 6;
  1572.     procedure Back; dispid 7;
  1573.     procedure Previous; dispid 8;
  1574.     procedure Next; dispid 9;
  1575.     procedure StartRecording; dispid 10;
  1576.     procedure Eject; dispid 11;
  1577.     procedure Save; dispid 12;
  1578.     procedure PauseOnly; dispid 13;
  1579.     procedure Resume; dispid 14;
  1580.     procedure Rewind; dispid 15;
  1581.     property Error: Integer readonly dispid 16;
  1582.     property ErrorMessage: WideString readonly dispid 17;
  1583.     property Start: Integer readonly dispid 18;
  1584.     property Length: Integer readonly dispid 19;
  1585.     property Tracks: Integer readonly dispid 20;
  1586.     property Frames: Integer dispid 21;
  1587.     property Mode: TxMPModes readonly dispid 22;
  1588.     property Position: Integer dispid 23;
  1589.     property Wait: WordBool dispid 24;
  1590.     property Notify: WordBool dispid 25;
  1591.     property NotifyValue: TxMPNotifyValues readonly dispid 26;
  1592.     property StartPos: Integer dispid 27;
  1593.     property EndPos: Integer dispid 28;
  1594.     property DeviceID: Smallint readonly dispid 29;
  1595.     property TimeFormat: TxMPTimeFormats dispid 30;
  1596.     property Enabled: WordBool dispid 31;
  1597.     property AutoEnable: WordBool dispid 32;
  1598.     property AutoOpen: WordBool dispid 33;
  1599.     property AutoRewind: WordBool dispid 34;
  1600.     property DeviceType: TxMPDeviceTypes dispid 35;
  1601.     property FileName: WideString dispid 36;
  1602.     property Shareable: WordBool dispid 37;
  1603.     property Visible: WordBool dispid 38;
  1604.     property Cursor: Smallint dispid 39;
  1605.     procedure AboutBox; dispid -552;
  1606.   end;
  1607.  
  1608. { Events interface for MediaPlayerX Control }
  1609.  
  1610.   IMediaPlayerXEvents = dispinterface
  1611.     ['{5A56598F-7975-11D0-BE02-00A024D1875C}']
  1612.     procedure OnClick(Button: TxMPBtnType; var DoDefault: WordBool); dispid 1;
  1613.     procedure OnNotify; dispid 2;
  1614.   end;
  1615.  
  1616. { Dispatch interface for MemoX Control }
  1617.  
  1618.   IMemoX = interface(IDispatch)
  1619.     ['{5A565997-7975-11D0-BE02-00A024D1875C}']
  1620.     function Get_Alignment: TxAlignment; safecall;
  1621.     procedure Set_Alignment(Value: TxAlignment); safecall;
  1622.     function Get_Color: TColor; safecall;
  1623.     procedure Set_Color(Value: TColor); safecall;
  1624.     function Get_Ctl3D: WordBool; safecall;
  1625.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1626.     function Get_DragCursor: Smallint; safecall;
  1627.     procedure Set_DragCursor(Value: Smallint); safecall;
  1628.     function Get_Enabled: WordBool; safecall;
  1629.     procedure Set_Enabled(Value: WordBool); safecall;
  1630.     function Get_Font: Font; safecall;
  1631.     procedure Set_Font(const Value: Font); safecall;
  1632.     function Get_HideSelection: WordBool; safecall;
  1633.     procedure Set_HideSelection(Value: WordBool); safecall;
  1634.     function Get_ImeName: WideString; safecall;
  1635.     procedure Set_ImeName(const Value: WideString); safecall;
  1636.     function Get_Lines: IStrings; safecall;
  1637.     procedure Set_Lines(const Value: IStrings); safecall;
  1638.     function Get_MaxLength: Integer; safecall;
  1639.     procedure Set_MaxLength(Value: Integer); safecall;
  1640.     function Get_OEMConvert: WordBool; safecall;
  1641.     procedure Set_OEMConvert(Value: WordBool); safecall;
  1642.     function Get_ParentColor: WordBool; safecall;
  1643.     procedure Set_ParentColor(Value: WordBool); safecall;
  1644.     function Get_ReadOnly: WordBool; safecall;
  1645.     procedure Set_ReadOnly(Value: WordBool); safecall;
  1646.     function Get_Visible: WordBool; safecall;
  1647.     procedure Set_Visible(Value: WordBool); safecall;
  1648.     function Get_WantReturns: WordBool; safecall;
  1649.     procedure Set_WantReturns(Value: WordBool); safecall;
  1650.     function Get_WantTabs: WordBool; safecall;
  1651.     procedure Set_WantTabs(Value: WordBool); safecall;
  1652.     function Get_WordWrap: WordBool; safecall;
  1653.     procedure Set_WordWrap(Value: WordBool); safecall;
  1654.     procedure Clear; safecall;
  1655.     procedure ClearSelection; safecall;
  1656.     procedure CopyToClipboard; safecall;
  1657.     procedure CutToClipboard; safecall;
  1658.     procedure PasteFromClipboard; safecall;
  1659.     procedure SelectAll; safecall;
  1660.     function Get_Modified: WordBool; safecall;
  1661.     procedure Set_Modified(Value: WordBool); safecall;
  1662.     function Get_SelLength: Integer; safecall;
  1663.     procedure Set_SelLength(Value: Integer); safecall;
  1664.     function Get_SelStart: Integer; safecall;
  1665.     procedure Set_SelStart(Value: Integer); safecall;
  1666.     function Get_SelText: WideString; safecall;
  1667.     procedure Set_SelText(const Value: WideString); safecall;
  1668.     function Get_Text: WideString; safecall;
  1669.     procedure Set_Text(const Value: WideString); safecall;
  1670.     function Get_Cursor: Smallint; safecall;
  1671.     procedure Set_Cursor(Value: Smallint); safecall;
  1672.     procedure AboutBox; safecall;
  1673.     property Alignment: TxAlignment read Get_Alignment write Set_Alignment;
  1674.     property Color: TColor read Get_Color write Set_Color;
  1675.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1676.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1677.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1678.     property Font: Font read Get_Font write Set_Font;
  1679.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  1680.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  1681.     property Lines: IStrings read Get_Lines write Set_Lines;
  1682.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  1683.     property OEMConvert: WordBool read Get_OEMConvert write Set_OEMConvert;
  1684.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1685.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  1686.     property Visible: WordBool read Get_Visible write Set_Visible;
  1687.     property WantReturns: WordBool read Get_WantReturns write Set_WantReturns;
  1688.     property WantTabs: WordBool read Get_WantTabs write Set_WantTabs;
  1689.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  1690.     property Modified: WordBool read Get_Modified write Set_Modified;
  1691.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  1692.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  1693.     property SelText: WideString read Get_SelText write Set_SelText;
  1694.     property Text: WideString read Get_Text write Set_Text;
  1695.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1696.   end;
  1697.  
  1698. { DispInterface declaration for Dual Interface IMemoX }
  1699.  
  1700.   DMemoX = dispinterface
  1701.     ['{5A565997-7975-11D0-BE02-00A024D1875C}']
  1702.     property Alignment: TxAlignment dispid 1;
  1703.     property Color: TColor dispid 2;
  1704.     property Ctl3D: WordBool dispid 3;
  1705.     property DragCursor: Smallint dispid 4;
  1706.     property Enabled: WordBool dispid 5;
  1707.     property Font: Font dispid 6;
  1708.     property HideSelection: WordBool dispid 7;
  1709.     property ImeName: WideString dispid 8;
  1710.     property Lines: IStrings dispid 9;
  1711.     property MaxLength: Integer dispid 10;
  1712.     property OEMConvert: WordBool dispid 11;
  1713.     property ParentColor: WordBool dispid 12;
  1714.     property ReadOnly: WordBool dispid 13;
  1715.     property Visible: WordBool dispid 14;
  1716.     property WantReturns: WordBool dispid 15;
  1717.     property WantTabs: WordBool dispid 16;
  1718.     property WordWrap: WordBool dispid 17;
  1719.     procedure Clear; dispid 18;
  1720.     procedure ClearSelection; dispid 19;
  1721.     procedure CopyToClipboard; dispid 20;
  1722.     procedure CutToClipboard; dispid 21;
  1723.     procedure PasteFromClipboard; dispid 22;
  1724.     procedure SelectAll; dispid 23;
  1725.     property Modified: WordBool dispid 24;
  1726.     property SelLength: Integer dispid 25;
  1727.     property SelStart: Integer dispid 26;
  1728.     property SelText: WideString dispid 27;
  1729.     property Text: WideString dispid 28;
  1730.     property Cursor: Smallint dispid 29;
  1731.     procedure AboutBox; dispid -552;
  1732.   end;
  1733.  
  1734. { Events interface for MemoX Control }
  1735.  
  1736.   IMemoXEvents = dispinterface
  1737.     ['{5A565998-7975-11D0-BE02-00A024D1875C}']
  1738.     procedure OnChange; dispid 1;
  1739.     procedure OnClick; dispid 2;
  1740.     procedure OnDblClick; dispid 3;
  1741.     procedure OnKeyPress(var Key: Smallint); dispid 4;
  1742.   end;
  1743.  
  1744. { Dispatch interface for NotebookX Control }
  1745.  
  1746.   INotebookX = interface(IDispatch)
  1747.     ['{5A56599C-7975-11D0-BE02-00A024D1875C}']
  1748.     function Get_ActivePage: WideString; safecall;
  1749.     procedure Set_ActivePage(const Value: WideString); safecall;
  1750.     function Get_Color: TColor; safecall;
  1751.     procedure Set_Color(Value: TColor); safecall;
  1752.     function Get_Ctl3D: WordBool; safecall;
  1753.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1754.     function Get_DragCursor: Smallint; safecall;
  1755.     procedure Set_DragCursor(Value: Smallint); safecall;
  1756.     function Get_Font: Font; safecall;
  1757.     procedure Set_Font(const Value: Font); safecall;
  1758.     function Get_Enabled: WordBool; safecall;
  1759.     procedure Set_Enabled(Value: WordBool); safecall;
  1760.     function Get_PageIndex: Integer; safecall;
  1761.     procedure Set_PageIndex(Value: Integer); safecall;
  1762.     function Get_Pages: IStrings; safecall;
  1763.     procedure Set_Pages(const Value: IStrings); safecall;
  1764.     function Get_ParentColor: WordBool; safecall;
  1765.     procedure Set_ParentColor(Value: WordBool); safecall;
  1766.     function Get_Visible: WordBool; safecall;
  1767.     procedure Set_Visible(Value: WordBool); safecall;
  1768.     function Get_Cursor: Smallint; safecall;
  1769.     procedure Set_Cursor(Value: Smallint); safecall;
  1770.     procedure AboutBox; safecall;
  1771.     property ActivePage: WideString read Get_ActivePage write Set_ActivePage;
  1772.     property Color: TColor read Get_Color write Set_Color;
  1773.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1774.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1775.     property Font: Font read Get_Font write Set_Font;
  1776.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1777.     property PageIndex: Integer read Get_PageIndex write Set_PageIndex;
  1778.     property Pages: IStrings read Get_Pages write Set_Pages;
  1779.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1780.     property Visible: WordBool read Get_Visible write Set_Visible;
  1781.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1782.   end;
  1783.  
  1784. { DispInterface declaration for Dual Interface INotebookX }
  1785.  
  1786.   DNotebookX = dispinterface
  1787.     ['{5A56599C-7975-11D0-BE02-00A024D1875C}']
  1788.     property ActivePage: WideString dispid 1;
  1789.     property Color: TColor dispid 2;
  1790.     property Ctl3D: WordBool dispid 3;
  1791.     property DragCursor: Smallint dispid 4;
  1792.     property Font: Font dispid 5;
  1793.     property Enabled: WordBool dispid 6;
  1794.     property PageIndex: Integer dispid 7;
  1795.     property Pages: IStrings dispid 8;
  1796.     property ParentColor: WordBool dispid 9;
  1797.     property Visible: WordBool dispid 10;
  1798.     property Cursor: Smallint dispid 11;
  1799.     procedure AboutBox; dispid -552;
  1800.   end;
  1801.  
  1802. { Events interface for NotebookX Control }
  1803.  
  1804.   INotebookXEvents = dispinterface
  1805.     ['{5A56599D-7975-11D0-BE02-00A024D1875C}']
  1806.     procedure OnClick; dispid 1;
  1807.     procedure OnDblClick; dispid 2;
  1808.     procedure OnPageChanged; dispid 3;
  1809.   end;
  1810.  
  1811. { Dispatch interface for OutlineX Control }
  1812.  
  1813.   IOutlineX = interface(IDispatch)
  1814.     ['{5A5659A0-7975-11D0-BE02-00A024D1875C}']
  1815.     function Get_Lines: IStrings; safecall;
  1816.     procedure Set_Lines(const Value: IStrings); safecall;
  1817.     function Get_OutlineStyle: TxOutlineStyle; safecall;
  1818.     procedure Set_OutlineStyle(Value: TxOutlineStyle); safecall;
  1819.     function Get_Style: TxOutlineType; safecall;
  1820.     procedure Set_Style(Value: TxOutlineType); safecall;
  1821.     function Get_ItemHeight: Integer; safecall;
  1822.     procedure Set_ItemHeight(Value: Integer); safecall;
  1823.     function Get_Enabled: WordBool; safecall;
  1824.     procedure Set_Enabled(Value: WordBool); safecall;
  1825.     function Get_Font: Font; safecall;
  1826.     procedure Set_Font(const Value: Font); safecall;
  1827.     function Get_Color: TColor; safecall;
  1828.     procedure Set_Color(Value: TColor); safecall;
  1829.     function Get_ParentColor: WordBool; safecall;
  1830.     procedure Set_ParentColor(Value: WordBool); safecall;
  1831.     function Get_Ctl3D: WordBool; safecall;
  1832.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1833.     function Get_Visible: WordBool; safecall;
  1834.     procedure Set_Visible(Value: WordBool); safecall;
  1835.     function Get_DragCursor: Smallint; safecall;
  1836.     procedure Set_DragCursor(Value: Smallint); safecall;
  1837.     function Get_ItemSeparator: WideString; safecall;
  1838.     procedure Set_ItemSeparator(const Value: WideString); safecall;
  1839.     function Add(Index: Integer; const Text: WideString): Integer; safecall;
  1840.     function AddChild(Index: Integer; const Text: WideString): Integer; safecall;
  1841.     function Insert(Index: Integer; const Text: WideString): Integer; safecall;
  1842.     procedure Delete(Index: Integer); safecall;
  1843.     function GetItem(X, Y: Integer): Integer; safecall;
  1844.     function GetTextItem(const Value: WideString): Integer; safecall;
  1845.     procedure FullExpand; safecall;
  1846.     procedure FullCollapse; safecall;
  1847.     procedure LoadFromFile(const FileName: WideString); safecall;
  1848.     procedure SaveToFile(const FileName: WideString); safecall;
  1849.     procedure BeginUpdate; safecall;
  1850.     procedure EndUpdate; safecall;
  1851.     procedure SetUpdateState(Value: WordBool); safecall;
  1852.     procedure Clear; safecall;
  1853.     function Get_ItemCount: Integer; safecall;
  1854.     function Get_SelectedItem: Integer; safecall;
  1855.     procedure Set_SelectedItem(Value: Integer); safecall;
  1856.     function Get_Row: Integer; safecall;
  1857.     procedure Set_Row(Value: Integer); safecall;
  1858.     function Get_Cursor: Smallint; safecall;
  1859.     procedure Set_Cursor(Value: Smallint); safecall;
  1860.     procedure AboutBox; safecall;
  1861.     property Lines: IStrings read Get_Lines write Set_Lines;
  1862.     property OutlineStyle: TxOutlineStyle read Get_OutlineStyle write Set_OutlineStyle;
  1863.     property Style: TxOutlineType read Get_Style write Set_Style;
  1864.     property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
  1865.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1866.     property Font: Font read Get_Font write Set_Font;
  1867.     property Color: TColor read Get_Color write Set_Color;
  1868.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1869.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1870.     property Visible: WordBool read Get_Visible write Set_Visible;
  1871.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1872.     property ItemSeparator: WideString read Get_ItemSeparator write Set_ItemSeparator;
  1873.     property ItemCount: Integer read Get_ItemCount;
  1874.     property SelectedItem: Integer read Get_SelectedItem write Set_SelectedItem;
  1875.     property Row: Integer read Get_Row write Set_Row;
  1876.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1877.   end;
  1878.  
  1879. { DispInterface declaration for Dual Interface IOutlineX }
  1880.  
  1881.   DOutlineX = dispinterface
  1882.     ['{5A5659A0-7975-11D0-BE02-00A024D1875C}']
  1883.     property Lines: IStrings dispid 1;
  1884.     property OutlineStyle: TxOutlineStyle dispid 2;
  1885.     property Style: TxOutlineType dispid 3;
  1886.     property ItemHeight: Integer dispid 4;
  1887.     property Enabled: WordBool dispid 5;
  1888.     property Font: Font dispid 6;
  1889.     property Color: TColor dispid 7;
  1890.     property ParentColor: WordBool dispid 8;
  1891.     property Ctl3D: WordBool dispid 9;
  1892.     property Visible: WordBool dispid 10;
  1893.     property DragCursor: Smallint dispid 11;
  1894.     property ItemSeparator: WideString dispid 12;
  1895.     function Add(Index: Integer; const Text: WideString): Integer; dispid 13;
  1896.     function AddChild(Index: Integer; const Text: WideString): Integer; dispid 14;
  1897.     function Insert(Index: Integer; const Text: WideString): Integer; dispid 15;
  1898.     procedure Delete(Index: Integer); dispid 16;
  1899.     function GetItem(X, Y: Integer): Integer; dispid 17;
  1900.     function GetTextItem(const Value: WideString): Integer; dispid 18;
  1901.     procedure FullExpand; dispid 19;
  1902.     procedure FullCollapse; dispid 20;
  1903.     procedure LoadFromFile(const FileName: WideString); dispid 21;
  1904.     procedure SaveToFile(const FileName: WideString); dispid 22;
  1905.     procedure BeginUpdate; dispid 23;
  1906.     procedure EndUpdate; dispid 24;
  1907.     procedure SetUpdateState(Value: WordBool); dispid 25;
  1908.     procedure Clear; dispid 26;
  1909.     property ItemCount: Integer readonly dispid 27;
  1910.     property SelectedItem: Integer dispid 28;
  1911.     property Row: Integer dispid 29;
  1912.     property Cursor: Smallint dispid 30;
  1913.     procedure AboutBox; dispid -552;
  1914.   end;
  1915.  
  1916. { Events interface for OutlineX Control }
  1917.  
  1918.   IOutlineXEvents = dispinterface
  1919.     ['{5A5659A1-7975-11D0-BE02-00A024D1875C}']
  1920.     procedure OnExpand(Index: Integer); dispid 1;
  1921.     procedure OnCollapse(Index: Integer); dispid 2;
  1922.     procedure OnClick; dispid 3;
  1923.     procedure OnDblClick; dispid 4;
  1924.     procedure OnKeyPress(var Key: Smallint); dispid 5;
  1925.   end;
  1926.  
  1927. { Dispatch interface for PanelX Control }
  1928.  
  1929.   IPanelX = interface(IDispatch)
  1930.     ['{5A5659A6-7975-11D0-BE02-00A024D1875C}']
  1931.     function Get_BevelInner: TxPanelBevel; safecall;
  1932.     procedure Set_BevelInner(Value: TxPanelBevel); safecall;
  1933.     function Get_BevelWidth: Integer; safecall;
  1934.     procedure Set_BevelWidth(Value: Integer); safecall;
  1935.     function Get_BorderWidth: Integer; safecall;
  1936.     procedure Set_BorderWidth(Value: Integer); safecall;
  1937.     function Get_DragCursor: Smallint; safecall;
  1938.     procedure Set_DragCursor(Value: Smallint); safecall;
  1939.     function Get_Enabled: WordBool; safecall;
  1940.     procedure Set_Enabled(Value: WordBool); safecall;
  1941.     function Get_Caption: WideString; safecall;
  1942.     procedure Set_Caption(const Value: WideString); safecall;
  1943.     function Get_Color: TColor; safecall;
  1944.     procedure Set_Color(Value: TColor); safecall;
  1945.     function Get_Ctl3D: WordBool; safecall;
  1946.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1947.     function Get_Font: Font; safecall;
  1948.     procedure Set_Font(const Value: Font); safecall;
  1949.     function Get_Locked: WordBool; safecall;
  1950.     procedure Set_Locked(Value: WordBool); safecall;
  1951.     function Get_ParentColor: WordBool; safecall;
  1952.     procedure Set_ParentColor(Value: WordBool); safecall;
  1953.     function Get_Visible: WordBool; safecall;
  1954.     procedure Set_Visible(Value: WordBool); safecall;
  1955.     function Get_Cursor: Smallint; safecall;
  1956.     procedure Set_Cursor(Value: Smallint); safecall;
  1957.     procedure AboutBox; safecall;
  1958.     property BevelInner: TxPanelBevel read Get_BevelInner write Set_BevelInner;
  1959.     property BevelWidth: Integer read Get_BevelWidth write Set_BevelWidth;
  1960.     property BorderWidth: Integer read Get_BorderWidth write Set_BorderWidth;
  1961.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1962.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1963.     property Caption: WideString read Get_Caption write Set_Caption;
  1964.     property Color: TColor read Get_Color write Set_Color;
  1965.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1966.     property Font: Font read Get_Font write Set_Font;
  1967.     property Locked: WordBool read Get_Locked write Set_Locked;
  1968.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1969.     property Visible: WordBool read Get_Visible write Set_Visible;
  1970.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1971.   end;
  1972.  
  1973. { DispInterface declaration for Dual Interface IPanelX }
  1974.  
  1975.   DPanelX = dispinterface
  1976.     ['{5A5659A6-7975-11D0-BE02-00A024D1875C}']
  1977.     property BevelInner: TxPanelBevel dispid 1;
  1978.     property BevelWidth: Integer dispid 2;
  1979.     property BorderWidth: Integer dispid 3;
  1980.     property DragCursor: Smallint dispid 4;
  1981.     property Enabled: WordBool dispid 5;
  1982.     property Caption: WideString dispid 6;
  1983.     property Color: TColor dispid 7;
  1984.     property Ctl3D: WordBool dispid 8;
  1985.     property Font: Font dispid 9;
  1986.     property Locked: WordBool dispid 10;
  1987.     property ParentColor: WordBool dispid 11;
  1988.     property Visible: WordBool dispid 12;
  1989.     property Cursor: Smallint dispid 13;
  1990.     procedure AboutBox; dispid -552;
  1991.   end;
  1992.  
  1993. { Events interface for PanelX Control }
  1994.  
  1995.   IPanelXEvents = dispinterface
  1996.     ['{5A5659A7-7975-11D0-BE02-00A024D1875C}']
  1997.     procedure OnClick; dispid 1;
  1998.     procedure OnDblClick; dispid 2;
  1999.     procedure OnResize; dispid 3;
  2000.   end;
  2001.  
  2002. { Dispatch interface for ProgressBarX Control }
  2003.  
  2004.   IProgressBarX = interface(IDispatch)
  2005.     ['{5A5659AB-7975-11D0-BE02-00A024D1875C}']
  2006.     procedure StepIt; safecall;
  2007.     procedure StepBy(Delta: Integer); safecall;
  2008.     function Get_DragCursor: Smallint; safecall;
  2009.     procedure Set_DragCursor(Value: Smallint); safecall;
  2010.     function Get_Enabled: WordBool; safecall;
  2011.     procedure Set_Enabled(Value: WordBool); safecall;
  2012.     function Get_Min: Integer; safecall;
  2013.     procedure Set_Min(Value: Integer); safecall;
  2014.     function Get_Max: Integer; safecall;
  2015.     procedure Set_Max(Value: Integer); safecall;
  2016.     function Get_Position: Integer; safecall;
  2017.     procedure Set_Position(Value: Integer); safecall;
  2018.     function Get_Step: Integer; safecall;
  2019.     procedure Set_Step(Value: Integer); safecall;
  2020.     function Get_Visible: WordBool; safecall;
  2021.     procedure Set_Visible(Value: WordBool); safecall;
  2022.     function Get_Cursor: Smallint; safecall;
  2023.     procedure Set_Cursor(Value: Smallint); safecall;
  2024.     procedure AboutBox; safecall;
  2025.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2026.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2027.     property Min: Integer read Get_Min write Set_Min;
  2028.     property Max: Integer read Get_Max write Set_Max;
  2029.     property Position: Integer read Get_Position write Set_Position;
  2030.     property Step: Integer read Get_Step write Set_Step;
  2031.     property Visible: WordBool read Get_Visible write Set_Visible;
  2032.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2033.   end;
  2034.  
  2035. { DispInterface declaration for Dual Interface IProgressBarX }
  2036.  
  2037.   DProgressBarX = dispinterface
  2038.     ['{5A5659AB-7975-11D0-BE02-00A024D1875C}']
  2039.     procedure StepIt; dispid 1;
  2040.     procedure StepBy(Delta: Integer); dispid 2;
  2041.     property DragCursor: Smallint dispid 3;
  2042.     property Enabled: WordBool dispid 4;
  2043.     property Min: Integer dispid 5;
  2044.     property Max: Integer dispid 6;
  2045.     property Position: Integer dispid 7;
  2046.     property Step: Integer dispid 8;
  2047.     property Visible: WordBool dispid 9;
  2048.     property Cursor: Smallint dispid 10;
  2049.     procedure AboutBox; dispid -552;
  2050.   end;
  2051.  
  2052. { Events interface for ProgressBarX Control }
  2053.  
  2054.   IProgressBarXEvents = dispinterface
  2055.     ['{5A5659AC-7975-11D0-BE02-00A024D1875C}']
  2056.   end;
  2057.  
  2058. { Dispatch interface for RadioButtonX Control }
  2059.  
  2060.   IRadioButtonX = interface(IDispatch)
  2061.     ['{5A5659AF-7975-11D0-BE02-00A024D1875C}']
  2062.     function Get_Caption: WideString; safecall;
  2063.     procedure Set_Caption(const Value: WideString); safecall;
  2064.     function Get_Checked: WordBool; safecall;
  2065.     procedure Set_Checked(Value: WordBool); safecall;
  2066.     function Get_Color: TColor; safecall;
  2067.     procedure Set_Color(Value: TColor); safecall;
  2068.     function Get_Ctl3D: WordBool; safecall;
  2069.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2070.     function Get_DragCursor: Smallint; safecall;
  2071.     procedure Set_DragCursor(Value: Smallint); safecall;
  2072.     function Get_Enabled: WordBool; safecall;
  2073.     procedure Set_Enabled(Value: WordBool); safecall;
  2074.     function Get_Font: Font; safecall;
  2075.     procedure Set_Font(const Value: Font); safecall;
  2076.     function Get_ParentColor: WordBool; safecall;
  2077.     procedure Set_ParentColor(Value: WordBool); safecall;
  2078.     function Get_Visible: WordBool; safecall;
  2079.     procedure Set_Visible(Value: WordBool); safecall;
  2080.     function Get_Cursor: Smallint; safecall;
  2081.     procedure Set_Cursor(Value: Smallint); safecall;
  2082.     procedure AboutBox; safecall;
  2083.     property Caption: WideString read Get_Caption write Set_Caption;
  2084.     property Checked: WordBool read Get_Checked write Set_Checked;
  2085.     property Color: TColor read Get_Color write Set_Color;
  2086.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2087.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2088.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2089.     property Font: Font read Get_Font write Set_Font;
  2090.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2091.     property Visible: WordBool read Get_Visible write Set_Visible;
  2092.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2093.   end;
  2094.  
  2095. { DispInterface declaration for Dual Interface IRadioButtonX }
  2096.  
  2097.   DRadioButtonX = dispinterface
  2098.     ['{5A5659AF-7975-11D0-BE02-00A024D1875C}']
  2099.     property Caption: WideString dispid 1;
  2100.     property Checked: WordBool dispid 2;
  2101.     property Color: TColor dispid 3;
  2102.     property Ctl3D: WordBool dispid 4;
  2103.     property DragCursor: Smallint dispid 5;
  2104.     property Enabled: WordBool dispid 6;
  2105.     property Font: Font dispid 7;
  2106.     property ParentColor: WordBool dispid 8;
  2107.     property Visible: WordBool dispid 9;
  2108.     property Cursor: Smallint dispid 10;
  2109.     procedure AboutBox; dispid -552;
  2110.   end;
  2111.  
  2112. { Events interface for RadioButtonX Control }
  2113.  
  2114.   IRadioButtonXEvents = dispinterface
  2115.     ['{5A5659B0-7975-11D0-BE02-00A024D1875C}']
  2116.     procedure OnClick; dispid 1;
  2117.     procedure OnDblClick; dispid 2;
  2118.     procedure OnKeyPress(var Key: Smallint); dispid 3;
  2119.   end;
  2120.  
  2121. { Dispatch interface for RichEditX Control }
  2122.  
  2123.   IRichEditX = interface(IDispatch)
  2124.     ['{5A5659B3-7975-11D0-BE02-00A024D1875C}']
  2125.     function Get_Color: TColor; safecall;
  2126.     procedure Set_Color(Value: TColor); safecall;
  2127.     function Get_Ctl3D: WordBool; safecall;
  2128.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2129.     function Get_DragCursor: Smallint; safecall;
  2130.     procedure Set_DragCursor(Value: Smallint); safecall;
  2131.     function Get_Enabled: WordBool; safecall;
  2132.     procedure Set_Enabled(Value: WordBool); safecall;
  2133.     function Get_Font: Font; safecall;
  2134.     procedure Set_Font(const Value: Font); safecall;
  2135.     function Get_HideSelection: WordBool; safecall;
  2136.     procedure Set_HideSelection(Value: WordBool); safecall;
  2137.     function Get_HideScrollBars: WordBool; safecall;
  2138.     procedure Set_HideScrollBars(Value: WordBool); safecall;
  2139.     function Get_ImeName: WideString; safecall;
  2140.     procedure Set_ImeName(const Value: WideString); safecall;
  2141.     function Get_Lines: IStrings; safecall;
  2142.     procedure Set_Lines(const Value: IStrings); safecall;
  2143.     function Get_MaxLength: Integer; safecall;
  2144.     procedure Set_MaxLength(Value: Integer); safecall;
  2145.     function Get_ParentColor: WordBool; safecall;
  2146.     procedure Set_ParentColor(Value: WordBool); safecall;
  2147.     function Get_PlainText: WordBool; safecall;
  2148.     procedure Set_PlainText(Value: WordBool); safecall;
  2149.     function Get_ReadOnly: WordBool; safecall;
  2150.     procedure Set_ReadOnly(Value: WordBool); safecall;
  2151.     function Get_Visible: WordBool; safecall;
  2152.     procedure Set_Visible(Value: WordBool); safecall;
  2153.     function Get_WantTabs: WordBool; safecall;
  2154.     procedure Set_WantTabs(Value: WordBool); safecall;
  2155.     function Get_WantReturns: WordBool; safecall;
  2156.     procedure Set_WantReturns(Value: WordBool); safecall;
  2157.     function Get_WordWrap: WordBool; safecall;
  2158.     procedure Set_WordWrap(Value: WordBool); safecall;
  2159.     procedure Clear; safecall;
  2160.     procedure Print(const Caption: WideString); safecall;
  2161.     procedure ClearSelection; safecall;
  2162.     procedure CopyToClipboard; safecall;
  2163.     procedure CutToClipboard; safecall;
  2164.     procedure PasteFromClipboard; safecall;
  2165.     procedure SelectAll; safecall;
  2166.     function Get_Modified: WordBool; safecall;
  2167.     procedure Set_Modified(Value: WordBool); safecall;
  2168.     function Get_SelLength: Integer; safecall;
  2169.     procedure Set_SelLength(Value: Integer); safecall;
  2170.     function Get_SelStart: Integer; safecall;
  2171.     procedure Set_SelStart(Value: Integer); safecall;
  2172.     function Get_SelText: WideString; safecall;
  2173.     procedure Set_SelText(const Value: WideString); safecall;
  2174.     function Get_Text: WideString; safecall;
  2175.     procedure Set_Text(const Value: WideString); safecall;
  2176.     function Get_Cursor: Smallint; safecall;
  2177.     procedure Set_Cursor(Value: Smallint); safecall;
  2178.     procedure AboutBox; safecall;
  2179.     property Color: TColor read Get_Color write Set_Color;
  2180.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2181.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2182.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2183.     property Font: Font read Get_Font write Set_Font;
  2184.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  2185.     property HideScrollBars: WordBool read Get_HideScrollBars write Set_HideScrollBars;
  2186.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  2187.     property Lines: IStrings read Get_Lines write Set_Lines;
  2188.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  2189.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2190.     property PlainText: WordBool read Get_PlainText write Set_PlainText;
  2191.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  2192.     property Visible: WordBool read Get_Visible write Set_Visible;
  2193.     property WantTabs: WordBool read Get_WantTabs write Set_WantTabs;
  2194.     property WantReturns: WordBool read Get_WantReturns write Set_WantReturns;
  2195.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  2196.     property Modified: WordBool read Get_Modified write Set_Modified;
  2197.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  2198.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  2199.     property SelText: WideString read Get_SelText write Set_SelText;
  2200.     property Text: WideString read Get_Text write Set_Text;
  2201.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2202.   end;
  2203.  
  2204. { DispInterface declaration for Dual Interface IRichEditX }
  2205.  
  2206.   DRichEditX = dispinterface
  2207.     ['{5A5659B3-7975-11D0-BE02-00A024D1875C}']
  2208.     property Color: TColor dispid 1;
  2209.     property Ctl3D: WordBool dispid 2;
  2210.     property DragCursor: Smallint dispid 3;
  2211.     property Enabled: WordBool dispid 4;
  2212.     property Font: Font dispid 5;
  2213.     property HideSelection: WordBool dispid 6;
  2214.     property HideScrollBars: WordBool dispid 7;
  2215.     property ImeName: WideString dispid 8;
  2216.     property Lines: IStrings dispid 9;
  2217.     property MaxLength: Integer dispid 10;
  2218.     property ParentColor: WordBool dispid 11;
  2219.     property PlainText: WordBool dispid 12;
  2220.     property ReadOnly: WordBool dispid 13;
  2221.     property Visible: WordBool dispid 14;
  2222.     property WantTabs: WordBool dispid 15;
  2223.     property WantReturns: WordBool dispid 16;
  2224.     property WordWrap: WordBool dispid 17;
  2225.     procedure Clear; dispid 18;
  2226.     procedure Print(const Caption: WideString); dispid 19;
  2227.     procedure ClearSelection; dispid 20;
  2228.     procedure CopyToClipboard; dispid 21;
  2229.     procedure CutToClipboard; dispid 22;
  2230.     procedure PasteFromClipboard; dispid 23;
  2231.     procedure SelectAll; dispid 24;
  2232.     property Modified: WordBool dispid 25;
  2233.     property SelLength: Integer dispid 26;
  2234.     property SelStart: Integer dispid 27;
  2235.     property SelText: WideString dispid 28;
  2236.     property Text: WideString dispid 29;
  2237.     property Cursor: Smallint dispid 30;
  2238.     procedure AboutBox; dispid -552;
  2239.   end;
  2240.  
  2241. { Events interface for RichEditX Control }
  2242.  
  2243.   IRichEditXEvents = dispinterface
  2244.     ['{5A5659B4-7975-11D0-BE02-00A024D1875C}']
  2245.     procedure OnChange; dispid 1;
  2246.     procedure OnKeyPress(var Key: Smallint); dispid 2;
  2247.     procedure OnSelectionChange; dispid 3;
  2248.     procedure OnProtectChange(StartPos, EndPos: Integer; var AllowChange: WordBool); dispid 4;
  2249.     procedure OnSaveClipboard(NumObjects, NumChars: Integer; var SaveClipboard: WordBool); dispid 5;
  2250.   end;
  2251.  
  2252. { Dispatch interface for ScrollBarX Control }
  2253.  
  2254.   IScrollBarX = interface(IDispatch)
  2255.     ['{5A5659B7-7975-11D0-BE02-00A024D1875C}']
  2256.     procedure SetParams(APosition, AMin, AMax: Integer); safecall;
  2257.     function Get_Ctl3D: WordBool; safecall;
  2258.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2259.     function Get_DragCursor: Smallint; safecall;
  2260.     procedure Set_DragCursor(Value: Smallint); safecall;
  2261.     function Get_Enabled: WordBool; safecall;
  2262.     procedure Set_Enabled(Value: WordBool); safecall;
  2263.     function Get_Kind: TxScrollBarKind; safecall;
  2264.     procedure Set_Kind(Value: TxScrollBarKind); safecall;
  2265.     function Get_LargeChange: Smallint; safecall;
  2266.     procedure Set_LargeChange(Value: Smallint); safecall;
  2267.     function Get_Max: Integer; safecall;
  2268.     procedure Set_Max(Value: Integer); safecall;
  2269.     function Get_Min: Integer; safecall;
  2270.     procedure Set_Min(Value: Integer); safecall;
  2271.     function Get_Position: Integer; safecall;
  2272.     procedure Set_Position(Value: Integer); safecall;
  2273.     function Get_SmallChange: Smallint; safecall;
  2274.     procedure Set_SmallChange(Value: Smallint); safecall;
  2275.     function Get_Visible: WordBool; safecall;
  2276.     procedure Set_Visible(Value: WordBool); safecall;
  2277.     function Get_Cursor: Smallint; safecall;
  2278.     procedure Set_Cursor(Value: Smallint); safecall;
  2279.     procedure AboutBox; safecall;
  2280.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2281.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2282.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2283.     property Kind: TxScrollBarKind read Get_Kind write Set_Kind;
  2284.     property LargeChange: Smallint read Get_LargeChange write Set_LargeChange;
  2285.     property Max: Integer read Get_Max write Set_Max;
  2286.     property Min: Integer read Get_Min write Set_Min;
  2287.     property Position: Integer read Get_Position write Set_Position;
  2288.     property SmallChange: Smallint read Get_SmallChange write Set_SmallChange;
  2289.     property Visible: WordBool read Get_Visible write Set_Visible;
  2290.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2291.   end;
  2292.  
  2293. { DispInterface declaration for Dual Interface IScrollBarX }
  2294.  
  2295.   DScrollBarX = dispinterface
  2296.     ['{5A5659B7-7975-11D0-BE02-00A024D1875C}']
  2297.     procedure SetParams(APosition, AMin, AMax: Integer); dispid 1;
  2298.     property Ctl3D: WordBool dispid 2;
  2299.     property DragCursor: Smallint dispid 3;
  2300.     property Enabled: WordBool dispid 4;
  2301.     property Kind: TxScrollBarKind dispid 5;
  2302.     property LargeChange: Smallint dispid 6;
  2303.     property Max: Integer dispid 7;
  2304.     property Min: Integer dispid 8;
  2305.     property Position: Integer dispid 9;
  2306.     property SmallChange: Smallint dispid 10;
  2307.     property Visible: WordBool dispid 11;
  2308.     property Cursor: Smallint dispid 12;
  2309.     procedure AboutBox; dispid -552;
  2310.   end;
  2311.  
  2312. { Events interface for ScrollBarX Control }
  2313.  
  2314.   IScrollBarXEvents = dispinterface
  2315.     ['{5A5659B8-7975-11D0-BE02-00A024D1875C}']
  2316.     procedure OnChange; dispid 1;
  2317.     procedure OnKeyPress(var Key: Smallint); dispid 2;
  2318.     procedure OnScroll(ScrollCode: TxScrollCode; var ScrollPos: Integer); dispid 3;
  2319.   end;
  2320.  
  2321. { Dispatch interface for ScrollBoxX Control }
  2322.  
  2323.   IScrollBoxX = interface(IDispatch)
  2324.     ['{5A5659BD-7975-11D0-BE02-00A024D1875C}']
  2325.     function Get_AutoScroll: WordBool; safecall;
  2326.     procedure Set_AutoScroll(Value: WordBool); safecall;
  2327.     function Get_DragCursor: Smallint; safecall;
  2328.     procedure Set_DragCursor(Value: Smallint); safecall;
  2329.     function Get_Enabled: WordBool; safecall;
  2330.     procedure Set_Enabled(Value: WordBool); safecall;
  2331.     function Get_Color: TColor; safecall;
  2332.     procedure Set_Color(Value: TColor); safecall;
  2333.     function Get_Ctl3D: WordBool; safecall;
  2334.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2335.     function Get_Font: Font; safecall;
  2336.     procedure Set_Font(const Value: Font); safecall;
  2337.     function Get_ParentColor: WordBool; safecall;
  2338.     procedure Set_ParentColor(Value: WordBool); safecall;
  2339.     function Get_Visible: WordBool; safecall;
  2340.     procedure Set_Visible(Value: WordBool); safecall;
  2341.     procedure DisableAutoRange; safecall;
  2342.     procedure EnableAutoRange; safecall;
  2343.     function Get_Cursor: Smallint; safecall;
  2344.     procedure Set_Cursor(Value: Smallint); safecall;
  2345.     procedure AboutBox; safecall;
  2346.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  2347.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2348.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2349.     property Color: TColor read Get_Color write Set_Color;
  2350.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2351.     property Font: Font read Get_Font write Set_Font;
  2352.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2353.     property Visible: WordBool read Get_Visible write Set_Visible;
  2354.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2355.   end;
  2356.  
  2357. { DispInterface declaration for Dual Interface IScrollBoxX }
  2358.  
  2359.   DScrollBoxX = dispinterface
  2360.     ['{5A5659BD-7975-11D0-BE02-00A024D1875C}']
  2361.     property AutoScroll: WordBool dispid 1;
  2362.     property DragCursor: Smallint dispid 2;
  2363.     property Enabled: WordBool dispid 3;
  2364.     property Color: TColor dispid 4;
  2365.     property Ctl3D: WordBool dispid 5;
  2366.     property Font: Font dispid 6;
  2367.     property ParentColor: WordBool dispid 7;
  2368.     property Visible: WordBool dispid 8;
  2369.     procedure DisableAutoRange; dispid 9;
  2370.     procedure EnableAutoRange; dispid 10;
  2371.     property Cursor: Smallint dispid 11;
  2372.     procedure AboutBox; dispid -552;
  2373.   end;
  2374.  
  2375. { Events interface for ScrollBoxX Control }
  2376.  
  2377.   IScrollBoxXEvents = dispinterface
  2378.     ['{5A5659BE-7975-11D0-BE02-00A024D1875C}']
  2379.     procedure OnClick; dispid 1;
  2380.     procedure OnDblClick; dispid 2;
  2381.     procedure OnResize; dispid 3;
  2382.   end;
  2383.  
  2384. { Dispatch interface for SpinEditX Control }
  2385.  
  2386.   ISpinEditX = interface(IDispatch)
  2387.     ['{5A5659C1-7975-11D0-BE02-00A024D1875C}']
  2388.     function Get_AutoSelect: WordBool; safecall;
  2389.     procedure Set_AutoSelect(Value: WordBool); safecall;
  2390.     function Get_AutoSize: WordBool; safecall;
  2391.     procedure Set_AutoSize(Value: WordBool); safecall;
  2392.     function Get_Color: TColor; safecall;
  2393.     procedure Set_Color(Value: TColor); safecall;
  2394.     function Get_Ctl3D: WordBool; safecall;
  2395.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2396.     function Get_DragCursor: Smallint; safecall;
  2397.     procedure Set_DragCursor(Value: Smallint); safecall;
  2398.     function Get_EditorEnabled: WordBool; safecall;
  2399.     procedure Set_EditorEnabled(Value: WordBool); safecall;
  2400.     function Get_Enabled: WordBool; safecall;
  2401.     procedure Set_Enabled(Value: WordBool); safecall;
  2402.     function Get_Font: Font; safecall;
  2403.     procedure Set_Font(const Value: Font); safecall;
  2404.     function Get_Increment: Integer; safecall;
  2405.     procedure Set_Increment(Value: Integer); safecall;
  2406.     function Get_MaxLength: Integer; safecall;
  2407.     procedure Set_MaxLength(Value: Integer); safecall;
  2408.     function Get_MaxValue: Integer; safecall;
  2409.     procedure Set_MaxValue(Value: Integer); safecall;
  2410.     function Get_MinValue: Integer; safecall;
  2411.     procedure Set_MinValue(Value: Integer); safecall;
  2412.     function Get_ParentColor: WordBool; safecall;
  2413.     procedure Set_ParentColor(Value: WordBool); safecall;
  2414.     function Get_ReadOnly: WordBool; safecall;
  2415.     procedure Set_ReadOnly(Value: WordBool); safecall;
  2416.     function Get_Value: Integer; safecall;
  2417.     procedure Set_Value(Value: Integer); safecall;
  2418.     function Get_Visible: WordBool; safecall;
  2419.     procedure Set_Visible(Value: WordBool); safecall;
  2420.     procedure Clear; safecall;
  2421.     procedure ClearSelection; safecall;
  2422.     procedure CopyToClipboard; safecall;
  2423.     procedure CutToClipboard; safecall;
  2424.     procedure PasteFromClipboard; safecall;
  2425.     procedure SelectAll; safecall;
  2426.     function Get_Modified: WordBool; safecall;
  2427.     procedure Set_Modified(Value: WordBool); safecall;
  2428.     function Get_SelLength: Integer; safecall;
  2429.     procedure Set_SelLength(Value: Integer); safecall;
  2430.     function Get_SelStart: Integer; safecall;
  2431.     procedure Set_SelStart(Value: Integer); safecall;
  2432.     function Get_SelText: WideString; safecall;
  2433.     procedure Set_SelText(const Value: WideString); safecall;
  2434.     function Get_Text: WideString; safecall;
  2435.     procedure Set_Text(const Value: WideString); safecall;
  2436.     function Get_Cursor: Smallint; safecall;
  2437.     procedure Set_Cursor(Value: Smallint); safecall;
  2438.     procedure AboutBox; safecall;
  2439.     property AutoSelect: WordBool read Get_AutoSelect write Set_AutoSelect;
  2440.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2441.     property Color: TColor read Get_Color write Set_Color;
  2442.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2443.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2444.     property EditorEnabled: WordBool read Get_EditorEnabled write Set_EditorEnabled;
  2445.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2446.     property Font: Font read Get_Font write Set_Font;
  2447.     property Increment: Integer read Get_Increment write Set_Increment;
  2448.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  2449.     property MaxValue: Integer read Get_MaxValue write Set_MaxValue;
  2450.     property MinValue: Integer read Get_MinValue write Set_MinValue;
  2451.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2452.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  2453.     property Value: Integer read Get_Value write Set_Value;
  2454.     property Visible: WordBool read Get_Visible write Set_Visible;
  2455.     property Modified: WordBool read Get_Modified write Set_Modified;
  2456.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  2457.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  2458.     property SelText: WideString read Get_SelText write Set_SelText;
  2459.     property Text: WideString read Get_Text write Set_Text;
  2460.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2461.   end;
  2462.  
  2463. { DispInterface declaration for Dual Interface ISpinEditX }
  2464.  
  2465.   DSpinEditX = dispinterface
  2466.     ['{5A5659C1-7975-11D0-BE02-00A024D1875C}']
  2467.     property AutoSelect: WordBool dispid 1;
  2468.     property AutoSize: WordBool dispid 2;
  2469.     property Color: TColor dispid 3;
  2470.     property Ctl3D: WordBool dispid 4;
  2471.     property DragCursor: Smallint dispid 5;
  2472.     property EditorEnabled: WordBool dispid 6;
  2473.     property Enabled: WordBool dispid 7;
  2474.     property Font: Font dispid 8;
  2475.     property Increment: Integer dispid 9;
  2476.     property MaxLength: Integer dispid 10;
  2477.     property MaxValue: Integer dispid 11;
  2478.     property MinValue: Integer dispid 12;
  2479.     property ParentColor: WordBool dispid 13;
  2480.     property ReadOnly: WordBool dispid 14;
  2481.     property Value: Integer dispid 15;
  2482.     property Visible: WordBool dispid 16;
  2483.     procedure Clear; dispid 17;
  2484.     procedure ClearSelection; dispid 18;
  2485.     procedure CopyToClipboard; dispid 19;
  2486.     procedure CutToClipboard; dispid 20;
  2487.     procedure PasteFromClipboard; dispid 21;
  2488.     procedure SelectAll; dispid 22;
  2489.     property Modified: WordBool dispid 23;
  2490.     property SelLength: Integer dispid 24;
  2491.     property SelStart: Integer dispid 25;
  2492.     property SelText: WideString dispid 26;
  2493.     property Text: WideString dispid 27;
  2494.     property Cursor: Smallint dispid 28;
  2495.     procedure AboutBox; dispid -552;
  2496.   end;
  2497.  
  2498. { Events interface for SpinEditX Control }
  2499.  
  2500.   ISpinEditXEvents = dispinterface
  2501.     ['{5A5659C2-7975-11D0-BE02-00A024D1875C}']
  2502.     procedure OnChange; dispid 1;
  2503.     procedure OnClick; dispid 2;
  2504.     procedure OnDblClick; dispid 3;
  2505.     procedure OnKeyPress(var Key: Smallint); dispid 4;
  2506.   end;
  2507.  
  2508. { Dispatch interface for StaticTextX Control }
  2509.  
  2510.   IStaticTextX = interface(IDispatch)
  2511.     ['{5A5659C5-7975-11D0-BE02-00A024D1875C}']
  2512.     function Get_AutoSize: WordBool; safecall;
  2513.     procedure Set_AutoSize(Value: WordBool); safecall;
  2514.     function Get_BorderStyle: TxStaticBorderStyle; safecall;
  2515.     procedure Set_BorderStyle(Value: TxStaticBorderStyle); safecall;
  2516.     function Get_Caption: WideString; safecall;
  2517.     procedure Set_Caption(const Value: WideString); safecall;
  2518.     function Get_Color: TColor; safecall;
  2519.     procedure Set_Color(Value: TColor); safecall;
  2520.     function Get_DragCursor: Smallint; safecall;
  2521.     procedure Set_DragCursor(Value: Smallint); safecall;
  2522.     function Get_Enabled: WordBool; safecall;
  2523.     procedure Set_Enabled(Value: WordBool); safecall;
  2524.     function Get_Font: Font; safecall;
  2525.     procedure Set_Font(const Value: Font); safecall;
  2526.     function Get_ParentColor: WordBool; safecall;
  2527.     procedure Set_ParentColor(Value: WordBool); safecall;
  2528.     function Get_ShowAccelChar: WordBool; safecall;
  2529.     procedure Set_ShowAccelChar(Value: WordBool); safecall;
  2530.     function Get_Visible: WordBool; safecall;
  2531.     procedure Set_Visible(Value: WordBool); safecall;
  2532.     function Get_Cursor: Smallint; safecall;
  2533.     procedure Set_Cursor(Value: Smallint); safecall;
  2534.     procedure AboutBox; safecall;
  2535.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2536.     property BorderStyle: TxStaticBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2537.     property Caption: WideString read Get_Caption write Set_Caption;
  2538.     property Color: TColor read Get_Color write Set_Color;
  2539.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2540.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2541.     property Font: Font read Get_Font write Set_Font;
  2542.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2543.     property ShowAccelChar: WordBool read Get_ShowAccelChar write Set_ShowAccelChar;
  2544.     property Visible: WordBool read Get_Visible write Set_Visible;
  2545.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2546.   end;
  2547.  
  2548. { DispInterface declaration for Dual Interface IStaticTextX }
  2549.  
  2550.   DStaticTextX = dispinterface
  2551.     ['{5A5659C5-7975-11D0-BE02-00A024D1875C}']
  2552.     property AutoSize: WordBool dispid 1;
  2553.     property BorderStyle: TxStaticBorderStyle dispid 2;
  2554.     property Caption: WideString dispid 3;
  2555.     property Color: TColor dispid 4;
  2556.     property DragCursor: Smallint dispid 5;
  2557.     property Enabled: WordBool dispid 6;
  2558.     property Font: Font dispid 7;
  2559.     property ParentColor: WordBool dispid 8;
  2560.     property ShowAccelChar: WordBool dispid 9;
  2561.     property Visible: WordBool dispid 10;
  2562.     property Cursor: Smallint dispid 11;
  2563.     procedure AboutBox; dispid -552;
  2564.   end;
  2565.  
  2566. { Events interface for StaticTextX Control }
  2567.  
  2568.   IStaticTextXEvents = dispinterface
  2569.     ['{5A5659C6-7975-11D0-BE02-00A024D1875C}']
  2570.     procedure OnClick; dispid 1;
  2571.     procedure OnDblClick; dispid 2;
  2572.   end;
  2573.  
  2574. { Dispatch interface for StringGridX Control }
  2575.  
  2576.   IStringGridX = interface(IDispatch)
  2577.     ['{5A5659CA-7975-11D0-BE02-00A024D1875C}']
  2578.     procedure MouseToCell(X, Y: Integer; var ACol, ARow: Integer); safecall;
  2579.     function Get_Col: Integer; safecall;
  2580.     procedure Set_Col(Value: Integer); safecall;
  2581.     function Get_EditorMode: WordBool; safecall;
  2582.     procedure Set_EditorMode(Value: WordBool); safecall;
  2583.     function Get_GridHeight: Integer; safecall;
  2584.     function Get_GridWidth: Integer; safecall;
  2585.     function Get_LeftCol: Integer; safecall;
  2586.     procedure Set_LeftCol(Value: Integer); safecall;
  2587.     function Get_Row: Integer; safecall;
  2588.     procedure Set_Row(Value: Integer); safecall;
  2589.     function Get_TopRow: Integer; safecall;
  2590.     procedure Set_TopRow(Value: Integer); safecall;
  2591.     function Get_Color: TColor; safecall;
  2592.     procedure Set_Color(Value: TColor); safecall;
  2593.     function Get_ColCount: Integer; safecall;
  2594.     procedure Set_ColCount(Value: Integer); safecall;
  2595.     function Get_Ctl3D: WordBool; safecall;
  2596.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2597.     function Get_DefaultColWidth: Integer; safecall;
  2598.     procedure Set_DefaultColWidth(Value: Integer); safecall;
  2599.     function Get_DefaultRowHeight: Integer; safecall;
  2600.     procedure Set_DefaultRowHeight(Value: Integer); safecall;
  2601.     function Get_DefaultDrawing: WordBool; safecall;
  2602.     procedure Set_DefaultDrawing(Value: WordBool); safecall;
  2603.     function Get_DragCursor: Smallint; safecall;
  2604.     procedure Set_DragCursor(Value: Smallint); safecall;
  2605.     function Get_Enabled: WordBool; safecall;
  2606.     procedure Set_Enabled(Value: WordBool); safecall;
  2607.     function Get_FixedColor: TColor; safecall;
  2608.     procedure Set_FixedColor(Value: TColor); safecall;
  2609.     function Get_FixedCols: Integer; safecall;
  2610.     procedure Set_FixedCols(Value: Integer); safecall;
  2611.     function Get_RowCount: Integer; safecall;
  2612.     procedure Set_RowCount(Value: Integer); safecall;
  2613.     function Get_FixedRows: Integer; safecall;
  2614.     procedure Set_FixedRows(Value: Integer); safecall;
  2615.     function Get_Font: Font; safecall;
  2616.     procedure Set_Font(const Value: Font); safecall;
  2617.     function Get_GridLineWidth: Integer; safecall;
  2618.     procedure Set_GridLineWidth(Value: Integer); safecall;
  2619.     function Get_ParentColor: WordBool; safecall;
  2620.     procedure Set_ParentColor(Value: WordBool); safecall;
  2621.     function Get_Visible: WordBool; safecall;
  2622.     procedure Set_Visible(Value: WordBool); safecall;
  2623.     function Get_VisibleColCount: Integer; safecall;
  2624.     function Get_VisibleRowCount: Integer; safecall;
  2625.     function Get_Cursor: Smallint; safecall;
  2626.     procedure Set_Cursor(Value: Smallint); safecall;
  2627.     procedure AboutBox; safecall;
  2628.     property Col: Integer read Get_Col write Set_Col;
  2629.     property EditorMode: WordBool read Get_EditorMode write Set_EditorMode;
  2630.     property GridHeight: Integer read Get_GridHeight;
  2631.     property GridWidth: Integer read Get_GridWidth;
  2632.     property LeftCol: Integer read Get_LeftCol write Set_LeftCol;
  2633.     property Row: Integer read Get_Row write Set_Row;
  2634.     property TopRow: Integer read Get_TopRow write Set_TopRow;
  2635.     property Color: TColor read Get_Color write Set_Color;
  2636.     property ColCount: Integer read Get_ColCount write Set_ColCount;
  2637.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2638.     property DefaultColWidth: Integer read Get_DefaultColWidth write Set_DefaultColWidth;
  2639.     property DefaultRowHeight: Integer read Get_DefaultRowHeight write Set_DefaultRowHeight;
  2640.     property DefaultDrawing: WordBool read Get_DefaultDrawing write Set_DefaultDrawing;
  2641.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2642.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2643.     property FixedColor: TColor read Get_FixedColor write Set_FixedColor;
  2644.     property FixedCols: Integer read Get_FixedCols write Set_FixedCols;
  2645.     property RowCount: Integer read Get_RowCount write Set_RowCount;
  2646.     property FixedRows: Integer read Get_FixedRows write Set_FixedRows;
  2647.     property Font: Font read Get_Font write Set_Font;
  2648.     property GridLineWidth: Integer read Get_GridLineWidth write Set_GridLineWidth;
  2649.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2650.     property Visible: WordBool read Get_Visible write Set_Visible;
  2651.     property VisibleColCount: Integer read Get_VisibleColCount;
  2652.     property VisibleRowCount: Integer read Get_VisibleRowCount;
  2653.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2654.   end;
  2655.  
  2656. { DispInterface declaration for Dual Interface IStringGridX }
  2657.  
  2658.   DStringGridX = dispinterface
  2659.     ['{5A5659CA-7975-11D0-BE02-00A024D1875C}']
  2660.     procedure MouseToCell(X, Y: Integer; var ACol, ARow: Integer); dispid 1;
  2661.     property Col: Integer dispid 2;
  2662.     property EditorMode: WordBool dispid 3;
  2663.     property GridHeight: Integer readonly dispid 4;
  2664.     property GridWidth: Integer readonly dispid 5;
  2665.     property LeftCol: Integer dispid 6;
  2666.     property Row: Integer dispid 7;
  2667.     property TopRow: Integer dispid 8;
  2668.     property Color: TColor dispid 9;
  2669.     property ColCount: Integer dispid 10;
  2670.     property Ctl3D: WordBool dispid 11;
  2671.     property DefaultColWidth: Integer dispid 12;
  2672.     property DefaultRowHeight: Integer dispid 13;
  2673.     property DefaultDrawing: WordBool dispid 14;
  2674.     property DragCursor: Smallint dispid 15;
  2675.     property Enabled: WordBool dispid 16;
  2676.     property FixedColor: TColor dispid 17;
  2677.     property FixedCols: Integer dispid 18;
  2678.     property RowCount: Integer dispid 19;
  2679.     property FixedRows: Integer dispid 20;
  2680.     property Font: Font dispid 21;
  2681.     property GridLineWidth: Integer dispid 22;
  2682.     property ParentColor: WordBool dispid 23;
  2683.     property Visible: WordBool dispid 24;
  2684.     property VisibleColCount: Integer readonly dispid 25;
  2685.     property VisibleRowCount: Integer readonly dispid 26;
  2686.     property Cursor: Smallint dispid 27;
  2687.     procedure AboutBox; dispid -552;
  2688.   end;
  2689.  
  2690. { Events interface for StringGridX Control }
  2691.  
  2692.   IStringGridXEvents = dispinterface
  2693.     ['{5A5659CB-7975-11D0-BE02-00A024D1875C}']
  2694.     procedure OnClick; dispid 1;
  2695.     procedure OnColumnMoved(FromIndex, ToIndex: Integer); dispid 2;
  2696.     procedure OnDblClick; dispid 3;
  2697.     procedure OnGetEditMask(ACol, ARow: Integer; var Value: WideString); dispid 4;
  2698.     procedure OnGetEditText(ACol, ARow: Integer; var Value: WideString); dispid 5;
  2699.     procedure OnKeyPress(var Key: Smallint); dispid 6;
  2700.     procedure OnRowMoved(FromIndex, ToIndex: Integer); dispid 7;
  2701.     procedure OnSelectCell(Col, Row: Integer; var CanSelect: WordBool); dispid 8;
  2702.     procedure OnSetEditText(ACol, ARow: Integer; const Value: WideString); dispid 9;
  2703.     procedure OnTopLeftChanged; dispid 10;
  2704.   end;
  2705.  
  2706. { Dispatch interface for TabbedNotebookX Control }
  2707.  
  2708.   ITabbedNotebookX = interface(IDispatch)
  2709.     ['{5A5659CE-7975-11D0-BE02-00A024D1875C}']
  2710.     function GetIndexForPage(const PageName: WideString): Integer; safecall;
  2711.     function Get_TopFont: Font; safecall;
  2712.     function Get_ActivePage: WideString; safecall;
  2713.     procedure Set_ActivePage(const Value: WideString); safecall;
  2714.     function Get_Enabled: WordBool; safecall;
  2715.     procedure Set_Enabled(Value: WordBool); safecall;
  2716.     function Get_PageIndex: Integer; safecall;
  2717.     procedure Set_PageIndex(Value: Integer); safecall;
  2718.     function Get_Pages: IStrings; safecall;
  2719.     procedure Set_Pages(const Value: IStrings); safecall;
  2720.     function Get_Font: Font; safecall;
  2721.     procedure Set_Font(const Value: Font); safecall;
  2722.     function Get_TabsPerRow: Integer; safecall;
  2723.     procedure Set_TabsPerRow(Value: Integer); safecall;
  2724.     function Get_TabFont: Font; safecall;
  2725.     procedure Set_TabFont(const Value: Font); safecall;
  2726.     function Get_Visible: WordBool; safecall;
  2727.     procedure Set_Visible(Value: WordBool); safecall;
  2728.     function Get_Cursor: Smallint; safecall;
  2729.     procedure Set_Cursor(Value: Smallint); safecall;
  2730.     procedure AboutBox; safecall;
  2731.     property TopFont: Font read Get_TopFont;
  2732.     property ActivePage: WideString read Get_ActivePage write Set_ActivePage;
  2733.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2734.     property PageIndex: Integer read Get_PageIndex write Set_PageIndex;
  2735.     property Pages: IStrings read Get_Pages write Set_Pages;
  2736.     property Font: Font read Get_Font write Set_Font;
  2737.     property TabsPerRow: Integer read Get_TabsPerRow write Set_TabsPerRow;
  2738.     property TabFont: Font read Get_TabFont write Set_TabFont;
  2739.     property Visible: WordBool read Get_Visible write Set_Visible;
  2740.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2741.   end;
  2742.  
  2743. { DispInterface declaration for Dual Interface ITabbedNotebookX }
  2744.  
  2745.   DTabbedNotebookX = dispinterface
  2746.     ['{5A5659CE-7975-11D0-BE02-00A024D1875C}']
  2747.     function GetIndexForPage(const PageName: WideString): Integer; dispid 1;
  2748.     property TopFont: Font readonly dispid 2;
  2749.     property ActivePage: WideString dispid 3;
  2750.     property Enabled: WordBool dispid 4;
  2751.     property PageIndex: Integer dispid 5;
  2752.     property Pages: IStrings dispid 6;
  2753.     property Font: Font dispid 7;
  2754.     property TabsPerRow: Integer dispid 8;
  2755.     property TabFont: Font dispid 9;
  2756.     property Visible: WordBool dispid 10;
  2757.     property Cursor: Smallint dispid 11;
  2758.     procedure AboutBox; dispid -552;
  2759.   end;
  2760.  
  2761. { Events interface for TabbedNotebookX Control }
  2762.  
  2763.   ITabbedNotebookXEvents = dispinterface
  2764.     ['{5A5659CF-7975-11D0-BE02-00A024D1875C}']
  2765.     procedure OnClick; dispid 1;
  2766.     procedure OnChange(NewTab: Integer; var AllowChange: WordBool); dispid 2;
  2767.   end;
  2768.  
  2769. { Dispatch interface for TabControlX Control }
  2770.  
  2771.   ITabControlX = interface(IDispatch)
  2772.     ['{5A5659D2-7975-11D0-BE02-00A024D1875C}']
  2773.     function Get_DragCursor: Smallint; safecall;
  2774.     procedure Set_DragCursor(Value: Smallint); safecall;
  2775.     function Get_Enabled: WordBool; safecall;
  2776.     procedure Set_Enabled(Value: WordBool); safecall;
  2777.     function Get_Font: Font; safecall;
  2778.     procedure Set_Font(const Value: Font); safecall;
  2779.     function Get_HotTrack: WordBool; safecall;
  2780.     procedure Set_HotTrack(Value: WordBool); safecall;
  2781.     function Get_MultiLine: WordBool; safecall;
  2782.     procedure Set_MultiLine(Value: WordBool); safecall;
  2783.     function Get_ScrollOpposite: WordBool; safecall;
  2784.     procedure Set_ScrollOpposite(Value: WordBool); safecall;
  2785.     function Get_TabHeight: Smallint; safecall;
  2786.     procedure Set_TabHeight(Value: Smallint); safecall;
  2787.     function Get_TabIndex: Integer; safecall;
  2788.     procedure Set_TabIndex(Value: Integer); safecall;
  2789.     function Get_TabPosition: TxTabPosition; safecall;
  2790.     procedure Set_TabPosition(Value: TxTabPosition); safecall;
  2791.     function Get_Tabs: IStrings; safecall;
  2792.     procedure Set_Tabs(const Value: IStrings); safecall;
  2793.     function Get_TabWidth: Smallint; safecall;
  2794.     procedure Set_TabWidth(Value: Smallint); safecall;
  2795.     function Get_Visible: WordBool; safecall;
  2796.     procedure Set_Visible(Value: WordBool); safecall;
  2797.     function Get_Cursor: Smallint; safecall;
  2798.     procedure Set_Cursor(Value: Smallint); safecall;
  2799.     procedure AboutBox; safecall;
  2800.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2801.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2802.     property Font: Font read Get_Font write Set_Font;
  2803.     property HotTrack: WordBool read Get_HotTrack write Set_HotTrack;
  2804.     property MultiLine: WordBool read Get_MultiLine write Set_MultiLine;
  2805.     property ScrollOpposite: WordBool read Get_ScrollOpposite write Set_ScrollOpposite;
  2806.     property TabHeight: Smallint read Get_TabHeight write Set_TabHeight;
  2807.     property TabIndex: Integer read Get_TabIndex write Set_TabIndex;
  2808.     property TabPosition: TxTabPosition read Get_TabPosition write Set_TabPosition;
  2809.     property Tabs: IStrings read Get_Tabs write Set_Tabs;
  2810.     property TabWidth: Smallint read Get_TabWidth write Set_TabWidth;
  2811.     property Visible: WordBool read Get_Visible write Set_Visible;
  2812.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2813.   end;
  2814.  
  2815. { DispInterface declaration for Dual Interface ITabControlX }
  2816.  
  2817.   DTabControlX = dispinterface
  2818.     ['{5A5659D2-7975-11D0-BE02-00A024D1875C}']
  2819.     property DragCursor: Smallint dispid 1;
  2820.     property Enabled: WordBool dispid 2;
  2821.     property Font: Font dispid 3;
  2822.     property HotTrack: WordBool dispid 4;
  2823.     property MultiLine: WordBool dispid 5;
  2824.     property ScrollOpposite: WordBool dispid 6;
  2825.     property TabHeight: Smallint dispid 7;
  2826.     property TabIndex: Integer dispid 8;
  2827.     property TabPosition: TxTabPosition dispid 9;
  2828.     property Tabs: IStrings dispid 10;
  2829.     property TabWidth: Smallint dispid 11;
  2830.     property Visible: WordBool dispid 12;
  2831.     property Cursor: Smallint dispid 13;
  2832.     procedure AboutBox; dispid -552;
  2833.   end;
  2834.  
  2835. { Events interface for TabControlX Control }
  2836.  
  2837.   ITabControlXEvents = dispinterface
  2838.     ['{5A5659D3-7975-11D0-BE02-00A024D1875C}']
  2839.     procedure OnChange; dispid 1;
  2840.     procedure OnChanging(var AllowChange: WordBool); dispid 2;
  2841.   end;
  2842.  
  2843. { Dispatch interface for TabSetX Control }
  2844.  
  2845.   ITabSetX = interface(IDispatch)
  2846.     ['{5A5659D7-7975-11D0-BE02-00A024D1875C}']
  2847.     procedure SelectNext(Direction: WordBool); safecall;
  2848.     function Get_FirstIndex: Integer; safecall;
  2849.     procedure Set_FirstIndex(Value: Integer); safecall;
  2850.     function Get_AutoScroll: WordBool; safecall;
  2851.     procedure Set_AutoScroll(Value: WordBool); safecall;
  2852.     function Get_BackgroundColor: TColor; safecall;
  2853.     procedure Set_BackgroundColor(Value: TColor); safecall;
  2854.     function Get_DitherBackground: WordBool; safecall;
  2855.     procedure Set_DitherBackground(Value: WordBool); safecall;
  2856.     function Get_Enabled: WordBool; safecall;
  2857.     procedure Set_Enabled(Value: WordBool); safecall;
  2858.     function Get_EndMargin: Integer; safecall;
  2859.     procedure Set_EndMargin(Value: Integer); safecall;
  2860.     function Get_Font: Font; safecall;
  2861.     procedure Set_Font(const Value: Font); safecall;
  2862.     function Get_StartMargin: Integer; safecall;
  2863.     procedure Set_StartMargin(Value: Integer); safecall;
  2864.     function Get_SelectedColor: TColor; safecall;
  2865.     procedure Set_SelectedColor(Value: TColor); safecall;
  2866.     function Get_Style: TxTabStyle; safecall;
  2867.     procedure Set_Style(Value: TxTabStyle); safecall;
  2868.     function Get_TabHeight: Integer; safecall;
  2869.     procedure Set_TabHeight(Value: Integer); safecall;
  2870.     function Get_Tabs: IStrings; safecall;
  2871.     procedure Set_Tabs(const Value: IStrings); safecall;
  2872.     function Get_TabIndex: Integer; safecall;
  2873.     procedure Set_TabIndex(Value: Integer); safecall;
  2874.     function Get_UnselectedColor: TColor; safecall;
  2875.     procedure Set_UnselectedColor(Value: TColor); safecall;
  2876.     function Get_Visible: WordBool; safecall;
  2877.     procedure Set_Visible(Value: WordBool); safecall;
  2878.     function Get_VisibleTabs: Integer; safecall;
  2879.     function Get_Cursor: Smallint; safecall;
  2880.     procedure Set_Cursor(Value: Smallint); safecall;
  2881.     procedure AboutBox; safecall;
  2882.     property FirstIndex: Integer read Get_FirstIndex write Set_FirstIndex;
  2883.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  2884.     property BackgroundColor: TColor read Get_BackgroundColor write Set_BackgroundColor;
  2885.     property DitherBackground: WordBool read Get_DitherBackground write Set_DitherBackground;
  2886.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2887.     property EndMargin: Integer read Get_EndMargin write Set_EndMargin;
  2888.     property Font: Font read Get_Font write Set_Font;
  2889.     property StartMargin: Integer read Get_StartMargin write Set_StartMargin;
  2890.     property SelectedColor: TColor read Get_SelectedColor write Set_SelectedColor;
  2891.     property Style: TxTabStyle read Get_Style write Set_Style;
  2892.     property TabHeight: Integer read Get_TabHeight write Set_TabHeight;
  2893.     property Tabs: IStrings read Get_Tabs write Set_Tabs;
  2894.     property TabIndex: Integer read Get_TabIndex write Set_TabIndex;
  2895.     property UnselectedColor: TColor read Get_UnselectedColor write Set_UnselectedColor;
  2896.     property Visible: WordBool read Get_Visible write Set_Visible;
  2897.     property VisibleTabs: Integer read Get_VisibleTabs;
  2898.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2899.   end;
  2900.  
  2901. { DispInterface declaration for Dual Interface ITabSetX }
  2902.  
  2903.   DTabSetX = dispinterface
  2904.     ['{5A5659D7-7975-11D0-BE02-00A024D1875C}']
  2905.     procedure SelectNext(Direction: WordBool); dispid 1;
  2906.     property FirstIndex: Integer dispid 2;
  2907.     property AutoScroll: WordBool dispid 3;
  2908.     property BackgroundColor: TColor dispid 4;
  2909.     property DitherBackground: WordBool dispid 5;
  2910.     property Enabled: WordBool dispid 6;
  2911.     property EndMargin: Integer dispid 7;
  2912.     property Font: Font dispid 8;
  2913.     property StartMargin: Integer dispid 9;
  2914.     property SelectedColor: TColor dispid 10;
  2915.     property Style: TxTabStyle dispid 11;
  2916.     property TabHeight: Integer dispid 12;
  2917.     property Tabs: IStrings dispid 13;
  2918.     property TabIndex: Integer dispid 14;
  2919.     property UnselectedColor: TColor dispid 15;
  2920.     property Visible: WordBool dispid 16;
  2921.     property VisibleTabs: Integer readonly dispid 17;
  2922.     property Cursor: Smallint dispid 18;
  2923.     procedure AboutBox; dispid -552;
  2924.   end;
  2925.  
  2926. { Events interface for TabSetX Control }
  2927.  
  2928.   ITabSetXEvents = dispinterface
  2929.     ['{5A5659D8-7975-11D0-BE02-00A024D1875C}']
  2930.     procedure OnClick; dispid 1;
  2931.     procedure OnChange(NewTab: Integer; var AllowChange: WordBool); dispid 2;
  2932.     procedure OnMeasureTab(Index: Integer; var TabWidth: Integer); dispid 3;
  2933.   end;
  2934.  
  2935. { Dispatch interface for TrackBarX Control }
  2936.  
  2937.   ITrackBarX = interface(IDispatch)
  2938.     ['{5A5659DC-7975-11D0-BE02-00A024D1875C}']
  2939.     procedure SetTick(Value: Integer); safecall;
  2940.     function Get_Ctl3D: WordBool; safecall;
  2941.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2942.     function Get_DragCursor: Smallint; safecall;
  2943.     procedure Set_DragCursor(Value: Smallint); safecall;
  2944.     function Get_Enabled: WordBool; safecall;
  2945.     procedure Set_Enabled(Value: WordBool); safecall;
  2946.     function Get_LineSize: Integer; safecall;
  2947.     procedure Set_LineSize(Value: Integer); safecall;
  2948.     function Get_Max: Integer; safecall;
  2949.     procedure Set_Max(Value: Integer); safecall;
  2950.     function Get_Min: Integer; safecall;
  2951.     procedure Set_Min(Value: Integer); safecall;
  2952.     function Get_Orientation: TxTrackBarOrientation; safecall;
  2953.     procedure Set_Orientation(Value: TxTrackBarOrientation); safecall;
  2954.     function Get_PageSize: Integer; safecall;
  2955.     procedure Set_PageSize(Value: Integer); safecall;
  2956.     function Get_Frequency: Integer; safecall;
  2957.     procedure Set_Frequency(Value: Integer); safecall;
  2958.     function Get_Position: Integer; safecall;
  2959.     procedure Set_Position(Value: Integer); safecall;
  2960.     function Get_SelEnd: Integer; safecall;
  2961.     procedure Set_SelEnd(Value: Integer); safecall;
  2962.     function Get_SelStart: Integer; safecall;
  2963.     procedure Set_SelStart(Value: Integer); safecall;
  2964.     function Get_TickMarks: TxTickMark; safecall;
  2965.     procedure Set_TickMarks(Value: TxTickMark); safecall;
  2966.     function Get_TickStyle: TxTickStyle; safecall;
  2967.     procedure Set_TickStyle(Value: TxTickStyle); safecall;
  2968.     function Get_Visible: WordBool; safecall;
  2969.     procedure Set_Visible(Value: WordBool); safecall;
  2970.     function Get_Cursor: Smallint; safecall;
  2971.     procedure Set_Cursor(Value: Smallint); safecall;
  2972.     procedure AboutBox; safecall;
  2973.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2974.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2975.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2976.     property LineSize: Integer read Get_LineSize write Set_LineSize;
  2977.     property Max: Integer read Get_Max write Set_Max;
  2978.     property Min: Integer read Get_Min write Set_Min;
  2979.     property Orientation: TxTrackBarOrientation read Get_Orientation write Set_Orientation;
  2980.     property PageSize: Integer read Get_PageSize write Set_PageSize;
  2981.     property Frequency: Integer read Get_Frequency write Set_Frequency;
  2982.     property Position: Integer read Get_Position write Set_Position;
  2983.     property SelEnd: Integer read Get_SelEnd write Set_SelEnd;
  2984.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  2985.     property TickMarks: TxTickMark read Get_TickMarks write Set_TickMarks;
  2986.     property TickStyle: TxTickStyle read Get_TickStyle write Set_TickStyle;
  2987.     property Visible: WordBool read Get_Visible write Set_Visible;
  2988.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2989.   end;
  2990.  
  2991. { DispInterface declaration for Dual Interface ITrackBarX }
  2992.  
  2993.   DTrackBarX = dispinterface
  2994.     ['{5A5659DC-7975-11D0-BE02-00A024D1875C}']
  2995.     procedure SetTick(Value: Integer); dispid 1;
  2996.     property Ctl3D: WordBool dispid 2;
  2997.     property DragCursor: Smallint dispid 3;
  2998.     property Enabled: WordBool dispid 4;
  2999.     property LineSize: Integer dispid 5;
  3000.     property Max: Integer dispid 6;
  3001.     property Min: Integer dispid 7;
  3002.     property Orientation: TxTrackBarOrientation dispid 8;
  3003.     property PageSize: Integer dispid 9;
  3004.     property Frequency: Integer dispid 10;
  3005.     property Position: Integer dispid 11;
  3006.     property SelEnd: Integer dispid 12;
  3007.     property SelStart: Integer dispid 13;
  3008.     property TickMarks: TxTickMark dispid 14;
  3009.     property TickStyle: TxTickStyle dispid 15;
  3010.     property Visible: WordBool dispid 16;
  3011.     property Cursor: Smallint dispid 17;
  3012.     procedure AboutBox; dispid -552;
  3013.   end;
  3014.  
  3015. { Events interface for TrackBarX Control }
  3016.  
  3017.   ITrackBarXEvents = dispinterface
  3018.     ['{5A5659DD-7975-11D0-BE02-00A024D1875C}']
  3019.     procedure OnChange; dispid 1;
  3020.     procedure OnKeyPress(var Key: Smallint); dispid 2;
  3021.   end;
  3022.  
  3023. { Dispatch interface for UpDownX Control }
  3024.  
  3025.   IUpDownX = interface(IDispatch)
  3026.     ['{5A5659E3-7975-11D0-BE02-00A024D1875C}']
  3027.     function Get_AlignButton: TxUDAlignButton; safecall;
  3028.     procedure Set_AlignButton(Value: TxUDAlignButton); safecall;
  3029.     function Get_ArrowKeys: WordBool; safecall;
  3030.     procedure Set_ArrowKeys(Value: WordBool); safecall;
  3031.     function Get_Enabled: WordBool; safecall;
  3032.     procedure Set_Enabled(Value: WordBool); safecall;
  3033.     function Get_Min: Smallint; safecall;
  3034.     procedure Set_Min(Value: Smallint); safecall;
  3035.     function Get_Max: Smallint; safecall;
  3036.     procedure Set_Max(Value: Smallint); safecall;
  3037.     function Get_Increment: Integer; safecall;
  3038.     procedure Set_Increment(Value: Integer); safecall;
  3039.     function Get_Orientation: TxUDOrientation; safecall;
  3040.     procedure Set_Orientation(Value: TxUDOrientation); safecall;
  3041.     function Get_Position: Smallint; safecall;
  3042.     procedure Set_Position(Value: Smallint); safecall;
  3043.     function Get_Thousands: WordBool; safecall;
  3044.     procedure Set_Thousands(Value: WordBool); safecall;
  3045.     function Get_Visible: WordBool; safecall;
  3046.     procedure Set_Visible(Value: WordBool); safecall;
  3047.     function Get_Wrap: WordBool; safecall;
  3048.     procedure Set_Wrap(Value: WordBool); safecall;
  3049.     function Get_Cursor: Smallint; safecall;
  3050.     procedure Set_Cursor(Value: Smallint); safecall;
  3051.     procedure AboutBox; safecall;
  3052.     property AlignButton: TxUDAlignButton read Get_AlignButton write Set_AlignButton;
  3053.     property ArrowKeys: WordBool read Get_ArrowKeys write Set_ArrowKeys;
  3054.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3055.     property Min: Smallint read Get_Min write Set_Min;
  3056.     property Max: Smallint read Get_Max write Set_Max;
  3057.     property Increment: Integer read Get_Increment write Set_Increment;
  3058.     property Orientation: TxUDOrientation read Get_Orientation write Set_Orientation;
  3059.     property Position: Smallint read Get_Position write Set_Position;
  3060.     property Thousands: WordBool read Get_Thousands write Set_Thousands;
  3061.     property Visible: WordBool read Get_Visible write Set_Visible;
  3062.     property Wrap: WordBool read Get_Wrap write Set_Wrap;
  3063.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3064.   end;
  3065.  
  3066. { DispInterface declaration for Dual Interface IUpDownX }
  3067.  
  3068.   DUpDownX = dispinterface
  3069.     ['{5A5659E3-7975-11D0-BE02-00A024D1875C}']
  3070.     property AlignButton: TxUDAlignButton dispid 1;
  3071.     property ArrowKeys: WordBool dispid 2;
  3072.     property Enabled: WordBool dispid 3;
  3073.     property Min: Smallint dispid 4;
  3074.     property Max: Smallint dispid 5;
  3075.     property Increment: Integer dispid 6;
  3076.     property Orientation: TxUDOrientation dispid 7;
  3077.     property Position: Smallint dispid 8;
  3078.     property Thousands: WordBool dispid 9;
  3079.     property Visible: WordBool dispid 10;
  3080.     property Wrap: WordBool dispid 11;
  3081.     property Cursor: Smallint dispid 12;
  3082.     procedure AboutBox; dispid -552;
  3083.   end;
  3084.  
  3085. { Events interface for UpDownX Control }
  3086.  
  3087.   IUpDownXEvents = dispinterface
  3088.     ['{5A5659E4-7975-11D0-BE02-00A024D1875C}']
  3089.     procedure OnChanging(var AllowChange: WordBool); dispid 1;
  3090.     procedure OnClick(Button: TxUDBtnType); dispid 2;
  3091.   end;
  3092.  
  3093. { ButtonXControl }
  3094.  
  3095.   TButtonXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3096.  
  3097.   TButtonX = class(TOleControl)
  3098.   private
  3099.     FOnClick: TNotifyEvent;
  3100.     FOnKeyPress: TButtonXOnKeyPress;
  3101.     FIntf: IButtonX;
  3102.   protected
  3103.     procedure InitControlData; override;
  3104.     procedure InitControlInterface(const Obj: IUnknown); override;
  3105.   public
  3106.     procedure Click;
  3107.     procedure AboutBox;
  3108.     property ControlInterface: IButtonX read FIntf;
  3109.   published
  3110.     property TabStop;
  3111.     property ParentShowHint;
  3112.     property PopupMenu;
  3113.     property ShowHint;
  3114.     property TabOrder;
  3115.     property OnDragDrop;
  3116.     property OnDragOver;
  3117.     property OnEndDrag;
  3118.     property OnEnter;
  3119.     property OnExit;
  3120.     property OnStartDrag;
  3121.     property Cancel: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  3122.     property Caption: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  3123.     property Default: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  3124.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  3125.     property DragMode: TxDragMode index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3126.     property Enabled: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  3127.     property Font: TFont index 8 read GetTFontProp write SetTFontProp stored False;
  3128.     property ModalResult: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  3129.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  3130.     property Cursor: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  3131.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3132.     property OnKeyPress: TButtonXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3133.   end;
  3134.  
  3135. { CalendarXControl }
  3136.  
  3137.   TCalendarXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3138.  
  3139.   TCalendarX = class(TOleControl)
  3140.   private
  3141.     FOnClick: TNotifyEvent;
  3142.     FOnChange: TNotifyEvent;
  3143.     FOnDblClick: TNotifyEvent;
  3144.     FOnKeyPress: TCalendarXOnKeyPress;
  3145.     FIntf: ICalendarX;
  3146.   protected
  3147.     procedure InitControlData; override;
  3148.     procedure InitControlInterface(const Obj: IUnknown); override;
  3149.   public
  3150.     procedure NextMonth;
  3151.     procedure NextYear;
  3152.     procedure PrevMonth;
  3153.     procedure PrevYear;
  3154.     procedure UpdateCalendar;
  3155.     procedure AboutBox;
  3156.     property ControlInterface: ICalendarX read FIntf;
  3157.   published
  3158.     property TabStop;
  3159.     property DragCursor;
  3160.     property DragMode;
  3161.     property ParentShowHint;
  3162.     property PopupMenu;
  3163.     property ShowHint;
  3164.     property TabOrder;
  3165.     property OnDragDrop;
  3166.     property OnDragOver;
  3167.     property OnEndDrag;
  3168.     property OnEnter;
  3169.     property OnExit;
  3170.     property OnStartDrag;
  3171.     property CalendarDate: TDateTime index 1 read GetTDateTimeProp write SetTDateTimeProp stored False;
  3172.     property BorderStyle: TxBorderStyle index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3173.     property Color: TColor index 8 read GetTColorProp write SetTColorProp stored False;
  3174.     property Ctl3D: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  3175.     property Day: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  3176.     property Enabled: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  3177.     property Font: TFont index 12 read GetTFontProp write SetTFontProp stored False;
  3178.     property GridLineWidth: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  3179.     property Month: Integer index 14 read GetIntegerProp write SetIntegerProp stored False;
  3180.     property ParentColor: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  3181.     property ReadOnly: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  3182.     property StartOfWeek: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  3183.     property UseCurrentDate: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  3184.     property Visible: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  3185.     property Year: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  3186.     property Cursor: Smallint index 21 read GetSmallintProp write SetSmallintProp stored False;
  3187.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3188.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  3189.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3190.     property OnKeyPress: TCalendarXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3191.   end;
  3192.  
  3193. { CheckBoxXControl }
  3194.  
  3195.   TCheckBoxXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3196.  
  3197.   TCheckBoxX = class(TOleControl)
  3198.   private
  3199.     FOnClick: TNotifyEvent;
  3200.     FOnKeyPress: TCheckBoxXOnKeyPress;
  3201.     FIntf: ICheckBoxX;
  3202.   protected
  3203.     procedure InitControlData; override;
  3204.     procedure InitControlInterface(const Obj: IUnknown); override;
  3205.   public
  3206.     procedure AboutBox;
  3207.     property ControlInterface: ICheckBoxX read FIntf;
  3208.   published
  3209.     property TabStop;
  3210.     property DragMode;
  3211.     property ParentShowHint;
  3212.     property PopupMenu;
  3213.     property ShowHint;
  3214.     property TabOrder;
  3215.     property OnDragDrop;
  3216.     property OnDragOver;
  3217.     property OnEndDrag;
  3218.     property OnEnter;
  3219.     property OnExit;
  3220.     property OnStartDrag;
  3221.     property Alignment: TxLeftRight index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3222.     property AllowGrayed: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  3223.     property Caption: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  3224.     property Checked: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  3225.     property Color: TColor index 5 read GetTColorProp write SetTColorProp stored False;
  3226.     property Ctl3D: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  3227.     property DragCursor: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  3228.     property Enabled: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  3229.     property Font: TFont index 9 read GetTFontProp write SetTFontProp stored False;
  3230.     property ParentColor: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  3231.     property State: TxCheckBoxState index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3232.     property Visible: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  3233.     property Cursor: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  3234.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3235.     property OnKeyPress: TCheckBoxXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3236.   end;
  3237.  
  3238. { CheckListBoxXControl }
  3239.  
  3240.   TCheckListBoxXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3241.  
  3242.   TCheckListBoxX = class(TOleControl)
  3243.   private
  3244.     FOnClickCheck: TNotifyEvent;
  3245.     FOnClick: TNotifyEvent;
  3246.     FOnDblClick: TNotifyEvent;
  3247.     FOnKeyPress: TCheckListBoxXOnKeyPress;
  3248.     FIntf: ICheckListBoxX;
  3249.     function Get_Items: IStrings;
  3250.     procedure Set_Items(const Value: IStrings);
  3251.   protected
  3252.     procedure InitControlData; override;
  3253.     procedure InitControlInterface(const Obj: IUnknown); override;
  3254.   public
  3255.     procedure Clear;
  3256.     procedure AboutBox;
  3257.     property ControlInterface: ICheckListBoxX read FIntf;
  3258.     property SelCount: Integer index 20 read GetIntegerProp;
  3259.   published
  3260.     property TabStop;
  3261.     property DragMode;
  3262.     property ParentShowHint;
  3263.     property PopupMenu;
  3264.     property ShowHint;
  3265.     property TabOrder;
  3266.     property OnDragDrop;
  3267.     property OnDragOver;
  3268.     property OnEndDrag;
  3269.     property OnEnter;
  3270.     property OnExit;
  3271.     property OnStartDrag;
  3272.     property AllowGrayed: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  3273.     property Color: TColor index 2 read GetTColorProp write SetTColorProp stored False;
  3274.     property Columns: Integer index 3 read GetIntegerProp write SetIntegerProp stored False;
  3275.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  3276.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  3277.     property Enabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  3278.     property Font: TFont index 7 read GetTFontProp write SetTFontProp stored False;
  3279.     property ImeMode: TxImeMode index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3280.     property ImeName: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  3281.     property IntegralHeight: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  3282.     property ItemHeight: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  3283.     property Items: IStrings read Get_Items write Set_Items stored False;
  3284.     property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  3285.     property Sorted: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  3286.     property Style: TxListBoxStyle index 15 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3287.     property TabWidth: Integer index 16 read GetIntegerProp write SetIntegerProp stored False;
  3288.     property Visible: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  3289.     property ItemIndex: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  3290.     property TopIndex: Integer index 21 read GetIntegerProp write SetIntegerProp stored False;
  3291.     property Cursor: Smallint index 22 read GetSmallintProp write SetSmallintProp stored False;
  3292.     property OnClickCheck: TNotifyEvent read FOnClickCheck write FOnClickCheck;
  3293.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3294.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3295.     property OnKeyPress: TCheckListBoxXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3296.   end;
  3297.  
  3298. { ColorGridXControl }
  3299.  
  3300.   TColorGridXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3301.  
  3302.   TColorGridX = class(TOleControl)
  3303.   private
  3304.     FOnChange: TNotifyEvent;
  3305.     FOnClick: TNotifyEvent;
  3306.     FOnKeyPress: TColorGridXOnKeyPress;
  3307.     FIntf: IColorGridX;
  3308.   protected
  3309.     procedure InitControlData; override;
  3310.     procedure InitControlInterface(const Obj: IUnknown); override;
  3311.   public
  3312.     procedure AboutBox;
  3313.     property ControlInterface: IColorGridX read FIntf;
  3314.     property ForegroundColor: TColor index 1 read GetTColorProp;
  3315.     property BackgroundColor: TColor index 2 read GetTColorProp;
  3316.   published
  3317.     property TabStop;
  3318.     property DragMode;
  3319.     property ParentShowHint;
  3320.     property PopupMenu;
  3321.     property ShowHint;
  3322.     property TabOrder;
  3323.     property OnDragDrop;
  3324.     property OnDragOver;
  3325.     property OnEndDrag;
  3326.     property OnEnter;
  3327.     property OnExit;
  3328.     property OnStartDrag;
  3329.     property ClickEnablesColor: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  3330.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  3331.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  3332.     property Enabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  3333.     property GridOrdering: TxGridOrdering index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3334.     property ForegroundIndex: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  3335.     property BackgroundIndex: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  3336.     property ForegroundEnabled: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  3337.     property BackgroundEnabled: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  3338.     property Font: TFont index 12 read GetTFontProp write SetTFontProp stored False;
  3339.     property Selection: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  3340.     property Visible: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  3341.     property Cursor: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  3342.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  3343.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3344.     property OnKeyPress: TColorGridXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3345.   end;
  3346.  
  3347. { DateTimePickerXControl }
  3348.  
  3349.   TDateTimePickerXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3350.   TDateTimePickerXOnUserInput = procedure(Sender: TObject; const UserString: WideString; var DateAndTime: TDateTime; var AllowChange: WordBool) of object;
  3351.  
  3352.   TDateTimePickerX = class(TOleControl)
  3353.   private
  3354.     FOnClick: TNotifyEvent;
  3355.     FOnCloseUp: TNotifyEvent;
  3356.     FOnChange: TNotifyEvent;
  3357.     FOnDropDown: TNotifyEvent;
  3358.     FOnDblClick: TNotifyEvent;
  3359.     FOnKeyPress: TDateTimePickerXOnKeyPress;
  3360.     FOnUserInput: TDateTimePickerXOnUserInput;
  3361.     FIntf: IDateTimePickerX;
  3362.   protected
  3363.     procedure InitControlData; override;
  3364.     procedure InitControlInterface(const Obj: IUnknown); override;
  3365.   public
  3366.     procedure AboutBox;
  3367.     property ControlInterface: IDateTimePickerX read FIntf;
  3368.   published
  3369.     property TabStop;
  3370.     property DragMode;
  3371.     property ParentShowHint;
  3372.     property PopupMenu;
  3373.     property ShowHint;
  3374.     property TabOrder;
  3375.     property OnDragDrop;
  3376.     property OnDragOver;
  3377.     property OnEndDrag;
  3378.     property OnEnter;
  3379.     property OnExit;
  3380.     property OnStartDrag;
  3381.     property CalAlignment: TxDTCalAlignment index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3382.     property Checked: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  3383.     property Color: TColor index 3 read GetTColorProp write SetTColorProp stored False;
  3384.     property Date: Double index 4 read GetDoubleProp write SetDoubleProp stored False;
  3385.     property DateFormat: TxDTDateFormat index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3386.     property DateMode: TxDTDateMode index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3387.     property DragCursor: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  3388.     property Enabled: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  3389.     property Font: TFont index 9 read GetTFontProp write SetTFontProp stored False;
  3390.     property ImeName: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  3391.     property Kind: TxDateTimeKind index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3392.     property MaxDate: Double index 12 read GetDoubleProp write SetDoubleProp stored False;
  3393.     property MinDate: Double index 13 read GetDoubleProp write SetDoubleProp stored False;
  3394.     property ParseInput: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  3395.     property ParentColor: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  3396.     property ShowCheckbox: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  3397.     property Time: Double index 17 read GetDoubleProp write SetDoubleProp stored False;
  3398.     property Visible: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  3399.     property Cursor: Smallint index 19 read GetSmallintProp write SetSmallintProp stored False;
  3400.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3401.     property OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp;
  3402.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  3403.     property OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown;
  3404.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3405.     property OnKeyPress: TDateTimePickerXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3406.     property OnUserInput: TDateTimePickerXOnUserInput read FOnUserInput write FOnUserInput;
  3407.   end;
  3408.  
  3409. { DrawGridXControl }
  3410.  
  3411.   TDrawGridXOnColumnMoved = procedure(Sender: TObject; FromIndex, ToIndex: Integer) of object;
  3412.   TDrawGridXOnGetEditMask = procedure(Sender: TObject; ACol, ARow: Integer; var Value: WideString) of object;
  3413.   TDrawGridXOnGetEditText = procedure(Sender: TObject; ACol, ARow: Integer; var Value: WideString) of object;
  3414.   TDrawGridXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3415.   TDrawGridXOnRowMoved = procedure(Sender: TObject; FromIndex, ToIndex: Integer) of object;
  3416.   TDrawGridXOnSelectCell = procedure(Sender: TObject; Col, Row: Integer; var CanSelect: WordBool) of object;
  3417.   TDrawGridXOnSetEditText = procedure(Sender: TObject; ACol, ARow: Integer; const Value: WideString) of object;
  3418.  
  3419.   TDrawGridX = class(TOleControl)
  3420.   private
  3421.     FOnClick: TNotifyEvent;
  3422.     FOnColumnMoved: TDrawGridXOnColumnMoved;
  3423.     FOnDblClick: TNotifyEvent;
  3424.     FOnGetEditMask: TDrawGridXOnGetEditMask;
  3425.     FOnGetEditText: TDrawGridXOnGetEditText;
  3426.     FOnKeyPress: TDrawGridXOnKeyPress;
  3427.     FOnRowMoved: TDrawGridXOnRowMoved;
  3428.     FOnSelectCell: TDrawGridXOnSelectCell;
  3429.     FOnSetEditText: TDrawGridXOnSetEditText;
  3430.     FOnTopLeftChanged: TNotifyEvent;
  3431.     FIntf: IDrawGridX;
  3432.   protected
  3433.     procedure InitControlData; override;
  3434.     procedure InitControlInterface(const Obj: IUnknown); override;
  3435.   public
  3436.     procedure MouseToCell(X, Y: Integer; var ACol, ARow: Integer);
  3437.     procedure AboutBox;
  3438.     property ControlInterface: IDrawGridX read FIntf;
  3439.     property GridHeight: Integer index 4 read GetIntegerProp;
  3440.     property GridWidth: Integer index 5 read GetIntegerProp;
  3441.     property VisibleColCount: Integer index 26 read GetIntegerProp;
  3442.     property VisibleRowCount: Integer index 27 read GetIntegerProp;
  3443.   published
  3444.     property TabStop;
  3445.     property DragMode;
  3446.     property ParentShowHint;
  3447.     property PopupMenu;
  3448.     property ShowHint;
  3449.     property TabOrder;
  3450.     property OnDragDrop;
  3451.     property OnDragOver;
  3452.     property OnEndDrag;
  3453.     property OnEnter;
  3454.     property OnExit;
  3455.     property OnStartDrag;
  3456.     property Col: Integer index 2 read GetIntegerProp write SetIntegerProp stored False;
  3457.     property EditorMode: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  3458.     property LeftCol: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  3459.     property Row: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  3460.     property TopRow: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  3461.     property Color: TColor index 9 read GetTColorProp write SetTColorProp stored False;
  3462.     property ColCount: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  3463.     property Ctl3D: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  3464.     property DefaultColWidth: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  3465.     property DefaultRowHeight: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  3466.     property DefaultDrawing: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  3467.     property DragCursor: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  3468.     property Enabled: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  3469.     property FixedColor: TColor index 17 read GetTColorProp write SetTColorProp stored False;
  3470.     property FixedCols: Integer index 18 read GetIntegerProp write SetIntegerProp stored False;
  3471.     property RowCount: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  3472.     property FixedRows: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  3473.     property Font: TFont index 21 read GetTFontProp write SetTFontProp stored False;
  3474.     property GridLineWidth: Integer index 22 read GetIntegerProp write SetIntegerProp stored False;
  3475.     property ParentColor: WordBool index 23 read GetWordBoolProp write SetWordBoolProp stored False;
  3476.     property ScrollBars: TxScrollStyle index 24 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3477.     property Visible: WordBool index 25 read GetWordBoolProp write SetWordBoolProp stored False;
  3478.     property Cursor: Smallint index 28 read GetSmallintProp write SetSmallintProp stored False;
  3479.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3480.     property OnColumnMoved: TDrawGridXOnColumnMoved read FOnColumnMoved write FOnColumnMoved;
  3481.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3482.     property OnGetEditMask: TDrawGridXOnGetEditMask read FOnGetEditMask write FOnGetEditMask;
  3483.     property OnGetEditText: TDrawGridXOnGetEditText read FOnGetEditText write FOnGetEditText;
  3484.     property OnKeyPress: TDrawGridXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3485.     property OnRowMoved: TDrawGridXOnRowMoved read FOnRowMoved write FOnRowMoved;
  3486.     property OnSelectCell: TDrawGridXOnSelectCell read FOnSelectCell write FOnSelectCell;
  3487.     property OnSetEditText: TDrawGridXOnSetEditText read FOnSetEditText write FOnSetEditText;
  3488.     property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
  3489.   end;
  3490.  
  3491. { EditXControl }
  3492.  
  3493.   TEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3494.  
  3495.   TEditX = class(TOleControl)
  3496.   private
  3497.     FOnChange: TNotifyEvent;
  3498.     FOnClick: TNotifyEvent;
  3499.     FOnDblClick: TNotifyEvent;
  3500.     FOnKeyPress: TEditXOnKeyPress;
  3501.     FIntf: IEditX;
  3502.   protected
  3503.     procedure InitControlData; override;
  3504.     procedure InitControlInterface(const Obj: IUnknown); override;
  3505.   public
  3506.     procedure Clear;
  3507.     procedure ClearSelection;
  3508.     procedure CopyToClipboard;
  3509.     procedure CutToClipboard;
  3510.     procedure PasteFromClipboard;
  3511.     procedure SelectAll;
  3512.     procedure AboutBox;
  3513.     property ControlInterface: IEditX read FIntf;
  3514.   published
  3515.     property TabStop;
  3516.     property DragMode;
  3517.     property ParentShowHint;
  3518.     property PopupMenu;
  3519.     property ShowHint;
  3520.     property TabOrder;
  3521.     property OnDragDrop;
  3522.     property OnDragOver;
  3523.     property OnEndDrag;
  3524.     property OnEnter;
  3525.     property OnExit;
  3526.     property OnStartDrag;
  3527.     property AutoSelect: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  3528.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  3529.     property CharCase: TxEditCharCase index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3530.     property Color: TColor index 4 read GetTColorProp write SetTColorProp stored False;
  3531.     property Ctl3D: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  3532.     property DragCursor: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  3533.     property Enabled: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  3534.     property Font: TFont index 8 read GetTFontProp write SetTFontProp stored False;
  3535.     property HideSelection: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  3536.     property ImeName: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  3537.     property MaxLength: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  3538.     property OEMConvert: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  3539.     property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  3540.     property PasswordChar: Smallint index 14 read GetSmallintProp write SetSmallintProp stored False;
  3541.     property ReadOnly: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  3542.     property Text: WideString index 16 read GetWideStringProp write SetWideStringProp stored False;
  3543.     property Visible: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  3544.     property Modified: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False;
  3545.     property SelLength: Integer index 25 read GetIntegerProp write SetIntegerProp stored False;
  3546.     property SelStart: Integer index 26 read GetIntegerProp write SetIntegerProp stored False;
  3547.     property SelText: WideString index 27 read GetWideStringProp write SetWideStringProp stored False;
  3548.     property Cursor: Smallint index 28 read GetSmallintProp write SetSmallintProp stored False;
  3549.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  3550.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3551.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3552.     property OnKeyPress: TEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3553.   end;
  3554.  
  3555. { HotKeyXControl }
  3556.  
  3557.   THotKeyX = class(TOleControl)
  3558.   private
  3559.     FIntf: IHotKeyX;
  3560.   protected
  3561.     procedure InitControlData; override;
  3562.     procedure InitControlInterface(const Obj: IUnknown); override;
  3563.   public
  3564.     procedure AboutBox;
  3565.     property ControlInterface: IHotKeyX read FIntf;
  3566.   published
  3567.     property TabStop;
  3568.     property DragCursor;
  3569.     property DragMode;
  3570.     property ParentShowHint;
  3571.     property PopupMenu;
  3572.     property ShowHint;
  3573.     property TabOrder;
  3574.     property OnDragDrop;
  3575.     property OnDragOver;
  3576.     property OnEndDrag;
  3577.     property OnEnter;
  3578.     property OnExit;
  3579.     property OnStartDrag;
  3580.     property AutoSize: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  3581.     property Enabled: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  3582.     property HotKey: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  3583.     property Visible: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  3584.     property Cursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  3585.   end;
  3586.  
  3587. { ListBoxXControl }
  3588.  
  3589.   TListBoxXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3590.  
  3591.   TListBoxX = class(TOleControl)
  3592.   private
  3593.     FOnClick: TNotifyEvent;
  3594.     FOnDblClick: TNotifyEvent;
  3595.     FOnKeyPress: TListBoxXOnKeyPress;
  3596.     FIntf: IListBoxX;
  3597.     function Get_Items: IStrings;
  3598.     procedure Set_Items(const Value: IStrings);
  3599.   protected
  3600.     procedure InitControlData; override;
  3601.     procedure InitControlInterface(const Obj: IUnknown); override;
  3602.   public
  3603.     procedure Clear;
  3604.     procedure AboutBox;
  3605.     property ControlInterface: IListBoxX read FIntf;
  3606.     property SelCount: Integer index 19 read GetIntegerProp;
  3607.   published
  3608.     property TabStop;
  3609.     property DragMode;
  3610.     property ParentShowHint;
  3611.     property PopupMenu;
  3612.     property ShowHint;
  3613.     property TabOrder;
  3614.     property OnDragDrop;
  3615.     property OnDragOver;
  3616.     property OnEndDrag;
  3617.     property OnEnter;
  3618.     property OnExit;
  3619.     property OnStartDrag;
  3620.     property Color: TColor index 1 read GetTColorProp write SetTColorProp stored False;
  3621.     property Columns: Integer index 2 read GetIntegerProp write SetIntegerProp stored False;
  3622.     property Ctl3D: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  3623.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  3624.     property Enabled: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  3625.     property ExtendedSelect: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  3626.     property Font: TFont index 7 read GetTFontProp write SetTFontProp stored False;
  3627.     property ImeName: WideString index 8 read GetWideStringProp write SetWideStringProp stored False;
  3628.     property IntegralHeight: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  3629.     property ItemHeight: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  3630.     property Items: IStrings read Get_Items write Set_Items stored False;
  3631.     property MultiSelect: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  3632.     property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  3633.     property Sorted: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  3634.     property TabWidth: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;
  3635.     property Visible: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  3636.     property ItemIndex: Integer index 18 read GetIntegerProp write SetIntegerProp stored False;
  3637.     property TopIndex: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  3638.     property Cursor: Smallint index 21 read GetSmallintProp write SetSmallintProp stored False;
  3639.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3640.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3641.     property OnKeyPress: TListBoxXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3642.   end;
  3643.  
  3644. { MaskEditXControl }
  3645.  
  3646.   TMaskEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3647.  
  3648.   TMaskEditX = class(TOleControl)
  3649.   private
  3650.     FOnChange: TNotifyEvent;
  3651.     FOnClick: TNotifyEvent;
  3652.     FOnDblClick: TNotifyEvent;
  3653.     FOnKeyPress: TMaskEditXOnKeyPress;
  3654.     FIntf: IMaskEditX;
  3655.   protected
  3656.     procedure InitControlData; override;
  3657.     procedure InitControlInterface(const Obj: IUnknown); override;
  3658.   public
  3659.     procedure ValidateEdit;
  3660.     procedure Clear;
  3661.     procedure ClearSelection;
  3662.     procedure CopyToClipboard;
  3663.     procedure CutToClipboard;
  3664.     procedure PasteFromClipboard;
  3665.     procedure SelectAll;
  3666.     procedure AboutBox;
  3667.     property ControlInterface: IMaskEditX read FIntf;
  3668.     property IsMasked: WordBool index 18 read GetWordBoolProp;
  3669.   published
  3670.     property TabStop;
  3671.     property DragMode;
  3672.     property ParentShowHint;
  3673.     property PopupMenu;
  3674.     property ShowHint;
  3675.     property TabOrder;
  3676.     property OnDragDrop;
  3677.     property OnDragOver;
  3678.     property OnEndDrag;
  3679.     property OnEnter;
  3680.     property OnExit;
  3681.     property OnStartDrag;
  3682.     property AutoSelect: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  3683.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  3684.     property Color: TColor index 3 read GetTColorProp write SetTColorProp stored False;
  3685.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  3686.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  3687.     property Enabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  3688.     property EditMask: WideString index 7 read GetWideStringProp write SetWideStringProp stored False;
  3689.     property Font: TFont index 8 read GetTFontProp write SetTFontProp stored False;
  3690.     property ImeName: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  3691.     property MaxLength: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  3692.     property ParentColor: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  3693.     property PasswordChar: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;
  3694.     property ReadOnly: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  3695.     property Text: WideString index 14 read GetWideStringProp write SetWideStringProp stored False;
  3696.     property Visible: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  3697.     property EditText: WideString index 19 read GetWideStringProp write SetWideStringProp stored False;
  3698.     property Modified: WordBool index 25 read GetWordBoolProp write SetWordBoolProp stored False;
  3699.     property SelLength: Integer index 26 read GetIntegerProp write SetIntegerProp stored False;
  3700.     property SelStart: Integer index 27 read GetIntegerProp write SetIntegerProp stored False;
  3701.     property SelText: WideString index 28 read GetWideStringProp write SetWideStringProp stored False;
  3702.     property Cursor: Smallint index 29 read GetSmallintProp write SetSmallintProp stored False;
  3703.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  3704.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3705.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3706.     property OnKeyPress: TMaskEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3707.   end;
  3708.  
  3709. { MediaPlayerXControl }
  3710.  
  3711.   TMediaPlayerXOnClick = procedure(Sender: TObject; Button: TxMPBtnType; var DoDefault: WordBool) of object;
  3712.  
  3713.   TMediaPlayerX = class(TOleControl)
  3714.   private
  3715.     FOnClick: TMediaPlayerXOnClick;
  3716.     FOnNotify: TNotifyEvent;
  3717.     FIntf: IMediaPlayerX;
  3718.   protected
  3719.     procedure InitControlData; override;
  3720.     procedure InitControlInterface(const Obj: IUnknown); override;
  3721.   public
  3722.     procedure Open;
  3723.     procedure Close;
  3724.     procedure Play;
  3725.     procedure Stop;
  3726.     procedure Pause;
  3727.     procedure Step;
  3728.     procedure Back;
  3729.     procedure Previous;
  3730.     procedure Next;
  3731.     procedure StartRecording;
  3732.     procedure Eject;
  3733.     procedure Save;
  3734.     procedure PauseOnly;
  3735.     procedure Resume;
  3736.     procedure Rewind;
  3737.     procedure AboutBox;
  3738.     property ControlInterface: IMediaPlayerX read FIntf;
  3739.     property Error: Integer index 16 read GetIntegerProp;
  3740.     property ErrorMessage: WideString index 17 read GetWideStringProp;
  3741.     property Start: Integer index 18 read GetIntegerProp;
  3742.     property Length: Integer index 19 read GetIntegerProp;
  3743.     property Tracks: Integer index 20 read GetIntegerProp;
  3744.     property Mode: TxMPModes index 22 read GetTOleEnumProp;
  3745.     property NotifyValue: TxMPNotifyValues index 26 read GetTOleEnumProp;
  3746.     property DeviceID: Smallint index 29 read GetSmallintProp;
  3747.   published
  3748.     property TabStop;
  3749.     property DragCursor;
  3750.     property DragMode;
  3751.     property ParentShowHint;
  3752.     property PopupMenu;
  3753.     property ShowHint;
  3754.     property TabOrder;
  3755.     property OnDragDrop;
  3756.     property OnDragOver;
  3757.     property OnEndDrag;
  3758.     property OnEnter;
  3759.     property OnExit;
  3760.     property OnStartDrag;
  3761.     property Frames: Integer index 21 read GetIntegerProp write SetIntegerProp stored False;
  3762.     property Position: Integer index 23 read GetIntegerProp write SetIntegerProp stored False;
  3763.     property Wait: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False;
  3764.     property Notify: WordBool index 25 read GetWordBoolProp write SetWordBoolProp stored False;
  3765.     property StartPos: Integer index 27 read GetIntegerProp write SetIntegerProp stored False;
  3766.     property EndPos: Integer index 28 read GetIntegerProp write SetIntegerProp stored False;
  3767.     property TimeFormat: TxMPTimeFormats index 30 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3768.     property Enabled: WordBool index 31 read GetWordBoolProp write SetWordBoolProp stored False;
  3769.     property AutoEnable: WordBool index 32 read GetWordBoolProp write SetWordBoolProp stored False;
  3770.     property AutoOpen: WordBool index 33 read GetWordBoolProp write SetWordBoolProp stored False;
  3771.     property AutoRewind: WordBool index 34 read GetWordBoolProp write SetWordBoolProp stored False;
  3772.     property DeviceType: TxMPDeviceTypes index 35 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3773.     property FileName: WideString index 36 read GetWideStringProp write SetWideStringProp stored False;
  3774.     property Shareable: WordBool index 37 read GetWordBoolProp write SetWordBoolProp stored False;
  3775.     property Visible: WordBool index 38 read GetWordBoolProp write SetWordBoolProp stored False;
  3776.     property Cursor: Smallint index 39 read GetSmallintProp write SetSmallintProp stored False;
  3777.     property OnClick: TMediaPlayerXOnClick read FOnClick write FOnClick;
  3778.     property OnNotify: TNotifyEvent read FOnNotify write FOnNotify;
  3779.   end;
  3780.  
  3781. { MemoXControl }
  3782.  
  3783.   TMemoXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3784.  
  3785.   TMemoX = class(TOleControl)
  3786.   private
  3787.     FOnChange: TNotifyEvent;
  3788.     FOnClick: TNotifyEvent;
  3789.     FOnDblClick: TNotifyEvent;
  3790.     FOnKeyPress: TMemoXOnKeyPress;
  3791.     FIntf: IMemoX;
  3792.     function Get_Lines: IStrings;
  3793.     procedure Set_Lines(const Value: IStrings);
  3794.   protected
  3795.     procedure InitControlData; override;
  3796.     procedure InitControlInterface(const Obj: IUnknown); override;
  3797.   public
  3798.     procedure Clear;
  3799.     procedure ClearSelection;
  3800.     procedure CopyToClipboard;
  3801.     procedure CutToClipboard;
  3802.     procedure PasteFromClipboard;
  3803.     procedure SelectAll;
  3804.     procedure AboutBox;
  3805.     property ControlInterface: IMemoX read FIntf;
  3806.   published
  3807.     property TabStop;
  3808.     property DragMode;
  3809.     property ParentShowHint;
  3810.     property PopupMenu;
  3811.     property ShowHint;
  3812.     property TabOrder;
  3813.     property OnDragDrop;
  3814.     property OnDragOver;
  3815.     property OnEndDrag;
  3816.     property OnEnter;
  3817.     property OnExit;
  3818.     property OnStartDrag;
  3819.     property Alignment: TxAlignment index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3820.     property Color: TColor index 2 read GetTColorProp write SetTColorProp stored False;
  3821.     property Ctl3D: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  3822.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  3823.     property Enabled: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  3824.     property Font: TFont index 6 read GetTFontProp write SetTFontProp stored False;
  3825.     property HideSelection: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  3826.     property ImeName: WideString index 8 read GetWideStringProp write SetWideStringProp stored False;
  3827.     property Lines: IStrings read Get_Lines write Set_Lines stored False;
  3828.     property MaxLength: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  3829.     property OEMConvert: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  3830.     property ParentColor: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  3831.     property ReadOnly: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  3832.     property Visible: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  3833.     property WantReturns: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  3834.     property WantTabs: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  3835.     property WordWrap: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  3836.     property Modified: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False;
  3837.     property SelLength: Integer index 25 read GetIntegerProp write SetIntegerProp stored False;
  3838.     property SelStart: Integer index 26 read GetIntegerProp write SetIntegerProp stored False;
  3839.     property SelText: WideString index 27 read GetWideStringProp write SetWideStringProp stored False;
  3840.     property Text: WideString index 28 read GetWideStringProp write SetWideStringProp stored False;
  3841.     property Cursor: Smallint index 29 read GetSmallintProp write SetSmallintProp stored False;
  3842.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  3843.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3844.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3845.     property OnKeyPress: TMemoXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3846.   end;
  3847.  
  3848. { NotebookXControl }
  3849.  
  3850.   TNotebookX = class(TOleControl)
  3851.   private
  3852.     FOnClick: TNotifyEvent;
  3853.     FOnDblClick: TNotifyEvent;
  3854.     FOnPageChanged: TNotifyEvent;
  3855.     FIntf: INotebookX;
  3856.     function Get_Pages: IStrings;
  3857.     procedure Set_Pages(const Value: IStrings);
  3858.   protected
  3859.     procedure InitControlData; override;
  3860.     procedure InitControlInterface(const Obj: IUnknown); override;
  3861.   public
  3862.     procedure AboutBox;
  3863.     property ControlInterface: INotebookX read FIntf;
  3864.   published
  3865.     property TabStop;
  3866.     property DragMode;
  3867.     property ParentShowHint;
  3868.     property PopupMenu;
  3869.     property ShowHint;
  3870.     property TabOrder;
  3871.     property OnDragDrop;
  3872.     property OnDragOver;
  3873.     property OnEndDrag;
  3874.     property OnEnter;
  3875.     property OnExit;
  3876.     property OnStartDrag;
  3877.     property ActivePage: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;
  3878.     property Color: TColor index 2 read GetTColorProp write SetTColorProp stored False;
  3879.     property Ctl3D: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  3880.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  3881.     property Font: TFont index 5 read GetTFontProp write SetTFontProp stored False;
  3882.     property Enabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  3883.     property PageIndex: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  3884.     property Pages: IStrings read Get_Pages write Set_Pages stored False;
  3885.     property ParentColor: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  3886.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  3887.     property Cursor: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  3888.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3889.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3890.     property OnPageChanged: TNotifyEvent read FOnPageChanged write FOnPageChanged;
  3891.   end;
  3892.  
  3893. { OutlineXControl }
  3894.  
  3895.   TOutlineXOnExpand = procedure(Sender: TObject; Index: Integer) of object;
  3896.   TOutlineXOnCollapse = procedure(Sender: TObject; Index: Integer) of object;
  3897.   TOutlineXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  3898.  
  3899.   TOutlineX = class(TOleControl)
  3900.   private
  3901.     FOnExpand: TOutlineXOnExpand;
  3902.     FOnCollapse: TOutlineXOnCollapse;
  3903.     FOnClick: TNotifyEvent;
  3904.     FOnDblClick: TNotifyEvent;
  3905.     FOnKeyPress: TOutlineXOnKeyPress;
  3906.     FIntf: IOutlineX;
  3907.     function Get_Lines: IStrings;
  3908.     procedure Set_Lines(const Value: IStrings);
  3909.   protected
  3910.     procedure InitControlData; override;
  3911.     procedure InitControlInterface(const Obj: IUnknown); override;
  3912.   public
  3913.     function Add(Index: Integer; const Text: WideString): Integer;
  3914.     function AddChild(Index: Integer; const Text: WideString): Integer;
  3915.     function Insert(Index: Integer; const Text: WideString): Integer;
  3916.     procedure Delete(Index: Integer);
  3917.     function GetItem(X, Y: Integer): Integer;
  3918.     function GetTextItem(const Value: WideString): Integer;
  3919.     procedure FullExpand;
  3920.     procedure FullCollapse;
  3921.     procedure LoadFromFile(const FileName: WideString);
  3922.     procedure SaveToFile(const FileName: WideString);
  3923.     procedure BeginUpdate;
  3924.     procedure EndUpdate;
  3925.     procedure SetUpdateState(Value: WordBool);
  3926.     procedure Clear;
  3927.     procedure AboutBox;
  3928.     property ControlInterface: IOutlineX read FIntf;
  3929.     property ItemCount: Integer index 27 read GetIntegerProp;
  3930.   published
  3931.     property TabStop;
  3932.     property DragMode;
  3933.     property ParentShowHint;
  3934.     property PopupMenu;
  3935.     property ShowHint;
  3936.     property TabOrder;
  3937.     property OnDragDrop;
  3938.     property OnDragOver;
  3939.     property OnEndDrag;
  3940.     property OnEnter;
  3941.     property OnExit;
  3942.     property OnStartDrag;
  3943.     property Lines: IStrings read Get_Lines write Set_Lines stored False;
  3944.     property OutlineStyle: TxOutlineStyle index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3945.     property Style: TxOutlineType index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3946.     property ItemHeight: Integer index 4 read GetIntegerProp write SetIntegerProp stored False;
  3947.     property Enabled: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  3948.     property Font: TFont index 6 read GetTFontProp write SetTFontProp stored False;
  3949.     property Color: TColor index 7 read GetTColorProp write SetTColorProp stored False;
  3950.     property ParentColor: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  3951.     property Ctl3D: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  3952.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  3953.     property DragCursor: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  3954.     property ItemSeparator: WideString index 12 read GetWideStringProp write SetWideStringProp stored False;
  3955.     property SelectedItem: Integer index 28 read GetIntegerProp write SetIntegerProp stored False;
  3956.     property Row: Integer index 29 read GetIntegerProp write SetIntegerProp stored False;
  3957.     property Cursor: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  3958.     property OnExpand: TOutlineXOnExpand read FOnExpand write FOnExpand;
  3959.     property OnCollapse: TOutlineXOnCollapse read FOnCollapse write FOnCollapse;
  3960.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  3961.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  3962.     property OnKeyPress: TOutlineXOnKeyPress read FOnKeyPress write FOnKeyPress;
  3963.   end;
  3964.  
  3965. { PanelXControl }
  3966.  
  3967.   TPanelX = class(TOleControl)
  3968.   private
  3969.     FOnClick: TNotifyEvent;
  3970.     FOnDblClick: TNotifyEvent;
  3971.     FOnResize: TNotifyEvent;
  3972.     FIntf: IPanelX;
  3973.   protected
  3974.     procedure InitControlData; override;
  3975.     procedure InitControlInterface(const Obj: IUnknown); override;
  3976.   public
  3977.     procedure AboutBox;
  3978.     property ControlInterface: IPanelX read FIntf;
  3979.   published
  3980.     property TabStop;
  3981.     property DragMode;
  3982.     property ParentShowHint;
  3983.     property PopupMenu;
  3984.     property ShowHint;
  3985.     property TabOrder;
  3986.     property OnDragDrop;
  3987.     property OnDragOver;
  3988.     property OnEndDrag;
  3989.     property OnEnter;
  3990.     property OnExit;
  3991.     property OnStartDrag;
  3992.     property BevelInner: TxPanelBevel index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  3993.     property BevelWidth: Integer index 2 read GetIntegerProp write SetIntegerProp stored False;
  3994.     property BorderWidth: Integer index 3 read GetIntegerProp write SetIntegerProp stored False;
  3995.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  3996.     property Enabled: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  3997.     property Caption: WideString index 6 read GetWideStringProp write SetWideStringProp stored False;
  3998.     property Color: TColor index 7 read GetTColorProp write SetTColorProp stored False;
  3999.     property Ctl3D: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  4000.     property Font: TFont index 9 read GetTFontProp write SetTFontProp stored False;
  4001.     property Locked: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4002.     property ParentColor: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  4003.     property Visible: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  4004.     property Cursor: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  4005.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4006.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  4007.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  4008.   end;
  4009.  
  4010. { ProgressBarXControl }
  4011.  
  4012.   TProgressBarX = class(TOleControl)
  4013.   private
  4014.     FIntf: IProgressBarX;
  4015.   protected
  4016.     procedure InitControlData; override;
  4017.     procedure InitControlInterface(const Obj: IUnknown); override;
  4018.   public
  4019.     procedure StepIt;
  4020.     procedure StepBy(Delta: Integer);
  4021.     procedure AboutBox;
  4022.     property ControlInterface: IProgressBarX read FIntf;
  4023.   published
  4024.     property TabStop;
  4025.     property DragMode;
  4026.     property ParentShowHint;
  4027.     property PopupMenu;
  4028.     property ShowHint;
  4029.     property TabOrder;
  4030.     property OnDragDrop;
  4031.     property OnDragOver;
  4032.     property OnEndDrag;
  4033.     property OnEnter;
  4034.     property OnExit;
  4035.     property OnStartDrag;
  4036.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  4037.     property Enabled: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4038.     property Min: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  4039.     property Max: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  4040.     property Position: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  4041.     property Step: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  4042.     property Visible: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  4043.     property Cursor: Smallint index 10 read GetSmallintProp write SetSmallintProp stored False;
  4044.   end;
  4045.  
  4046. { RadioButtonXControl }
  4047.  
  4048.   TRadioButtonXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  4049.  
  4050.   TRadioButtonX = class(TOleControl)
  4051.   private
  4052.     FOnClick: TNotifyEvent;
  4053.     FOnDblClick: TNotifyEvent;
  4054.     FOnKeyPress: TRadioButtonXOnKeyPress;
  4055.     FIntf: IRadioButtonX;
  4056.   protected
  4057.     procedure InitControlData; override;
  4058.     procedure InitControlInterface(const Obj: IUnknown); override;
  4059.   public
  4060.     procedure AboutBox;
  4061.     property ControlInterface: IRadioButtonX read FIntf;
  4062.   published
  4063.     property TabStop;
  4064.     property DragMode;
  4065.     property ParentShowHint;
  4066.     property PopupMenu;
  4067.     property ShowHint;
  4068.     property TabOrder;
  4069.     property OnDragDrop;
  4070.     property OnDragOver;
  4071.     property OnEndDrag;
  4072.     property OnEnter;
  4073.     property OnExit;
  4074.     property OnStartDrag;
  4075.     property Caption: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;
  4076.     property Checked: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  4077.     property Color: TColor index 3 read GetTColorProp write SetTColorProp stored False;
  4078.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4079.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  4080.     property Enabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  4081.     property Font: TFont index 7 read GetTFontProp write SetTFontProp stored False;
  4082.     property ParentColor: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  4083.     property Visible: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  4084.     property Cursor: Smallint index 10 read GetSmallintProp write SetSmallintProp stored False;
  4085.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4086.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  4087.     property OnKeyPress: TRadioButtonXOnKeyPress read FOnKeyPress write FOnKeyPress;
  4088.   end;
  4089.  
  4090. { RichEditXControl }
  4091.  
  4092.   TRichEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  4093.   TRichEditXOnProtectChange = procedure(Sender: TObject; StartPos, EndPos: Integer; var AllowChange: WordBool) of object;
  4094.   TRichEditXOnSaveClipboard = procedure(Sender: TObject; NumObjects, NumChars: Integer; var SaveClipboard: WordBool) of object;
  4095.  
  4096.   TRichEditX = class(TOleControl)
  4097.   private
  4098.     FOnChange: TNotifyEvent;
  4099.     FOnKeyPress: TRichEditXOnKeyPress;
  4100.     FOnSelectionChange: TNotifyEvent;
  4101.     FOnProtectChange: TRichEditXOnProtectChange;
  4102.     FOnSaveClipboard: TRichEditXOnSaveClipboard;
  4103.     FIntf: IRichEditX;
  4104.     function Get_Lines: IStrings;
  4105.     procedure Set_Lines(const Value: IStrings);
  4106.   protected
  4107.     procedure InitControlData; override;
  4108.     procedure InitControlInterface(const Obj: IUnknown); override;
  4109.   public
  4110.     procedure Clear;
  4111.     procedure Print(const Caption: WideString);
  4112.     procedure ClearSelection;
  4113.     procedure CopyToClipboard;
  4114.     procedure CutToClipboard;
  4115.     procedure PasteFromClipboard;
  4116.     procedure SelectAll;
  4117.     procedure AboutBox;
  4118.     property ControlInterface: IRichEditX read FIntf;
  4119.   published
  4120.     property TabStop;
  4121.     property DragMode;
  4122.     property ParentShowHint;
  4123.     property PopupMenu;
  4124.     property ShowHint;
  4125.     property TabOrder;
  4126.     property OnDragDrop;
  4127.     property OnDragOver;
  4128.     property OnEndDrag;
  4129.     property OnEnter;
  4130.     property OnExit;
  4131.     property OnStartDrag;
  4132.     property Color: TColor index 1 read GetTColorProp write SetTColorProp stored False;
  4133.     property Ctl3D: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  4134.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  4135.     property Enabled: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4136.     property Font: TFont index 5 read GetTFontProp write SetTFontProp stored False;
  4137.     property HideSelection: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  4138.     property HideScrollBars: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  4139.     property ImeName: WideString index 8 read GetWideStringProp write SetWideStringProp stored False;
  4140.     property Lines: IStrings read Get_Lines write Set_Lines stored False;
  4141.     property MaxLength: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  4142.     property ParentColor: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  4143.     property PlainText: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  4144.     property ReadOnly: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  4145.     property Visible: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  4146.     property WantTabs: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  4147.     property WantReturns: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  4148.     property WordWrap: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  4149.     property Modified: WordBool index 25 read GetWordBoolProp write SetWordBoolProp stored False;
  4150.     property SelLength: Integer index 26 read GetIntegerProp write SetIntegerProp stored False;
  4151.     property SelStart: Integer index 27 read GetIntegerProp write SetIntegerProp stored False;
  4152.     property SelText: WideString index 28 read GetWideStringProp write SetWideStringProp stored False;
  4153.     property Text: WideString index 29 read GetWideStringProp write SetWideStringProp stored False;
  4154.     property Cursor: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  4155.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4156.     property OnKeyPress: TRichEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  4157.     property OnSelectionChange: TNotifyEvent read FOnSelectionChange write FOnSelectionChange;
  4158.     property OnProtectChange: TRichEditXOnProtectChange read FOnProtectChange write FOnProtectChange;
  4159.     property OnSaveClipboard: TRichEditXOnSaveClipboard read FOnSaveClipboard write FOnSaveClipboard;
  4160.   end;
  4161.  
  4162. { ScrollBarXControl }
  4163.  
  4164.   TScrollBarXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  4165.   TScrollBarXOnScroll = procedure(Sender: TObject; ScrollCode: TxScrollCode; var ScrollPos: Integer) of object;
  4166.  
  4167.   TScrollBarX = class(TOleControl)
  4168.   private
  4169.     FOnChange: TNotifyEvent;
  4170.     FOnKeyPress: TScrollBarXOnKeyPress;
  4171.     FOnScroll: TScrollBarXOnScroll;
  4172.     FIntf: IScrollBarX;
  4173.   protected
  4174.     procedure InitControlData; override;
  4175.     procedure InitControlInterface(const Obj: IUnknown); override;
  4176.   public
  4177.     procedure SetParams(APosition, AMin, AMax: Integer);
  4178.     procedure AboutBox;
  4179.     property ControlInterface: IScrollBarX read FIntf;
  4180.   published
  4181.     property TabStop;
  4182.     property DragMode;
  4183.     property ParentShowHint;
  4184.     property PopupMenu;
  4185.     property ShowHint;
  4186.     property TabOrder;
  4187.     property OnDragDrop;
  4188.     property OnDragOver;
  4189.     property OnEndDrag;
  4190.     property OnEnter;
  4191.     property OnExit;
  4192.     property OnStartDrag;
  4193.     property Ctl3D: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  4194.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  4195.     property Enabled: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4196.     property Kind: TxScrollBarKind index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4197.     property LargeChange: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  4198.     property Max: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  4199.     property Min: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  4200.     property Position: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  4201.     property SmallChange: Smallint index 10 read GetSmallintProp write SetSmallintProp stored False;
  4202.     property Visible: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  4203.     property Cursor: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;
  4204.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4205.     property OnKeyPress: TScrollBarXOnKeyPress read FOnKeyPress write FOnKeyPress;
  4206.     property OnScroll: TScrollBarXOnScroll read FOnScroll write FOnScroll;
  4207.   end;
  4208.  
  4209. { ScrollBoxXControl }
  4210.  
  4211.   TScrollBoxX = class(TOleControl)
  4212.   private
  4213.     FOnClick: TNotifyEvent;
  4214.     FOnDblClick: TNotifyEvent;
  4215.     FOnResize: TNotifyEvent;
  4216.     FIntf: IScrollBoxX;
  4217.   protected
  4218.     procedure InitControlData; override;
  4219.     procedure InitControlInterface(const Obj: IUnknown); override;
  4220.   public
  4221.     procedure DisableAutoRange;
  4222.     procedure EnableAutoRange;
  4223.     procedure AboutBox;
  4224.     property ControlInterface: IScrollBoxX read FIntf;
  4225.   published
  4226.     property TabStop;
  4227.     property DragMode;
  4228.     property ParentShowHint;
  4229.     property PopupMenu;
  4230.     property ShowHint;
  4231.     property TabOrder;
  4232.     property OnDragDrop;
  4233.     property OnDragOver;
  4234.     property OnEndDrag;
  4235.     property OnEnter;
  4236.     property OnExit;
  4237.     property OnStartDrag;
  4238.     property AutoScroll: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  4239.     property DragCursor: Smallint index 2 read GetSmallintProp write SetSmallintProp stored False;
  4240.     property Enabled: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  4241.     property Color: TColor index 4 read GetTColorProp write SetTColorProp stored False;
  4242.     property Ctl3D: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  4243.     property Font: TFont index 6 read GetTFontProp write SetTFontProp stored False;
  4244.     property ParentColor: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  4245.     property Visible: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  4246.     property Cursor: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  4247.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4248.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  4249.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  4250.   end;
  4251.  
  4252. { SpinEditXControl }
  4253.  
  4254.   TSpinEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  4255.  
  4256.   TSpinEditX = class(TOleControl)
  4257.   private
  4258.     FOnChange: TNotifyEvent;
  4259.     FOnClick: TNotifyEvent;
  4260.     FOnDblClick: TNotifyEvent;
  4261.     FOnKeyPress: TSpinEditXOnKeyPress;
  4262.     FIntf: ISpinEditX;
  4263.   protected
  4264.     procedure InitControlData; override;
  4265.     procedure InitControlInterface(const Obj: IUnknown); override;
  4266.   public
  4267.     procedure Clear;
  4268.     procedure ClearSelection;
  4269.     procedure CopyToClipboard;
  4270.     procedure CutToClipboard;
  4271.     procedure PasteFromClipboard;
  4272.     procedure SelectAll;
  4273.     procedure AboutBox;
  4274.     property ControlInterface: ISpinEditX read FIntf;
  4275.   published
  4276.     property TabStop;
  4277.     property DragMode;
  4278.     property ParentShowHint;
  4279.     property PopupMenu;
  4280.     property ShowHint;
  4281.     property TabOrder;
  4282.     property OnDragDrop;
  4283.     property OnDragOver;
  4284.     property OnEndDrag;
  4285.     property OnEnter;
  4286.     property OnExit;
  4287.     property OnStartDrag;
  4288.     property AutoSelect: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  4289.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  4290.     property Color: TColor index 3 read GetTColorProp write SetTColorProp stored False;
  4291.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4292.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  4293.     property EditorEnabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  4294.     property Enabled: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  4295.     property Font: TFont index 8 read GetTFontProp write SetTFontProp stored False;
  4296.     property Increment: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  4297.     property MaxLength: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  4298.     property MaxValue: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  4299.     property MinValue: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  4300.     property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  4301.     property ReadOnly: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  4302.     property Value: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;
  4303.     property Visible: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  4304.     property Modified: WordBool index 23 read GetWordBoolProp write SetWordBoolProp stored False;
  4305.     property SelLength: Integer index 24 read GetIntegerProp write SetIntegerProp stored False;
  4306.     property SelStart: Integer index 25 read GetIntegerProp write SetIntegerProp stored False;
  4307.     property SelText: WideString index 26 read GetWideStringProp write SetWideStringProp stored False;
  4308.     property Text: WideString index 27 read GetWideStringProp write SetWideStringProp stored False;
  4309.     property Cursor: Smallint index 28 read GetSmallintProp write SetSmallintProp stored False;
  4310.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4311.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4312.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  4313.     property OnKeyPress: TSpinEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  4314.   end;
  4315.  
  4316. { StaticTextXControl }
  4317.  
  4318.   TStaticTextX = class(TOleControl)
  4319.   private
  4320.     FOnClick: TNotifyEvent;
  4321.     FOnDblClick: TNotifyEvent;
  4322.     FIntf: IStaticTextX;
  4323.   protected
  4324.     procedure InitControlData; override;
  4325.     procedure InitControlInterface(const Obj: IUnknown); override;
  4326.   public
  4327.     procedure AboutBox;
  4328.     property ControlInterface: IStaticTextX read FIntf;
  4329.   published
  4330.     property TabStop;
  4331.     property DragMode;
  4332.     property ParentShowHint;
  4333.     property PopupMenu;
  4334.     property ShowHint;
  4335.     property TabOrder;
  4336.     property OnDragDrop;
  4337.     property OnDragOver;
  4338.     property OnEndDrag;
  4339.     property OnEnter;
  4340.     property OnExit;
  4341.     property OnStartDrag;
  4342.     property AutoSize: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  4343.     property BorderStyle: TxStaticBorderStyle index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4344.     property Caption: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  4345.     property Color: TColor index 4 read GetTColorProp write SetTColorProp stored False;
  4346.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  4347.     property Enabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  4348.     property Font: TFont index 7 read GetTFontProp write SetTFontProp stored False;
  4349.     property ParentColor: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  4350.     property ShowAccelChar: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  4351.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4352.     property Cursor: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  4353.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4354.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  4355.   end;
  4356.  
  4357. { StringGridXControl }
  4358.  
  4359.   TStringGridXOnColumnMoved = procedure(Sender: TObject; FromIndex, ToIndex: Integer) of object;
  4360.   TStringGridXOnGetEditMask = procedure(Sender: TObject; ACol, ARow: Integer; var Value: WideString) of object;
  4361.   TStringGridXOnGetEditText = procedure(Sender: TObject; ACol, ARow: Integer; var Value: WideString) of object;
  4362.   TStringGridXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  4363.   TStringGridXOnRowMoved = procedure(Sender: TObject; FromIndex, ToIndex: Integer) of object;
  4364.   TStringGridXOnSelectCell = procedure(Sender: TObject; Col, Row: Integer; var CanSelect: WordBool) of object;
  4365.   TStringGridXOnSetEditText = procedure(Sender: TObject; ACol, ARow: Integer; const Value: WideString) of object;
  4366.  
  4367.   TStringGridX = class(TOleControl)
  4368.   private
  4369.     FOnClick: TNotifyEvent;
  4370.     FOnColumnMoved: TStringGridXOnColumnMoved;
  4371.     FOnDblClick: TNotifyEvent;
  4372.     FOnGetEditMask: TStringGridXOnGetEditMask;
  4373.     FOnGetEditText: TStringGridXOnGetEditText;
  4374.     FOnKeyPress: TStringGridXOnKeyPress;
  4375.     FOnRowMoved: TStringGridXOnRowMoved;
  4376.     FOnSelectCell: TStringGridXOnSelectCell;
  4377.     FOnSetEditText: TStringGridXOnSetEditText;
  4378.     FOnTopLeftChanged: TNotifyEvent;
  4379.     FIntf: IStringGridX;
  4380.   protected
  4381.     procedure InitControlData; override;
  4382.     procedure InitControlInterface(const Obj: IUnknown); override;
  4383.   public
  4384.     procedure MouseToCell(X, Y: Integer; var ACol, ARow: Integer);
  4385.     procedure AboutBox;
  4386.     property ControlInterface: IStringGridX read FIntf;
  4387.     property GridHeight: Integer index 4 read GetIntegerProp;
  4388.     property GridWidth: Integer index 5 read GetIntegerProp;
  4389.     property VisibleColCount: Integer index 25 read GetIntegerProp;
  4390.     property VisibleRowCount: Integer index 26 read GetIntegerProp;
  4391.   published
  4392.     property TabStop;
  4393.     property DragMode;
  4394.     property ParentShowHint;
  4395.     property PopupMenu;
  4396.     property ShowHint;
  4397.     property TabOrder;
  4398.     property OnDragDrop;
  4399.     property OnDragOver;
  4400.     property OnEndDrag;
  4401.     property OnEnter;
  4402.     property OnExit;
  4403.     property OnStartDrag;
  4404.     property Col: Integer index 2 read GetIntegerProp write SetIntegerProp stored False;
  4405.     property EditorMode: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  4406.     property LeftCol: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  4407.     property Row: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  4408.     property TopRow: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  4409.     property Color: TColor index 9 read GetTColorProp write SetTColorProp stored False;
  4410.     property ColCount: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  4411.     property Ctl3D: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  4412.     property DefaultColWidth: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  4413.     property DefaultRowHeight: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  4414.     property DefaultDrawing: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  4415.     property DragCursor: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  4416.     property Enabled: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  4417.     property FixedColor: TColor index 17 read GetTColorProp write SetTColorProp stored False;
  4418.     property FixedCols: Integer index 18 read GetIntegerProp write SetIntegerProp stored False;
  4419.     property RowCount: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  4420.     property FixedRows: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  4421.     property Font: TFont index 21 read GetTFontProp write SetTFontProp stored False;
  4422.     property GridLineWidth: Integer index 22 read GetIntegerProp write SetIntegerProp stored False;
  4423.     property ParentColor: WordBool index 23 read GetWordBoolProp write SetWordBoolProp stored False;
  4424.     property Visible: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False;
  4425.     property Cursor: Smallint index 27 read GetSmallintProp write SetSmallintProp stored False;
  4426.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4427.     property OnColumnMoved: TStringGridXOnColumnMoved read FOnColumnMoved write FOnColumnMoved;
  4428.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  4429.     property OnGetEditMask: TStringGridXOnGetEditMask read FOnGetEditMask write FOnGetEditMask;
  4430.     property OnGetEditText: TStringGridXOnGetEditText read FOnGetEditText write FOnGetEditText;
  4431.     property OnKeyPress: TStringGridXOnKeyPress read FOnKeyPress write FOnKeyPress;
  4432.     property OnRowMoved: TStringGridXOnRowMoved read FOnRowMoved write FOnRowMoved;
  4433.     property OnSelectCell: TStringGridXOnSelectCell read FOnSelectCell write FOnSelectCell;
  4434.     property OnSetEditText: TStringGridXOnSetEditText read FOnSetEditText write FOnSetEditText;
  4435.     property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
  4436.   end;
  4437.  
  4438. { TabbedNotebookXControl }
  4439.  
  4440.   TTabbedNotebookXOnChange = procedure(Sender: TObject; NewTab: Integer; var AllowChange: WordBool) of object;
  4441.  
  4442.   TTabbedNotebookX = class(TOleControl)
  4443.   private
  4444.     FOnClick: TNotifyEvent;
  4445.     FOnChange: TTabbedNotebookXOnChange;
  4446.     FIntf: ITabbedNotebookX;
  4447.     function Get_Pages: IStrings;
  4448.     procedure Set_Pages(const Value: IStrings);
  4449.   protected
  4450.     procedure InitControlData; override;
  4451.     procedure InitControlInterface(const Obj: IUnknown); override;
  4452.   public
  4453.     function GetIndexForPage(const PageName: WideString): Integer;
  4454.     procedure AboutBox;
  4455.     property ControlInterface: ITabbedNotebookX read FIntf;
  4456.     property TopFont: TFont index 2 read GetTFontProp;
  4457.   published
  4458.     property TabStop;
  4459.     property DragCursor;
  4460.     property DragMode;
  4461.     property ParentShowHint;
  4462.     property PopupMenu;
  4463.     property ShowHint;
  4464.     property TabOrder;
  4465.     property OnDragDrop;
  4466.     property OnDragOver;
  4467.     property OnEndDrag;
  4468.     property OnEnter;
  4469.     property OnExit;
  4470.     property OnStartDrag;
  4471.     property ActivePage: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  4472.     property Enabled: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4473.     property PageIndex: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  4474.     property Pages: IStrings read Get_Pages write Set_Pages stored False;
  4475.     property Font: TFont index 7 read GetTFontProp write SetTFontProp stored False;
  4476.     property TabsPerRow: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  4477.     property TabFont: TFont index 9 read GetTFontProp write SetTFontProp stored False;
  4478.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4479.     property Cursor: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  4480.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4481.     property OnChange: TTabbedNotebookXOnChange read FOnChange write FOnChange;
  4482.   end;
  4483.  
  4484. { TabControlXControl }
  4485.  
  4486.   TTabControlXOnChanging = procedure(Sender: TObject; var AllowChange: WordBool) of object;
  4487.  
  4488.   TTabControlX = class(TOleControl)
  4489.   private
  4490.     FOnChange: TNotifyEvent;
  4491.     FOnChanging: TTabControlXOnChanging;
  4492.     FIntf: ITabControlX;
  4493.     function Get_Tabs: IStrings;
  4494.     procedure Set_Tabs(const Value: IStrings);
  4495.   protected
  4496.     procedure InitControlData; override;
  4497.     procedure InitControlInterface(const Obj: IUnknown); override;
  4498.   public
  4499.     procedure AboutBox;
  4500.     property ControlInterface: ITabControlX read FIntf;
  4501.   published
  4502.     property TabStop;
  4503.     property DragMode;
  4504.     property ParentShowHint;
  4505.     property PopupMenu;
  4506.     property ShowHint;
  4507.     property TabOrder;
  4508.     property OnDragDrop;
  4509.     property OnDragOver;
  4510.     property OnEndDrag;
  4511.     property OnEnter;
  4512.     property OnExit;
  4513.     property OnStartDrag;
  4514.     property DragCursor: Smallint index 1 read GetSmallintProp write SetSmallintProp stored False;
  4515.     property Enabled: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  4516.     property Font: TFont index 3 read GetTFontProp write SetTFontProp stored False;
  4517.     property HotTrack: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4518.     property MultiLine: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  4519.     property ScrollOpposite: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  4520.     property TabHeight: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  4521.     property TabIndex: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  4522.     property TabPosition: TxTabPosition index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4523.     property Tabs: IStrings read Get_Tabs write Set_Tabs stored False;
  4524.     property TabWidth: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  4525.     property Visible: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  4526.     property Cursor: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  4527.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4528.     property OnChanging: TTabControlXOnChanging read FOnChanging write FOnChanging;
  4529.   end;
  4530.  
  4531. { TabSetXControl }
  4532.  
  4533.   TTabSetXOnChange = procedure(Sender: TObject; NewTab: Integer; var AllowChange: WordBool) of object;
  4534.   TTabSetXOnMeasureTab = procedure(Sender: TObject; Index: Integer; var TabWidth: Integer) of object;
  4535.  
  4536.   TTabSetX = class(TOleControl)
  4537.   private
  4538.     FOnClick: TNotifyEvent;
  4539.     FOnChange: TTabSetXOnChange;
  4540.     FOnMeasureTab: TTabSetXOnMeasureTab;
  4541.     FIntf: ITabSetX;
  4542.     function Get_Tabs: IStrings;
  4543.     procedure Set_Tabs(const Value: IStrings);
  4544.   protected
  4545.     procedure InitControlData; override;
  4546.     procedure InitControlInterface(const Obj: IUnknown); override;
  4547.   public
  4548.     procedure SelectNext(Direction: WordBool);
  4549.     procedure AboutBox;
  4550.     property ControlInterface: ITabSetX read FIntf;
  4551.     property VisibleTabs: Integer index 17 read GetIntegerProp;
  4552.   published
  4553.     property TabStop;
  4554.     property DragCursor;
  4555.     property DragMode;
  4556.     property ParentShowHint;
  4557.     property PopupMenu;
  4558.     property ShowHint;
  4559.     property TabOrder;
  4560.     property OnDragDrop;
  4561.     property OnDragOver;
  4562.     property OnEndDrag;
  4563.     property OnEnter;
  4564.     property OnExit;
  4565.     property OnStartDrag;
  4566.     property FirstIndex: Integer index 2 read GetIntegerProp write SetIntegerProp stored False;
  4567.     property AutoScroll: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  4568.     property BackgroundColor: TColor index 4 read GetTColorProp write SetTColorProp stored False;
  4569.     property DitherBackground: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  4570.     property Enabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  4571.     property EndMargin: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  4572.     property Font: TFont index 8 read GetTFontProp write SetTFontProp stored False;
  4573.     property StartMargin: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  4574.     property SelectedColor: TColor index 10 read GetTColorProp write SetTColorProp stored False;
  4575.     property Style: TxTabStyle index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4576.     property TabHeight: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  4577.     property Tabs: IStrings read Get_Tabs write Set_Tabs stored False;
  4578.     property TabIndex: Integer index 14 read GetIntegerProp write SetIntegerProp stored False;
  4579.     property UnselectedColor: TColor index 15 read GetTColorProp write SetTColorProp stored False;
  4580.     property Visible: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  4581.     property Cursor: Smallint index 18 read GetSmallintProp write SetSmallintProp stored False;
  4582.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  4583.     property OnChange: TTabSetXOnChange read FOnChange write FOnChange;
  4584.     property OnMeasureTab: TTabSetXOnMeasureTab read FOnMeasureTab write FOnMeasureTab;
  4585.   end;
  4586.  
  4587. { TrackBarXControl }
  4588.  
  4589.   TTrackBarXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  4590.  
  4591.   TTrackBarX = class(TOleControl)
  4592.   private
  4593.     FOnChange: TNotifyEvent;
  4594.     FOnKeyPress: TTrackBarXOnKeyPress;
  4595.     FIntf: ITrackBarX;
  4596.   protected
  4597.     procedure InitControlData; override;
  4598.     procedure InitControlInterface(const Obj: IUnknown); override;
  4599.   public
  4600.     procedure SetTick(Value: Integer);
  4601.     procedure AboutBox;
  4602.     property ControlInterface: ITrackBarX read FIntf;
  4603.   published
  4604.     property TabStop;
  4605.     property DragMode;
  4606.     property ParentShowHint;
  4607.     property PopupMenu;
  4608.     property ShowHint;
  4609.     property TabOrder;
  4610.     property OnDragDrop;
  4611.     property OnDragOver;
  4612.     property OnEndDrag;
  4613.     property OnEnter;
  4614.     property OnExit;
  4615.     property OnStartDrag;
  4616.     property Ctl3D: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  4617.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  4618.     property Enabled: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  4619.     property LineSize: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  4620.     property Max: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  4621.     property Min: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  4622.     property Orientation: TxTrackBarOrientation index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4623.     property PageSize: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  4624.     property Frequency: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  4625.     property Position: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  4626.     property SelEnd: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  4627.     property SelStart: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  4628.     property TickMarks: TxTickMark index 14 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4629.     property TickStyle: TxTickStyle index 15 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4630.     property Visible: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  4631.     property Cursor: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  4632.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  4633.     property OnKeyPress: TTrackBarXOnKeyPress read FOnKeyPress write FOnKeyPress;
  4634.   end;
  4635.  
  4636. { UpDownXControl }
  4637.  
  4638.   TUpDownXOnChanging = procedure(Sender: TObject; var AllowChange: WordBool) of object;
  4639.   TUpDownXOnClick = procedure(Sender: TObject; Button: TxUDBtnType) of object;
  4640.  
  4641.   TUpDownX = class(TOleControl)
  4642.   private
  4643.     FOnChanging: TUpDownXOnChanging;
  4644.     FOnClick: TUpDownXOnClick;
  4645.     FIntf: IUpDownX;
  4646.   protected
  4647.     procedure InitControlData; override;
  4648.     procedure InitControlInterface(const Obj: IUnknown); override;
  4649.   public
  4650.     procedure AboutBox;
  4651.     property ControlInterface: IUpDownX read FIntf;
  4652.   published
  4653.     property TabStop;
  4654.     property DragCursor;
  4655.     property DragMode;
  4656.     property ParentShowHint;
  4657.     property PopupMenu;
  4658.     property ShowHint;
  4659.     property TabOrder;
  4660.     property OnDragDrop;
  4661.     property OnDragOver;
  4662.     property OnEndDrag;
  4663.     property OnEnter;
  4664.     property OnExit;
  4665.     property OnStartDrag;
  4666.     property AlignButton: TxUDAlignButton index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4667.     property ArrowKeys: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  4668.     property Enabled: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  4669.     property Min: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  4670.     property Max: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  4671.     property Increment: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  4672.     property Orientation: TxUDOrientation index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  4673.     property Position: Smallint index 8 read GetSmallintProp write SetSmallintProp stored False;
  4674.     property Thousands: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  4675.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  4676.     property Wrap: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  4677.     property Cursor: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;
  4678.     property OnChanging: TUpDownXOnChanging read FOnChanging write FOnChanging;
  4679.     property OnClick: TUpDownXOnClick read FOnClick write FOnClick;
  4680.   end;
  4681.  
  4682. procedure Register;
  4683.  
  4684. implementation
  4685.  
  4686. uses ComObj;
  4687.  
  4688. procedure TButtonX.InitControlData;
  4689. const
  4690.   CEventDispIDs: array[0..1] of Integer = (
  4691.     $00000001, $00000002);
  4692.   CLicenseKey: array[0..38] of Word = (
  4693.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0035, $0038, $002D,
  4694.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4695.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  4696.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  4697.   CFontIDs: array [0..0] of Integer = (
  4698.     $00000008);
  4699.   CControlData: TControlData = (
  4700.     ClassID: '{5A565953-7975-11D0-BE02-00A024D1875C}';
  4701.     EventIID: '{5A565952-7975-11D0-BE02-00A024D1875C}';
  4702.     EventCount: 2;
  4703.     EventDispIDs: @CEventDispIDs;
  4704.     LicenseKey: @CLicenseKey;
  4705.     Flags: $00000000;
  4706.     Version: 300;
  4707.     FontCount: 1;
  4708.     FontIDs: @CFontIDs);
  4709. begin
  4710.   ControlData := @CControlData;
  4711. end;
  4712.  
  4713. procedure TButtonX.InitControlInterface(const Obj: IUnknown);
  4714. begin
  4715.   FIntf := Obj as IButtonX;
  4716. end;
  4717.  
  4718. procedure TButtonX.Click;
  4719. begin
  4720.   ControlInterface.Click;
  4721. end;
  4722.  
  4723. procedure TButtonX.AboutBox;
  4724. begin
  4725.   ControlInterface.AboutBox;
  4726. end;
  4727.  
  4728.  
  4729. procedure TCalendarX.InitControlData;
  4730. const
  4731.   CEventDispIDs: array[0..3] of Integer = (
  4732.     $00000001, $00000002, $00000003, $00000004);
  4733.   CLicenseKey: array[0..38] of Word = (
  4734.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0035, $0045, $002D,
  4735.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4736.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  4737.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  4738.   CFontIDs: array [0..0] of Integer = (
  4739.     $0000000C);
  4740.   CControlData: TControlData = (
  4741.     ClassID: '{5A56595C-7975-11D0-BE02-00A024D1875C}';
  4742.     EventIID: '{5A56595B-7975-11D0-BE02-00A024D1875C}';
  4743.     EventCount: 4;
  4744.     EventDispIDs: @CEventDispIDs;
  4745.     LicenseKey: @CLicenseKey;
  4746.     Flags: $00000000;
  4747.     Version: 300;
  4748.     FontCount: 1;
  4749.     FontIDs: @CFontIDs);
  4750. begin
  4751.   ControlData := @CControlData;
  4752. end;
  4753.  
  4754. procedure TCalendarX.InitControlInterface(const Obj: IUnknown);
  4755. begin
  4756.   FIntf := Obj as ICalendarX;
  4757. end;
  4758.  
  4759. procedure TCalendarX.NextMonth;
  4760. begin
  4761.   ControlInterface.NextMonth;
  4762. end;
  4763.  
  4764. procedure TCalendarX.NextYear;
  4765. begin
  4766.   ControlInterface.NextYear;
  4767. end;
  4768.  
  4769. procedure TCalendarX.PrevMonth;
  4770. begin
  4771.   ControlInterface.PrevMonth;
  4772. end;
  4773.  
  4774. procedure TCalendarX.PrevYear;
  4775. begin
  4776.   ControlInterface.PrevYear;
  4777. end;
  4778.  
  4779. procedure TCalendarX.UpdateCalendar;
  4780. begin
  4781.   ControlInterface.UpdateCalendar;
  4782. end;
  4783.  
  4784. procedure TCalendarX.AboutBox;
  4785. begin
  4786.   ControlInterface.AboutBox;
  4787. end;
  4788.  
  4789.  
  4790. procedure TCheckBoxX.InitControlData;
  4791. const
  4792.   CEventDispIDs: array[0..1] of Integer = (
  4793.     $00000001, $00000002);
  4794.   CLicenseKey: array[0..38] of Word = (
  4795.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0036, $0034, $002D,
  4796.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4797.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  4798.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  4799.   CFontIDs: array [0..0] of Integer = (
  4800.     $00000009);
  4801.   CControlData: TControlData = (
  4802.     ClassID: '{5A565961-7975-11D0-BE02-00A024D1875C}';
  4803.     EventIID: '{5A565960-7975-11D0-BE02-00A024D1875C}';
  4804.     EventCount: 2;
  4805.     EventDispIDs: @CEventDispIDs;
  4806.     LicenseKey: @CLicenseKey;
  4807.     Flags: $00000000;
  4808.     Version: 300;
  4809.     FontCount: 1;
  4810.     FontIDs: @CFontIDs);
  4811. begin
  4812.   ControlData := @CControlData;
  4813. end;
  4814.  
  4815. procedure TCheckBoxX.InitControlInterface(const Obj: IUnknown);
  4816. begin
  4817.   FIntf := Obj as ICheckBoxX;
  4818. end;
  4819.  
  4820. procedure TCheckBoxX.AboutBox;
  4821. begin
  4822.   ControlInterface.AboutBox;
  4823. end;
  4824.  
  4825.  
  4826. procedure TCheckListBoxX.InitControlData;
  4827. const
  4828.   CEventDispIDs: array[0..3] of Integer = (
  4829.     $00000001, $00000002, $00000003, $00000004);
  4830.   CLicenseKey: array[0..38] of Word = (
  4831.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0036, $0041, $002D,
  4832.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4833.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  4834.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  4835.   CFontIDs: array [0..0] of Integer = (
  4836.     $00000007);
  4837.   CControlData: TControlData = (
  4838.     ClassID: '{5A565967-7975-11D0-BE02-00A024D1875C}';
  4839.     EventIID: '{5A565966-7975-11D0-BE02-00A024D1875C}';
  4840.     EventCount: 4;
  4841.     EventDispIDs: @CEventDispIDs;
  4842.     LicenseKey: @CLicenseKey;
  4843.     Flags: $00000000;
  4844.     Version: 300;
  4845.     FontCount: 1;
  4846.     FontIDs: @CFontIDs);
  4847. begin
  4848.   ControlData := @CControlData;
  4849. end;
  4850.  
  4851. procedure TCheckListBoxX.InitControlInterface(const Obj: IUnknown);
  4852. begin
  4853.   FIntf := Obj as ICheckListBoxX;
  4854. end;
  4855.  
  4856. procedure TCheckListBoxX.Clear;
  4857. begin
  4858.   ControlInterface.Clear;
  4859. end;
  4860.  
  4861. procedure TCheckListBoxX.AboutBox;
  4862. begin
  4863.   ControlInterface.AboutBox;
  4864. end;
  4865.  
  4866. function TCheckListBoxX.Get_Items: IStrings;
  4867. begin
  4868.   Result := ControlInterface.Items;
  4869. end;
  4870.  
  4871. procedure TCheckListBoxX.Set_Items(const Value: IStrings);
  4872. begin
  4873.   ControlInterface.Items := Value;
  4874. end;
  4875.  
  4876.  
  4877. procedure TColorGridX.InitControlData;
  4878. const
  4879.   CEventDispIDs: array[0..2] of Integer = (
  4880.     $00000001, $00000002, $00000003);
  4881.   CLicenseKey: array[0..38] of Word = (
  4882.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0036, $0046, $002D,
  4883.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4884.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  4885.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  4886.   CFontIDs: array [0..0] of Integer = (
  4887.     $0000000C);
  4888.   CControlData: TControlData = (
  4889.     ClassID: '{5A56596D-7975-11D0-BE02-00A024D1875C}';
  4890.     EventIID: '{5A56596C-7975-11D0-BE02-00A024D1875C}';
  4891.     EventCount: 3;
  4892.     EventDispIDs: @CEventDispIDs;
  4893.     LicenseKey: @CLicenseKey;
  4894.     Flags: $00000000;
  4895.     Version: 300;
  4896.     FontCount: 1;
  4897.     FontIDs: @CFontIDs);
  4898. begin
  4899.   ControlData := @CControlData;
  4900. end;
  4901.  
  4902. procedure TColorGridX.InitControlInterface(const Obj: IUnknown);
  4903. begin
  4904.   FIntf := Obj as IColorGridX;
  4905. end;
  4906.  
  4907. procedure TColorGridX.AboutBox;
  4908. begin
  4909.   ControlInterface.AboutBox;
  4910. end;
  4911.  
  4912.  
  4913. procedure TDateTimePickerX.InitControlData;
  4914. const
  4915.   CEventDispIDs: array[0..6] of Integer = (
  4916.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  4917.     $00000007);
  4918.   CLicenseKey: array[0..38] of Word = (
  4919.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0037, $0037, $002D,
  4920.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4921.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  4922.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  4923.   CFontIDs: array [0..0] of Integer = (
  4924.     $00000009);
  4925.   CControlData: TControlData = (
  4926.     ClassID: '{5A565972-7975-11D0-BE02-00A024D1875C}';
  4927.     EventIID: '{5A565971-7975-11D0-BE02-00A024D1875C}';
  4928.     EventCount: 7;
  4929.     EventDispIDs: @CEventDispIDs;
  4930.     LicenseKey: @CLicenseKey;
  4931.     Flags: $00000000;
  4932.     Version: 300;
  4933.     FontCount: 1;
  4934.     FontIDs: @CFontIDs);
  4935. begin
  4936.   ControlData := @CControlData;
  4937. end;
  4938.  
  4939. procedure TDateTimePickerX.InitControlInterface(const Obj: IUnknown);
  4940. begin
  4941.   FIntf := Obj as IDateTimePickerX;
  4942. end;
  4943.  
  4944. procedure TDateTimePickerX.AboutBox;
  4945. begin
  4946.   ControlInterface.AboutBox;
  4947. end;
  4948.  
  4949.  
  4950. procedure TDrawGridX.InitControlData;
  4951. const
  4952.   CEventDispIDs: array[0..9] of Integer = (
  4953.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  4954.     $00000007, $00000008, $00000009, $0000000A);
  4955.   CLicenseKey: array[0..38] of Word = (
  4956.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0037, $0043, $002D,
  4957.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4958.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  4959.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  4960.   CFontIDs: array [0..0] of Integer = (
  4961.     $00000015);
  4962.   CControlData: TControlData = (
  4963.     ClassID: '{5A56597A-7975-11D0-BE02-00A024D1875C}';
  4964.     EventIID: '{5A565979-7975-11D0-BE02-00A024D1875C}';
  4965.     EventCount: 10;
  4966.     EventDispIDs: @CEventDispIDs;
  4967.     LicenseKey: @CLicenseKey;
  4968.     Flags: $00000000;
  4969.     Version: 300;
  4970.     FontCount: 1;
  4971.     FontIDs: @CFontIDs);
  4972. begin
  4973.   ControlData := @CControlData;
  4974. end;
  4975.  
  4976. procedure TDrawGridX.InitControlInterface(const Obj: IUnknown);
  4977. begin
  4978.   FIntf := Obj as IDrawGridX;
  4979. end;
  4980.  
  4981. procedure TDrawGridX.MouseToCell(X, Y: Integer; var ACol, ARow: Integer);
  4982. begin
  4983.   ControlInterface.MouseToCell(X, Y, ACol, ARow);
  4984. end;
  4985.  
  4986. procedure TDrawGridX.AboutBox;
  4987. begin
  4988.   ControlInterface.AboutBox;
  4989. end;
  4990.  
  4991.  
  4992. procedure TEditX.InitControlData;
  4993. const
  4994.   CEventDispIDs: array[0..3] of Integer = (
  4995.     $00000001, $00000002, $00000003, $00000004);
  4996.   CLicenseKey: array[0..38] of Word = (
  4997.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0038, $0031, $002D,
  4998.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  4999.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5000.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5001.   CFontIDs: array [0..0] of Integer = (
  5002.     $00000008);
  5003.   CControlData: TControlData = (
  5004.     ClassID: '{5A56597F-7975-11D0-BE02-00A024D1875C}';
  5005.     EventIID: '{5A56597E-7975-11D0-BE02-00A024D1875C}';
  5006.     EventCount: 4;
  5007.     EventDispIDs: @CEventDispIDs;
  5008.     LicenseKey: @CLicenseKey;
  5009.     Flags: $00000000;
  5010.     Version: 300;
  5011.     FontCount: 1;
  5012.     FontIDs: @CFontIDs);
  5013. begin
  5014.   ControlData := @CControlData;
  5015. end;
  5016.  
  5017. procedure TEditX.InitControlInterface(const Obj: IUnknown);
  5018. begin
  5019.   FIntf := Obj as IEditX;
  5020. end;
  5021.  
  5022. procedure TEditX.Clear;
  5023. begin
  5024.   ControlInterface.Clear;
  5025. end;
  5026.  
  5027. procedure TEditX.ClearSelection;
  5028. begin
  5029.   ControlInterface.ClearSelection;
  5030. end;
  5031.  
  5032. procedure TEditX.CopyToClipboard;
  5033. begin
  5034.   ControlInterface.CopyToClipboard;
  5035. end;
  5036.  
  5037. procedure TEditX.CutToClipboard;
  5038. begin
  5039.   ControlInterface.CutToClipboard;
  5040. end;
  5041.  
  5042. procedure TEditX.PasteFromClipboard;
  5043. begin
  5044.   ControlInterface.PasteFromClipboard;
  5045. end;
  5046.  
  5047. procedure TEditX.SelectAll;
  5048. begin
  5049.   ControlInterface.SelectAll;
  5050. end;
  5051.  
  5052. procedure TEditX.AboutBox;
  5053. begin
  5054.   ControlInterface.AboutBox;
  5055. end;
  5056.  
  5057.  
  5058. procedure THotKeyX.InitControlData;
  5059. const
  5060.   CLicenseKey: array[0..38] of Word = (
  5061.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0038, $0035, $002D,
  5062.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5063.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5064.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5065.   CControlData: TControlData = (
  5066.     ClassID: '{5A565984-7975-11D0-BE02-00A024D1875C}';
  5067.     EventIID: '';
  5068.     EventCount: 0;
  5069.     EventDispIDs: nil;
  5070.     LicenseKey: @CLicenseKey;
  5071.     Flags: $00000000;
  5072.     Version: 300;
  5073.     FontCount: 0;
  5074.     FontIDs: nil);
  5075. begin
  5076.   ControlData := @CControlData;
  5077. end;
  5078.  
  5079. procedure THotKeyX.InitControlInterface(const Obj: IUnknown);
  5080. begin
  5081.   FIntf := Obj as IHotKeyX;
  5082. end;
  5083.  
  5084. procedure THotKeyX.AboutBox;
  5085. begin
  5086.   ControlInterface.AboutBox;
  5087. end;
  5088.  
  5089.  
  5090. procedure TListBoxX.InitControlData;
  5091. const
  5092.   CEventDispIDs: array[0..2] of Integer = (
  5093.     $00000001, $00000002, $00000003);
  5094.   CLicenseKey: array[0..38] of Word = (
  5095.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0038, $0039, $002D,
  5096.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5097.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5098.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5099.   CFontIDs: array [0..0] of Integer = (
  5100.     $00000007);
  5101.   CControlData: TControlData = (
  5102.     ClassID: '{5A565988-7975-11D0-BE02-00A024D1875C}';
  5103.     EventIID: '{5A565987-7975-11D0-BE02-00A024D1875C}';
  5104.     EventCount: 3;
  5105.     EventDispIDs: @CEventDispIDs;
  5106.     LicenseKey: @CLicenseKey;
  5107.     Flags: $00000000;
  5108.     Version: 300;
  5109.     FontCount: 1;
  5110.     FontIDs: @CFontIDs);
  5111. begin
  5112.   ControlData := @CControlData;
  5113. end;
  5114.  
  5115. procedure TListBoxX.InitControlInterface(const Obj: IUnknown);
  5116. begin
  5117.   FIntf := Obj as IListBoxX;
  5118. end;
  5119.  
  5120. procedure TListBoxX.Clear;
  5121. begin
  5122.   ControlInterface.Clear;
  5123. end;
  5124.  
  5125. procedure TListBoxX.AboutBox;
  5126. begin
  5127.   ControlInterface.AboutBox;
  5128. end;
  5129.  
  5130. function TListBoxX.Get_Items: IStrings;
  5131. begin
  5132.   Result := ControlInterface.Items;
  5133. end;
  5134.  
  5135. procedure TListBoxX.Set_Items(const Value: IStrings);
  5136. begin
  5137.   ControlInterface.Items := Value;
  5138. end;
  5139.  
  5140.  
  5141. procedure TMaskEditX.InitControlData;
  5142. const
  5143.   CEventDispIDs: array[0..3] of Integer = (
  5144.     $00000001, $00000002, $00000003, $00000004);
  5145.   CLicenseKey: array[0..38] of Word = (
  5146.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0038, $0044, $002D,
  5147.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5148.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5149.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5150.   CFontIDs: array [0..0] of Integer = (
  5151.     $00000008);
  5152.   CControlData: TControlData = (
  5153.     ClassID: '{5A56598C-7975-11D0-BE02-00A024D1875C}';
  5154.     EventIID: '{5A56598B-7975-11D0-BE02-00A024D1875C}';
  5155.     EventCount: 4;
  5156.     EventDispIDs: @CEventDispIDs;
  5157.     LicenseKey: @CLicenseKey;
  5158.     Flags: $00000000;
  5159.     Version: 300;
  5160.     FontCount: 1;
  5161.     FontIDs: @CFontIDs);
  5162. begin
  5163.   ControlData := @CControlData;
  5164. end;
  5165.  
  5166. procedure TMaskEditX.InitControlInterface(const Obj: IUnknown);
  5167. begin
  5168.   FIntf := Obj as IMaskEditX;
  5169. end;
  5170.  
  5171. procedure TMaskEditX.ValidateEdit;
  5172. begin
  5173.   ControlInterface.ValidateEdit;
  5174. end;
  5175.  
  5176. procedure TMaskEditX.Clear;
  5177. begin
  5178.   ControlInterface.Clear;
  5179. end;
  5180.  
  5181. procedure TMaskEditX.ClearSelection;
  5182. begin
  5183.   ControlInterface.ClearSelection;
  5184. end;
  5185.  
  5186. procedure TMaskEditX.CopyToClipboard;
  5187. begin
  5188.   ControlInterface.CopyToClipboard;
  5189. end;
  5190.  
  5191. procedure TMaskEditX.CutToClipboard;
  5192. begin
  5193.   ControlInterface.CutToClipboard;
  5194. end;
  5195.  
  5196. procedure TMaskEditX.PasteFromClipboard;
  5197. begin
  5198.   ControlInterface.PasteFromClipboard;
  5199. end;
  5200.  
  5201. procedure TMaskEditX.SelectAll;
  5202. begin
  5203.   ControlInterface.SelectAll;
  5204. end;
  5205.  
  5206. procedure TMaskEditX.AboutBox;
  5207. begin
  5208.   ControlInterface.AboutBox;
  5209. end;
  5210.  
  5211.  
  5212. procedure TMediaPlayerX.InitControlData;
  5213. const
  5214.   CEventDispIDs: array[0..1] of Integer = (
  5215.     $00000001, $00000002);
  5216.   CLicenseKey: array[0..38] of Word = (
  5217.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0039, $0036, $002D,
  5218.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5219.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5220.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5221.   CControlData: TControlData = (
  5222.     ClassID: '{5A565990-7975-11D0-BE02-00A024D1875C}';
  5223.     EventIID: '{5A56598F-7975-11D0-BE02-00A024D1875C}';
  5224.     EventCount: 2;
  5225.     EventDispIDs: @CEventDispIDs;
  5226.     LicenseKey: @CLicenseKey;
  5227.     Flags: $00000000;
  5228.     Version: 300;
  5229.     FontCount: 0;
  5230.     FontIDs: nil);
  5231. begin
  5232.   ControlData := @CControlData;
  5233. end;
  5234.  
  5235. procedure TMediaPlayerX.InitControlInterface(const Obj: IUnknown);
  5236. begin
  5237.   FIntf := Obj as IMediaPlayerX;
  5238. end;
  5239.  
  5240. procedure TMediaPlayerX.Open;
  5241. begin
  5242.   ControlInterface.Open;
  5243. end;
  5244.  
  5245. procedure TMediaPlayerX.Close;
  5246. begin
  5247.   ControlInterface.Close;
  5248. end;
  5249.  
  5250. procedure TMediaPlayerX.Play;
  5251. begin
  5252.   ControlInterface.Play;
  5253. end;
  5254.  
  5255. procedure TMediaPlayerX.Stop;
  5256. begin
  5257.   ControlInterface.Stop;
  5258. end;
  5259.  
  5260. procedure TMediaPlayerX.Pause;
  5261. begin
  5262.   ControlInterface.Pause;
  5263. end;
  5264.  
  5265. procedure TMediaPlayerX.Step;
  5266. begin
  5267.   ControlInterface.Step;
  5268. end;
  5269.  
  5270. procedure TMediaPlayerX.Back;
  5271. begin
  5272.   ControlInterface.Back;
  5273. end;
  5274.  
  5275. procedure TMediaPlayerX.Previous;
  5276. begin
  5277.   ControlInterface.Previous;
  5278. end;
  5279.  
  5280. procedure TMediaPlayerX.Next;
  5281. begin
  5282.   ControlInterface.Next;
  5283. end;
  5284.  
  5285. procedure TMediaPlayerX.StartRecording;
  5286. begin
  5287.   ControlInterface.StartRecording;
  5288. end;
  5289.  
  5290. procedure TMediaPlayerX.Eject;
  5291. begin
  5292.   ControlInterface.Eject;
  5293. end;
  5294.  
  5295. procedure TMediaPlayerX.Save;
  5296. begin
  5297.   ControlInterface.Save;
  5298. end;
  5299.  
  5300. procedure TMediaPlayerX.PauseOnly;
  5301. begin
  5302.   ControlInterface.PauseOnly;
  5303. end;
  5304.  
  5305. procedure TMediaPlayerX.Resume;
  5306. begin
  5307.   ControlInterface.Resume;
  5308. end;
  5309.  
  5310. procedure TMediaPlayerX.Rewind;
  5311. begin
  5312.   ControlInterface.Rewind;
  5313. end;
  5314.  
  5315. procedure TMediaPlayerX.AboutBox;
  5316. begin
  5317.   ControlInterface.AboutBox;
  5318. end;
  5319.  
  5320.  
  5321. procedure TMemoX.InitControlData;
  5322. const
  5323.   CEventDispIDs: array[0..3] of Integer = (
  5324.     $00000001, $00000002, $00000003, $00000004);
  5325.   CLicenseKey: array[0..38] of Word = (
  5326.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0039, $0042, $002D,
  5327.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5328.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5329.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5330.   CFontIDs: array [0..0] of Integer = (
  5331.     $00000006);
  5332.   CControlData: TControlData = (
  5333.     ClassID: '{5A565999-7975-11D0-BE02-00A024D1875C}';
  5334.     EventIID: '{5A565998-7975-11D0-BE02-00A024D1875C}';
  5335.     EventCount: 4;
  5336.     EventDispIDs: @CEventDispIDs;
  5337.     LicenseKey: @CLicenseKey;
  5338.     Flags: $00000000;
  5339.     Version: 300;
  5340.     FontCount: 1;
  5341.     FontIDs: @CFontIDs);
  5342. begin
  5343.   ControlData := @CControlData;
  5344. end;
  5345.  
  5346. procedure TMemoX.InitControlInterface(const Obj: IUnknown);
  5347. begin
  5348.   FIntf := Obj as IMemoX;
  5349. end;
  5350.  
  5351. procedure TMemoX.Clear;
  5352. begin
  5353.   ControlInterface.Clear;
  5354. end;
  5355.  
  5356. procedure TMemoX.ClearSelection;
  5357. begin
  5358.   ControlInterface.ClearSelection;
  5359. end;
  5360.  
  5361. procedure TMemoX.CopyToClipboard;
  5362. begin
  5363.   ControlInterface.CopyToClipboard;
  5364. end;
  5365.  
  5366. procedure TMemoX.CutToClipboard;
  5367. begin
  5368.   ControlInterface.CutToClipboard;
  5369. end;
  5370.  
  5371. procedure TMemoX.PasteFromClipboard;
  5372. begin
  5373.   ControlInterface.PasteFromClipboard;
  5374. end;
  5375.  
  5376. procedure TMemoX.SelectAll;
  5377. begin
  5378.   ControlInterface.SelectAll;
  5379. end;
  5380.  
  5381. procedure TMemoX.AboutBox;
  5382. begin
  5383.   ControlInterface.AboutBox;
  5384. end;
  5385.  
  5386. function TMemoX.Get_Lines: IStrings;
  5387. begin
  5388.   Result := ControlInterface.Lines;
  5389. end;
  5390.  
  5391. procedure TMemoX.Set_Lines(const Value: IStrings);
  5392. begin
  5393.   ControlInterface.Lines := Value;
  5394. end;
  5395.  
  5396.  
  5397. procedure TNotebookX.InitControlData;
  5398. const
  5399.   CEventDispIDs: array[0..2] of Integer = (
  5400.     $00000001, $00000002, $00000003);
  5401.   CLicenseKey: array[0..38] of Word = (
  5402.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0039, $0046, $002D,
  5403.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5404.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5405.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5406.   CFontIDs: array [0..0] of Integer = (
  5407.     $00000005);
  5408.   CControlData: TControlData = (
  5409.     ClassID: '{5A56599E-7975-11D0-BE02-00A024D1875C}';
  5410.     EventIID: '{5A56599D-7975-11D0-BE02-00A024D1875C}';
  5411.     EventCount: 3;
  5412.     EventDispIDs: @CEventDispIDs;
  5413.     LicenseKey: @CLicenseKey;
  5414.     Flags: $00000000;
  5415.     Version: 300;
  5416.     FontCount: 1;
  5417.     FontIDs: @CFontIDs);
  5418. begin
  5419.   ControlData := @CControlData;
  5420. end;
  5421.  
  5422. procedure TNotebookX.InitControlInterface(const Obj: IUnknown);
  5423. begin
  5424.   FIntf := Obj as INotebookX;
  5425. end;
  5426.  
  5427. procedure TNotebookX.AboutBox;
  5428. begin
  5429.   ControlInterface.AboutBox;
  5430. end;
  5431.  
  5432. function TNotebookX.Get_Pages: IStrings;
  5433. begin
  5434.   Result := ControlInterface.Pages;
  5435. end;
  5436.  
  5437. procedure TNotebookX.Set_Pages(const Value: IStrings);
  5438. begin
  5439.   ControlInterface.Pages := Value;
  5440. end;
  5441.  
  5442.  
  5443. procedure TOutlineX.InitControlData;
  5444. const
  5445.   CEventDispIDs: array[0..4] of Integer = (
  5446.     $00000001, $00000002, $00000003, $00000004, $00000005);
  5447.   CLicenseKey: array[0..38] of Word = (
  5448.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0041, $0035, $002D,
  5449.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5450.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5451.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5452.   CFontIDs: array [0..0] of Integer = (
  5453.     $00000006);
  5454.   CControlData: TControlData = (
  5455.     ClassID: '{5A5659A2-7975-11D0-BE02-00A024D1875C}';
  5456.     EventIID: '{5A5659A1-7975-11D0-BE02-00A024D1875C}';
  5457.     EventCount: 5;
  5458.     EventDispIDs: @CEventDispIDs;
  5459.     LicenseKey: @CLicenseKey;
  5460.     Flags: $00000000;
  5461.     Version: 300;
  5462.     FontCount: 1;
  5463.     FontIDs: @CFontIDs);
  5464. begin
  5465.   ControlData := @CControlData;
  5466. end;
  5467.  
  5468. procedure TOutlineX.InitControlInterface(const Obj: IUnknown);
  5469. begin
  5470.   FIntf := Obj as IOutlineX;
  5471. end;
  5472.  
  5473. function TOutlineX.Add(Index: Integer; const Text: WideString): Integer;
  5474. begin
  5475.   Result := ControlInterface.Add(Index, Text);
  5476. end;
  5477.  
  5478. function TOutlineX.AddChild(Index: Integer; const Text: WideString): Integer;
  5479. begin
  5480.   Result := ControlInterface.AddChild(Index, Text);
  5481. end;
  5482.  
  5483. function TOutlineX.Insert(Index: Integer; const Text: WideString): Integer;
  5484. begin
  5485.   Result := ControlInterface.Insert(Index, Text);
  5486. end;
  5487.  
  5488. procedure TOutlineX.Delete(Index: Integer);
  5489. begin
  5490.   ControlInterface.Delete(Index);
  5491. end;
  5492.  
  5493. function TOutlineX.GetItem(X, Y: Integer): Integer;
  5494. begin
  5495.   Result := ControlInterface.GetItem(X, Y);
  5496. end;
  5497.  
  5498. function TOutlineX.GetTextItem(const Value: WideString): Integer;
  5499. begin
  5500.   Result := ControlInterface.GetTextItem(Value);
  5501. end;
  5502.  
  5503. procedure TOutlineX.FullExpand;
  5504. begin
  5505.   ControlInterface.FullExpand;
  5506. end;
  5507.  
  5508. procedure TOutlineX.FullCollapse;
  5509. begin
  5510.   ControlInterface.FullCollapse;
  5511. end;
  5512.  
  5513. procedure TOutlineX.LoadFromFile(const FileName: WideString);
  5514. begin
  5515.   ControlInterface.LoadFromFile(FileName);
  5516. end;
  5517.  
  5518. procedure TOutlineX.SaveToFile(const FileName: WideString);
  5519. begin
  5520.   ControlInterface.SaveToFile(FileName);
  5521. end;
  5522.  
  5523. procedure TOutlineX.BeginUpdate;
  5524. begin
  5525.   ControlInterface.BeginUpdate;
  5526. end;
  5527.  
  5528. procedure TOutlineX.EndUpdate;
  5529. begin
  5530.   ControlInterface.EndUpdate;
  5531. end;
  5532.  
  5533. procedure TOutlineX.SetUpdateState(Value: WordBool);
  5534. begin
  5535.   ControlInterface.SetUpdateState(Value);
  5536. end;
  5537.  
  5538. procedure TOutlineX.Clear;
  5539. begin
  5540.   ControlInterface.Clear;
  5541. end;
  5542.  
  5543. procedure TOutlineX.AboutBox;
  5544. begin
  5545.   ControlInterface.AboutBox;
  5546. end;
  5547.  
  5548. function TOutlineX.Get_Lines: IStrings;
  5549. begin
  5550.   Result := ControlInterface.Lines;
  5551. end;
  5552.  
  5553. procedure TOutlineX.Set_Lines(const Value: IStrings);
  5554. begin
  5555.   ControlInterface.Lines := Value;
  5556. end;
  5557.  
  5558.  
  5559. procedure TPanelX.InitControlData;
  5560. const
  5561.   CEventDispIDs: array[0..2] of Integer = (
  5562.     $00000001, $00000002, $00000003);
  5563.   CLicenseKey: array[0..38] of Word = (
  5564.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0041, $0041, $002D,
  5565.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5566.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5567.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5568.   CFontIDs: array [0..0] of Integer = (
  5569.     $00000009);
  5570.   CControlData: TControlData = (
  5571.     ClassID: '{5A5659A8-7975-11D0-BE02-00A024D1875C}';
  5572.     EventIID: '{5A5659A7-7975-11D0-BE02-00A024D1875C}';
  5573.     EventCount: 3;
  5574.     EventDispIDs: @CEventDispIDs;
  5575.     LicenseKey: @CLicenseKey;
  5576.     Flags: $00000000;
  5577.     Version: 300;
  5578.     FontCount: 1;
  5579.     FontIDs: @CFontIDs);
  5580. begin
  5581.   ControlData := @CControlData;
  5582. end;
  5583.  
  5584. procedure TPanelX.InitControlInterface(const Obj: IUnknown);
  5585. begin
  5586.   FIntf := Obj as IPanelX;
  5587. end;
  5588.  
  5589. procedure TPanelX.AboutBox;
  5590. begin
  5591.   ControlInterface.AboutBox;
  5592. end;
  5593.  
  5594.  
  5595. procedure TProgressBarX.InitControlData;
  5596. const
  5597.   CLicenseKey: array[0..38] of Word = (
  5598.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0041, $0045, $002D,
  5599.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5600.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5601.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5602.   CControlData: TControlData = (
  5603.     ClassID: '{5A5659AD-7975-11D0-BE02-00A024D1875C}';
  5604.     EventIID: '';
  5605.     EventCount: 0;
  5606.     EventDispIDs: nil;
  5607.     LicenseKey: @CLicenseKey;
  5608.     Flags: $00000000;
  5609.     Version: 300;
  5610.     FontCount: 0;
  5611.     FontIDs: nil);
  5612. begin
  5613.   ControlData := @CControlData;
  5614. end;
  5615.  
  5616. procedure TProgressBarX.InitControlInterface(const Obj: IUnknown);
  5617. begin
  5618.   FIntf := Obj as IProgressBarX;
  5619. end;
  5620.  
  5621. procedure TProgressBarX.StepIt;
  5622. begin
  5623.   ControlInterface.StepIt;
  5624. end;
  5625.  
  5626. procedure TProgressBarX.StepBy(Delta: Integer);
  5627. begin
  5628.   ControlInterface.StepBy(Delta);
  5629. end;
  5630.  
  5631. procedure TProgressBarX.AboutBox;
  5632. begin
  5633.   ControlInterface.AboutBox;
  5634. end;
  5635.  
  5636.  
  5637. procedure TRadioButtonX.InitControlData;
  5638. const
  5639.   CEventDispIDs: array[0..2] of Integer = (
  5640.     $00000001, $00000002, $00000003);
  5641.   CLicenseKey: array[0..38] of Word = (
  5642.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0042, $0032, $002D,
  5643.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5644.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5645.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5646.   CFontIDs: array [0..0] of Integer = (
  5647.     $00000007);
  5648.   CControlData: TControlData = (
  5649.     ClassID: '{5A5659B1-7975-11D0-BE02-00A024D1875C}';
  5650.     EventIID: '{5A5659B0-7975-11D0-BE02-00A024D1875C}';
  5651.     EventCount: 3;
  5652.     EventDispIDs: @CEventDispIDs;
  5653.     LicenseKey: @CLicenseKey;
  5654.     Flags: $00000000;
  5655.     Version: 300;
  5656.     FontCount: 1;
  5657.     FontIDs: @CFontIDs);
  5658. begin
  5659.   ControlData := @CControlData;
  5660. end;
  5661.  
  5662. procedure TRadioButtonX.InitControlInterface(const Obj: IUnknown);
  5663. begin
  5664.   FIntf := Obj as IRadioButtonX;
  5665. end;
  5666.  
  5667. procedure TRadioButtonX.AboutBox;
  5668. begin
  5669.   ControlInterface.AboutBox;
  5670. end;
  5671.  
  5672.  
  5673. procedure TRichEditX.InitControlData;
  5674. const
  5675.   CEventDispIDs: array[0..4] of Integer = (
  5676.     $00000001, $00000002, $00000003, $00000004, $00000005);
  5677.   CLicenseKey: array[0..38] of Word = (
  5678.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0042, $0036, $002D,
  5679.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5680.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5681.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5682.   CFontIDs: array [0..0] of Integer = (
  5683.     $00000005);
  5684.   CControlData: TControlData = (
  5685.     ClassID: '{5A5659B5-7975-11D0-BE02-00A024D1875C}';
  5686.     EventIID: '{5A5659B4-7975-11D0-BE02-00A024D1875C}';
  5687.     EventCount: 5;
  5688.     EventDispIDs: @CEventDispIDs;
  5689.     LicenseKey: @CLicenseKey;
  5690.     Flags: $00000000;
  5691.     Version: 300;
  5692.     FontCount: 1;
  5693.     FontIDs: @CFontIDs);
  5694. begin
  5695.   ControlData := @CControlData;
  5696. end;
  5697.  
  5698. procedure TRichEditX.InitControlInterface(const Obj: IUnknown);
  5699. begin
  5700.   FIntf := Obj as IRichEditX;
  5701. end;
  5702.  
  5703. procedure TRichEditX.Clear;
  5704. begin
  5705.   ControlInterface.Clear;
  5706. end;
  5707.  
  5708. procedure TRichEditX.Print(const Caption: WideString);
  5709. begin
  5710.   ControlInterface.Print(Caption);
  5711. end;
  5712.  
  5713. procedure TRichEditX.ClearSelection;
  5714. begin
  5715.   ControlInterface.ClearSelection;
  5716. end;
  5717.  
  5718. procedure TRichEditX.CopyToClipboard;
  5719. begin
  5720.   ControlInterface.CopyToClipboard;
  5721. end;
  5722.  
  5723. procedure TRichEditX.CutToClipboard;
  5724. begin
  5725.   ControlInterface.CutToClipboard;
  5726. end;
  5727.  
  5728. procedure TRichEditX.PasteFromClipboard;
  5729. begin
  5730.   ControlInterface.PasteFromClipboard;
  5731. end;
  5732.  
  5733. procedure TRichEditX.SelectAll;
  5734. begin
  5735.   ControlInterface.SelectAll;
  5736. end;
  5737.  
  5738. procedure TRichEditX.AboutBox;
  5739. begin
  5740.   ControlInterface.AboutBox;
  5741. end;
  5742.  
  5743. function TRichEditX.Get_Lines: IStrings;
  5744. begin
  5745.   Result := ControlInterface.Lines;
  5746. end;
  5747.  
  5748. procedure TRichEditX.Set_Lines(const Value: IStrings);
  5749. begin
  5750.   ControlInterface.Lines := Value;
  5751. end;
  5752.  
  5753.  
  5754. procedure TScrollBarX.InitControlData;
  5755. const
  5756.   CEventDispIDs: array[0..2] of Integer = (
  5757.     $00000001, $00000002, $00000003);
  5758.   CLicenseKey: array[0..38] of Word = (
  5759.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0042, $0043, $002D,
  5760.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5761.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5762.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5763.   CControlData: TControlData = (
  5764.     ClassID: '{5A5659B9-7975-11D0-BE02-00A024D1875C}';
  5765.     EventIID: '{5A5659B8-7975-11D0-BE02-00A024D1875C}';
  5766.     EventCount: 3;
  5767.     EventDispIDs: @CEventDispIDs;
  5768.     LicenseKey: @CLicenseKey;
  5769.     Flags: $00000000;
  5770.     Version: 300;
  5771.     FontCount: 0;
  5772.     FontIDs: nil);
  5773. begin
  5774.   ControlData := @CControlData;
  5775. end;
  5776.  
  5777. procedure TScrollBarX.InitControlInterface(const Obj: IUnknown);
  5778. begin
  5779.   FIntf := Obj as IScrollBarX;
  5780. end;
  5781.  
  5782. procedure TScrollBarX.SetParams(APosition, AMin, AMax: Integer);
  5783. begin
  5784.   ControlInterface.SetParams(APosition, AMin, AMax);
  5785. end;
  5786.  
  5787. procedure TScrollBarX.AboutBox;
  5788. begin
  5789.   ControlInterface.AboutBox;
  5790. end;
  5791.  
  5792.  
  5793. procedure TScrollBoxX.InitControlData;
  5794. const
  5795.   CEventDispIDs: array[0..2] of Integer = (
  5796.     $00000001, $00000002, $00000003);
  5797.   CLicenseKey: array[0..38] of Word = (
  5798.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0043, $0030, $002D,
  5799.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5800.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5801.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5802.   CFontIDs: array [0..0] of Integer = (
  5803.     $00000006);
  5804.   CControlData: TControlData = (
  5805.     ClassID: '{5A5659BF-7975-11D0-BE02-00A024D1875C}';
  5806.     EventIID: '{5A5659BE-7975-11D0-BE02-00A024D1875C}';
  5807.     EventCount: 3;
  5808.     EventDispIDs: @CEventDispIDs;
  5809.     LicenseKey: @CLicenseKey;
  5810.     Flags: $00000000;
  5811.     Version: 300;
  5812.     FontCount: 1;
  5813.     FontIDs: @CFontIDs);
  5814. begin
  5815.   ControlData := @CControlData;
  5816. end;
  5817.  
  5818. procedure TScrollBoxX.InitControlInterface(const Obj: IUnknown);
  5819. begin
  5820.   FIntf := Obj as IScrollBoxX;
  5821. end;
  5822.  
  5823. procedure TScrollBoxX.DisableAutoRange;
  5824. begin
  5825.   ControlInterface.DisableAutoRange;
  5826. end;
  5827.  
  5828. procedure TScrollBoxX.EnableAutoRange;
  5829. begin
  5830.   ControlInterface.EnableAutoRange;
  5831. end;
  5832.  
  5833. procedure TScrollBoxX.AboutBox;
  5834. begin
  5835.   ControlInterface.AboutBox;
  5836. end;
  5837.  
  5838.  
  5839. procedure TSpinEditX.InitControlData;
  5840. const
  5841.   CEventDispIDs: array[0..3] of Integer = (
  5842.     $00000001, $00000002, $00000003, $00000004);
  5843.   CLicenseKey: array[0..38] of Word = (
  5844.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0043, $0034, $002D,
  5845.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5846.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5847.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5848.   CFontIDs: array [0..0] of Integer = (
  5849.     $00000008);
  5850.   CControlData: TControlData = (
  5851.     ClassID: '{5A5659C3-7975-11D0-BE02-00A024D1875C}';
  5852.     EventIID: '{5A5659C2-7975-11D0-BE02-00A024D1875C}';
  5853.     EventCount: 4;
  5854.     EventDispIDs: @CEventDispIDs;
  5855.     LicenseKey: @CLicenseKey;
  5856.     Flags: $00000000;
  5857.     Version: 300;
  5858.     FontCount: 1;
  5859.     FontIDs: @CFontIDs);
  5860. begin
  5861.   ControlData := @CControlData;
  5862. end;
  5863.  
  5864. procedure TSpinEditX.InitControlInterface(const Obj: IUnknown);
  5865. begin
  5866.   FIntf := Obj as ISpinEditX;
  5867. end;
  5868.  
  5869. procedure TSpinEditX.Clear;
  5870. begin
  5871.   ControlInterface.Clear;
  5872. end;
  5873.  
  5874. procedure TSpinEditX.ClearSelection;
  5875. begin
  5876.   ControlInterface.ClearSelection;
  5877. end;
  5878.  
  5879. procedure TSpinEditX.CopyToClipboard;
  5880. begin
  5881.   ControlInterface.CopyToClipboard;
  5882. end;
  5883.  
  5884. procedure TSpinEditX.CutToClipboard;
  5885. begin
  5886.   ControlInterface.CutToClipboard;
  5887. end;
  5888.  
  5889. procedure TSpinEditX.PasteFromClipboard;
  5890. begin
  5891.   ControlInterface.PasteFromClipboard;
  5892. end;
  5893.  
  5894. procedure TSpinEditX.SelectAll;
  5895. begin
  5896.   ControlInterface.SelectAll;
  5897. end;
  5898.  
  5899. procedure TSpinEditX.AboutBox;
  5900. begin
  5901.   ControlInterface.AboutBox;
  5902. end;
  5903.  
  5904.  
  5905. procedure TStaticTextX.InitControlData;
  5906. const
  5907.   CEventDispIDs: array[0..1] of Integer = (
  5908.     $00000001, $00000002);
  5909.   CLicenseKey: array[0..38] of Word = (
  5910.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0043, $0039, $002D,
  5911.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5912.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5913.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5914.   CFontIDs: array [0..0] of Integer = (
  5915.     $00000007);
  5916.   CControlData: TControlData = (
  5917.     ClassID: '{5A5659C7-7975-11D0-BE02-00A024D1875C}';
  5918.     EventIID: '{5A5659C6-7975-11D0-BE02-00A024D1875C}';
  5919.     EventCount: 2;
  5920.     EventDispIDs: @CEventDispIDs;
  5921.     LicenseKey: @CLicenseKey;
  5922.     Flags: $00000000;
  5923.     Version: 300;
  5924.     FontCount: 1;
  5925.     FontIDs: @CFontIDs);
  5926. begin
  5927.   ControlData := @CControlData;
  5928. end;
  5929.  
  5930. procedure TStaticTextX.InitControlInterface(const Obj: IUnknown);
  5931. begin
  5932.   FIntf := Obj as IStaticTextX;
  5933. end;
  5934.  
  5935. procedure TStaticTextX.AboutBox;
  5936. begin
  5937.   ControlInterface.AboutBox;
  5938. end;
  5939.  
  5940.  
  5941. procedure TStringGridX.InitControlData;
  5942. const
  5943.   CEventDispIDs: array[0..9] of Integer = (
  5944.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  5945.     $00000007, $00000008, $00000009, $0000000A);
  5946.   CLicenseKey: array[0..38] of Word = (
  5947.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0043, $0044, $002D,
  5948.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5949.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5950.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5951.   CFontIDs: array [0..0] of Integer = (
  5952.     $00000015);
  5953.   CControlData: TControlData = (
  5954.     ClassID: '{5A5659CC-7975-11D0-BE02-00A024D1875C}';
  5955.     EventIID: '{5A5659CB-7975-11D0-BE02-00A024D1875C}';
  5956.     EventCount: 10;
  5957.     EventDispIDs: @CEventDispIDs;
  5958.     LicenseKey: @CLicenseKey;
  5959.     Flags: $00000000;
  5960.     Version: 300;
  5961.     FontCount: 1;
  5962.     FontIDs: @CFontIDs);
  5963. begin
  5964.   ControlData := @CControlData;
  5965. end;
  5966.  
  5967. procedure TStringGridX.InitControlInterface(const Obj: IUnknown);
  5968. begin
  5969.   FIntf := Obj as IStringGridX;
  5970. end;
  5971.  
  5972. procedure TStringGridX.MouseToCell(X, Y: Integer; var ACol, ARow: Integer);
  5973. begin
  5974.   ControlInterface.MouseToCell(X, Y, ACol, ARow);
  5975. end;
  5976.  
  5977. procedure TStringGridX.AboutBox;
  5978. begin
  5979.   ControlInterface.AboutBox;
  5980. end;
  5981.  
  5982.  
  5983. procedure TTabbedNotebookX.InitControlData;
  5984. const
  5985.   CEventDispIDs: array[0..1] of Integer = (
  5986.     $00000001, $00000002);
  5987.   CLicenseKey: array[0..38] of Word = (
  5988.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0044, $0031, $002D,
  5989.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  5990.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  5991.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  5992.   CFontIDs: array [0..2] of Integer = (
  5993.     $00000002, $00000007, $00000009);
  5994.   CControlData: TControlData = (
  5995.     ClassID: '{5A5659D0-7975-11D0-BE02-00A024D1875C}';
  5996.     EventIID: '{5A5659CF-7975-11D0-BE02-00A024D1875C}';
  5997.     EventCount: 2;
  5998.     EventDispIDs: @CEventDispIDs;
  5999.     LicenseKey: @CLicenseKey;
  6000.     Flags: $00000000;
  6001.     Version: 300;
  6002.     FontCount: 3;
  6003.     FontIDs: @CFontIDs);
  6004. begin
  6005.   ControlData := @CControlData;
  6006. end;
  6007.  
  6008. procedure TTabbedNotebookX.InitControlInterface(const Obj: IUnknown);
  6009. begin
  6010.   FIntf := Obj as ITabbedNotebookX;
  6011. end;
  6012.  
  6013. function TTabbedNotebookX.GetIndexForPage(const PageName: WideString): Integer;
  6014. begin
  6015.   Result := ControlInterface.GetIndexForPage(PageName);
  6016. end;
  6017.  
  6018. procedure TTabbedNotebookX.AboutBox;
  6019. begin
  6020.   ControlInterface.AboutBox;
  6021. end;
  6022.  
  6023. function TTabbedNotebookX.Get_Pages: IStrings;
  6024. begin
  6025.   Result := ControlInterface.Pages;
  6026. end;
  6027.  
  6028. procedure TTabbedNotebookX.Set_Pages(const Value: IStrings);
  6029. begin
  6030.   ControlInterface.Pages := Value;
  6031. end;
  6032.  
  6033.  
  6034. procedure TTabControlX.InitControlData;
  6035. const
  6036.   CEventDispIDs: array[0..1] of Integer = (
  6037.     $00000001, $00000002);
  6038.   CLicenseKey: array[0..38] of Word = (
  6039.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0044, $0036, $002D,
  6040.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  6041.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  6042.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  6043.   CFontIDs: array [0..0] of Integer = (
  6044.     $00000003);
  6045.   CControlData: TControlData = (
  6046.     ClassID: '{5A5659D4-7975-11D0-BE02-00A024D1875C}';
  6047.     EventIID: '{5A5659D3-7975-11D0-BE02-00A024D1875C}';
  6048.     EventCount: 2;
  6049.     EventDispIDs: @CEventDispIDs;
  6050.     LicenseKey: @CLicenseKey;
  6051.     Flags: $00000000;
  6052.     Version: 300;
  6053.     FontCount: 1;
  6054.     FontIDs: @CFontIDs);
  6055. begin
  6056.   ControlData := @CControlData;
  6057. end;
  6058.  
  6059. procedure TTabControlX.InitControlInterface(const Obj: IUnknown);
  6060. begin
  6061.   FIntf := Obj as ITabControlX;
  6062. end;
  6063.  
  6064. procedure TTabControlX.AboutBox;
  6065. begin
  6066.   ControlInterface.AboutBox;
  6067. end;
  6068.  
  6069. function TTabControlX.Get_Tabs: IStrings;
  6070. begin
  6071.   Result := ControlInterface.Tabs;
  6072. end;
  6073.  
  6074. procedure TTabControlX.Set_Tabs(const Value: IStrings);
  6075. begin
  6076.   ControlInterface.Tabs := Value;
  6077. end;
  6078.  
  6079.  
  6080. procedure TTabSetX.InitControlData;
  6081. const
  6082.   CEventDispIDs: array[0..2] of Integer = (
  6083.     $00000001, $00000002, $00000003);
  6084.   CLicenseKey: array[0..38] of Word = (
  6085.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0044, $0042, $002D,
  6086.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  6087.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  6088.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  6089.   CFontIDs: array [0..0] of Integer = (
  6090.     $00000008);
  6091.   CControlData: TControlData = (
  6092.     ClassID: '{5A5659D9-7975-11D0-BE02-00A024D1875C}';
  6093.     EventIID: '{5A5659D8-7975-11D0-BE02-00A024D1875C}';
  6094.     EventCount: 3;
  6095.     EventDispIDs: @CEventDispIDs;
  6096.     LicenseKey: @CLicenseKey;
  6097.     Flags: $00000000;
  6098.     Version: 300;
  6099.     FontCount: 1;
  6100.     FontIDs: @CFontIDs);
  6101. begin
  6102.   ControlData := @CControlData;
  6103. end;
  6104.  
  6105. procedure TTabSetX.InitControlInterface(const Obj: IUnknown);
  6106. begin
  6107.   FIntf := Obj as ITabSetX;
  6108. end;
  6109.  
  6110. procedure TTabSetX.SelectNext(Direction: WordBool);
  6111. begin
  6112.   ControlInterface.SelectNext(Direction);
  6113. end;
  6114.  
  6115. procedure TTabSetX.AboutBox;
  6116. begin
  6117.   ControlInterface.AboutBox;
  6118. end;
  6119.  
  6120. function TTabSetX.Get_Tabs: IStrings;
  6121. begin
  6122.   Result := ControlInterface.Tabs;
  6123. end;
  6124.  
  6125. procedure TTabSetX.Set_Tabs(const Value: IStrings);
  6126. begin
  6127.   ControlInterface.Tabs := Value;
  6128. end;
  6129.  
  6130.  
  6131. procedure TTrackBarX.InitControlData;
  6132. const
  6133.   CEventDispIDs: array[0..1] of Integer = (
  6134.     $00000001, $00000002);
  6135.   CLicenseKey: array[0..38] of Word = (
  6136.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0045, $0032, $002D,
  6137.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  6138.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  6139.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  6140.   CControlData: TControlData = (
  6141.     ClassID: '{5A5659DE-7975-11D0-BE02-00A024D1875C}';
  6142.     EventIID: '{5A5659DD-7975-11D0-BE02-00A024D1875C}';
  6143.     EventCount: 2;
  6144.     EventDispIDs: @CEventDispIDs;
  6145.     LicenseKey: @CLicenseKey;
  6146.     Flags: $00000000;
  6147.     Version: 300;
  6148.     FontCount: 0;
  6149.     FontIDs: nil);
  6150. begin
  6151.   ControlData := @CControlData;
  6152. end;
  6153.  
  6154. procedure TTrackBarX.InitControlInterface(const Obj: IUnknown);
  6155. begin
  6156.   FIntf := Obj as ITrackBarX;
  6157. end;
  6158.  
  6159. procedure TTrackBarX.SetTick(Value: Integer);
  6160. begin
  6161.   ControlInterface.SetTick(Value);
  6162. end;
  6163.  
  6164. procedure TTrackBarX.AboutBox;
  6165. begin
  6166.   ControlInterface.AboutBox;
  6167. end;
  6168.  
  6169.  
  6170. procedure TUpDownX.InitControlData;
  6171. const
  6172.   CEventDispIDs: array[0..1] of Integer = (
  6173.     $00000001, $00000002);
  6174.   CLicenseKey: array[0..38] of Word = (
  6175.     $007B, $0035, $0041, $0035, $0036, $0035, $0039, $0045, $0039, $002D,
  6176.     $0037, $0039, $0037, $0035, $002D, $0031, $0031, $0044, $0030, $002D,
  6177.     $0042, $0045, $0030, $0032, $002D, $0030, $0030, $0041, $0030, $0032,
  6178.     $0034, $0044, $0031, $0038, $0037, $0035, $0043, $007D, $0000);
  6179.   CControlData: TControlData = (
  6180.     ClassID: '{5A5659E5-7975-11D0-BE02-00A024D1875C}';
  6181.     EventIID: '{5A5659E4-7975-11D0-BE02-00A024D1875C}';
  6182.     EventCount: 2;
  6183.     EventDispIDs: @CEventDispIDs;
  6184.     LicenseKey: @CLicenseKey;
  6185.     Flags: $00000000;
  6186.     Version: 300;
  6187.     FontCount: 0;
  6188.     FontIDs: nil);
  6189. begin
  6190.   ControlData := @CControlData;
  6191. end;
  6192.  
  6193. procedure TUpDownX.InitControlInterface(const Obj: IUnknown);
  6194. begin
  6195.   FIntf := Obj as IUpDownX;
  6196. end;
  6197.  
  6198. procedure TUpDownX.AboutBox;
  6199. begin
  6200.   ControlInterface.AboutBox;
  6201. end;
  6202.  
  6203.  
  6204. procedure Register;
  6205. begin
  6206.   RegisterComponents('ActiveX', [TButtonX, TCalendarX, TCheckBoxX, TCheckListBoxX, TColorGridX, TDateTimePickerX, TDrawGridX, TEditX, THotKeyX, TListBoxX, TMaskEditX, TMediaPlayerX, TMemoX, TNotebookX, TOutlineX, TPanelX, TProgressBarX, TRadioButtonX, TRichEditX, TScrollBarX, TScrollBoxX, TSpinEditX, TStaticTextX, TStringGridX, TTabbedNotebookX, TTabControlX, TTabSetX, TTrackBarX, TUpDownX]);
  6207.   RegisterNonActiveX([TButtonX, TCalendarX, TCheckBoxX, TCheckListBoxX, TColorGridX, TDateTimePickerX, TDrawGridX, TEditX, THotKeyX, TListBoxX, TMaskEditX, TMediaPlayerX, TMemoX, TNotebookX, TOutlineX, TPanelX, TProgressBarX, TRadioButtonX, TRichEditX, TScrollBarX, TScrollBoxX, TSpinEditX, TStaticTextX, TStringGridX, TTabbedNotebookX, TTabControlX, TTabSetX, TTrackBarX, TUpDownX]);
  6208. end;
  6209.  
  6210. end.
  6211.