home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / ACTIVEX / DELCTRLS / delctrls_tlb.pas < prev    next >
Pascal/Delphi Source File  |  1998-06-16  |  558KB  |  12,537 lines
  1. unit DelCtrls_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.62  $
  15. // File generated on 6/13/98 11:22:32 AM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: C:\Delphi4\DelCtrls\DelCtrls.tlb
  19. // IID\LCID: {695CDAC9-02E5-11D2-B20D-00C04FA368D4}\0
  20. // Helpfile: 
  21. // HelpString: Delphi 4 AXCtrls Library
  22. // Version:    1.0
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_DelCtrls: TGUID = '{695CDAC9-02E5-11D2-B20D-00C04FA368D4}';
  38.   IID_IAnimateX: TGUID = '{695CDACA-02E5-11D2-B20D-00C04FA368D4}';
  39.   DIID_IAnimateXEvents: TGUID = '{695CDACC-02E5-11D2-B20D-00C04FA368D4}';
  40.   CLASS_AnimateX: TGUID = '{695CDACE-02E5-11D2-B20D-00C04FA368D4}';
  41.   IID_IButtonX: TGUID = '{695CDAD4-02E5-11D2-B20D-00C04FA368D4}';
  42.   DIID_IButtonXEvents: TGUID = '{695CDAD6-02E5-11D2-B20D-00C04FA368D4}';
  43.   CLASS_ButtonX: TGUID = '{695CDAD8-02E5-11D2-B20D-00C04FA368D4}';
  44.   IID_ICalendarX: TGUID = '{695CDADD-02E5-11D2-B20D-00C04FA368D4}';
  45.   DIID_ICalendarXEvents: TGUID = '{695CDADF-02E5-11D2-B20D-00C04FA368D4}';
  46.   CLASS_CalendarX: TGUID = '{695CDAE1-02E5-11D2-B20D-00C04FA368D4}';
  47.   IID_ICheckBoxX: TGUID = '{695CDAE5-02E5-11D2-B20D-00C04FA368D4}';
  48.   DIID_ICheckBoxXEvents: TGUID = '{695CDAE7-02E5-11D2-B20D-00C04FA368D4}';
  49.   CLASS_CheckBoxX: TGUID = '{695CDAE9-02E5-11D2-B20D-00C04FA368D4}';
  50.   IID_ICheckListBoxX: TGUID = '{695CDAEE-02E5-11D2-B20D-00C04FA368D4}';
  51.   DIID_ICheckListBoxXEvents: TGUID = '{695CDAF0-02E5-11D2-B20D-00C04FA368D4}';
  52.   CLASS_CheckListBoxX: TGUID = '{695CDAF2-02E5-11D2-B20D-00C04FA368D4}';
  53.   IID_IColorGridX: TGUID = '{695CDAF7-02E5-11D2-B20D-00C04FA368D4}';
  54.   DIID_IColorGridXEvents: TGUID = '{695CDAF9-02E5-11D2-B20D-00C04FA368D4}';
  55.   CLASS_ColorGridX: TGUID = '{695CDAFB-02E5-11D2-B20D-00C04FA368D4}';
  56.   IID_IComboBoxX: TGUID = '{695CDAFF-02E5-11D2-B20D-00C04FA368D4}';
  57.   DIID_IComboBoxXEvents: TGUID = '{695CDB01-02E5-11D2-B20D-00C04FA368D4}';
  58.   CLASS_ComboBoxX: TGUID = '{695CDB03-02E5-11D2-B20D-00C04FA368D4}';
  59.   IID_IControlBarX: TGUID = '{695CDB08-02E5-11D2-B20D-00C04FA368D4}';
  60.   DIID_IControlBarXEvents: TGUID = '{695CDB0A-02E5-11D2-B20D-00C04FA368D4}';
  61.   CLASS_ControlBarX: TGUID = '{695CDB0C-02E5-11D2-B20D-00C04FA368D4}';
  62.   IID_IDateTimePickerX: TGUID = '{695CDB11-02E5-11D2-B20D-00C04FA368D4}';
  63.   DIID_IDateTimePickerXEvents: TGUID = '{695CDB13-02E5-11D2-B20D-00C04FA368D4}';
  64.   CLASS_DateTimePickerX: TGUID = '{695CDB15-02E5-11D2-B20D-00C04FA368D4}';
  65.   IID_IDrawGridX: TGUID = '{695CDB1C-02E5-11D2-B20D-00C04FA368D4}';
  66.   DIID_IDrawGridXEvents: TGUID = '{695CDB1E-02E5-11D2-B20D-00C04FA368D4}';
  67.   CLASS_DrawGridX: TGUID = '{695CDB20-02E5-11D2-B20D-00C04FA368D4}';
  68.   IID_IEditX: TGUID = '{695CDB24-02E5-11D2-B20D-00C04FA368D4}';
  69.   DIID_IEditXEvents: TGUID = '{695CDB26-02E5-11D2-B20D-00C04FA368D4}';
  70.   CLASS_EditX: TGUID = '{695CDB28-02E5-11D2-B20D-00C04FA368D4}';
  71.   IID_IGroupBoxX: TGUID = '{695CDB2B-02E5-11D2-B20D-00C04FA368D4}';
  72.   DIID_IGroupBoxXEvents: TGUID = '{695CDB2D-02E5-11D2-B20D-00C04FA368D4}';
  73.   CLASS_GroupBoxX: TGUID = '{695CDB2F-02E5-11D2-B20D-00C04FA368D4}';
  74.   IID_IHotKeyX: TGUID = '{695CDB32-02E5-11D2-B20D-00C04FA368D4}';
  75.   DIID_IHotKeyXEvents: TGUID = '{695CDB34-02E5-11D2-B20D-00C04FA368D4}';
  76.   CLASS_HotKeyX: TGUID = '{695CDB36-02E5-11D2-B20D-00C04FA368D4}';
  77.   IID_IListBoxX: TGUID = '{695CDB39-02E5-11D2-B20D-00C04FA368D4}';
  78.   DIID_IListBoxXEvents: TGUID = '{695CDB3B-02E5-11D2-B20D-00C04FA368D4}';
  79.   CLASS_ListBoxX: TGUID = '{695CDB3D-02E5-11D2-B20D-00C04FA368D4}';
  80.   IID_IMaskEditX: TGUID = '{695CDB40-02E5-11D2-B20D-00C04FA368D4}';
  81.   DIID_IMaskEditXEvents: TGUID = '{695CDB42-02E5-11D2-B20D-00C04FA368D4}';
  82.   CLASS_MaskEditX: TGUID = '{695CDB44-02E5-11D2-B20D-00C04FA368D4}';
  83.   IID_IMediaPlayerX: TGUID = '{695CDB47-02E5-11D2-B20D-00C04FA368D4}';
  84.   DIID_IMediaPlayerXEvents: TGUID = '{695CDB49-02E5-11D2-B20D-00C04FA368D4}';
  85.   CLASS_MediaPlayerX: TGUID = '{695CDB4B-02E5-11D2-B20D-00C04FA368D4}';
  86.   IID_IMemoX: TGUID = '{695CDB53-02E5-11D2-B20D-00C04FA368D4}';
  87.   DIID_IMemoXEvents: TGUID = '{695CDB55-02E5-11D2-B20D-00C04FA368D4}';
  88.   CLASS_MemoX: TGUID = '{695CDB57-02E5-11D2-B20D-00C04FA368D4}';
  89.   IID_IMonthCalendarX: TGUID = '{695CDB5A-02E5-11D2-B20D-00C04FA368D4}';
  90.   DIID_IMonthCalendarXEvents: TGUID = '{695CDB5C-02E5-11D2-B20D-00C04FA368D4}';
  91.   CLASS_MonthCalendarX: TGUID = '{695CDB5E-02E5-11D2-B20D-00C04FA368D4}';
  92.   IID_INotebookX: TGUID = '{695CDB62-02E5-11D2-B20D-00C04FA368D4}';
  93.   DIID_INotebookXEvents: TGUID = '{695CDB64-02E5-11D2-B20D-00C04FA368D4}';
  94.   CLASS_NotebookX: TGUID = '{695CDB66-02E5-11D2-B20D-00C04FA368D4}';
  95.   IID_IOutlineX: TGUID = '{695CDB69-02E5-11D2-B20D-00C04FA368D4}';
  96.   DIID_IOutlineXEvents: TGUID = '{695CDB6B-02E5-11D2-B20D-00C04FA368D4}';
  97.   CLASS_OutlineX: TGUID = '{695CDB6D-02E5-11D2-B20D-00C04FA368D4}';
  98.   IID_IPageScrollerX: TGUID = '{695CDB72-02E5-11D2-B20D-00C04FA368D4}';
  99.   DIID_IPageScrollerXEvents: TGUID = '{695CDB74-02E5-11D2-B20D-00C04FA368D4}';
  100.   CLASS_PageScrollerX: TGUID = '{695CDB76-02E5-11D2-B20D-00C04FA368D4}';
  101.   IID_IPanelX: TGUID = '{695CDB7C-02E5-11D2-B20D-00C04FA368D4}';
  102.   DIID_IPanelXEvents: TGUID = '{695CDB7E-02E5-11D2-B20D-00C04FA368D4}';
  103.   CLASS_PanelX: TGUID = '{695CDB80-02E5-11D2-B20D-00C04FA368D4}';
  104.   IID_IProgressBarX: TGUID = '{695CDB83-02E5-11D2-B20D-00C04FA368D4}';
  105.   DIID_IProgressBarXEvents: TGUID = '{695CDB85-02E5-11D2-B20D-00C04FA368D4}';
  106.   CLASS_ProgressBarX: TGUID = '{695CDB87-02E5-11D2-B20D-00C04FA368D4}';
  107.   IID_IRadioButtonX: TGUID = '{695CDB8B-02E5-11D2-B20D-00C04FA368D4}';
  108.   DIID_IRadioButtonXEvents: TGUID = '{695CDB8D-02E5-11D2-B20D-00C04FA368D4}';
  109.   CLASS_RadioButtonX: TGUID = '{695CDB8F-02E5-11D2-B20D-00C04FA368D4}';
  110.   IID_IRadioGroupX: TGUID = '{695CDB92-02E5-11D2-B20D-00C04FA368D4}';
  111.   DIID_IRadioGroupXEvents: TGUID = '{695CDB94-02E5-11D2-B20D-00C04FA368D4}';
  112.   CLASS_RadioGroupX: TGUID = '{695CDB96-02E5-11D2-B20D-00C04FA368D4}';
  113.   IID_IRichEditX: TGUID = '{695CDB99-02E5-11D2-B20D-00C04FA368D4}';
  114.   DIID_IRichEditXEvents: TGUID = '{695CDB9B-02E5-11D2-B20D-00C04FA368D4}';
  115.   CLASS_RichEditX: TGUID = '{695CDB9D-02E5-11D2-B20D-00C04FA368D4}';
  116.   IID_IScrollBarX: TGUID = '{695CDBA0-02E5-11D2-B20D-00C04FA368D4}';
  117.   DIID_IScrollBarXEvents: TGUID = '{695CDBA2-02E5-11D2-B20D-00C04FA368D4}';
  118.   CLASS_ScrollBarX: TGUID = '{695CDBA4-02E5-11D2-B20D-00C04FA368D4}';
  119.   IID_IScrollBoxX: TGUID = '{695CDBA9-02E5-11D2-B20D-00C04FA368D4}';
  120.   DIID_IScrollBoxXEvents: TGUID = '{695CDBAB-02E5-11D2-B20D-00C04FA368D4}';
  121.   CLASS_ScrollBoxX: TGUID = '{695CDBAD-02E5-11D2-B20D-00C04FA368D4}';
  122.   IID_ISpinButtonX: TGUID = '{695CDBB0-02E5-11D2-B20D-00C04FA368D4}';
  123.   DIID_ISpinButtonXEvents: TGUID = '{695CDBB2-02E5-11D2-B20D-00C04FA368D4}';
  124.   CLASS_SpinButtonX: TGUID = '{695CDBB4-02E5-11D2-B20D-00C04FA368D4}';
  125.   IID_ISpinEditX: TGUID = '{695CDBB7-02E5-11D2-B20D-00C04FA368D4}';
  126.   DIID_ISpinEditXEvents: TGUID = '{695CDBB9-02E5-11D2-B20D-00C04FA368D4}';
  127.   CLASS_SpinEditX: TGUID = '{695CDBBB-02E5-11D2-B20D-00C04FA368D4}';
  128.   IID_IStaticTextX: TGUID = '{695CDBBE-02E5-11D2-B20D-00C04FA368D4}';
  129.   DIID_IStaticTextXEvents: TGUID = '{695CDBC0-02E5-11D2-B20D-00C04FA368D4}';
  130.   CLASS_StaticTextX: TGUID = '{695CDBC2-02E5-11D2-B20D-00C04FA368D4}';
  131.   IID_IStringGridX: TGUID = '{695CDBC6-02E5-11D2-B20D-00C04FA368D4}';
  132.   DIID_IStringGridXEvents: TGUID = '{695CDBC8-02E5-11D2-B20D-00C04FA368D4}';
  133.   CLASS_StringGridX: TGUID = '{695CDBCA-02E5-11D2-B20D-00C04FA368D4}';
  134.   IID_ITabbedNotebookX: TGUID = '{695CDBCD-02E5-11D2-B20D-00C04FA368D4}';
  135.   DIID_ITabbedNotebookXEvents: TGUID = '{695CDBCF-02E5-11D2-B20D-00C04FA368D4}';
  136.   CLASS_TabbedNotebookX: TGUID = '{695CDBD1-02E5-11D2-B20D-00C04FA368D4}';
  137.   IID_ITabControlX: TGUID = '{695CDBD4-02E5-11D2-B20D-00C04FA368D4}';
  138.   DIID_ITabControlXEvents: TGUID = '{695CDBD6-02E5-11D2-B20D-00C04FA368D4}';
  139.   CLASS_TabControlX: TGUID = '{695CDBD8-02E5-11D2-B20D-00C04FA368D4}';
  140.   IID_ITabSetX: TGUID = '{695CDBDD-02E5-11D2-B20D-00C04FA368D4}';
  141.   DIID_ITabSetXEvents: TGUID = '{695CDBDF-02E5-11D2-B20D-00C04FA368D4}';
  142.   CLASS_TabSetX: TGUID = '{695CDBE1-02E5-11D2-B20D-00C04FA368D4}';
  143.   IID_ITrackBarX: TGUID = '{695CDBE4-02E5-11D2-B20D-00C04FA368D4}';
  144.   DIID_ITrackBarXEvents: TGUID = '{695CDBE6-02E5-11D2-B20D-00C04FA368D4}';
  145.   CLASS_TrackBarX: TGUID = '{695CDBE8-02E5-11D2-B20D-00C04FA368D4}';
  146.   IID_IUpDownX: TGUID = '{695CDBEE-02E5-11D2-B20D-00C04FA368D4}';
  147.   DIID_IUpDownXEvents: TGUID = '{695CDBF0-02E5-11D2-B20D-00C04FA368D4}';
  148.   CLASS_UpDownX: TGUID = '{695CDBF2-02E5-11D2-B20D-00C04FA368D4}';
  149.  
  150. // *********************************************************************//
  151. // Declaration of Enumerations defined in Type Library                  //
  152. // *********************************************************************//
  153. // TxCommonAVI constants
  154. type
  155.   TxCommonAVI = TOleEnum;
  156. const
  157.   aviNone = $00000000;
  158.   aviFindFolder = $00000001;
  159.   aviFindFile = $00000002;
  160.   aviFindComputer = $00000003;
  161.   aviCopyFiles = $00000004;
  162.   aviCopyFile = $00000005;
  163.   aviRecycleFile = $00000006;
  164.   aviEmptyRecycle = $00000007;
  165.   aviDeleteFile = $00000008;
  166.  
  167. // TxAlignment constants
  168. type
  169.   TxAlignment = TOleEnum;
  170. const
  171.   taLeftJustify = $00000000;
  172.   taRightJustify = $00000001;
  173.   taCenter = $00000002;
  174.  
  175. // TxBiDiMode constants
  176. type
  177.   TxBiDiMode = TOleEnum;
  178. const
  179.   bdLeftToRight = $00000000;
  180.   bdRightToLeft = $00000001;
  181.   bdRightToLeftNoAlign = $00000002;
  182.   bdRightToLeftReadingOnly = $00000003;
  183.  
  184. // TxDragMode constants
  185. type
  186.   TxDragMode = TOleEnum;
  187. const
  188.   dmManual = $00000000;
  189.   dmAutomatic = $00000001;
  190.  
  191. // TxMouseButton constants
  192. type
  193.   TxMouseButton = TOleEnum;
  194. const
  195.   mbLeft = $00000000;
  196.   mbRight = $00000001;
  197.   mbMiddle = $00000002;
  198.  
  199. // TxBorderStyle constants
  200. type
  201.   TxBorderStyle = TOleEnum;
  202. const
  203.   bsNone = $00000000;
  204.   bsSingle = $00000001;
  205.  
  206. // TxLeftRight constants
  207. type
  208.   TxLeftRight = TOleEnum;
  209. const
  210.   taLeftJustify_ = $00000000;
  211.   taRightJustify_ = $00000001;
  212.  
  213. // TxCheckBoxState constants
  214. type
  215.   TxCheckBoxState = TOleEnum;
  216. const
  217.   cbUnchecked = $00000000;
  218.   cbChecked = $00000001;
  219.   cbGrayed = $00000002;
  220.  
  221. // TxImeMode constants
  222. type
  223.   TxImeMode = TOleEnum;
  224. const
  225.   imDisable = $00000000;
  226.   imClose = $00000001;
  227.   imOpen = $00000002;
  228.   imDontCare = $00000003;
  229.   imSAlpha = $00000004;
  230.   imAlpha = $00000005;
  231.   imHira = $00000006;
  232.   imSKata = $00000007;
  233.   imKata = $00000008;
  234.   imChinese = $00000009;
  235.   imSHanguel = $0000000A;
  236.   imHanguel = $0000000B;
  237.  
  238. // TxListBoxStyle constants
  239. type
  240.   TxListBoxStyle = TOleEnum;
  241. const
  242.   lbStandard = $00000000;
  243.   lbOwnerDrawFixed = $00000001;
  244.   lbOwnerDrawVariable = $00000002;
  245.  
  246. // TxGridOrdering constants
  247. type
  248.   TxGridOrdering = TOleEnum;
  249. const
  250.   go16x1 = $00000000;
  251.   go8x2 = $00000001;
  252.   go4x4 = $00000002;
  253.   go2x8 = $00000003;
  254.   go1x16 = $00000004;
  255.  
  256. // TxComboBoxStyle constants
  257. type
  258.   TxComboBoxStyle = TOleEnum;
  259. const
  260.   csDropDown = $00000000;
  261.   csSimple = $00000001;
  262.   csDropDownList = $00000002;
  263.   csOwnerDrawFixed = $00000003;
  264.   csOwnerDrawVariable = $00000004;
  265.  
  266. // TxEditCharCase constants
  267. type
  268.   TxEditCharCase = TOleEnum;
  269. const
  270.   ecNormal = $00000000;
  271.   ecUpperCase = $00000001;
  272.   ecLowerCase = $00000002;
  273.  
  274. // TxBevelCut constants
  275. type
  276.   TxBevelCut = TOleEnum;
  277. const
  278.   bvNone = $00000000;
  279.   bvLowered = $00000001;
  280.   bvRaised = $00000002;
  281.   bvSpace = $00000003;
  282.  
  283. // TxBevelKind constants
  284. type
  285.   TxBevelKind = TOleEnum;
  286. const
  287.   bkNone = $00000000;
  288.   bkTile = $00000001;
  289.   bkSoft = $00000002;
  290.   bkFlat = $00000003;
  291.  
  292. // TxDTCalAlignment constants
  293. type
  294.   TxDTCalAlignment = TOleEnum;
  295. const
  296.   dtaLeft = $00000000;
  297.   dtaRight = $00000001;
  298.  
  299. // TxDTDateFormat constants
  300. type
  301.   TxDTDateFormat = TOleEnum;
  302. const
  303.   dfShort = $00000000;
  304.   dfLong = $00000001;
  305.  
  306. // TxDTDateMode constants
  307. type
  308.   TxDTDateMode = TOleEnum;
  309. const
  310.   dmComboBox = $00000000;
  311.   dmUpDown = $00000001;
  312.  
  313. // TxDateTimeKind constants
  314. type
  315.   TxDateTimeKind = TOleEnum;
  316. const
  317.   dtkDate = $00000000;
  318.   dtkTime = $00000001;
  319.  
  320. // TxScrollStyle constants
  321. type
  322.   TxScrollStyle = TOleEnum;
  323. const
  324.   ssNone = $00000000;
  325.   ssHorizontal = $00000001;
  326.   ssVertical = $00000002;
  327.   ssBoth = $00000003;
  328.  
  329. // TxMPModes constants
  330. type
  331.   TxMPModes = TOleEnum;
  332. const
  333.   mpNotReady = $00000000;
  334.   mpStopped = $00000001;
  335.   mpPlaying = $00000002;
  336.   mpRecording = $00000003;
  337.   mpSeeking = $00000004;
  338.   mpPaused = $00000005;
  339.   mpOpen = $00000006;
  340.  
  341. // TxMPNotifyValues constants
  342. type
  343.   TxMPNotifyValues = TOleEnum;
  344. const
  345.   nvSuccessful = $00000000;
  346.   nvSuperseded = $00000001;
  347.   nvAborted = $00000002;
  348.   nvFailure = $00000003;
  349.  
  350. // TxMPTimeFormats constants
  351. type
  352.   TxMPTimeFormats = TOleEnum;
  353. const
  354.   tfMilliseconds = $00000000;
  355.   tfHMS = $00000001;
  356.   tfMSF = $00000002;
  357.   tfFrames = $00000003;
  358.   tfSMPTE24 = $00000004;
  359.   tfSMPTE25 = $00000005;
  360.   tfSMPTE30 = $00000006;
  361.   tfSMPTE30Drop = $00000007;
  362.   tfBytes = $00000008;
  363.   tfSamples = $00000009;
  364.   tfTMSF = $0000000A;
  365.  
  366. // TxMPDeviceTypes constants
  367. type
  368.   TxMPDeviceTypes = TOleEnum;
  369. const
  370.   dtAutoSelect = $00000000;
  371.   dtAVIVideo = $00000001;
  372.   dtCDAudio = $00000002;
  373.   dtDAT = $00000003;
  374.   dtDigitalVideo = $00000004;
  375.   dtMMMovie = $00000005;
  376.   dtOther = $00000006;
  377.   dtOverlay = $00000007;
  378.   dtScanner = $00000008;
  379.   dtSequencer = $00000009;
  380.   dtVCR = $0000000A;
  381.   dtVideodisc = $0000000B;
  382.   dtWaveAudio = $0000000C;
  383.  
  384. // TxMPBtnType constants
  385. type
  386.   TxMPBtnType = TOleEnum;
  387. const
  388.   btPlay = $00000000;
  389.   btPause = $00000001;
  390.   btStop = $00000002;
  391.   btNext = $00000003;
  392.   btPrev = $00000004;
  393.   btStep = $00000005;
  394.   btBack = $00000006;
  395.   btRecord = $00000007;
  396.   btEject = $00000008;
  397.  
  398. // TxCalDayOfWeek constants
  399. type
  400.   TxCalDayOfWeek = TOleEnum;
  401. const
  402.   dowMonday = $00000000;
  403.   dowTuesday = $00000001;
  404.   dowWednesday = $00000002;
  405.   dowThursday = $00000003;
  406.   dowFriday = $00000004;
  407.   dowSaturday = $00000005;
  408.   dowSunday = $00000006;
  409.   dowLocaleDefault = $00000007;
  410.  
  411. // TxOutlineStyle constants
  412. type
  413.   TxOutlineStyle = TOleEnum;
  414. const
  415.   osText = $00000000;
  416.   osPlusMinusText = $00000001;
  417.   osPictureText = $00000002;
  418.   osPlusMinusPictureText = $00000003;
  419.   osTreeText = $00000004;
  420.   osTreePictureText = $00000005;
  421.  
  422. // TxOutlineType constants
  423. type
  424.   TxOutlineType = TOleEnum;
  425. const
  426.   otStandard = $00000000;
  427.   otOwnerDraw = $00000001;
  428.  
  429. // TxPageScrollerButtonState constants
  430. type
  431.   TxPageScrollerButtonState = TOleEnum;
  432. const
  433.   bsNormal = $00000000;
  434.   bsInvisible = $00000001;
  435.   bsGrayed = $00000002;
  436.   bsDepressed = $00000003;
  437.   bsHot = $00000004;
  438.  
  439. // TxPageScrollerButton constants
  440. type
  441.   TxPageScrollerButton = TOleEnum;
  442. const
  443.   sbFirst = $00000000;
  444.   sbLast = $00000001;
  445.  
  446. // TxPageScrollerOrientation constants
  447. type
  448.   TxPageScrollerOrientation = TOleEnum;
  449. const
  450.   soHorizontal = $00000000;
  451.   soVertical = $00000001;
  452.  
  453. // TxProgressBarOrientation constants
  454. type
  455.   TxProgressBarOrientation = TOleEnum;
  456. const
  457.   pbHorizontal = $00000000;
  458.   pbVertical = $00000001;
  459.  
  460. // TxScrollBarKind constants
  461. type
  462.   TxScrollBarKind = TOleEnum;
  463. const
  464.   sbHorizontal = $00000000;
  465.   sbVertical = $00000001;
  466.  
  467. // TxScrollCode constants
  468. type
  469.   TxScrollCode = TOleEnum;
  470. const
  471.   scLineUp = $00000000;
  472.   scLineDown = $00000001;
  473.   scPageUp = $00000002;
  474.   scPageDown = $00000003;
  475.   scPosition = $00000004;
  476.   scTrack = $00000005;
  477.   scTop = $00000006;
  478.   scBottom = $00000007;
  479.   scEndScroll = $00000008;
  480.  
  481. // TxStaticBorderStyle constants
  482. type
  483.   TxStaticBorderStyle = TOleEnum;
  484. const
  485.   sbsNone = $00000000;
  486.   sbsSingle = $00000001;
  487.   sbsSunken = $00000002;
  488.  
  489. // TxTabStyle constants
  490. type
  491.   TxTabStyle = TOleEnum;
  492. const
  493.   tsTabs = $00000000;
  494.   tsButtons = $00000001;
  495.   tsFlatButtons = $00000002;
  496.  
  497. // TxTabPosition constants
  498. type
  499.   TxTabPosition = TOleEnum;
  500. const
  501.   tpTop = $00000000;
  502.   tpBottom = $00000001;
  503.   tpLeft = $00000002;
  504.   tpRight = $00000003;
  505.  
  506. // TxTrackBarOrientation constants
  507. type
  508.   TxTrackBarOrientation = TOleEnum;
  509. const
  510.   trHorizontal = $00000000;
  511.   trVertical = $00000001;
  512.  
  513. // TxTickMark constants
  514. type
  515.   TxTickMark = TOleEnum;
  516. const
  517.   tmBottomRight = $00000000;
  518.   tmTopLeft = $00000001;
  519.   tmBoth = $00000002;
  520.  
  521. // TxTickStyle constants
  522. type
  523.   TxTickStyle = TOleEnum;
  524. const
  525.   tsNone = $00000000;
  526.   tsAuto = $00000001;
  527.   tsManual = $00000002;
  528.  
  529. // TxUDAlignButton constants
  530. type
  531.   TxUDAlignButton = TOleEnum;
  532. const
  533.   udLeft = $00000000;
  534.   udRight = $00000001;
  535.  
  536. // TxUDOrientation constants
  537. type
  538.   TxUDOrientation = TOleEnum;
  539. const
  540.   udHorizontal = $00000000;
  541.   udVertical = $00000001;
  542.  
  543. // TxUDBtnType constants
  544. type
  545.   TxUDBtnType = TOleEnum;
  546. const
  547.   btNext_ = $00000000;
  548.   btPrev_ = $00000001;
  549.  
  550. type
  551.  
  552. // *********************************************************************//
  553. // Forward declaration of interfaces defined in Type Library            //
  554. // *********************************************************************//
  555.   IAnimateX = interface;
  556.   IAnimateXDisp = dispinterface;
  557.   IAnimateXEvents = dispinterface;
  558.   IButtonX = interface;
  559.   IButtonXDisp = dispinterface;
  560.   IButtonXEvents = dispinterface;
  561.   ICalendarX = interface;
  562.   ICalendarXDisp = dispinterface;
  563.   ICalendarXEvents = dispinterface;
  564.   ICheckBoxX = interface;
  565.   ICheckBoxXDisp = dispinterface;
  566.   ICheckBoxXEvents = dispinterface;
  567.   ICheckListBoxX = interface;
  568.   ICheckListBoxXDisp = dispinterface;
  569.   ICheckListBoxXEvents = dispinterface;
  570.   IColorGridX = interface;
  571.   IColorGridXDisp = dispinterface;
  572.   IColorGridXEvents = dispinterface;
  573.   IComboBoxX = interface;
  574.   IComboBoxXDisp = dispinterface;
  575.   IComboBoxXEvents = dispinterface;
  576.   IControlBarX = interface;
  577.   IControlBarXDisp = dispinterface;
  578.   IControlBarXEvents = dispinterface;
  579.   IDateTimePickerX = interface;
  580.   IDateTimePickerXDisp = dispinterface;
  581.   IDateTimePickerXEvents = dispinterface;
  582.   IDrawGridX = interface;
  583.   IDrawGridXDisp = dispinterface;
  584.   IDrawGridXEvents = dispinterface;
  585.   IEditX = interface;
  586.   IEditXDisp = dispinterface;
  587.   IEditXEvents = dispinterface;
  588.   IGroupBoxX = interface;
  589.   IGroupBoxXDisp = dispinterface;
  590.   IGroupBoxXEvents = dispinterface;
  591.   IHotKeyX = interface;
  592.   IHotKeyXDisp = dispinterface;
  593.   IHotKeyXEvents = dispinterface;
  594.   IListBoxX = interface;
  595.   IListBoxXDisp = dispinterface;
  596.   IListBoxXEvents = dispinterface;
  597.   IMaskEditX = interface;
  598.   IMaskEditXDisp = dispinterface;
  599.   IMaskEditXEvents = dispinterface;
  600.   IMediaPlayerX = interface;
  601.   IMediaPlayerXDisp = dispinterface;
  602.   IMediaPlayerXEvents = dispinterface;
  603.   IMemoX = interface;
  604.   IMemoXDisp = dispinterface;
  605.   IMemoXEvents = dispinterface;
  606.   IMonthCalendarX = interface;
  607.   IMonthCalendarXDisp = dispinterface;
  608.   IMonthCalendarXEvents = dispinterface;
  609.   INotebookX = interface;
  610.   INotebookXDisp = dispinterface;
  611.   INotebookXEvents = dispinterface;
  612.   IOutlineX = interface;
  613.   IOutlineXDisp = dispinterface;
  614.   IOutlineXEvents = dispinterface;
  615.   IPageScrollerX = interface;
  616.   IPageScrollerXDisp = dispinterface;
  617.   IPageScrollerXEvents = dispinterface;
  618.   IPanelX = interface;
  619.   IPanelXDisp = dispinterface;
  620.   IPanelXEvents = dispinterface;
  621.   IProgressBarX = interface;
  622.   IProgressBarXDisp = dispinterface;
  623.   IProgressBarXEvents = dispinterface;
  624.   IRadioButtonX = interface;
  625.   IRadioButtonXDisp = dispinterface;
  626.   IRadioButtonXEvents = dispinterface;
  627.   IRadioGroupX = interface;
  628.   IRadioGroupXDisp = dispinterface;
  629.   IRadioGroupXEvents = dispinterface;
  630.   IRichEditX = interface;
  631.   IRichEditXDisp = dispinterface;
  632.   IRichEditXEvents = dispinterface;
  633.   IScrollBarX = interface;
  634.   IScrollBarXDisp = dispinterface;
  635.   IScrollBarXEvents = dispinterface;
  636.   IScrollBoxX = interface;
  637.   IScrollBoxXDisp = dispinterface;
  638.   IScrollBoxXEvents = dispinterface;
  639.   ISpinButtonX = interface;
  640.   ISpinButtonXDisp = dispinterface;
  641.   ISpinButtonXEvents = dispinterface;
  642.   ISpinEditX = interface;
  643.   ISpinEditXDisp = dispinterface;
  644.   ISpinEditXEvents = dispinterface;
  645.   IStaticTextX = interface;
  646.   IStaticTextXDisp = dispinterface;
  647.   IStaticTextXEvents = dispinterface;
  648.   IStringGridX = interface;
  649.   IStringGridXDisp = dispinterface;
  650.   IStringGridXEvents = dispinterface;
  651.   ITabbedNotebookX = interface;
  652.   ITabbedNotebookXDisp = dispinterface;
  653.   ITabbedNotebookXEvents = dispinterface;
  654.   ITabControlX = interface;
  655.   ITabControlXDisp = dispinterface;
  656.   ITabControlXEvents = dispinterface;
  657.   ITabSetX = interface;
  658.   ITabSetXDisp = dispinterface;
  659.   ITabSetXEvents = dispinterface;
  660.   ITrackBarX = interface;
  661.   ITrackBarXDisp = dispinterface;
  662.   ITrackBarXEvents = dispinterface;
  663.   IUpDownX = interface;
  664.   IUpDownXDisp = dispinterface;
  665.   IUpDownXEvents = dispinterface;
  666.  
  667. // *********************************************************************//
  668. // Declaration of CoClasses defined in Type Library                     //
  669. // (NOTE: Here we map each CoClass to its Default Interface)            //
  670. // *********************************************************************//
  671.   AnimateX = IAnimateX;
  672.   ButtonX = IButtonX;
  673.   CalendarX = ICalendarX;
  674.   CheckBoxX = ICheckBoxX;
  675.   CheckListBoxX = ICheckListBoxX;
  676.   ColorGridX = IColorGridX;
  677.   ComboBoxX = IComboBoxX;
  678.   ControlBarX = IControlBarX;
  679.   DateTimePickerX = IDateTimePickerX;
  680.   DrawGridX = IDrawGridX;
  681.   EditX = IEditX;
  682.   GroupBoxX = IGroupBoxX;
  683.   HotKeyX = IHotKeyX;
  684.   ListBoxX = IListBoxX;
  685.   MaskEditX = IMaskEditX;
  686.   MediaPlayerX = IMediaPlayerX;
  687.   MemoX = IMemoX;
  688.   MonthCalendarX = IMonthCalendarX;
  689.   NotebookX = INotebookX;
  690.   OutlineX = IOutlineX;
  691.   PageScrollerX = IPageScrollerX;
  692.   PanelX = IPanelX;
  693.   ProgressBarX = IProgressBarX;
  694.   RadioButtonX = IRadioButtonX;
  695.   RadioGroupX = IRadioGroupX;
  696.   RichEditX = IRichEditX;
  697.   ScrollBarX = IScrollBarX;
  698.   ScrollBoxX = IScrollBoxX;
  699.   SpinButtonX = ISpinButtonX;
  700.   SpinEditX = ISpinEditX;
  701.   StaticTextX = IStaticTextX;
  702.   StringGridX = IStringGridX;
  703.   TabbedNotebookX = ITabbedNotebookX;
  704.   TabControlX = ITabControlX;
  705.   TabSetX = ITabSetX;
  706.   TrackBarX = ITrackBarX;
  707.   UpDownX = IUpDownX;
  708.  
  709.  
  710. // *********************************************************************//
  711. // Interface: IAnimateX
  712. // Flags:     (4416) Dual OleAutomation Dispatchable
  713. // GUID:      {695CDACA-02E5-11D2-B20D-00C04FA368D4}
  714. // *********************************************************************//
  715.   IAnimateX = interface(IDispatch)
  716.     ['{695CDACA-02E5-11D2-B20D-00C04FA368D4}']
  717.     function Get_FrameCount: Integer; safecall;
  718.     function Get_FrameHeight: Integer; safecall;
  719.     function Get_FrameWidth: Integer; safecall;
  720.     function Get_Open: WordBool; safecall;
  721.     procedure Set_Open(Value: WordBool); safecall;
  722.     procedure Play(FromFrame: Smallint; ToFrame: Smallint; Count: Integer); safecall;
  723.     procedure Reset; safecall;
  724.     procedure Seek(Frame: Smallint); safecall;
  725.     procedure Stop; safecall;
  726.     function Get_ResHandle: Integer; safecall;
  727.     procedure Set_ResHandle(Value: Integer); safecall;
  728.     function Get_ResId: Integer; safecall;
  729.     procedure Set_ResId(Value: Integer); safecall;
  730.     function Get_ResName: WideString; safecall;
  731.     procedure Set_ResName(const Value: WideString); safecall;
  732.     function Get_Active: WordBool; safecall;
  733.     procedure Set_Active(Value: WordBool); safecall;
  734.     function Get_AutoSize: WordBool; safecall;
  735.     procedure Set_AutoSize(Value: WordBool); safecall;
  736.     function Get_Center: WordBool; safecall;
  737.     procedure Set_Center(Value: WordBool); safecall;
  738.     function Get_Color: OLE_COLOR; safecall;
  739.     procedure Set_Color(Value: OLE_COLOR); safecall;
  740.     function Get_CommonAVI: TxCommonAVI; safecall;
  741.     procedure Set_CommonAVI(Value: TxCommonAVI); safecall;
  742.     function Get_FileName: WideString; safecall;
  743.     procedure Set_FileName(const Value: WideString); safecall;
  744.     function Get_ParentColor: WordBool; safecall;
  745.     procedure Set_ParentColor(Value: WordBool); safecall;
  746.     function Get_Repetitions: Integer; safecall;
  747.     procedure Set_Repetitions(Value: Integer); safecall;
  748.     function Get_StartFrame: Smallint; safecall;
  749.     procedure Set_StartFrame(Value: Smallint); safecall;
  750.     function Get_StopFrame: Smallint; safecall;
  751.     procedure Set_StopFrame(Value: Smallint); safecall;
  752.     function Get_Timers: WordBool; safecall;
  753.     procedure Set_Timers(Value: WordBool); safecall;
  754.     function Get_Transparent: WordBool; safecall;
  755.     procedure Set_Transparent(Value: WordBool); safecall;
  756.     function Get_Visible: WordBool; safecall;
  757.     procedure Set_Visible(Value: WordBool); safecall;
  758.     function Get_DoubleBuffered: WordBool; safecall;
  759.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  760.     procedure FlipChildren(AllLevels: WordBool); safecall;
  761.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  762.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  763.     function Get_Enabled: WordBool; safecall;
  764.     procedure Set_Enabled(Value: WordBool); safecall;
  765.     function GetControlsAlignment: TxAlignment; safecall;
  766.     procedure InitiateAction; safecall;
  767.     function IsRightToLeft: WordBool; safecall;
  768.     function UseRightToLeftAlignment: WordBool; safecall;
  769.     function UseRightToLeftReading: WordBool; safecall;
  770.     function UseRightToLeftScrollBar: WordBool; safecall;
  771.     function Get_BiDiMode: TxBiDiMode; safecall;
  772.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  773.     function Get_Cursor: Smallint; safecall;
  774.     procedure Set_Cursor(Value: Smallint); safecall;
  775.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  776.     procedure AboutBox; safecall;
  777.     property FrameCount: Integer read Get_FrameCount;
  778.     property FrameHeight: Integer read Get_FrameHeight;
  779.     property FrameWidth: Integer read Get_FrameWidth;
  780.     property Open: WordBool read Get_Open write Set_Open;
  781.     property ResHandle: Integer read Get_ResHandle write Set_ResHandle;
  782.     property ResId: Integer read Get_ResId write Set_ResId;
  783.     property ResName: WideString read Get_ResName write Set_ResName;
  784.     property Active: WordBool read Get_Active write Set_Active;
  785.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  786.     property Center: WordBool read Get_Center write Set_Center;
  787.     property Color: OLE_COLOR read Get_Color write Set_Color;
  788.     property CommonAVI: TxCommonAVI read Get_CommonAVI write Set_CommonAVI;
  789.     property FileName: WideString read Get_FileName write Set_FileName;
  790.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  791.     property Repetitions: Integer read Get_Repetitions write Set_Repetitions;
  792.     property StartFrame: Smallint read Get_StartFrame write Set_StartFrame;
  793.     property StopFrame: Smallint read Get_StopFrame write Set_StopFrame;
  794.     property Timers: WordBool read Get_Timers write Set_Timers;
  795.     property Transparent: WordBool read Get_Transparent write Set_Transparent;
  796.     property Visible: WordBool read Get_Visible write Set_Visible;
  797.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  798.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  799.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  800.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  801.   end;
  802.  
  803. // *********************************************************************//
  804. // DispIntf:  IAnimateXDisp
  805. // Flags:     (4416) Dual OleAutomation Dispatchable
  806. // GUID:      {695CDACA-02E5-11D2-B20D-00C04FA368D4}
  807. // *********************************************************************//
  808.   IAnimateXDisp = dispinterface
  809.     ['{695CDACA-02E5-11D2-B20D-00C04FA368D4}']
  810.     property FrameCount: Integer readonly dispid 1;
  811.     property FrameHeight: Integer readonly dispid 2;
  812.     property FrameWidth: Integer readonly dispid 3;
  813.     property Open: WordBool dispid 4;
  814.     procedure Play(FromFrame: Smallint; ToFrame: Smallint; Count: Integer); dispid 5;
  815.     procedure Reset; dispid 6;
  816.     procedure Seek(Frame: Smallint); dispid 7;
  817.     procedure Stop; dispid 8;
  818.     property ResHandle: Integer dispid 9;
  819.     property ResId: Integer dispid 10;
  820.     property ResName: WideString dispid 11;
  821.     property Active: WordBool dispid 12;
  822.     property AutoSize: WordBool dispid 13;
  823.     property Center: WordBool dispid 14;
  824.     property Color: OLE_COLOR dispid -501;
  825.     property CommonAVI: TxCommonAVI dispid 15;
  826.     property FileName: WideString dispid 16;
  827.     property ParentColor: WordBool dispid 17;
  828.     property Repetitions: Integer dispid 18;
  829.     property StartFrame: Smallint dispid 19;
  830.     property StopFrame: Smallint dispid 20;
  831.     property Timers: WordBool dispid 21;
  832.     property Transparent: WordBool dispid 22;
  833.     property Visible: WordBool dispid 23;
  834.     property DoubleBuffered: WordBool dispid 26;
  835.     procedure FlipChildren(AllLevels: WordBool); dispid 27;
  836.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 30;
  837.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 31;
  838.     property Enabled: WordBool dispid -514;
  839.     function GetControlsAlignment: TxAlignment; dispid 32;
  840.     procedure InitiateAction; dispid 34;
  841.     function IsRightToLeft: WordBool; dispid 35;
  842.     function UseRightToLeftAlignment: WordBool; dispid 40;
  843.     function UseRightToLeftReading: WordBool; dispid 41;
  844.     function UseRightToLeftScrollBar: WordBool; dispid 42;
  845.     property BiDiMode: TxBiDiMode dispid 43;
  846.     property Cursor: Smallint dispid 44;
  847.     function ClassNameIs(const Name: WideString): WordBool; dispid 48;
  848.     procedure AboutBox; dispid -552;
  849.   end;
  850.  
  851. // *********************************************************************//
  852. // DispIntf:  IAnimateXEvents
  853. // Flags:     (0)
  854. // GUID:      {695CDACC-02E5-11D2-B20D-00C04FA368D4}
  855. // *********************************************************************//
  856.   IAnimateXEvents = dispinterface
  857.     ['{695CDACC-02E5-11D2-B20D-00C04FA368D4}']
  858.     procedure OnOpen; dispid 1;
  859.     procedure OnClose; dispid 2;
  860.     procedure OnStart; dispid 3;
  861.     procedure OnStop; dispid 4;
  862.   end;
  863.  
  864. // *********************************************************************//
  865. // Interface: IButtonX
  866. // Flags:     (4416) Dual OleAutomation Dispatchable
  867. // GUID:      {695CDAD4-02E5-11D2-B20D-00C04FA368D4}
  868. // *********************************************************************//
  869.   IButtonX = interface(IDispatch)
  870.     ['{695CDAD4-02E5-11D2-B20D-00C04FA368D4}']
  871.     procedure Click; safecall;
  872.     function UseRightToLeftAlignment: WordBool; safecall;
  873.     function Get_BiDiMode: TxBiDiMode; safecall;
  874.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  875.     function Get_Cancel: WordBool; safecall;
  876.     procedure Set_Cancel(Value: WordBool); safecall;
  877.     function Get_Caption: WideString; safecall;
  878.     procedure Set_Caption(const Value: WideString); safecall;
  879.     function Get_Default: WordBool; safecall;
  880.     procedure Set_Default(Value: WordBool); safecall;
  881.     function Get_DragCursor: Smallint; safecall;
  882.     procedure Set_DragCursor(Value: Smallint); safecall;
  883.     function Get_DragMode: TxDragMode; safecall;
  884.     procedure Set_DragMode(Value: TxDragMode); safecall;
  885.     function Get_Enabled: WordBool; safecall;
  886.     procedure Set_Enabled(Value: WordBool); safecall;
  887.     function Get_Font: IFontDisp; safecall;
  888.     procedure _Set_Font(const Value: IFontDisp); safecall;
  889.     procedure Set_Font(const Value: IFontDisp); safecall;
  890.     function Get_ParentFont: WordBool; safecall;
  891.     procedure Set_ParentFont(Value: WordBool); safecall;
  892.     function Get_Visible: WordBool; safecall;
  893.     procedure Set_Visible(Value: WordBool); safecall;
  894.     function Get_DoubleBuffered: WordBool; safecall;
  895.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  896.     procedure FlipChildren(AllLevels: WordBool); safecall;
  897.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  898.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  899.     function GetControlsAlignment: TxAlignment; safecall;
  900.     procedure InitiateAction; safecall;
  901.     function IsRightToLeft: WordBool; safecall;
  902.     function UseRightToLeftReading: WordBool; safecall;
  903.     function UseRightToLeftScrollBar: WordBool; safecall;
  904.     function Get_Cursor: Smallint; safecall;
  905.     procedure Set_Cursor(Value: Smallint); safecall;
  906.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  907.     procedure AboutBox; safecall;
  908.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  909.     property Cancel: WordBool read Get_Cancel write Set_Cancel;
  910.     property Caption: WideString read Get_Caption write Set_Caption;
  911.     property Default: WordBool read Get_Default write Set_Default;
  912.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  913.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  914.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  915.     property Font: IFontDisp read Get_Font write _Set_Font;
  916.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  917.     property Visible: WordBool read Get_Visible write Set_Visible;
  918.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  919.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  920.   end;
  921.  
  922. // *********************************************************************//
  923. // DispIntf:  IButtonXDisp
  924. // Flags:     (4416) Dual OleAutomation Dispatchable
  925. // GUID:      {695CDAD4-02E5-11D2-B20D-00C04FA368D4}
  926. // *********************************************************************//
  927.   IButtonXDisp = dispinterface
  928.     ['{695CDAD4-02E5-11D2-B20D-00C04FA368D4}']
  929.     procedure Click; dispid 1;
  930.     function UseRightToLeftAlignment: WordBool; dispid 2;
  931.     property BiDiMode: TxBiDiMode dispid 3;
  932.     property Cancel: WordBool dispid 4;
  933.     property Caption: WideString dispid -518;
  934.     property Default: WordBool dispid 5;
  935.     property DragCursor: Smallint dispid 6;
  936.     property DragMode: TxDragMode dispid 7;
  937.     property Enabled: WordBool dispid -514;
  938.     property Font: IFontDisp dispid -512;
  939.     property ParentFont: WordBool dispid 8;
  940.     property Visible: WordBool dispid 9;
  941.     property DoubleBuffered: WordBool dispid 12;
  942.     procedure FlipChildren(AllLevels: WordBool); dispid 13;
  943.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 16;
  944.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 17;
  945.     function GetControlsAlignment: TxAlignment; dispid 18;
  946.     procedure InitiateAction; dispid 20;
  947.     function IsRightToLeft: WordBool; dispid 21;
  948.     function UseRightToLeftReading: WordBool; dispid 26;
  949.     function UseRightToLeftScrollBar: WordBool; dispid 27;
  950.     property Cursor: Smallint dispid 28;
  951.     function ClassNameIs(const Name: WideString): WordBool; dispid 32;
  952.     procedure AboutBox; dispid -552;
  953.   end;
  954.  
  955. // *********************************************************************//
  956. // DispIntf:  IButtonXEvents
  957. // Flags:     (0)
  958. // GUID:      {695CDAD6-02E5-11D2-B20D-00C04FA368D4}
  959. // *********************************************************************//
  960.   IButtonXEvents = dispinterface
  961.     ['{695CDAD6-02E5-11D2-B20D-00C04FA368D4}']
  962.     procedure OnClick; dispid 1;
  963.     procedure OnKeyPress(var Key: Smallint); dispid 7;
  964.   end;
  965.  
  966. // *********************************************************************//
  967. // Interface: ICalendarX
  968. // Flags:     (4416) Dual OleAutomation Dispatchable
  969. // GUID:      {695CDADD-02E5-11D2-B20D-00C04FA368D4}
  970. // *********************************************************************//
  971.   ICalendarX = interface(IDispatch)
  972.     ['{695CDADD-02E5-11D2-B20D-00C04FA368D4}']
  973.     function Get_CalendarDate: Double; safecall;
  974.     procedure Set_CalendarDate(Value: Double); safecall;
  975.     procedure NextMonth; safecall;
  976.     procedure NextYear; safecall;
  977.     procedure PrevMonth; safecall;
  978.     procedure PrevYear; safecall;
  979.     procedure UpdateCalendar; safecall;
  980.     function Get_BorderStyle: TxBorderStyle; safecall;
  981.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  982.     function Get_Color: OLE_COLOR; safecall;
  983.     procedure Set_Color(Value: OLE_COLOR); safecall;
  984.     function Get_Ctl3D: WordBool; safecall;
  985.     procedure Set_Ctl3D(Value: WordBool); safecall;
  986.     function Get_Day: Integer; safecall;
  987.     procedure Set_Day(Value: Integer); safecall;
  988.     function Get_DragCursor: Smallint; safecall;
  989.     procedure Set_DragCursor(Value: Smallint); safecall;
  990.     function Get_DragMode: TxDragMode; safecall;
  991.     procedure Set_DragMode(Value: TxDragMode); safecall;
  992.     function Get_Enabled: WordBool; safecall;
  993.     procedure Set_Enabled(Value: WordBool); safecall;
  994.     function Get_Font: IFontDisp; safecall;
  995.     procedure _Set_Font(const Value: IFontDisp); safecall;
  996.     procedure Set_Font(const Value: IFontDisp); safecall;
  997.     function Get_GridLineWidth: Integer; safecall;
  998.     procedure Set_GridLineWidth(Value: Integer); safecall;
  999.     function Get_Month: Integer; safecall;
  1000.     procedure Set_Month(Value: Integer); safecall;
  1001.     function Get_ParentColor: WordBool; safecall;
  1002.     procedure Set_ParentColor(Value: WordBool); safecall;
  1003.     function Get_ParentFont: WordBool; safecall;
  1004.     procedure Set_ParentFont(Value: WordBool); safecall;
  1005.     function Get_ReadOnly: WordBool; safecall;
  1006.     procedure Set_ReadOnly(Value: WordBool); safecall;
  1007.     function Get_StartOfWeek: Smallint; safecall;
  1008.     procedure Set_StartOfWeek(Value: Smallint); safecall;
  1009.     function Get_UseCurrentDate: WordBool; safecall;
  1010.     procedure Set_UseCurrentDate(Value: WordBool); safecall;
  1011.     function Get_Visible: WordBool; safecall;
  1012.     procedure Set_Visible(Value: WordBool); safecall;
  1013.     function Get_Year: Integer; safecall;
  1014.     procedure Set_Year(Value: Integer); safecall;
  1015.     function Get_DoubleBuffered: WordBool; safecall;
  1016.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  1017.     procedure FlipChildren(AllLevels: WordBool); safecall;
  1018.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  1019.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  1020.     function GetControlsAlignment: TxAlignment; safecall;
  1021.     procedure InitiateAction; safecall;
  1022.     function IsRightToLeft: WordBool; safecall;
  1023.     function UseRightToLeftAlignment: WordBool; safecall;
  1024.     function UseRightToLeftReading: WordBool; safecall;
  1025.     function UseRightToLeftScrollBar: WordBool; safecall;
  1026.     function Get_BiDiMode: TxBiDiMode; safecall;
  1027.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  1028.     function Get_Cursor: Smallint; safecall;
  1029.     procedure Set_Cursor(Value: Smallint); safecall;
  1030.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  1031.     procedure AboutBox; safecall;
  1032.     property CalendarDate: Double read Get_CalendarDate write Set_CalendarDate;
  1033.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1034.     property Color: OLE_COLOR read Get_Color write Set_Color;
  1035.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1036.     property Day: Integer read Get_Day write Set_Day;
  1037.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1038.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  1039.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1040.     property Font: IFontDisp read Get_Font write _Set_Font;
  1041.     property GridLineWidth: Integer read Get_GridLineWidth write Set_GridLineWidth;
  1042.     property Month: Integer read Get_Month write Set_Month;
  1043.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1044.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  1045.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  1046.     property StartOfWeek: Smallint read Get_StartOfWeek write Set_StartOfWeek;
  1047.     property UseCurrentDate: WordBool read Get_UseCurrentDate write Set_UseCurrentDate;
  1048.     property Visible: WordBool read Get_Visible write Set_Visible;
  1049.     property Year: Integer read Get_Year write Set_Year;
  1050.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  1051.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  1052.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1053.   end;
  1054.  
  1055. // *********************************************************************//
  1056. // DispIntf:  ICalendarXDisp
  1057. // Flags:     (4416) Dual OleAutomation Dispatchable
  1058. // GUID:      {695CDADD-02E5-11D2-B20D-00C04FA368D4}
  1059. // *********************************************************************//
  1060.   ICalendarXDisp = dispinterface
  1061.     ['{695CDADD-02E5-11D2-B20D-00C04FA368D4}']
  1062.     property CalendarDate: Double dispid 1;
  1063.     procedure NextMonth; dispid 2;
  1064.     procedure NextYear; dispid 3;
  1065.     procedure PrevMonth; dispid 4;
  1066.     procedure PrevYear; dispid 5;
  1067.     procedure UpdateCalendar; dispid 6;
  1068.     property BorderStyle: TxBorderStyle dispid 7;
  1069.     property Color: OLE_COLOR dispid -501;
  1070.     property Ctl3D: WordBool dispid 8;
  1071.     property Day: Integer dispid 9;
  1072.     property DragCursor: Smallint dispid 10;
  1073.     property DragMode: TxDragMode dispid 11;
  1074.     property Enabled: WordBool dispid -514;
  1075.     property Font: IFontDisp dispid -512;
  1076.     property GridLineWidth: Integer dispid 12;
  1077.     property Month: Integer dispid 13;
  1078.     property ParentColor: WordBool dispid 14;
  1079.     property ParentFont: WordBool dispid 15;
  1080.     property ReadOnly: WordBool dispid 16;
  1081.     property StartOfWeek: Smallint dispid 17;
  1082.     property UseCurrentDate: WordBool dispid 18;
  1083.     property Visible: WordBool dispid 19;
  1084.     property Year: Integer dispid 20;
  1085.     property DoubleBuffered: WordBool dispid 23;
  1086.     procedure FlipChildren(AllLevels: WordBool); dispid 24;
  1087.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 27;
  1088.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 28;
  1089.     function GetControlsAlignment: TxAlignment; dispid 29;
  1090.     procedure InitiateAction; dispid 31;
  1091.     function IsRightToLeft: WordBool; dispid 32;
  1092.     function UseRightToLeftAlignment: WordBool; dispid 37;
  1093.     function UseRightToLeftReading: WordBool; dispid 38;
  1094.     function UseRightToLeftScrollBar: WordBool; dispid 39;
  1095.     property BiDiMode: TxBiDiMode dispid 40;
  1096.     property Cursor: Smallint dispid 41;
  1097.     function ClassNameIs(const Name: WideString): WordBool; dispid 45;
  1098.     procedure AboutBox; dispid -552;
  1099.   end;
  1100.  
  1101. // *********************************************************************//
  1102. // DispIntf:  ICalendarXEvents
  1103. // Flags:     (0)
  1104. // GUID:      {695CDADF-02E5-11D2-B20D-00C04FA368D4}
  1105. // *********************************************************************//
  1106.   ICalendarXEvents = dispinterface
  1107.     ['{695CDADF-02E5-11D2-B20D-00C04FA368D4}']
  1108.     procedure OnClick; dispid 1;
  1109.     procedure OnChange; dispid 2;
  1110.     procedure OnDblClick; dispid 3;
  1111.     procedure OnKeyPress(var Key: Smallint); dispid 9;
  1112.   end;
  1113.  
  1114. // *********************************************************************//
  1115. // Interface: ICheckBoxX
  1116. // Flags:     (4416) Dual OleAutomation Dispatchable
  1117. // GUID:      {695CDAE5-02E5-11D2-B20D-00C04FA368D4}
  1118. // *********************************************************************//
  1119.   ICheckBoxX = interface(IDispatch)
  1120.     ['{695CDAE5-02E5-11D2-B20D-00C04FA368D4}']
  1121.     function Get_Alignment: TxLeftRight; safecall;
  1122.     procedure Set_Alignment(Value: TxLeftRight); safecall;
  1123.     function Get_AllowGrayed: WordBool; safecall;
  1124.     procedure Set_AllowGrayed(Value: WordBool); safecall;
  1125.     function Get_BiDiMode: TxBiDiMode; safecall;
  1126.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  1127.     function Get_Caption: WideString; safecall;
  1128.     procedure Set_Caption(const Value: WideString); safecall;
  1129.     function Get_Checked: WordBool; safecall;
  1130.     procedure Set_Checked(Value: WordBool); safecall;
  1131.     function Get_Color: OLE_COLOR; safecall;
  1132.     procedure Set_Color(Value: OLE_COLOR); safecall;
  1133.     function Get_Ctl3D: WordBool; safecall;
  1134.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1135.     function Get_DragCursor: Smallint; safecall;
  1136.     procedure Set_DragCursor(Value: Smallint); safecall;
  1137.     function Get_DragMode: TxDragMode; safecall;
  1138.     procedure Set_DragMode(Value: TxDragMode); safecall;
  1139.     function Get_Enabled: WordBool; safecall;
  1140.     procedure Set_Enabled(Value: WordBool); safecall;
  1141.     function Get_Font: IFontDisp; safecall;
  1142.     procedure _Set_Font(const Value: IFontDisp); safecall;
  1143.     procedure Set_Font(const Value: IFontDisp); safecall;
  1144.     function Get_ParentColor: WordBool; safecall;
  1145.     procedure Set_ParentColor(Value: WordBool); safecall;
  1146.     function Get_ParentCtl3D: WordBool; safecall;
  1147.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  1148.     function Get_ParentFont: WordBool; safecall;
  1149.     procedure Set_ParentFont(Value: WordBool); safecall;
  1150.     function Get_State: TxCheckBoxState; safecall;
  1151.     procedure Set_State(Value: TxCheckBoxState); safecall;
  1152.     function Get_Visible: WordBool; safecall;
  1153.     procedure Set_Visible(Value: WordBool); safecall;
  1154.     function GetControlsAlignment: TxAlignment; safecall;
  1155.     function Get_DoubleBuffered: WordBool; safecall;
  1156.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  1157.     procedure FlipChildren(AllLevels: WordBool); safecall;
  1158.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  1159.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  1160.     procedure InitiateAction; safecall;
  1161.     function IsRightToLeft: WordBool; safecall;
  1162.     function UseRightToLeftAlignment: WordBool; safecall;
  1163.     function UseRightToLeftReading: WordBool; safecall;
  1164.     function UseRightToLeftScrollBar: WordBool; safecall;
  1165.     function Get_Cursor: Smallint; safecall;
  1166.     procedure Set_Cursor(Value: Smallint); safecall;
  1167.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  1168.     procedure AboutBox; safecall;
  1169.     property Alignment: TxLeftRight read Get_Alignment write Set_Alignment;
  1170.     property AllowGrayed: WordBool read Get_AllowGrayed write Set_AllowGrayed;
  1171.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  1172.     property Caption: WideString read Get_Caption write Set_Caption;
  1173.     property Checked: WordBool read Get_Checked write Set_Checked;
  1174.     property Color: OLE_COLOR read Get_Color write Set_Color;
  1175.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1176.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1177.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  1178.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1179.     property Font: IFontDisp read Get_Font write _Set_Font;
  1180.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1181.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  1182.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  1183.     property State: TxCheckBoxState read Get_State write Set_State;
  1184.     property Visible: WordBool read Get_Visible write Set_Visible;
  1185.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  1186.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1187.   end;
  1188.  
  1189. // *********************************************************************//
  1190. // DispIntf:  ICheckBoxXDisp
  1191. // Flags:     (4416) Dual OleAutomation Dispatchable
  1192. // GUID:      {695CDAE5-02E5-11D2-B20D-00C04FA368D4}
  1193. // *********************************************************************//
  1194.   ICheckBoxXDisp = dispinterface
  1195.     ['{695CDAE5-02E5-11D2-B20D-00C04FA368D4}']
  1196.     property Alignment: TxLeftRight dispid 1;
  1197.     property AllowGrayed: WordBool dispid 2;
  1198.     property BiDiMode: TxBiDiMode dispid 3;
  1199.     property Caption: WideString dispid -518;
  1200.     property Checked: WordBool dispid 4;
  1201.     property Color: OLE_COLOR dispid -501;
  1202.     property Ctl3D: WordBool dispid 5;
  1203.     property DragCursor: Smallint dispid 6;
  1204.     property DragMode: TxDragMode dispid 7;
  1205.     property Enabled: WordBool dispid -514;
  1206.     property Font: IFontDisp dispid -512;
  1207.     property ParentColor: WordBool dispid 8;
  1208.     property ParentCtl3D: WordBool dispid 9;
  1209.     property ParentFont: WordBool dispid 10;
  1210.     property State: TxCheckBoxState dispid 11;
  1211.     property Visible: WordBool dispid 12;
  1212.     function GetControlsAlignment: TxAlignment; dispid 13;
  1213.     property DoubleBuffered: WordBool dispid 16;
  1214.     procedure FlipChildren(AllLevels: WordBool); dispid 17;
  1215.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 20;
  1216.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 21;
  1217.     procedure InitiateAction; dispid 23;
  1218.     function IsRightToLeft: WordBool; dispid 24;
  1219.     function UseRightToLeftAlignment: WordBool; dispid 29;
  1220.     function UseRightToLeftReading: WordBool; dispid 30;
  1221.     function UseRightToLeftScrollBar: WordBool; dispid 31;
  1222.     property Cursor: Smallint dispid 32;
  1223.     function ClassNameIs(const Name: WideString): WordBool; dispid 36;
  1224.     procedure AboutBox; dispid -552;
  1225.   end;
  1226.  
  1227. // *********************************************************************//
  1228. // DispIntf:  ICheckBoxXEvents
  1229. // Flags:     (0)
  1230. // GUID:      {695CDAE7-02E5-11D2-B20D-00C04FA368D4}
  1231. // *********************************************************************//
  1232.   ICheckBoxXEvents = dispinterface
  1233.     ['{695CDAE7-02E5-11D2-B20D-00C04FA368D4}']
  1234.     procedure OnClick; dispid 1;
  1235.     procedure OnKeyPress(var Key: Smallint); dispid 7;
  1236.   end;
  1237.  
  1238. // *********************************************************************//
  1239. // Interface: ICheckListBoxX
  1240. // Flags:     (4416) Dual OleAutomation Dispatchable
  1241. // GUID:      {695CDAEE-02E5-11D2-B20D-00C04FA368D4}
  1242. // *********************************************************************//
  1243.   ICheckListBoxX = interface(IDispatch)
  1244.     ['{695CDAEE-02E5-11D2-B20D-00C04FA368D4}']
  1245.     function Get_AllowGrayed: WordBool; safecall;
  1246.     procedure Set_AllowGrayed(Value: WordBool); safecall;
  1247.     function Get_BiDiMode: TxBiDiMode; safecall;
  1248.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  1249.     function Get_BorderStyle: TxBorderStyle; safecall;
  1250.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  1251.     function Get_Color: OLE_COLOR; safecall;
  1252.     procedure Set_Color(Value: OLE_COLOR); 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_DragMode: TxDragMode; safecall;
  1260.     procedure Set_DragMode(Value: TxDragMode); safecall;
  1261.     function Get_Enabled: WordBool; safecall;
  1262.     procedure Set_Enabled(Value: WordBool); safecall;
  1263.     function Get_Flat: WordBool; safecall;
  1264.     procedure Set_Flat(Value: WordBool); safecall;
  1265.     function Get_Font: IFontDisp; safecall;
  1266.     procedure _Set_Font(const Value: IFontDisp); safecall;
  1267.     procedure Set_Font(const Value: IFontDisp); safecall;
  1268.     function Get_ImeMode: TxImeMode; safecall;
  1269.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  1270.     function Get_ImeName: WideString; safecall;
  1271.     procedure Set_ImeName(const Value: WideString); safecall;
  1272.     function Get_IntegralHeight: WordBool; safecall;
  1273.     procedure Set_IntegralHeight(Value: WordBool); safecall;
  1274.     function Get_ItemHeight: Integer; safecall;
  1275.     procedure Set_ItemHeight(Value: Integer); safecall;
  1276.     function Get_Items: IStrings; safecall;
  1277.     procedure Set_Items(const Value: IStrings); safecall;
  1278.     function Get_ParentColor: WordBool; safecall;
  1279.     procedure Set_ParentColor(Value: WordBool); safecall;
  1280.     function Get_ParentCtl3D: WordBool; safecall;
  1281.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  1282.     function Get_ParentFont: WordBool; safecall;
  1283.     procedure Set_ParentFont(Value: WordBool); safecall;
  1284.     function Get_Sorted: WordBool; safecall;
  1285.     procedure Set_Sorted(Value: WordBool); safecall;
  1286.     function Get_Style: TxListBoxStyle; safecall;
  1287.     procedure Set_Style(Value: TxListBoxStyle); safecall;
  1288.     function Get_TabWidth: Integer; safecall;
  1289.     procedure Set_TabWidth(Value: Integer); safecall;
  1290.     function Get_Visible: WordBool; safecall;
  1291.     procedure Set_Visible(Value: WordBool); safecall;
  1292.     procedure Clear; safecall;
  1293.     function Get_ItemIndex: Integer; safecall;
  1294.     procedure Set_ItemIndex(Value: Integer); safecall;
  1295.     function Get_SelCount: Integer; safecall;
  1296.     function Get_TopIndex: Integer; safecall;
  1297.     procedure Set_TopIndex(Value: Integer); safecall;
  1298.     function Get_DoubleBuffered: WordBool; safecall;
  1299.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  1300.     procedure FlipChildren(AllLevels: WordBool); safecall;
  1301.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  1302.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  1303.     function GetControlsAlignment: TxAlignment; safecall;
  1304.     procedure InitiateAction; safecall;
  1305.     function IsRightToLeft: WordBool; safecall;
  1306.     function UseRightToLeftAlignment: WordBool; safecall;
  1307.     function UseRightToLeftReading: WordBool; safecall;
  1308.     function UseRightToLeftScrollBar: WordBool; safecall;
  1309.     function Get_Cursor: Smallint; safecall;
  1310.     procedure Set_Cursor(Value: Smallint); safecall;
  1311.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  1312.     procedure AboutBox; safecall;
  1313.     property AllowGrayed: WordBool read Get_AllowGrayed write Set_AllowGrayed;
  1314.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  1315.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  1316.     property Color: OLE_COLOR read Get_Color write Set_Color;
  1317.     property Columns: Integer read Get_Columns write Set_Columns;
  1318.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1319.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1320.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  1321.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1322.     property Flat: WordBool read Get_Flat write Set_Flat;
  1323.     property Font: IFontDisp read Get_Font write _Set_Font;
  1324.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  1325.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  1326.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  1327.     property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
  1328.     property Items: IStrings read Get_Items write Set_Items;
  1329.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1330.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  1331.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  1332.     property Sorted: WordBool read Get_Sorted write Set_Sorted;
  1333.     property Style: TxListBoxStyle read Get_Style write Set_Style;
  1334.     property TabWidth: Integer read Get_TabWidth write Set_TabWidth;
  1335.     property Visible: WordBool read Get_Visible write Set_Visible;
  1336.     property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
  1337.     property SelCount: Integer read Get_SelCount;
  1338.     property TopIndex: Integer read Get_TopIndex write Set_TopIndex;
  1339.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  1340.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1341.   end;
  1342.  
  1343. // *********************************************************************//
  1344. // DispIntf:  ICheckListBoxXDisp
  1345. // Flags:     (4416) Dual OleAutomation Dispatchable
  1346. // GUID:      {695CDAEE-02E5-11D2-B20D-00C04FA368D4}
  1347. // *********************************************************************//
  1348.   ICheckListBoxXDisp = dispinterface
  1349.     ['{695CDAEE-02E5-11D2-B20D-00C04FA368D4}']
  1350.     property AllowGrayed: WordBool dispid 1;
  1351.     property BiDiMode: TxBiDiMode dispid 2;
  1352.     property BorderStyle: TxBorderStyle dispid 3;
  1353.     property Color: OLE_COLOR dispid -501;
  1354.     property Columns: Integer dispid 4;
  1355.     property Ctl3D: WordBool dispid 5;
  1356.     property DragCursor: Smallint dispid 6;
  1357.     property DragMode: TxDragMode dispid 7;
  1358.     property Enabled: WordBool dispid -514;
  1359.     property Flat: WordBool dispid 8;
  1360.     property Font: IFontDisp dispid -512;
  1361.     property ImeMode: TxImeMode dispid 9;
  1362.     property ImeName: WideString dispid 10;
  1363.     property IntegralHeight: WordBool dispid 11;
  1364.     property ItemHeight: Integer dispid 12;
  1365.     property Items: IStrings dispid 13;
  1366.     property ParentColor: WordBool dispid 14;
  1367.     property ParentCtl3D: WordBool dispid 15;
  1368.     property ParentFont: WordBool dispid 16;
  1369.     property Sorted: WordBool dispid 17;
  1370.     property Style: TxListBoxStyle dispid 18;
  1371.     property TabWidth: Integer dispid 19;
  1372.     property Visible: WordBool dispid 20;
  1373.     procedure Clear; dispid 21;
  1374.     property ItemIndex: Integer dispid 23;
  1375.     property SelCount: Integer readonly dispid 24;
  1376.     property TopIndex: Integer dispid 25;
  1377.     property DoubleBuffered: WordBool dispid 28;
  1378.     procedure FlipChildren(AllLevels: WordBool); dispid 29;
  1379.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 32;
  1380.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 33;
  1381.     function GetControlsAlignment: TxAlignment; dispid 34;
  1382.     procedure InitiateAction; dispid 36;
  1383.     function IsRightToLeft: WordBool; dispid 37;
  1384.     function UseRightToLeftAlignment: WordBool; dispid 42;
  1385.     function UseRightToLeftReading: WordBool; dispid 43;
  1386.     function UseRightToLeftScrollBar: WordBool; dispid 44;
  1387.     property Cursor: Smallint dispid 45;
  1388.     function ClassNameIs(const Name: WideString): WordBool; dispid 49;
  1389.     procedure AboutBox; dispid -552;
  1390.   end;
  1391.  
  1392. // *********************************************************************//
  1393. // DispIntf:  ICheckListBoxXEvents
  1394. // Flags:     (0)
  1395. // GUID:      {695CDAF0-02E5-11D2-B20D-00C04FA368D4}
  1396. // *********************************************************************//
  1397.   ICheckListBoxXEvents = dispinterface
  1398.     ['{695CDAF0-02E5-11D2-B20D-00C04FA368D4}']
  1399.     procedure OnClickCheck; dispid 1;
  1400.     procedure OnClick; dispid 2;
  1401.     procedure OnDblClick; dispid 3;
  1402.     procedure OnKeyPress(var Key: Smallint); dispid 10;
  1403.     procedure OnMeasureItem(Index: Integer; var Height: Integer); dispid 12;
  1404.   end;
  1405.  
  1406. // *********************************************************************//
  1407. // Interface: IColorGridX
  1408. // Flags:     (4416) Dual OleAutomation Dispatchable
  1409. // GUID:      {695CDAF7-02E5-11D2-B20D-00C04FA368D4}
  1410. // *********************************************************************//
  1411.   IColorGridX = interface(IDispatch)
  1412.     ['{695CDAF7-02E5-11D2-B20D-00C04FA368D4}']
  1413.     function ColorToIndex(AColor: OLE_COLOR): Integer; safecall;
  1414.     function Get_ForegroundColor: OLE_COLOR; safecall;
  1415.     function Get_BackgroundColor: OLE_COLOR; safecall;
  1416.     function Get_ClickEnablesColor: WordBool; safecall;
  1417.     procedure Set_ClickEnablesColor(Value: WordBool); safecall;
  1418.     function Get_Ctl3D: WordBool; safecall;
  1419.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1420.     function Get_DragCursor: Smallint; safecall;
  1421.     procedure Set_DragCursor(Value: Smallint); safecall;
  1422.     function Get_DragMode: TxDragMode; safecall;
  1423.     procedure Set_DragMode(Value: TxDragMode); safecall;
  1424.     function Get_Enabled: WordBool; safecall;
  1425.     procedure Set_Enabled(Value: WordBool); safecall;
  1426.     function Get_GridOrdering: TxGridOrdering; safecall;
  1427.     procedure Set_GridOrdering(Value: TxGridOrdering); safecall;
  1428.     function Get_ForegroundIndex: Integer; safecall;
  1429.     procedure Set_ForegroundIndex(Value: Integer); safecall;
  1430.     function Get_BackgroundIndex: Integer; safecall;
  1431.     procedure Set_BackgroundIndex(Value: Integer); safecall;
  1432.     function Get_ForegroundEnabled: WordBool; safecall;
  1433.     procedure Set_ForegroundEnabled(Value: WordBool); safecall;
  1434.     function Get_BackgroundEnabled: WordBool; safecall;
  1435.     procedure Set_BackgroundEnabled(Value: WordBool); safecall;
  1436.     function Get_Font: IFontDisp; safecall;
  1437.     procedure _Set_Font(const Value: IFontDisp); safecall;
  1438.     procedure Set_Font(const Value: IFontDisp); safecall;
  1439.     function Get_ParentCtl3D: WordBool; safecall;
  1440.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  1441.     function Get_ParentFont: WordBool; safecall;
  1442.     procedure Set_ParentFont(Value: WordBool); safecall;
  1443.     function Get_Selection: Integer; safecall;
  1444.     procedure Set_Selection(Value: Integer); safecall;
  1445.     function Get_Visible: WordBool; safecall;
  1446.     procedure Set_Visible(Value: WordBool); safecall;
  1447.     function Get_DoubleBuffered: WordBool; safecall;
  1448.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  1449.     procedure FlipChildren(AllLevels: WordBool); safecall;
  1450.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  1451.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  1452.     function GetControlsAlignment: TxAlignment; safecall;
  1453.     procedure InitiateAction; safecall;
  1454.     function IsRightToLeft: WordBool; safecall;
  1455.     function UseRightToLeftAlignment: WordBool; safecall;
  1456.     function UseRightToLeftReading: WordBool; safecall;
  1457.     function UseRightToLeftScrollBar: WordBool; safecall;
  1458.     function Get_BiDiMode: TxBiDiMode; safecall;
  1459.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  1460.     function Get_Cursor: Smallint; safecall;
  1461.     procedure Set_Cursor(Value: Smallint); safecall;
  1462.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  1463.     procedure AboutBox; safecall;
  1464.     property ForegroundColor: OLE_COLOR read Get_ForegroundColor;
  1465.     property BackgroundColor: OLE_COLOR read Get_BackgroundColor;
  1466.     property ClickEnablesColor: WordBool read Get_ClickEnablesColor write Set_ClickEnablesColor;
  1467.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1468.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1469.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  1470.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1471.     property GridOrdering: TxGridOrdering read Get_GridOrdering write Set_GridOrdering;
  1472.     property ForegroundIndex: Integer read Get_ForegroundIndex write Set_ForegroundIndex;
  1473.     property BackgroundIndex: Integer read Get_BackgroundIndex write Set_BackgroundIndex;
  1474.     property ForegroundEnabled: WordBool read Get_ForegroundEnabled write Set_ForegroundEnabled;
  1475.     property BackgroundEnabled: WordBool read Get_BackgroundEnabled write Set_BackgroundEnabled;
  1476.     property Font: IFontDisp read Get_Font write _Set_Font;
  1477.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  1478.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  1479.     property Selection: Integer read Get_Selection write Set_Selection;
  1480.     property Visible: WordBool read Get_Visible write Set_Visible;
  1481.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  1482.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  1483.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1484.   end;
  1485.  
  1486. // *********************************************************************//
  1487. // DispIntf:  IColorGridXDisp
  1488. // Flags:     (4416) Dual OleAutomation Dispatchable
  1489. // GUID:      {695CDAF7-02E5-11D2-B20D-00C04FA368D4}
  1490. // *********************************************************************//
  1491.   IColorGridXDisp = dispinterface
  1492.     ['{695CDAF7-02E5-11D2-B20D-00C04FA368D4}']
  1493.     function ColorToIndex(AColor: OLE_COLOR): Integer; dispid 1;
  1494.     property ForegroundColor: OLE_COLOR readonly dispid 2;
  1495.     property BackgroundColor: OLE_COLOR readonly dispid 3;
  1496.     property ClickEnablesColor: WordBool dispid 4;
  1497.     property Ctl3D: WordBool dispid 5;
  1498.     property DragCursor: Smallint dispid 6;
  1499.     property DragMode: TxDragMode dispid 7;
  1500.     property Enabled: WordBool dispid -514;
  1501.     property GridOrdering: TxGridOrdering dispid 8;
  1502.     property ForegroundIndex: Integer dispid 9;
  1503.     property BackgroundIndex: Integer dispid 10;
  1504.     property ForegroundEnabled: WordBool dispid 11;
  1505.     property BackgroundEnabled: WordBool dispid 12;
  1506.     property Font: IFontDisp dispid -512;
  1507.     property ParentCtl3D: WordBool dispid 13;
  1508.     property ParentFont: WordBool dispid 14;
  1509.     property Selection: Integer dispid 15;
  1510.     property Visible: WordBool dispid 16;
  1511.     property DoubleBuffered: WordBool dispid 19;
  1512.     procedure FlipChildren(AllLevels: WordBool); dispid 20;
  1513.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 23;
  1514.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 24;
  1515.     function GetControlsAlignment: TxAlignment; dispid 25;
  1516.     procedure InitiateAction; dispid 27;
  1517.     function IsRightToLeft: WordBool; dispid 28;
  1518.     function UseRightToLeftAlignment: WordBool; dispid 33;
  1519.     function UseRightToLeftReading: WordBool; dispid 34;
  1520.     function UseRightToLeftScrollBar: WordBool; dispid 35;
  1521.     property BiDiMode: TxBiDiMode dispid 36;
  1522.     property Cursor: Smallint dispid 37;
  1523.     function ClassNameIs(const Name: WideString): WordBool; dispid 41;
  1524.     procedure AboutBox; dispid -552;
  1525.   end;
  1526.  
  1527. // *********************************************************************//
  1528. // DispIntf:  IColorGridXEvents
  1529. // Flags:     (0)
  1530. // GUID:      {695CDAF9-02E5-11D2-B20D-00C04FA368D4}
  1531. // *********************************************************************//
  1532.   IColorGridXEvents = dispinterface
  1533.     ['{695CDAF9-02E5-11D2-B20D-00C04FA368D4}']
  1534.     procedure OnChange; dispid 1;
  1535.     procedure OnClick; dispid 2;
  1536.     procedure OnKeyPress(var Key: Smallint); dispid 7;
  1537.   end;
  1538.  
  1539. // *********************************************************************//
  1540. // Interface: IComboBoxX
  1541. // Flags:     (4416) Dual OleAutomation Dispatchable
  1542. // GUID:      {695CDAFF-02E5-11D2-B20D-00C04FA368D4}
  1543. // *********************************************************************//
  1544.   IComboBoxX = interface(IDispatch)
  1545.     ['{695CDAFF-02E5-11D2-B20D-00C04FA368D4}']
  1546.     function Get_Style: TxComboBoxStyle; safecall;
  1547.     procedure Set_Style(Value: TxComboBoxStyle); safecall;
  1548.     function Get_BiDiMode: TxBiDiMode; safecall;
  1549.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  1550.     function Get_Color: OLE_COLOR; safecall;
  1551.     procedure Set_Color(Value: OLE_COLOR); safecall;
  1552.     function Get_Ctl3D: WordBool; safecall;
  1553.     procedure Set_Ctl3D(Value: WordBool); safecall;
  1554.     function Get_DragCursor: Smallint; safecall;
  1555.     procedure Set_DragCursor(Value: Smallint); safecall;
  1556.     function Get_DragMode: TxDragMode; safecall;
  1557.     procedure Set_DragMode(Value: TxDragMode); safecall;
  1558.     function Get_DropDownCount: Integer; safecall;
  1559.     procedure Set_DropDownCount(Value: Integer); safecall;
  1560.     function Get_Enabled: WordBool; safecall;
  1561.     procedure Set_Enabled(Value: WordBool); safecall;
  1562.     function Get_Font: IFontDisp; safecall;
  1563.     procedure _Set_Font(const Value: IFontDisp); safecall;
  1564.     procedure Set_Font(const Value: IFontDisp); safecall;
  1565.     function Get_ImeMode: TxImeMode; safecall;
  1566.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  1567.     function Get_ImeName: WideString; safecall;
  1568.     procedure Set_ImeName(const Value: WideString); safecall;
  1569.     function Get_ItemHeight: Integer; safecall;
  1570.     procedure Set_ItemHeight(Value: Integer); safecall;
  1571.     function Get_Items: IStrings; safecall;
  1572.     procedure Set_Items(const Value: IStrings); safecall;
  1573.     function Get_MaxLength: Integer; safecall;
  1574.     procedure Set_MaxLength(Value: Integer); safecall;
  1575.     function Get_ParentColor: WordBool; safecall;
  1576.     procedure Set_ParentColor(Value: WordBool); safecall;
  1577.     function Get_ParentCtl3D: WordBool; safecall;
  1578.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  1579.     function Get_ParentFont: WordBool; safecall;
  1580.     procedure Set_ParentFont(Value: WordBool); safecall;
  1581.     function Get_Sorted: WordBool; safecall;
  1582.     procedure Set_Sorted(Value: WordBool); safecall;
  1583.     function Get_Text: WideString; safecall;
  1584.     procedure Set_Text(const Value: WideString); safecall;
  1585.     function Get_Visible: WordBool; safecall;
  1586.     procedure Set_Visible(Value: WordBool); safecall;
  1587.     procedure Clear; safecall;
  1588.     procedure SelectAll; safecall;
  1589.     function Get_CharCase: TxEditCharCase; safecall;
  1590.     procedure Set_CharCase(Value: TxEditCharCase); safecall;
  1591.     function Get_DroppedDown: WordBool; safecall;
  1592.     procedure Set_DroppedDown(Value: WordBool); safecall;
  1593.     function Get_ItemIndex: Integer; safecall;
  1594.     procedure Set_ItemIndex(Value: Integer); safecall;
  1595.     function Get_SelLength: Integer; safecall;
  1596.     procedure Set_SelLength(Value: Integer); safecall;
  1597.     function Get_SelStart: Integer; safecall;
  1598.     procedure Set_SelStart(Value: Integer); safecall;
  1599.     function Get_SelText: WideString; safecall;
  1600.     procedure Set_SelText(const Value: WideString); safecall;
  1601.     function Get_DoubleBuffered: WordBool; safecall;
  1602.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  1603.     procedure FlipChildren(AllLevels: WordBool); safecall;
  1604.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  1605.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  1606.     function GetControlsAlignment: TxAlignment; safecall;
  1607.     procedure InitiateAction; safecall;
  1608.     function IsRightToLeft: WordBool; safecall;
  1609.     function UseRightToLeftAlignment: WordBool; safecall;
  1610.     function UseRightToLeftReading: WordBool; safecall;
  1611.     function UseRightToLeftScrollBar: WordBool; safecall;
  1612.     function Get_Cursor: Smallint; safecall;
  1613.     procedure Set_Cursor(Value: Smallint); safecall;
  1614.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  1615.     procedure AboutBox; safecall;
  1616.     property Style: TxComboBoxStyle read Get_Style write Set_Style;
  1617.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  1618.     property Color: OLE_COLOR read Get_Color write Set_Color;
  1619.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  1620.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1621.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  1622.     property DropDownCount: Integer read Get_DropDownCount write Set_DropDownCount;
  1623.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1624.     property Font: IFontDisp read Get_Font write _Set_Font;
  1625.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  1626.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  1627.     property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
  1628.     property Items: IStrings read Get_Items write Set_Items;
  1629.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  1630.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1631.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  1632.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  1633.     property Sorted: WordBool read Get_Sorted write Set_Sorted;
  1634.     property Text: WideString read Get_Text write Set_Text;
  1635.     property Visible: WordBool read Get_Visible write Set_Visible;
  1636.     property CharCase: TxEditCharCase read Get_CharCase write Set_CharCase;
  1637.     property DroppedDown: WordBool read Get_DroppedDown write Set_DroppedDown;
  1638.     property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
  1639.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  1640.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  1641.     property SelText: WideString read Get_SelText write Set_SelText;
  1642.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  1643.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1644.   end;
  1645.  
  1646. // *********************************************************************//
  1647. // DispIntf:  IComboBoxXDisp
  1648. // Flags:     (4416) Dual OleAutomation Dispatchable
  1649. // GUID:      {695CDAFF-02E5-11D2-B20D-00C04FA368D4}
  1650. // *********************************************************************//
  1651.   IComboBoxXDisp = dispinterface
  1652.     ['{695CDAFF-02E5-11D2-B20D-00C04FA368D4}']
  1653.     property Style: TxComboBoxStyle dispid 1;
  1654.     property BiDiMode: TxBiDiMode dispid 2;
  1655.     property Color: OLE_COLOR dispid -501;
  1656.     property Ctl3D: WordBool dispid 3;
  1657.     property DragCursor: Smallint dispid 4;
  1658.     property DragMode: TxDragMode dispid 5;
  1659.     property DropDownCount: Integer dispid 6;
  1660.     property Enabled: WordBool dispid -514;
  1661.     property Font: IFontDisp dispid -512;
  1662.     property ImeMode: TxImeMode dispid 7;
  1663.     property ImeName: WideString dispid 8;
  1664.     property ItemHeight: Integer dispid 9;
  1665.     property Items: IStrings dispid 10;
  1666.     property MaxLength: Integer dispid 11;
  1667.     property ParentColor: WordBool dispid 12;
  1668.     property ParentCtl3D: WordBool dispid 13;
  1669.     property ParentFont: WordBool dispid 14;
  1670.     property Sorted: WordBool dispid 15;
  1671.     property Text: WideString dispid -517;
  1672.     property Visible: WordBool dispid 16;
  1673.     procedure Clear; dispid 17;
  1674.     procedure SelectAll; dispid 18;
  1675.     property CharCase: TxEditCharCase dispid 19;
  1676.     property DroppedDown: WordBool dispid 20;
  1677.     property ItemIndex: Integer dispid 21;
  1678.     property SelLength: Integer dispid 22;
  1679.     property SelStart: Integer dispid 23;
  1680.     property SelText: WideString dispid 24;
  1681.     property DoubleBuffered: WordBool dispid 27;
  1682.     procedure FlipChildren(AllLevels: WordBool); dispid 28;
  1683.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 31;
  1684.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 32;
  1685.     function GetControlsAlignment: TxAlignment; dispid 33;
  1686.     procedure InitiateAction; dispid 35;
  1687.     function IsRightToLeft: WordBool; dispid 36;
  1688.     function UseRightToLeftAlignment: WordBool; dispid 41;
  1689.     function UseRightToLeftReading: WordBool; dispid 42;
  1690.     function UseRightToLeftScrollBar: WordBool; dispid 43;
  1691.     property Cursor: Smallint dispid 44;
  1692.     function ClassNameIs(const Name: WideString): WordBool; dispid 48;
  1693.     procedure AboutBox; dispid -552;
  1694.   end;
  1695.  
  1696. // *********************************************************************//
  1697. // DispIntf:  IComboBoxXEvents
  1698. // Flags:     (0)
  1699. // GUID:      {695CDB01-02E5-11D2-B20D-00C04FA368D4}
  1700. // *********************************************************************//
  1701.   IComboBoxXEvents = dispinterface
  1702.     ['{695CDB01-02E5-11D2-B20D-00C04FA368D4}']
  1703.     procedure OnChange; dispid 1;
  1704.     procedure OnClick; dispid 2;
  1705.     procedure OnDblClick; dispid 3;
  1706.     procedure OnDropDown; dispid 7;
  1707.     procedure OnKeyPress(var Key: Smallint); dispid 11;
  1708.     procedure OnMeasureItem(Index: Integer; var Height: Integer); dispid 13;
  1709.   end;
  1710.  
  1711. // *********************************************************************//
  1712. // Interface: IControlBarX
  1713. // Flags:     (4416) Dual OleAutomation Dispatchable
  1714. // GUID:      {695CDB08-02E5-11D2-B20D-00C04FA368D4}
  1715. // *********************************************************************//
  1716.   IControlBarX = interface(IDispatch)
  1717.     ['{695CDB08-02E5-11D2-B20D-00C04FA368D4}']
  1718.     function Get_AutoDrag: WordBool; safecall;
  1719.     procedure Set_AutoDrag(Value: WordBool); safecall;
  1720.     function Get_AutoSize: WordBool; safecall;
  1721.     procedure Set_AutoSize(Value: WordBool); safecall;
  1722.     function Get_BevelInner: TxBevelCut; safecall;
  1723.     procedure Set_BevelInner(Value: TxBevelCut); safecall;
  1724.     function Get_BevelOuter: TxBevelCut; safecall;
  1725.     procedure Set_BevelOuter(Value: TxBevelCut); safecall;
  1726.     function Get_BevelKind: TxBevelKind; safecall;
  1727.     procedure Set_BevelKind(Value: TxBevelKind); safecall;
  1728.     function Get_Color: OLE_COLOR; safecall;
  1729.     procedure Set_Color(Value: OLE_COLOR); safecall;
  1730.     function Get_DockSite: WordBool; safecall;
  1731.     procedure Set_DockSite(Value: WordBool); safecall;
  1732.     function Get_DragCursor: Smallint; safecall;
  1733.     procedure Set_DragCursor(Value: Smallint); safecall;
  1734.     function Get_DragMode: TxDragMode; safecall;
  1735.     procedure Set_DragMode(Value: TxDragMode); safecall;
  1736.     function Get_Enabled: WordBool; safecall;
  1737.     procedure Set_Enabled(Value: WordBool); safecall;
  1738.     function Get_ParentColor: WordBool; safecall;
  1739.     procedure Set_ParentColor(Value: WordBool); safecall;
  1740.     function Get_ParentCtl3D: WordBool; safecall;
  1741.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  1742.     function Get_ParentFont: WordBool; safecall;
  1743.     procedure Set_ParentFont(Value: WordBool); safecall;
  1744.     function Get_Picture: IPictureDisp; safecall;
  1745.     procedure Set_Picture(const Value: IPictureDisp); safecall;
  1746.     function Get_RowSnap: WordBool; safecall;
  1747.     procedure Set_RowSnap(Value: WordBool); safecall;
  1748.     function Get_Visible: WordBool; safecall;
  1749.     procedure Set_Visible(Value: WordBool); safecall;
  1750.     procedure FlipChildren(AllLevels: WordBool); safecall;
  1751.     procedure StickControls; safecall;
  1752.     function Get_DoubleBuffered: WordBool; safecall;
  1753.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  1754.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  1755.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  1756.     function GetControlsAlignment: TxAlignment; safecall;
  1757.     procedure InitiateAction; safecall;
  1758.     function IsRightToLeft: WordBool; safecall;
  1759.     function UseRightToLeftAlignment: WordBool; safecall;
  1760.     function UseRightToLeftReading: WordBool; safecall;
  1761.     function UseRightToLeftScrollBar: WordBool; safecall;
  1762.     function Get_BiDiMode: TxBiDiMode; safecall;
  1763.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  1764.     function Get_Cursor: Smallint; safecall;
  1765.     procedure Set_Cursor(Value: Smallint); safecall;
  1766.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  1767.     procedure AboutBox; safecall;
  1768.     property AutoDrag: WordBool read Get_AutoDrag write Set_AutoDrag;
  1769.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  1770.     property BevelInner: TxBevelCut read Get_BevelInner write Set_BevelInner;
  1771.     property BevelOuter: TxBevelCut read Get_BevelOuter write Set_BevelOuter;
  1772.     property BevelKind: TxBevelKind read Get_BevelKind write Set_BevelKind;
  1773.     property Color: OLE_COLOR read Get_Color write Set_Color;
  1774.     property DockSite: WordBool read Get_DockSite write Set_DockSite;
  1775.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1776.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  1777.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1778.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1779.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  1780.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  1781.     property Picture: IPictureDisp read Get_Picture write Set_Picture;
  1782.     property RowSnap: WordBool read Get_RowSnap write Set_RowSnap;
  1783.     property Visible: WordBool read Get_Visible write Set_Visible;
  1784.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  1785.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  1786.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1787.   end;
  1788.  
  1789. // *********************************************************************//
  1790. // DispIntf:  IControlBarXDisp
  1791. // Flags:     (4416) Dual OleAutomation Dispatchable
  1792. // GUID:      {695CDB08-02E5-11D2-B20D-00C04FA368D4}
  1793. // *********************************************************************//
  1794.   IControlBarXDisp = dispinterface
  1795.     ['{695CDB08-02E5-11D2-B20D-00C04FA368D4}']
  1796.     property AutoDrag: WordBool dispid 1;
  1797.     property AutoSize: WordBool dispid 2;
  1798.     property BevelInner: TxBevelCut dispid 3;
  1799.     property BevelOuter: TxBevelCut dispid 4;
  1800.     property BevelKind: TxBevelKind dispid 5;
  1801.     property Color: OLE_COLOR dispid -501;
  1802.     property DockSite: WordBool dispid 6;
  1803.     property DragCursor: Smallint dispid 7;
  1804.     property DragMode: TxDragMode dispid 8;
  1805.     property Enabled: WordBool dispid -514;
  1806.     property ParentColor: WordBool dispid 9;
  1807.     property ParentCtl3D: WordBool dispid 10;
  1808.     property ParentFont: WordBool dispid 11;
  1809.     property Picture: IPictureDisp dispid -523;
  1810.     property RowSnap: WordBool dispid 12;
  1811.     property Visible: WordBool dispid 13;
  1812.     procedure FlipChildren(AllLevels: WordBool); dispid 14;
  1813.     procedure StickControls; dispid 15;
  1814.     property DoubleBuffered: WordBool dispid 18;
  1815.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 21;
  1816.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 22;
  1817.     function GetControlsAlignment: TxAlignment; dispid 23;
  1818.     procedure InitiateAction; dispid 25;
  1819.     function IsRightToLeft: WordBool; dispid 26;
  1820.     function UseRightToLeftAlignment: WordBool; dispid 31;
  1821.     function UseRightToLeftReading: WordBool; dispid 32;
  1822.     function UseRightToLeftScrollBar: WordBool; dispid 33;
  1823.     property BiDiMode: TxBiDiMode dispid 34;
  1824.     property Cursor: Smallint dispid 35;
  1825.     function ClassNameIs(const Name: WideString): WordBool; dispid 39;
  1826.     procedure AboutBox; dispid -552;
  1827.   end;
  1828.  
  1829. // *********************************************************************//
  1830. // DispIntf:  IControlBarXEvents
  1831. // Flags:     (0)
  1832. // GUID:      {695CDB0A-02E5-11D2-B20D-00C04FA368D4}
  1833. // *********************************************************************//
  1834.   IControlBarXEvents = dispinterface
  1835.     ['{695CDB0A-02E5-11D2-B20D-00C04FA368D4}']
  1836.     procedure OnCanResize(var NewWidth: Integer; var NewHeight: Integer; var Resize: WordBool); dispid 5;
  1837.     procedure OnClick; dispid 6;
  1838.     procedure OnConstrainedResize(var MinWidth: Integer; var MinHeight: Integer; 
  1839.                                   var MaxWidth: Integer; var MaxHeight: Integer); dispid 7;
  1840.     procedure OnDblClick; dispid 10;
  1841.     procedure OnPaint; dispid 19;
  1842.     procedure OnResize; dispid 20;
  1843.   end;
  1844.  
  1845. // *********************************************************************//
  1846. // Interface: IDateTimePickerX
  1847. // Flags:     (4416) Dual OleAutomation Dispatchable
  1848. // GUID:      {695CDB11-02E5-11D2-B20D-00C04FA368D4}
  1849. // *********************************************************************//
  1850.   IDateTimePickerX = interface(IDispatch)
  1851.     ['{695CDB11-02E5-11D2-B20D-00C04FA368D4}']
  1852.     function Get_DateTime: Double; safecall;
  1853.     procedure Set_DateTime(Value: Double); safecall;
  1854.     function Get_DroppedDown: WordBool; safecall;
  1855.     function Get_BiDiMode: TxBiDiMode; safecall;
  1856.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  1857.     function Get_CalAlignment: TxDTCalAlignment; safecall;
  1858.     procedure Set_CalAlignment(Value: TxDTCalAlignment); safecall;
  1859.     function Get_Date: Double; safecall;
  1860.     procedure Set_Date(Value: Double); safecall;
  1861.     function Get_Time: Double; safecall;
  1862.     procedure Set_Time(Value: Double); safecall;
  1863.     function Get_ShowCheckbox: WordBool; safecall;
  1864.     procedure Set_ShowCheckbox(Value: WordBool); safecall;
  1865.     function Get_Checked: WordBool; safecall;
  1866.     procedure Set_Checked(Value: WordBool); safecall;
  1867.     function Get_Color: OLE_COLOR; safecall;
  1868.     procedure Set_Color(Value: OLE_COLOR); safecall;
  1869.     function Get_DateFormat: TxDTDateFormat; safecall;
  1870.     procedure Set_DateFormat(Value: TxDTDateFormat); safecall;
  1871.     function Get_DateMode: TxDTDateMode; safecall;
  1872.     procedure Set_DateMode(Value: TxDTDateMode); safecall;
  1873.     function Get_DragCursor: Smallint; safecall;
  1874.     procedure Set_DragCursor(Value: Smallint); safecall;
  1875.     function Get_DragMode: TxDragMode; safecall;
  1876.     procedure Set_DragMode(Value: TxDragMode); safecall;
  1877.     function Get_Enabled: WordBool; safecall;
  1878.     procedure Set_Enabled(Value: WordBool); safecall;
  1879.     function Get_Font: IFontDisp; safecall;
  1880.     procedure _Set_Font(const Value: IFontDisp); safecall;
  1881.     procedure Set_Font(const Value: IFontDisp); safecall;
  1882.     function Get_ImeMode: TxImeMode; safecall;
  1883.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  1884.     function Get_ImeName: WideString; safecall;
  1885.     procedure Set_ImeName(const Value: WideString); safecall;
  1886.     function Get_Kind: TxDateTimeKind; safecall;
  1887.     procedure Set_Kind(Value: TxDateTimeKind); safecall;
  1888.     function Get_MaxDate: Double; safecall;
  1889.     procedure Set_MaxDate(Value: Double); safecall;
  1890.     function Get_MinDate: Double; safecall;
  1891.     procedure Set_MinDate(Value: Double); safecall;
  1892.     function Get_ParseInput: WordBool; safecall;
  1893.     procedure Set_ParseInput(Value: WordBool); safecall;
  1894.     function Get_ParentColor: WordBool; safecall;
  1895.     procedure Set_ParentColor(Value: WordBool); safecall;
  1896.     function Get_ParentFont: WordBool; safecall;
  1897.     procedure Set_ParentFont(Value: WordBool); safecall;
  1898.     function Get_Visible: WordBool; safecall;
  1899.     procedure Set_Visible(Value: WordBool); safecall;
  1900.     function Get_DoubleBuffered: WordBool; safecall;
  1901.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  1902.     procedure FlipChildren(AllLevels: WordBool); safecall;
  1903.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  1904.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  1905.     function GetControlsAlignment: TxAlignment; safecall;
  1906.     procedure InitiateAction; safecall;
  1907.     function IsRightToLeft: WordBool; safecall;
  1908.     function UseRightToLeftAlignment: WordBool; safecall;
  1909.     function UseRightToLeftReading: WordBool; safecall;
  1910.     function UseRightToLeftScrollBar: WordBool; safecall;
  1911.     function Get_Cursor: Smallint; safecall;
  1912.     procedure Set_Cursor(Value: Smallint); safecall;
  1913.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  1914.     procedure AboutBox; safecall;
  1915.     property DateTime: Double read Get_DateTime write Set_DateTime;
  1916.     property DroppedDown: WordBool read Get_DroppedDown;
  1917.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  1918.     property CalAlignment: TxDTCalAlignment read Get_CalAlignment write Set_CalAlignment;
  1919.     property Date: Double read Get_Date write Set_Date;
  1920.     property Time: Double read Get_Time write Set_Time;
  1921.     property ShowCheckbox: WordBool read Get_ShowCheckbox write Set_ShowCheckbox;
  1922.     property Checked: WordBool read Get_Checked write Set_Checked;
  1923.     property Color: OLE_COLOR read Get_Color write Set_Color;
  1924.     property DateFormat: TxDTDateFormat read Get_DateFormat write Set_DateFormat;
  1925.     property DateMode: TxDTDateMode read Get_DateMode write Set_DateMode;
  1926.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  1927.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  1928.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  1929.     property Font: IFontDisp read Get_Font write _Set_Font;
  1930.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  1931.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  1932.     property Kind: TxDateTimeKind read Get_Kind write Set_Kind;
  1933.     property MaxDate: Double read Get_MaxDate write Set_MaxDate;
  1934.     property MinDate: Double read Get_MinDate write Set_MinDate;
  1935.     property ParseInput: WordBool read Get_ParseInput write Set_ParseInput;
  1936.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  1937.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  1938.     property Visible: WordBool read Get_Visible write Set_Visible;
  1939.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  1940.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  1941.   end;
  1942.  
  1943. // *********************************************************************//
  1944. // DispIntf:  IDateTimePickerXDisp
  1945. // Flags:     (4416) Dual OleAutomation Dispatchable
  1946. // GUID:      {695CDB11-02E5-11D2-B20D-00C04FA368D4}
  1947. // *********************************************************************//
  1948.   IDateTimePickerXDisp = dispinterface
  1949.     ['{695CDB11-02E5-11D2-B20D-00C04FA368D4}']
  1950.     property DateTime: Double dispid 1;
  1951.     property DroppedDown: WordBool readonly dispid 2;
  1952.     property BiDiMode: TxBiDiMode dispid 3;
  1953.     property CalAlignment: TxDTCalAlignment dispid 4;
  1954.     property Date: Double dispid 5;
  1955.     property Time: Double dispid 6;
  1956.     property ShowCheckbox: WordBool dispid 7;
  1957.     property Checked: WordBool dispid 8;
  1958.     property Color: OLE_COLOR dispid -501;
  1959.     property DateFormat: TxDTDateFormat dispid 9;
  1960.     property DateMode: TxDTDateMode dispid 10;
  1961.     property DragCursor: Smallint dispid 11;
  1962.     property DragMode: TxDragMode dispid 12;
  1963.     property Enabled: WordBool dispid -514;
  1964.     property Font: IFontDisp dispid -512;
  1965.     property ImeMode: TxImeMode dispid 13;
  1966.     property ImeName: WideString dispid 14;
  1967.     property Kind: TxDateTimeKind dispid 15;
  1968.     property MaxDate: Double dispid 16;
  1969.     property MinDate: Double dispid 17;
  1970.     property ParseInput: WordBool dispid 18;
  1971.     property ParentColor: WordBool dispid 19;
  1972.     property ParentFont: WordBool dispid 20;
  1973.     property Visible: WordBool dispid 21;
  1974.     property DoubleBuffered: WordBool dispid 25;
  1975.     procedure FlipChildren(AllLevels: WordBool); dispid 26;
  1976.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 29;
  1977.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 30;
  1978.     function GetControlsAlignment: TxAlignment; dispid 31;
  1979.     procedure InitiateAction; dispid 33;
  1980.     function IsRightToLeft: WordBool; dispid 34;
  1981.     function UseRightToLeftAlignment: WordBool; dispid 39;
  1982.     function UseRightToLeftReading: WordBool; dispid 40;
  1983.     function UseRightToLeftScrollBar: WordBool; dispid 41;
  1984.     property Cursor: Smallint dispid 42;
  1985.     function ClassNameIs(const Name: WideString): WordBool; dispid 46;
  1986.     procedure AboutBox; dispid -552;
  1987.   end;
  1988.  
  1989. // *********************************************************************//
  1990. // DispIntf:  IDateTimePickerXEvents
  1991. // Flags:     (0)
  1992. // GUID:      {695CDB13-02E5-11D2-B20D-00C04FA368D4}
  1993. // *********************************************************************//
  1994.   IDateTimePickerXEvents = dispinterface
  1995.     ['{695CDB13-02E5-11D2-B20D-00C04FA368D4}']
  1996.     procedure OnClick; dispid 1;
  1997.     procedure OnCloseUp; dispid 2;
  1998.     procedure OnChange; dispid 3;
  1999.     procedure OnDropDown; dispid 4;
  2000.     procedure OnDblClick; dispid 5;
  2001.     procedure OnKeyPress(var Key: Smallint); dispid 11;
  2002.     procedure OnUserInput(const UserString: WideString; var DateAndTime: Double; 
  2003.                           var AllowChange: WordBool); dispid 15;
  2004.   end;
  2005.  
  2006. // *********************************************************************//
  2007. // Interface: IDrawGridX
  2008. // Flags:     (4416) Dual OleAutomation Dispatchable
  2009. // GUID:      {695CDB1C-02E5-11D2-B20D-00C04FA368D4}
  2010. // *********************************************************************//
  2011.   IDrawGridX = interface(IDispatch)
  2012.     ['{695CDB1C-02E5-11D2-B20D-00C04FA368D4}']
  2013.     procedure MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer); safecall;
  2014.     function Get_Col: Integer; safecall;
  2015.     procedure Set_Col(Value: Integer); safecall;
  2016.     function Get_EditorMode: WordBool; safecall;
  2017.     procedure Set_EditorMode(Value: WordBool); safecall;
  2018.     function Get_GridHeight: Integer; safecall;
  2019.     function Get_GridWidth: Integer; safecall;
  2020.     function Get_LeftCol: Integer; safecall;
  2021.     procedure Set_LeftCol(Value: Integer); safecall;
  2022.     function Get_Row: Integer; safecall;
  2023.     procedure Set_Row(Value: Integer); safecall;
  2024.     function Get_TopRow: Integer; safecall;
  2025.     procedure Set_TopRow(Value: Integer); safecall;
  2026.     function Get_BiDiMode: TxBiDiMode; safecall;
  2027.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  2028.     function Get_BorderStyle: TxBorderStyle; safecall;
  2029.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  2030.     function Get_Color: OLE_COLOR; safecall;
  2031.     procedure Set_Color(Value: OLE_COLOR); safecall;
  2032.     function Get_ColCount: Integer; safecall;
  2033.     procedure Set_ColCount(Value: Integer); safecall;
  2034.     function Get_Ctl3D: WordBool; safecall;
  2035.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2036.     function Get_DefaultColWidth: Integer; safecall;
  2037.     procedure Set_DefaultColWidth(Value: Integer); safecall;
  2038.     function Get_DefaultRowHeight: Integer; safecall;
  2039.     procedure Set_DefaultRowHeight(Value: Integer); safecall;
  2040.     function Get_DefaultDrawing: WordBool; safecall;
  2041.     procedure Set_DefaultDrawing(Value: WordBool); safecall;
  2042.     function Get_DragCursor: Smallint; safecall;
  2043.     procedure Set_DragCursor(Value: Smallint); safecall;
  2044.     function Get_DragMode: TxDragMode; safecall;
  2045.     procedure Set_DragMode(Value: TxDragMode); safecall;
  2046.     function Get_Enabled: WordBool; safecall;
  2047.     procedure Set_Enabled(Value: WordBool); safecall;
  2048.     function Get_FixedColor: OLE_COLOR; safecall;
  2049.     procedure Set_FixedColor(Value: OLE_COLOR); safecall;
  2050.     function Get_FixedCols: Integer; safecall;
  2051.     procedure Set_FixedCols(Value: Integer); safecall;
  2052.     function Get_RowCount: Integer; safecall;
  2053.     procedure Set_RowCount(Value: Integer); safecall;
  2054.     function Get_FixedRows: Integer; safecall;
  2055.     procedure Set_FixedRows(Value: Integer); safecall;
  2056.     function Get_Font: IFontDisp; safecall;
  2057.     procedure _Set_Font(const Value: IFontDisp); safecall;
  2058.     procedure Set_Font(const Value: IFontDisp); safecall;
  2059.     function Get_GridLineWidth: Integer; safecall;
  2060.     procedure Set_GridLineWidth(Value: Integer); safecall;
  2061.     function Get_ParentColor: WordBool; safecall;
  2062.     procedure Set_ParentColor(Value: WordBool); safecall;
  2063.     function Get_ParentCtl3D: WordBool; safecall;
  2064.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  2065.     function Get_ParentFont: WordBool; safecall;
  2066.     procedure Set_ParentFont(Value: WordBool); safecall;
  2067.     function Get_ScrollBars: TxScrollStyle; safecall;
  2068.     procedure Set_ScrollBars(Value: TxScrollStyle); safecall;
  2069.     function Get_Visible: WordBool; safecall;
  2070.     procedure Set_Visible(Value: WordBool); safecall;
  2071.     function Get_VisibleColCount: Integer; safecall;
  2072.     function Get_VisibleRowCount: Integer; safecall;
  2073.     function Get_DoubleBuffered: WordBool; safecall;
  2074.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  2075.     procedure FlipChildren(AllLevels: WordBool); safecall;
  2076.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  2077.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  2078.     function GetControlsAlignment: TxAlignment; safecall;
  2079.     procedure InitiateAction; safecall;
  2080.     function IsRightToLeft: WordBool; safecall;
  2081.     function UseRightToLeftAlignment: WordBool; safecall;
  2082.     function UseRightToLeftReading: WordBool; safecall;
  2083.     function UseRightToLeftScrollBar: WordBool; safecall;
  2084.     function Get_Cursor: Smallint; safecall;
  2085.     procedure Set_Cursor(Value: Smallint); safecall;
  2086.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  2087.     procedure AboutBox; safecall;
  2088.     property Col: Integer read Get_Col write Set_Col;
  2089.     property EditorMode: WordBool read Get_EditorMode write Set_EditorMode;
  2090.     property GridHeight: Integer read Get_GridHeight;
  2091.     property GridWidth: Integer read Get_GridWidth;
  2092.     property LeftCol: Integer read Get_LeftCol write Set_LeftCol;
  2093.     property Row: Integer read Get_Row write Set_Row;
  2094.     property TopRow: Integer read Get_TopRow write Set_TopRow;
  2095.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  2096.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2097.     property Color: OLE_COLOR read Get_Color write Set_Color;
  2098.     property ColCount: Integer read Get_ColCount write Set_ColCount;
  2099.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2100.     property DefaultColWidth: Integer read Get_DefaultColWidth write Set_DefaultColWidth;
  2101.     property DefaultRowHeight: Integer read Get_DefaultRowHeight write Set_DefaultRowHeight;
  2102.     property DefaultDrawing: WordBool read Get_DefaultDrawing write Set_DefaultDrawing;
  2103.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2104.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  2105.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2106.     property FixedColor: OLE_COLOR read Get_FixedColor write Set_FixedColor;
  2107.     property FixedCols: Integer read Get_FixedCols write Set_FixedCols;
  2108.     property RowCount: Integer read Get_RowCount write Set_RowCount;
  2109.     property FixedRows: Integer read Get_FixedRows write Set_FixedRows;
  2110.     property Font: IFontDisp read Get_Font write _Set_Font;
  2111.     property GridLineWidth: Integer read Get_GridLineWidth write Set_GridLineWidth;
  2112.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2113.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  2114.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  2115.     property ScrollBars: TxScrollStyle read Get_ScrollBars write Set_ScrollBars;
  2116.     property Visible: WordBool read Get_Visible write Set_Visible;
  2117.     property VisibleColCount: Integer read Get_VisibleColCount;
  2118.     property VisibleRowCount: Integer read Get_VisibleRowCount;
  2119.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  2120.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2121.   end;
  2122.  
  2123. // *********************************************************************//
  2124. // DispIntf:  IDrawGridXDisp
  2125. // Flags:     (4416) Dual OleAutomation Dispatchable
  2126. // GUID:      {695CDB1C-02E5-11D2-B20D-00C04FA368D4}
  2127. // *********************************************************************//
  2128.   IDrawGridXDisp = dispinterface
  2129.     ['{695CDB1C-02E5-11D2-B20D-00C04FA368D4}']
  2130.     procedure MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer); dispid 1;
  2131.     property Col: Integer dispid 2;
  2132.     property EditorMode: WordBool dispid 3;
  2133.     property GridHeight: Integer readonly dispid 4;
  2134.     property GridWidth: Integer readonly dispid 5;
  2135.     property LeftCol: Integer dispid 6;
  2136.     property Row: Integer dispid 7;
  2137.     property TopRow: Integer dispid 8;
  2138.     property BiDiMode: TxBiDiMode dispid 9;
  2139.     property BorderStyle: TxBorderStyle dispid 10;
  2140.     property Color: OLE_COLOR dispid -501;
  2141.     property ColCount: Integer dispid 11;
  2142.     property Ctl3D: WordBool dispid 12;
  2143.     property DefaultColWidth: Integer dispid 13;
  2144.     property DefaultRowHeight: Integer dispid 14;
  2145.     property DefaultDrawing: WordBool dispid 15;
  2146.     property DragCursor: Smallint dispid 16;
  2147.     property DragMode: TxDragMode dispid 17;
  2148.     property Enabled: WordBool dispid -514;
  2149.     property FixedColor: OLE_COLOR dispid 18;
  2150.     property FixedCols: Integer dispid 19;
  2151.     property RowCount: Integer dispid 20;
  2152.     property FixedRows: Integer dispid 21;
  2153.     property Font: IFontDisp dispid -512;
  2154.     property GridLineWidth: Integer dispid 22;
  2155.     property ParentColor: WordBool dispid 23;
  2156.     property ParentCtl3D: WordBool dispid 24;
  2157.     property ParentFont: WordBool dispid 25;
  2158.     property ScrollBars: TxScrollStyle dispid 26;
  2159.     property Visible: WordBool dispid 27;
  2160.     property VisibleColCount: Integer readonly dispid 28;
  2161.     property VisibleRowCount: Integer readonly dispid 29;
  2162.     property DoubleBuffered: WordBool dispid 32;
  2163.     procedure FlipChildren(AllLevels: WordBool); dispid 33;
  2164.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 36;
  2165.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 37;
  2166.     function GetControlsAlignment: TxAlignment; dispid 38;
  2167.     procedure InitiateAction; dispid 40;
  2168.     function IsRightToLeft: WordBool; dispid 41;
  2169.     function UseRightToLeftAlignment: WordBool; dispid 46;
  2170.     function UseRightToLeftReading: WordBool; dispid 47;
  2171.     function UseRightToLeftScrollBar: WordBool; dispid 48;
  2172.     property Cursor: Smallint dispid 49;
  2173.     function ClassNameIs(const Name: WideString): WordBool; dispid 53;
  2174.     procedure AboutBox; dispid -552;
  2175.   end;
  2176.  
  2177. // *********************************************************************//
  2178. // DispIntf:  IDrawGridXEvents
  2179. // Flags:     (0)
  2180. // GUID:      {695CDB1E-02E5-11D2-B20D-00C04FA368D4}
  2181. // *********************************************************************//
  2182.   IDrawGridXEvents = dispinterface
  2183.     ['{695CDB1E-02E5-11D2-B20D-00C04FA368D4}']
  2184.     procedure OnClick; dispid 1;
  2185.     procedure OnColumnMoved(FromIndex: Integer; ToIndex: Integer); dispid 2;
  2186.     procedure OnDblClick; dispid 3;
  2187.     procedure OnGetEditMask(ACol: Integer; ARow: Integer; var Value: WideString); dispid 9;
  2188.     procedure OnGetEditText(ACol: Integer; ARow: Integer; var Value: WideString); dispid 10;
  2189.     procedure OnKeyPress(var Key: Smallint); dispid 12;
  2190.     procedure OnRowMoved(FromIndex: Integer; ToIndex: Integer); dispid 19;
  2191.     procedure OnSelectCell(ACol: Integer; ARow: Integer; var CanSelect: WordBool); dispid 20;
  2192.     procedure OnSetEditText(ACol: Integer; ARow: Integer; const Value: WideString); dispid 21;
  2193.     procedure OnTopLeftChanged; dispid 24;
  2194.   end;
  2195.  
  2196. // *********************************************************************//
  2197. // Interface: IEditX
  2198. // Flags:     (4416) Dual OleAutomation Dispatchable
  2199. // GUID:      {695CDB24-02E5-11D2-B20D-00C04FA368D4}
  2200. // *********************************************************************//
  2201.   IEditX = interface(IDispatch)
  2202.     ['{695CDB24-02E5-11D2-B20D-00C04FA368D4}']
  2203.     function Get_AutoSelect: WordBool; safecall;
  2204.     procedure Set_AutoSelect(Value: WordBool); safecall;
  2205.     function Get_AutoSize: WordBool; safecall;
  2206.     procedure Set_AutoSize(Value: WordBool); safecall;
  2207.     function Get_BiDiMode: TxBiDiMode; safecall;
  2208.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  2209.     function Get_BorderStyle: TxBorderStyle; safecall;
  2210.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  2211.     function Get_CharCase: TxEditCharCase; safecall;
  2212.     procedure Set_CharCase(Value: TxEditCharCase); safecall;
  2213.     function Get_Color: OLE_COLOR; safecall;
  2214.     procedure Set_Color(Value: OLE_COLOR); safecall;
  2215.     function Get_Ctl3D: WordBool; safecall;
  2216.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2217.     function Get_DragCursor: Smallint; safecall;
  2218.     procedure Set_DragCursor(Value: Smallint); safecall;
  2219.     function Get_DragMode: TxDragMode; safecall;
  2220.     procedure Set_DragMode(Value: TxDragMode); safecall;
  2221.     function Get_Enabled: WordBool; safecall;
  2222.     procedure Set_Enabled(Value: WordBool); safecall;
  2223.     function Get_Font: IFontDisp; safecall;
  2224.     procedure _Set_Font(const Value: IFontDisp); safecall;
  2225.     procedure Set_Font(const Value: IFontDisp); safecall;
  2226.     function Get_HideSelection: WordBool; safecall;
  2227.     procedure Set_HideSelection(Value: WordBool); safecall;
  2228.     function Get_ImeMode: TxImeMode; safecall;
  2229.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  2230.     function Get_ImeName: WideString; safecall;
  2231.     procedure Set_ImeName(const Value: WideString); safecall;
  2232.     function Get_MaxLength: Integer; safecall;
  2233.     procedure Set_MaxLength(Value: Integer); safecall;
  2234.     function Get_OEMConvert: WordBool; safecall;
  2235.     procedure Set_OEMConvert(Value: WordBool); safecall;
  2236.     function Get_ParentColor: WordBool; safecall;
  2237.     procedure Set_ParentColor(Value: WordBool); safecall;
  2238.     function Get_ParentCtl3D: WordBool; safecall;
  2239.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  2240.     function Get_ParentFont: WordBool; safecall;
  2241.     procedure Set_ParentFont(Value: WordBool); safecall;
  2242.     function Get_PasswordChar: Smallint; safecall;
  2243.     procedure Set_PasswordChar(Value: Smallint); safecall;
  2244.     function Get_ReadOnly: WordBool; safecall;
  2245.     procedure Set_ReadOnly(Value: WordBool); safecall;
  2246.     function Get_Text: WideString; safecall;
  2247.     procedure Set_Text(const Value: WideString); safecall;
  2248.     function Get_Visible: WordBool; safecall;
  2249.     procedure Set_Visible(Value: WordBool); safecall;
  2250.     procedure Clear; safecall;
  2251.     procedure ClearSelection; safecall;
  2252.     procedure CopyToClipboard; safecall;
  2253.     procedure CutToClipboard; safecall;
  2254.     procedure PasteFromClipboard; safecall;
  2255.     procedure Undo; safecall;
  2256.     procedure ClearUndo; safecall;
  2257.     procedure SelectAll; safecall;
  2258.     function Get_CanUndo: WordBool; safecall;
  2259.     function Get_Modified: WordBool; safecall;
  2260.     procedure Set_Modified(Value: WordBool); safecall;
  2261.     function Get_SelLength: Integer; safecall;
  2262.     procedure Set_SelLength(Value: Integer); safecall;
  2263.     function Get_SelStart: Integer; safecall;
  2264.     procedure Set_SelStart(Value: Integer); safecall;
  2265.     function Get_SelText: WideString; safecall;
  2266.     procedure Set_SelText(const Value: WideString); safecall;
  2267.     function Get_DoubleBuffered: WordBool; safecall;
  2268.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  2269.     procedure FlipChildren(AllLevels: WordBool); safecall;
  2270.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  2271.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  2272.     function GetControlsAlignment: TxAlignment; safecall;
  2273.     procedure InitiateAction; safecall;
  2274.     function IsRightToLeft: WordBool; safecall;
  2275.     function UseRightToLeftAlignment: WordBool; safecall;
  2276.     function UseRightToLeftReading: WordBool; safecall;
  2277.     function UseRightToLeftScrollBar: WordBool; safecall;
  2278.     function Get_Cursor: Smallint; safecall;
  2279.     procedure Set_Cursor(Value: Smallint); safecall;
  2280.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  2281.     procedure AboutBox; safecall;
  2282.     property AutoSelect: WordBool read Get_AutoSelect write Set_AutoSelect;
  2283.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2284.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  2285.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2286.     property CharCase: TxEditCharCase read Get_CharCase write Set_CharCase;
  2287.     property Color: OLE_COLOR read Get_Color write Set_Color;
  2288.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2289.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2290.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  2291.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2292.     property Font: IFontDisp read Get_Font write _Set_Font;
  2293.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  2294.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  2295.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  2296.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  2297.     property OEMConvert: WordBool read Get_OEMConvert write Set_OEMConvert;
  2298.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2299.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  2300.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  2301.     property PasswordChar: Smallint read Get_PasswordChar write Set_PasswordChar;
  2302.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  2303.     property Text: WideString read Get_Text write Set_Text;
  2304.     property Visible: WordBool read Get_Visible write Set_Visible;
  2305.     property CanUndo: WordBool read Get_CanUndo;
  2306.     property Modified: WordBool read Get_Modified write Set_Modified;
  2307.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  2308.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  2309.     property SelText: WideString read Get_SelText write Set_SelText;
  2310.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  2311.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2312.   end;
  2313.  
  2314. // *********************************************************************//
  2315. // DispIntf:  IEditXDisp
  2316. // Flags:     (4416) Dual OleAutomation Dispatchable
  2317. // GUID:      {695CDB24-02E5-11D2-B20D-00C04FA368D4}
  2318. // *********************************************************************//
  2319.   IEditXDisp = dispinterface
  2320.     ['{695CDB24-02E5-11D2-B20D-00C04FA368D4}']
  2321.     property AutoSelect: WordBool dispid 1;
  2322.     property AutoSize: WordBool dispid 2;
  2323.     property BiDiMode: TxBiDiMode dispid 3;
  2324.     property BorderStyle: TxBorderStyle dispid 4;
  2325.     property CharCase: TxEditCharCase dispid 5;
  2326.     property Color: OLE_COLOR dispid -501;
  2327.     property Ctl3D: WordBool dispid 6;
  2328.     property DragCursor: Smallint dispid 7;
  2329.     property DragMode: TxDragMode dispid 8;
  2330.     property Enabled: WordBool dispid -514;
  2331.     property Font: IFontDisp dispid -512;
  2332.     property HideSelection: WordBool dispid 9;
  2333.     property ImeMode: TxImeMode dispid 10;
  2334.     property ImeName: WideString dispid 11;
  2335.     property MaxLength: Integer dispid 12;
  2336.     property OEMConvert: WordBool dispid 13;
  2337.     property ParentColor: WordBool dispid 14;
  2338.     property ParentCtl3D: WordBool dispid 15;
  2339.     property ParentFont: WordBool dispid 16;
  2340.     property PasswordChar: Smallint dispid 17;
  2341.     property ReadOnly: WordBool dispid 18;
  2342.     property Text: WideString dispid -517;
  2343.     property Visible: WordBool dispid 19;
  2344.     procedure Clear; dispid 20;
  2345.     procedure ClearSelection; dispid 21;
  2346.     procedure CopyToClipboard; dispid 22;
  2347.     procedure CutToClipboard; dispid 23;
  2348.     procedure PasteFromClipboard; dispid 25;
  2349.     procedure Undo; dispid 26;
  2350.     procedure ClearUndo; dispid 27;
  2351.     procedure SelectAll; dispid 29;
  2352.     property CanUndo: WordBool readonly dispid 31;
  2353.     property Modified: WordBool dispid 32;
  2354.     property SelLength: Integer dispid 33;
  2355.     property SelStart: Integer dispid 34;
  2356.     property SelText: WideString dispid 35;
  2357.     property DoubleBuffered: WordBool dispid 37;
  2358.     procedure FlipChildren(AllLevels: WordBool); dispid 38;
  2359.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 41;
  2360.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 42;
  2361.     function GetControlsAlignment: TxAlignment; dispid 43;
  2362.     procedure InitiateAction; dispid 45;
  2363.     function IsRightToLeft: WordBool; dispid 46;
  2364.     function UseRightToLeftAlignment: WordBool; dispid 51;
  2365.     function UseRightToLeftReading: WordBool; dispid 52;
  2366.     function UseRightToLeftScrollBar: WordBool; dispid 53;
  2367.     property Cursor: Smallint dispid 54;
  2368.     function ClassNameIs(const Name: WideString): WordBool; dispid 58;
  2369.     procedure AboutBox; dispid -552;
  2370.   end;
  2371.  
  2372. // *********************************************************************//
  2373. // DispIntf:  IEditXEvents
  2374. // Flags:     (0)
  2375. // GUID:      {695CDB26-02E5-11D2-B20D-00C04FA368D4}
  2376. // *********************************************************************//
  2377.   IEditXEvents = dispinterface
  2378.     ['{695CDB26-02E5-11D2-B20D-00C04FA368D4}']
  2379.     procedure OnChange; dispid 1;
  2380.     procedure OnClick; dispid 2;
  2381.     procedure OnDblClick; dispid 3;
  2382.     procedure OnKeyPress(var Key: Smallint); dispid 9;
  2383.   end;
  2384.  
  2385. // *********************************************************************//
  2386. // Interface: IGroupBoxX
  2387. // Flags:     (4416) Dual OleAutomation Dispatchable
  2388. // GUID:      {695CDB2B-02E5-11D2-B20D-00C04FA368D4}
  2389. // *********************************************************************//
  2390.   IGroupBoxX = interface(IDispatch)
  2391.     ['{695CDB2B-02E5-11D2-B20D-00C04FA368D4}']
  2392.     function Get_BiDiMode: TxBiDiMode; safecall;
  2393.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  2394.     function Get_Caption: WideString; safecall;
  2395.     procedure Set_Caption(const Value: WideString); safecall;
  2396.     function Get_Color: OLE_COLOR; safecall;
  2397.     procedure Set_Color(Value: OLE_COLOR); safecall;
  2398.     function Get_Ctl3D: WordBool; safecall;
  2399.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2400.     function Get_DockSite: WordBool; safecall;
  2401.     procedure Set_DockSite(Value: WordBool); safecall;
  2402.     function Get_DragCursor: Smallint; safecall;
  2403.     procedure Set_DragCursor(Value: Smallint); safecall;
  2404.     function Get_DragMode: TxDragMode; safecall;
  2405.     procedure Set_DragMode(Value: TxDragMode); safecall;
  2406.     function Get_Enabled: WordBool; safecall;
  2407.     procedure Set_Enabled(Value: WordBool); safecall;
  2408.     function Get_Font: IFontDisp; safecall;
  2409.     procedure _Set_Font(const Value: IFontDisp); safecall;
  2410.     procedure Set_Font(const Value: IFontDisp); safecall;
  2411.     function Get_ParentColor: WordBool; safecall;
  2412.     procedure Set_ParentColor(Value: WordBool); safecall;
  2413.     function Get_ParentCtl3D: WordBool; safecall;
  2414.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  2415.     function Get_ParentFont: WordBool; safecall;
  2416.     procedure Set_ParentFont(Value: WordBool); safecall;
  2417.     function Get_Visible: WordBool; safecall;
  2418.     procedure Set_Visible(Value: WordBool); safecall;
  2419.     function Get_DoubleBuffered: WordBool; safecall;
  2420.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  2421.     procedure FlipChildren(AllLevels: WordBool); safecall;
  2422.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  2423.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  2424.     function GetControlsAlignment: TxAlignment; safecall;
  2425.     procedure InitiateAction; safecall;
  2426.     function IsRightToLeft: WordBool; safecall;
  2427.     function UseRightToLeftAlignment: WordBool; safecall;
  2428.     function UseRightToLeftReading: WordBool; safecall;
  2429.     function UseRightToLeftScrollBar: WordBool; safecall;
  2430.     function Get_Cursor: Smallint; safecall;
  2431.     procedure Set_Cursor(Value: Smallint); safecall;
  2432.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  2433.     procedure AboutBox; safecall;
  2434.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  2435.     property Caption: WideString read Get_Caption write Set_Caption;
  2436.     property Color: OLE_COLOR read Get_Color write Set_Color;
  2437.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2438.     property DockSite: WordBool read Get_DockSite write Set_DockSite;
  2439.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2440.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  2441.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2442.     property Font: IFontDisp read Get_Font write _Set_Font;
  2443.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2444.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  2445.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  2446.     property Visible: WordBool read Get_Visible write Set_Visible;
  2447.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  2448.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2449.   end;
  2450.  
  2451. // *********************************************************************//
  2452. // DispIntf:  IGroupBoxXDisp
  2453. // Flags:     (4416) Dual OleAutomation Dispatchable
  2454. // GUID:      {695CDB2B-02E5-11D2-B20D-00C04FA368D4}
  2455. // *********************************************************************//
  2456.   IGroupBoxXDisp = dispinterface
  2457.     ['{695CDB2B-02E5-11D2-B20D-00C04FA368D4}']
  2458.     property BiDiMode: TxBiDiMode dispid 1;
  2459.     property Caption: WideString dispid -518;
  2460.     property Color: OLE_COLOR dispid -501;
  2461.     property Ctl3D: WordBool dispid 2;
  2462.     property DockSite: WordBool dispid 3;
  2463.     property DragCursor: Smallint dispid 4;
  2464.     property DragMode: TxDragMode dispid 5;
  2465.     property Enabled: WordBool dispid -514;
  2466.     property Font: IFontDisp dispid -512;
  2467.     property ParentColor: WordBool dispid 6;
  2468.     property ParentCtl3D: WordBool dispid 7;
  2469.     property ParentFont: WordBool dispid 8;
  2470.     property Visible: WordBool dispid 9;
  2471.     property DoubleBuffered: WordBool dispid 12;
  2472.     procedure FlipChildren(AllLevels: WordBool); dispid 13;
  2473.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 16;
  2474.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 17;
  2475.     function GetControlsAlignment: TxAlignment; dispid 18;
  2476.     procedure InitiateAction; dispid 20;
  2477.     function IsRightToLeft: WordBool; dispid 21;
  2478.     function UseRightToLeftAlignment: WordBool; dispid 26;
  2479.     function UseRightToLeftReading: WordBool; dispid 27;
  2480.     function UseRightToLeftScrollBar: WordBool; dispid 28;
  2481.     property Cursor: Smallint dispid 29;
  2482.     function ClassNameIs(const Name: WideString): WordBool; dispid 33;
  2483.     procedure AboutBox; dispid -552;
  2484.   end;
  2485.  
  2486. // *********************************************************************//
  2487. // DispIntf:  IGroupBoxXEvents
  2488. // Flags:     (0)
  2489. // GUID:      {695CDB2D-02E5-11D2-B20D-00C04FA368D4}
  2490. // *********************************************************************//
  2491.   IGroupBoxXEvents = dispinterface
  2492.     ['{695CDB2D-02E5-11D2-B20D-00C04FA368D4}']
  2493.     procedure OnClick; dispid 1;
  2494.     procedure OnDblClick; dispid 2;
  2495.   end;
  2496.  
  2497. // *********************************************************************//
  2498. // Interface: IHotKeyX
  2499. // Flags:     (4416) Dual OleAutomation Dispatchable
  2500. // GUID:      {695CDB32-02E5-11D2-B20D-00C04FA368D4}
  2501. // *********************************************************************//
  2502.   IHotKeyX = interface(IDispatch)
  2503.     ['{695CDB32-02E5-11D2-B20D-00C04FA368D4}']
  2504.     function Get_AutoSize: WordBool; safecall;
  2505.     procedure Set_AutoSize(Value: WordBool); safecall;
  2506.     function Get_BiDiMode: TxBiDiMode; safecall;
  2507.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  2508.     function Get_Enabled: WordBool; safecall;
  2509.     procedure Set_Enabled(Value: WordBool); safecall;
  2510.     function Get_HotKey: Smallint; safecall;
  2511.     procedure Set_HotKey(Value: Smallint); safecall;
  2512.     function Get_Visible: WordBool; safecall;
  2513.     procedure Set_Visible(Value: WordBool); safecall;
  2514.     function Get_DoubleBuffered: WordBool; safecall;
  2515.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  2516.     procedure FlipChildren(AllLevels: WordBool); safecall;
  2517.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  2518.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  2519.     function GetControlsAlignment: TxAlignment; safecall;
  2520.     procedure InitiateAction; safecall;
  2521.     function IsRightToLeft: WordBool; safecall;
  2522.     function UseRightToLeftAlignment: WordBool; safecall;
  2523.     function UseRightToLeftReading: WordBool; safecall;
  2524.     function UseRightToLeftScrollBar: WordBool; safecall;
  2525.     function Get_Cursor: Smallint; safecall;
  2526.     procedure Set_Cursor(Value: Smallint); safecall;
  2527.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  2528.     procedure AboutBox; safecall;
  2529.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2530.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  2531.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2532.     property HotKey: Smallint read Get_HotKey write Set_HotKey;
  2533.     property Visible: WordBool read Get_Visible write Set_Visible;
  2534.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  2535.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2536.   end;
  2537.  
  2538. // *********************************************************************//
  2539. // DispIntf:  IHotKeyXDisp
  2540. // Flags:     (4416) Dual OleAutomation Dispatchable
  2541. // GUID:      {695CDB32-02E5-11D2-B20D-00C04FA368D4}
  2542. // *********************************************************************//
  2543.   IHotKeyXDisp = dispinterface
  2544.     ['{695CDB32-02E5-11D2-B20D-00C04FA368D4}']
  2545.     property AutoSize: WordBool dispid 1;
  2546.     property BiDiMode: TxBiDiMode dispid 2;
  2547.     property Enabled: WordBool dispid -514;
  2548.     property HotKey: Smallint dispid 3;
  2549.     property Visible: WordBool dispid 4;
  2550.     property DoubleBuffered: WordBool dispid 7;
  2551.     procedure FlipChildren(AllLevels: WordBool); dispid 8;
  2552.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 11;
  2553.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 12;
  2554.     function GetControlsAlignment: TxAlignment; dispid 13;
  2555.     procedure InitiateAction; dispid 15;
  2556.     function IsRightToLeft: WordBool; dispid 16;
  2557.     function UseRightToLeftAlignment: WordBool; dispid 21;
  2558.     function UseRightToLeftReading: WordBool; dispid 22;
  2559.     function UseRightToLeftScrollBar: WordBool; dispid 23;
  2560.     property Cursor: Smallint dispid 24;
  2561.     function ClassNameIs(const Name: WideString): WordBool; dispid 28;
  2562.     procedure AboutBox; dispid -552;
  2563.   end;
  2564.  
  2565. // *********************************************************************//
  2566. // DispIntf:  IHotKeyXEvents
  2567. // Flags:     (0)
  2568. // GUID:      {695CDB34-02E5-11D2-B20D-00C04FA368D4}
  2569. // *********************************************************************//
  2570.   IHotKeyXEvents = dispinterface
  2571.     ['{695CDB34-02E5-11D2-B20D-00C04FA368D4}']
  2572.   end;
  2573.  
  2574. // *********************************************************************//
  2575. // Interface: IListBoxX
  2576. // Flags:     (4416) Dual OleAutomation Dispatchable
  2577. // GUID:      {695CDB39-02E5-11D2-B20D-00C04FA368D4}
  2578. // *********************************************************************//
  2579.   IListBoxX = interface(IDispatch)
  2580.     ['{695CDB39-02E5-11D2-B20D-00C04FA368D4}']
  2581.     function Get_BiDiMode: TxBiDiMode; safecall;
  2582.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  2583.     function Get_BorderStyle: TxBorderStyle; safecall;
  2584.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  2585.     function Get_Color: OLE_COLOR; safecall;
  2586.     procedure Set_Color(Value: OLE_COLOR); safecall;
  2587.     function Get_Columns: Integer; safecall;
  2588.     procedure Set_Columns(Value: Integer); safecall;
  2589.     function Get_Ctl3D: WordBool; safecall;
  2590.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2591.     function Get_DragCursor: Smallint; safecall;
  2592.     procedure Set_DragCursor(Value: Smallint); safecall;
  2593.     function Get_DragMode: TxDragMode; safecall;
  2594.     procedure Set_DragMode(Value: TxDragMode); safecall;
  2595.     function Get_Enabled: WordBool; safecall;
  2596.     procedure Set_Enabled(Value: WordBool); safecall;
  2597.     function Get_ExtendedSelect: WordBool; safecall;
  2598.     procedure Set_ExtendedSelect(Value: WordBool); safecall;
  2599.     function Get_Font: IFontDisp; safecall;
  2600.     procedure _Set_Font(const Value: IFontDisp); safecall;
  2601.     procedure Set_Font(const Value: IFontDisp); safecall;
  2602.     function Get_ImeMode: TxImeMode; safecall;
  2603.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  2604.     function Get_ImeName: WideString; safecall;
  2605.     procedure Set_ImeName(const Value: WideString); safecall;
  2606.     function Get_IntegralHeight: WordBool; safecall;
  2607.     procedure Set_IntegralHeight(Value: WordBool); safecall;
  2608.     function Get_ItemHeight: Integer; safecall;
  2609.     procedure Set_ItemHeight(Value: Integer); safecall;
  2610.     function Get_Items: IStrings; safecall;
  2611.     procedure Set_Items(const Value: IStrings); safecall;
  2612.     function Get_MultiSelect: WordBool; safecall;
  2613.     procedure Set_MultiSelect(Value: WordBool); safecall;
  2614.     function Get_ParentColor: WordBool; safecall;
  2615.     procedure Set_ParentColor(Value: WordBool); safecall;
  2616.     function Get_ParentCtl3D: WordBool; safecall;
  2617.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  2618.     function Get_ParentFont: WordBool; safecall;
  2619.     procedure Set_ParentFont(Value: WordBool); safecall;
  2620.     function Get_Sorted: WordBool; safecall;
  2621.     procedure Set_Sorted(Value: WordBool); safecall;
  2622.     function Get_Style: TxListBoxStyle; safecall;
  2623.     procedure Set_Style(Value: TxListBoxStyle); safecall;
  2624.     function Get_TabWidth: Integer; safecall;
  2625.     procedure Set_TabWidth(Value: Integer); safecall;
  2626.     function Get_Visible: WordBool; safecall;
  2627.     procedure Set_Visible(Value: WordBool); safecall;
  2628.     procedure Clear; safecall;
  2629.     function Get_ItemIndex: Integer; safecall;
  2630.     procedure Set_ItemIndex(Value: Integer); safecall;
  2631.     function Get_SelCount: Integer; safecall;
  2632.     function Get_TopIndex: Integer; safecall;
  2633.     procedure Set_TopIndex(Value: Integer); safecall;
  2634.     function Get_DoubleBuffered: WordBool; safecall;
  2635.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  2636.     procedure FlipChildren(AllLevels: WordBool); safecall;
  2637.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  2638.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  2639.     function GetControlsAlignment: TxAlignment; safecall;
  2640.     procedure InitiateAction; safecall;
  2641.     function IsRightToLeft: WordBool; safecall;
  2642.     function UseRightToLeftAlignment: WordBool; safecall;
  2643.     function UseRightToLeftReading: WordBool; safecall;
  2644.     function UseRightToLeftScrollBar: WordBool; safecall;
  2645.     function Get_Cursor: Smallint; safecall;
  2646.     procedure Set_Cursor(Value: Smallint); safecall;
  2647.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  2648.     procedure AboutBox; safecall;
  2649.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  2650.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2651.     property Color: OLE_COLOR read Get_Color write Set_Color;
  2652.     property Columns: Integer read Get_Columns write Set_Columns;
  2653.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2654.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2655.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  2656.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2657.     property ExtendedSelect: WordBool read Get_ExtendedSelect write Set_ExtendedSelect;
  2658.     property Font: IFontDisp read Get_Font write _Set_Font;
  2659.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  2660.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  2661.     property IntegralHeight: WordBool read Get_IntegralHeight write Set_IntegralHeight;
  2662.     property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
  2663.     property Items: IStrings read Get_Items write Set_Items;
  2664.     property MultiSelect: WordBool read Get_MultiSelect write Set_MultiSelect;
  2665.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2666.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  2667.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  2668.     property Sorted: WordBool read Get_Sorted write Set_Sorted;
  2669.     property Style: TxListBoxStyle read Get_Style write Set_Style;
  2670.     property TabWidth: Integer read Get_TabWidth write Set_TabWidth;
  2671.     property Visible: WordBool read Get_Visible write Set_Visible;
  2672.     property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
  2673.     property SelCount: Integer read Get_SelCount;
  2674.     property TopIndex: Integer read Get_TopIndex write Set_TopIndex;
  2675.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  2676.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2677.   end;
  2678.  
  2679. // *********************************************************************//
  2680. // DispIntf:  IListBoxXDisp
  2681. // Flags:     (4416) Dual OleAutomation Dispatchable
  2682. // GUID:      {695CDB39-02E5-11D2-B20D-00C04FA368D4}
  2683. // *********************************************************************//
  2684.   IListBoxXDisp = dispinterface
  2685.     ['{695CDB39-02E5-11D2-B20D-00C04FA368D4}']
  2686.     property BiDiMode: TxBiDiMode dispid 1;
  2687.     property BorderStyle: TxBorderStyle dispid 2;
  2688.     property Color: OLE_COLOR dispid -501;
  2689.     property Columns: Integer dispid 3;
  2690.     property Ctl3D: WordBool dispid 4;
  2691.     property DragCursor: Smallint dispid 5;
  2692.     property DragMode: TxDragMode dispid 6;
  2693.     property Enabled: WordBool dispid -514;
  2694.     property ExtendedSelect: WordBool dispid 7;
  2695.     property Font: IFontDisp dispid -512;
  2696.     property ImeMode: TxImeMode dispid 8;
  2697.     property ImeName: WideString dispid 9;
  2698.     property IntegralHeight: WordBool dispid 10;
  2699.     property ItemHeight: Integer dispid 11;
  2700.     property Items: IStrings dispid 12;
  2701.     property MultiSelect: WordBool dispid 13;
  2702.     property ParentColor: WordBool dispid 14;
  2703.     property ParentCtl3D: WordBool dispid 15;
  2704.     property ParentFont: WordBool dispid 16;
  2705.     property Sorted: WordBool dispid 17;
  2706.     property Style: TxListBoxStyle dispid 18;
  2707.     property TabWidth: Integer dispid 19;
  2708.     property Visible: WordBool dispid 20;
  2709.     procedure Clear; dispid 21;
  2710.     property ItemIndex: Integer dispid 23;
  2711.     property SelCount: Integer readonly dispid 24;
  2712.     property TopIndex: Integer dispid 25;
  2713.     property DoubleBuffered: WordBool dispid 28;
  2714.     procedure FlipChildren(AllLevels: WordBool); dispid 29;
  2715.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 32;
  2716.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 33;
  2717.     function GetControlsAlignment: TxAlignment; dispid 34;
  2718.     procedure InitiateAction; dispid 36;
  2719.     function IsRightToLeft: WordBool; dispid 37;
  2720.     function UseRightToLeftAlignment: WordBool; dispid 42;
  2721.     function UseRightToLeftReading: WordBool; dispid 43;
  2722.     function UseRightToLeftScrollBar: WordBool; dispid 44;
  2723.     property Cursor: Smallint dispid 45;
  2724.     function ClassNameIs(const Name: WideString): WordBool; dispid 49;
  2725.     procedure AboutBox; dispid -552;
  2726.   end;
  2727.  
  2728. // *********************************************************************//
  2729. // DispIntf:  IListBoxXEvents
  2730. // Flags:     (0)
  2731. // GUID:      {695CDB3B-02E5-11D2-B20D-00C04FA368D4}
  2732. // *********************************************************************//
  2733.   IListBoxXEvents = dispinterface
  2734.     ['{695CDB3B-02E5-11D2-B20D-00C04FA368D4}']
  2735.     procedure OnClick; dispid 1;
  2736.     procedure OnDblClick; dispid 2;
  2737.     procedure OnKeyPress(var Key: Smallint); dispid 9;
  2738.     procedure OnMeasureItem(Index: Integer; var Height: Integer); dispid 11;
  2739.   end;
  2740.  
  2741. // *********************************************************************//
  2742. // Interface: IMaskEditX
  2743. // Flags:     (4416) Dual OleAutomation Dispatchable
  2744. // GUID:      {695CDB40-02E5-11D2-B20D-00C04FA368D4}
  2745. // *********************************************************************//
  2746.   IMaskEditX = interface(IDispatch)
  2747.     ['{695CDB40-02E5-11D2-B20D-00C04FA368D4}']
  2748.     function Get_AutoSelect: WordBool; safecall;
  2749.     procedure Set_AutoSelect(Value: WordBool); safecall;
  2750.     function Get_AutoSize: WordBool; safecall;
  2751.     procedure Set_AutoSize(Value: WordBool); safecall;
  2752.     function Get_BiDiMode: TxBiDiMode; safecall;
  2753.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  2754.     function Get_BorderStyle: TxBorderStyle; safecall;
  2755.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  2756.     function Get_CharCase: TxEditCharCase; safecall;
  2757.     procedure Set_CharCase(Value: TxEditCharCase); safecall;
  2758.     function Get_Color: OLE_COLOR; safecall;
  2759.     procedure Set_Color(Value: OLE_COLOR); safecall;
  2760.     function Get_Ctl3D: WordBool; safecall;
  2761.     procedure Set_Ctl3D(Value: WordBool); safecall;
  2762.     function Get_DragCursor: Smallint; safecall;
  2763.     procedure Set_DragCursor(Value: Smallint); safecall;
  2764.     function Get_DragMode: TxDragMode; safecall;
  2765.     procedure Set_DragMode(Value: TxDragMode); safecall;
  2766.     function Get_Enabled: WordBool; safecall;
  2767.     procedure Set_Enabled(Value: WordBool); safecall;
  2768.     function Get_EditMask: WideString; safecall;
  2769.     procedure Set_EditMask(const Value: WideString); safecall;
  2770.     function Get_Font: IFontDisp; safecall;
  2771.     procedure _Set_Font(const Value: IFontDisp); safecall;
  2772.     procedure Set_Font(const Value: IFontDisp); safecall;
  2773.     function Get_ImeMode: TxImeMode; safecall;
  2774.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  2775.     function Get_ImeName: WideString; safecall;
  2776.     procedure Set_ImeName(const Value: WideString); safecall;
  2777.     function Get_MaxLength: Integer; safecall;
  2778.     procedure Set_MaxLength(Value: Integer); safecall;
  2779.     function Get_ParentColor: WordBool; safecall;
  2780.     procedure Set_ParentColor(Value: WordBool); safecall;
  2781.     function Get_ParentCtl3D: WordBool; safecall;
  2782.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  2783.     function Get_ParentFont: WordBool; safecall;
  2784.     procedure Set_ParentFont(Value: WordBool); safecall;
  2785.     function Get_PasswordChar: Smallint; safecall;
  2786.     procedure Set_PasswordChar(Value: Smallint); safecall;
  2787.     function Get_ReadOnly: WordBool; safecall;
  2788.     procedure Set_ReadOnly(Value: WordBool); safecall;
  2789.     function Get_Text: WideString; safecall;
  2790.     procedure Set_Text(const Value: WideString); safecall;
  2791.     function Get_Visible: WordBool; safecall;
  2792.     procedure Set_Visible(Value: WordBool); safecall;
  2793.     procedure ValidateEdit; safecall;
  2794.     procedure Clear; safecall;
  2795.     function Get_IsMasked: WordBool; safecall;
  2796.     function Get_EditText: WideString; safecall;
  2797.     procedure Set_EditText(const Value: WideString); safecall;
  2798.     procedure ClearSelection; safecall;
  2799.     procedure CopyToClipboard; safecall;
  2800.     procedure CutToClipboard; safecall;
  2801.     procedure PasteFromClipboard; safecall;
  2802.     procedure Undo; safecall;
  2803.     procedure ClearUndo; safecall;
  2804.     procedure SelectAll; safecall;
  2805.     function Get_CanUndo: WordBool; safecall;
  2806.     function Get_Modified: WordBool; safecall;
  2807.     procedure Set_Modified(Value: WordBool); safecall;
  2808.     function Get_SelLength: Integer; safecall;
  2809.     procedure Set_SelLength(Value: Integer); safecall;
  2810.     function Get_SelStart: Integer; safecall;
  2811.     procedure Set_SelStart(Value: Integer); safecall;
  2812.     function Get_SelText: WideString; safecall;
  2813.     procedure Set_SelText(const Value: WideString); safecall;
  2814.     function Get_DoubleBuffered: WordBool; safecall;
  2815.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  2816.     procedure FlipChildren(AllLevels: WordBool); safecall;
  2817.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  2818.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  2819.     function GetControlsAlignment: TxAlignment; safecall;
  2820.     procedure InitiateAction; safecall;
  2821.     function IsRightToLeft: WordBool; safecall;
  2822.     function UseRightToLeftAlignment: WordBool; safecall;
  2823.     function UseRightToLeftReading: WordBool; safecall;
  2824.     function UseRightToLeftScrollBar: WordBool; safecall;
  2825.     function Get_Cursor: Smallint; safecall;
  2826.     procedure Set_Cursor(Value: Smallint); safecall;
  2827.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  2828.     procedure AboutBox; safecall;
  2829.     property AutoSelect: WordBool read Get_AutoSelect write Set_AutoSelect;
  2830.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  2831.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  2832.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  2833.     property CharCase: TxEditCharCase read Get_CharCase write Set_CharCase;
  2834.     property Color: OLE_COLOR read Get_Color write Set_Color;
  2835.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  2836.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  2837.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  2838.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  2839.     property EditMask: WideString read Get_EditMask write Set_EditMask;
  2840.     property Font: IFontDisp read Get_Font write _Set_Font;
  2841.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  2842.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  2843.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  2844.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  2845.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  2846.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  2847.     property PasswordChar: Smallint read Get_PasswordChar write Set_PasswordChar;
  2848.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  2849.     property Text: WideString read Get_Text write Set_Text;
  2850.     property Visible: WordBool read Get_Visible write Set_Visible;
  2851.     property IsMasked: WordBool read Get_IsMasked;
  2852.     property EditText: WideString read Get_EditText write Set_EditText;
  2853.     property CanUndo: WordBool read Get_CanUndo;
  2854.     property Modified: WordBool read Get_Modified write Set_Modified;
  2855.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  2856.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  2857.     property SelText: WideString read Get_SelText write Set_SelText;
  2858.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  2859.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  2860.   end;
  2861.  
  2862. // *********************************************************************//
  2863. // DispIntf:  IMaskEditXDisp
  2864. // Flags:     (4416) Dual OleAutomation Dispatchable
  2865. // GUID:      {695CDB40-02E5-11D2-B20D-00C04FA368D4}
  2866. // *********************************************************************//
  2867.   IMaskEditXDisp = dispinterface
  2868.     ['{695CDB40-02E5-11D2-B20D-00C04FA368D4}']
  2869.     property AutoSelect: WordBool dispid 1;
  2870.     property AutoSize: WordBool dispid 2;
  2871.     property BiDiMode: TxBiDiMode dispid 3;
  2872.     property BorderStyle: TxBorderStyle dispid 4;
  2873.     property CharCase: TxEditCharCase dispid 5;
  2874.     property Color: OLE_COLOR dispid -501;
  2875.     property Ctl3D: WordBool dispid 6;
  2876.     property DragCursor: Smallint dispid 7;
  2877.     property DragMode: TxDragMode dispid 8;
  2878.     property Enabled: WordBool dispid -514;
  2879.     property EditMask: WideString dispid 9;
  2880.     property Font: IFontDisp dispid -512;
  2881.     property ImeMode: TxImeMode dispid 10;
  2882.     property ImeName: WideString dispid 11;
  2883.     property MaxLength: Integer dispid 12;
  2884.     property ParentColor: WordBool dispid 13;
  2885.     property ParentCtl3D: WordBool dispid 14;
  2886.     property ParentFont: WordBool dispid 15;
  2887.     property PasswordChar: Smallint dispid 16;
  2888.     property ReadOnly: WordBool dispid 17;
  2889.     property Text: WideString dispid -517;
  2890.     property Visible: WordBool dispid 18;
  2891.     procedure ValidateEdit; dispid 19;
  2892.     procedure Clear; dispid 20;
  2893.     property IsMasked: WordBool readonly dispid 21;
  2894.     property EditText: WideString dispid 22;
  2895.     procedure ClearSelection; dispid 23;
  2896.     procedure CopyToClipboard; dispid 24;
  2897.     procedure CutToClipboard; dispid 25;
  2898.     procedure PasteFromClipboard; dispid 27;
  2899.     procedure Undo; dispid 28;
  2900.     procedure ClearUndo; dispid 29;
  2901.     procedure SelectAll; dispid 31;
  2902.     property CanUndo: WordBool readonly dispid 33;
  2903.     property Modified: WordBool dispid 34;
  2904.     property SelLength: Integer dispid 35;
  2905.     property SelStart: Integer dispid 36;
  2906.     property SelText: WideString dispid 37;
  2907.     property DoubleBuffered: WordBool dispid 39;
  2908.     procedure FlipChildren(AllLevels: WordBool); dispid 40;
  2909.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 43;
  2910.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 44;
  2911.     function GetControlsAlignment: TxAlignment; dispid 45;
  2912.     procedure InitiateAction; dispid 47;
  2913.     function IsRightToLeft: WordBool; dispid 48;
  2914.     function UseRightToLeftAlignment: WordBool; dispid 53;
  2915.     function UseRightToLeftReading: WordBool; dispid 54;
  2916.     function UseRightToLeftScrollBar: WordBool; dispid 55;
  2917.     property Cursor: Smallint dispid 56;
  2918.     function ClassNameIs(const Name: WideString): WordBool; dispid 60;
  2919.     procedure AboutBox; dispid -552;
  2920.   end;
  2921.  
  2922. // *********************************************************************//
  2923. // DispIntf:  IMaskEditXEvents
  2924. // Flags:     (0)
  2925. // GUID:      {695CDB42-02E5-11D2-B20D-00C04FA368D4}
  2926. // *********************************************************************//
  2927.   IMaskEditXEvents = dispinterface
  2928.     ['{695CDB42-02E5-11D2-B20D-00C04FA368D4}']
  2929.     procedure OnChange; dispid 1;
  2930.     procedure OnClick; dispid 2;
  2931.     procedure OnDblClick; dispid 3;
  2932.     procedure OnKeyPress(var Key: Smallint); dispid 9;
  2933.   end;
  2934.  
  2935. // *********************************************************************//
  2936. // Interface: IMediaPlayerX
  2937. // Flags:     (4416) Dual OleAutomation Dispatchable
  2938. // GUID:      {695CDB47-02E5-11D2-B20D-00C04FA368D4}
  2939. // *********************************************************************//
  2940.   IMediaPlayerX = interface(IDispatch)
  2941.     ['{695CDB47-02E5-11D2-B20D-00C04FA368D4}']
  2942.     procedure Open; safecall;
  2943.     procedure Close; safecall;
  2944.     procedure Play; safecall;
  2945.     procedure Stop; safecall;
  2946.     procedure Pause; safecall;
  2947.     procedure Step; safecall;
  2948.     procedure Back; safecall;
  2949.     procedure Previous; safecall;
  2950.     procedure Next; safecall;
  2951.     procedure StartRecording; safecall;
  2952.     procedure Eject; safecall;
  2953.     procedure Save; safecall;
  2954.     procedure PauseOnly; safecall;
  2955.     procedure Resume; safecall;
  2956.     procedure Rewind; safecall;
  2957.     function Get_Error: Integer; safecall;
  2958.     function Get_ErrorMessage: WideString; safecall;
  2959.     function Get_Start: Integer; safecall;
  2960.     function Get_Length: Integer; safecall;
  2961.     function Get_Tracks: Integer; safecall;
  2962.     function Get_Frames: Integer; safecall;
  2963.     procedure Set_Frames(Value: Integer); safecall;
  2964.     function Get_Mode: TxMPModes; safecall;
  2965.     function Get_Position: Integer; safecall;
  2966.     procedure Set_Position(Value: Integer); safecall;
  2967.     function Get_Wait: WordBool; safecall;
  2968.     procedure Set_Wait(Value: WordBool); safecall;
  2969.     function Get_Notify: WordBool; safecall;
  2970.     procedure Set_Notify(Value: WordBool); safecall;
  2971.     function Get_NotifyValue: TxMPNotifyValues; safecall;
  2972.     function Get_StartPos: Integer; safecall;
  2973.     procedure Set_StartPos(Value: Integer); safecall;
  2974.     function Get_EndPos: Integer; safecall;
  2975.     procedure Set_EndPos(Value: Integer); safecall;
  2976.     function Get_DeviceID: Smallint; safecall;
  2977.     function Get_TimeFormat: TxMPTimeFormats; safecall;
  2978.     procedure Set_TimeFormat(Value: TxMPTimeFormats); safecall;
  2979.     function Get_Enabled: WordBool; safecall;
  2980.     procedure Set_Enabled(Value: WordBool); safecall;
  2981.     function Get_AutoEnable: WordBool; safecall;
  2982.     procedure Set_AutoEnable(Value: WordBool); safecall;
  2983.     function Get_AutoOpen: WordBool; safecall;
  2984.     procedure Set_AutoOpen(Value: WordBool); safecall;
  2985.     function Get_AutoRewind: WordBool; safecall;
  2986.     procedure Set_AutoRewind(Value: WordBool); safecall;
  2987.     function Get_DeviceType: TxMPDeviceTypes; safecall;
  2988.     procedure Set_DeviceType(Value: TxMPDeviceTypes); safecall;
  2989.     function Get_FileName: WideString; safecall;
  2990.     procedure Set_FileName(const Value: WideString); safecall;
  2991.     function Get_Shareable: WordBool; safecall;
  2992.     procedure Set_Shareable(Value: WordBool); safecall;
  2993.     function Get_Visible: WordBool; safecall;
  2994.     procedure Set_Visible(Value: WordBool); safecall;
  2995.     function Get_DoubleBuffered: WordBool; safecall;
  2996.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  2997.     procedure FlipChildren(AllLevels: WordBool); safecall;
  2998.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  2999.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  3000.     function GetControlsAlignment: TxAlignment; safecall;
  3001.     procedure InitiateAction; safecall;
  3002.     function IsRightToLeft: WordBool; safecall;
  3003.     function UseRightToLeftAlignment: WordBool; safecall;
  3004.     function UseRightToLeftReading: WordBool; safecall;
  3005.     function UseRightToLeftScrollBar: WordBool; safecall;
  3006.     function Get_BiDiMode: TxBiDiMode; safecall;
  3007.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  3008.     function Get_Cursor: Smallint; safecall;
  3009.     procedure Set_Cursor(Value: Smallint); safecall;
  3010.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  3011.     procedure AboutBox; safecall;
  3012.     property Error: Integer read Get_Error;
  3013.     property ErrorMessage: WideString read Get_ErrorMessage;
  3014.     property Start: Integer read Get_Start;
  3015.     property Length: Integer read Get_Length;
  3016.     property Tracks: Integer read Get_Tracks;
  3017.     property Frames: Integer read Get_Frames write Set_Frames;
  3018.     property Mode: TxMPModes read Get_Mode;
  3019.     property Position: Integer read Get_Position write Set_Position;
  3020.     property Wait: WordBool read Get_Wait write Set_Wait;
  3021.     property Notify: WordBool read Get_Notify write Set_Notify;
  3022.     property NotifyValue: TxMPNotifyValues read Get_NotifyValue;
  3023.     property StartPos: Integer read Get_StartPos write Set_StartPos;
  3024.     property EndPos: Integer read Get_EndPos write Set_EndPos;
  3025.     property DeviceID: Smallint read Get_DeviceID;
  3026.     property TimeFormat: TxMPTimeFormats read Get_TimeFormat write Set_TimeFormat;
  3027.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3028.     property AutoEnable: WordBool read Get_AutoEnable write Set_AutoEnable;
  3029.     property AutoOpen: WordBool read Get_AutoOpen write Set_AutoOpen;
  3030.     property AutoRewind: WordBool read Get_AutoRewind write Set_AutoRewind;
  3031.     property DeviceType: TxMPDeviceTypes read Get_DeviceType write Set_DeviceType;
  3032.     property FileName: WideString read Get_FileName write Set_FileName;
  3033.     property Shareable: WordBool read Get_Shareable write Set_Shareable;
  3034.     property Visible: WordBool read Get_Visible write Set_Visible;
  3035.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  3036.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  3037.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3038.   end;
  3039.  
  3040. // *********************************************************************//
  3041. // DispIntf:  IMediaPlayerXDisp
  3042. // Flags:     (4416) Dual OleAutomation Dispatchable
  3043. // GUID:      {695CDB47-02E5-11D2-B20D-00C04FA368D4}
  3044. // *********************************************************************//
  3045.   IMediaPlayerXDisp = dispinterface
  3046.     ['{695CDB47-02E5-11D2-B20D-00C04FA368D4}']
  3047.     procedure Open; dispid 1;
  3048.     procedure Close; dispid 2;
  3049.     procedure Play; dispid 3;
  3050.     procedure Stop; dispid 4;
  3051.     procedure Pause; dispid 5;
  3052.     procedure Step; dispid 6;
  3053.     procedure Back; dispid 7;
  3054.     procedure Previous; dispid 8;
  3055.     procedure Next; dispid 9;
  3056.     procedure StartRecording; dispid 10;
  3057.     procedure Eject; dispid 11;
  3058.     procedure Save; dispid 12;
  3059.     procedure PauseOnly; dispid 13;
  3060.     procedure Resume; dispid 14;
  3061.     procedure Rewind; dispid 15;
  3062.     property Error: Integer readonly dispid 16;
  3063.     property ErrorMessage: WideString readonly dispid 17;
  3064.     property Start: Integer readonly dispid 18;
  3065.     property Length: Integer readonly dispid 19;
  3066.     property Tracks: Integer readonly dispid 20;
  3067.     property Frames: Integer dispid 21;
  3068.     property Mode: TxMPModes readonly dispid 22;
  3069.     property Position: Integer dispid 23;
  3070.     property Wait: WordBool dispid 24;
  3071.     property Notify: WordBool dispid 25;
  3072.     property NotifyValue: TxMPNotifyValues readonly dispid 26;
  3073.     property StartPos: Integer dispid 27;
  3074.     property EndPos: Integer dispid 28;
  3075.     property DeviceID: Smallint readonly dispid 29;
  3076.     property TimeFormat: TxMPTimeFormats dispid 30;
  3077.     property Enabled: WordBool dispid -514;
  3078.     property AutoEnable: WordBool dispid 31;
  3079.     property AutoOpen: WordBool dispid 32;
  3080.     property AutoRewind: WordBool dispid 33;
  3081.     property DeviceType: TxMPDeviceTypes dispid 34;
  3082.     property FileName: WideString dispid 35;
  3083.     property Shareable: WordBool dispid 36;
  3084.     property Visible: WordBool dispid 37;
  3085.     property DoubleBuffered: WordBool dispid 40;
  3086.     procedure FlipChildren(AllLevels: WordBool); dispid 41;
  3087.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 44;
  3088.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 45;
  3089.     function GetControlsAlignment: TxAlignment; dispid 46;
  3090.     procedure InitiateAction; dispid 48;
  3091.     function IsRightToLeft: WordBool; dispid 49;
  3092.     function UseRightToLeftAlignment: WordBool; dispid 54;
  3093.     function UseRightToLeftReading: WordBool; dispid 55;
  3094.     function UseRightToLeftScrollBar: WordBool; dispid 56;
  3095.     property BiDiMode: TxBiDiMode dispid 57;
  3096.     property Cursor: Smallint dispid 58;
  3097.     function ClassNameIs(const Name: WideString): WordBool; dispid 62;
  3098.     procedure AboutBox; dispid -552;
  3099.   end;
  3100.  
  3101. // *********************************************************************//
  3102. // DispIntf:  IMediaPlayerXEvents
  3103. // Flags:     (0)
  3104. // GUID:      {695CDB49-02E5-11D2-B20D-00C04FA368D4}
  3105. // *********************************************************************//
  3106.   IMediaPlayerXEvents = dispinterface
  3107.     ['{695CDB49-02E5-11D2-B20D-00C04FA368D4}']
  3108.     procedure OnClick(Button: TxMPBtnType; var DoDefault: WordBool); dispid 1;
  3109.     procedure OnPostClick(Button: TxMPBtnType); dispid 2;
  3110.     procedure OnNotify; dispid 3;
  3111.   end;
  3112.  
  3113. // *********************************************************************//
  3114. // Interface: IMemoX
  3115. // Flags:     (4416) Dual OleAutomation Dispatchable
  3116. // GUID:      {695CDB53-02E5-11D2-B20D-00C04FA368D4}
  3117. // *********************************************************************//
  3118.   IMemoX = interface(IDispatch)
  3119.     ['{695CDB53-02E5-11D2-B20D-00C04FA368D4}']
  3120.     function Get_Alignment: TxAlignment; safecall;
  3121.     procedure Set_Alignment(Value: TxAlignment); safecall;
  3122.     function Get_BiDiMode: TxBiDiMode; safecall;
  3123.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  3124.     function Get_BorderStyle: TxBorderStyle; safecall;
  3125.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  3126.     function Get_Color: OLE_COLOR; safecall;
  3127.     procedure Set_Color(Value: OLE_COLOR); safecall;
  3128.     function Get_Ctl3D: WordBool; safecall;
  3129.     procedure Set_Ctl3D(Value: WordBool); safecall;
  3130.     function Get_DragCursor: Smallint; safecall;
  3131.     procedure Set_DragCursor(Value: Smallint); safecall;
  3132.     function Get_DragMode: TxDragMode; safecall;
  3133.     procedure Set_DragMode(Value: TxDragMode); safecall;
  3134.     function Get_Enabled: WordBool; safecall;
  3135.     procedure Set_Enabled(Value: WordBool); safecall;
  3136.     function Get_Font: IFontDisp; safecall;
  3137.     procedure _Set_Font(const Value: IFontDisp); safecall;
  3138.     procedure Set_Font(const Value: IFontDisp); safecall;
  3139.     function Get_HideSelection: WordBool; safecall;
  3140.     procedure Set_HideSelection(Value: WordBool); safecall;
  3141.     function Get_ImeMode: TxImeMode; safecall;
  3142.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  3143.     function Get_ImeName: WideString; safecall;
  3144.     procedure Set_ImeName(const Value: WideString); safecall;
  3145.     function Get_Lines: IStrings; safecall;
  3146.     procedure Set_Lines(const Value: IStrings); safecall;
  3147.     function Get_MaxLength: Integer; safecall;
  3148.     procedure Set_MaxLength(Value: Integer); safecall;
  3149.     function Get_OEMConvert: WordBool; safecall;
  3150.     procedure Set_OEMConvert(Value: WordBool); safecall;
  3151.     function Get_ParentColor: WordBool; safecall;
  3152.     procedure Set_ParentColor(Value: WordBool); safecall;
  3153.     function Get_ParentCtl3D: WordBool; safecall;
  3154.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  3155.     function Get_ParentFont: WordBool; safecall;
  3156.     procedure Set_ParentFont(Value: WordBool); safecall;
  3157.     function Get_ReadOnly: WordBool; safecall;
  3158.     procedure Set_ReadOnly(Value: WordBool); safecall;
  3159.     function Get_ScrollBars: TxScrollStyle; safecall;
  3160.     procedure Set_ScrollBars(Value: TxScrollStyle); safecall;
  3161.     function Get_Visible: WordBool; safecall;
  3162.     procedure Set_Visible(Value: WordBool); safecall;
  3163.     function Get_WantReturns: WordBool; safecall;
  3164.     procedure Set_WantReturns(Value: WordBool); safecall;
  3165.     function Get_WantTabs: WordBool; safecall;
  3166.     procedure Set_WantTabs(Value: WordBool); safecall;
  3167.     function Get_WordWrap: WordBool; safecall;
  3168.     procedure Set_WordWrap(Value: WordBool); safecall;
  3169.     function GetControlsAlignment: TxAlignment; safecall;
  3170.     procedure Clear; safecall;
  3171.     procedure ClearSelection; safecall;
  3172.     procedure CopyToClipboard; safecall;
  3173.     procedure CutToClipboard; safecall;
  3174.     procedure PasteFromClipboard; safecall;
  3175.     procedure Undo; safecall;
  3176.     procedure ClearUndo; safecall;
  3177.     procedure SelectAll; safecall;
  3178.     function Get_CanUndo: WordBool; safecall;
  3179.     function Get_Modified: WordBool; safecall;
  3180.     procedure Set_Modified(Value: WordBool); safecall;
  3181.     function Get_SelLength: Integer; safecall;
  3182.     procedure Set_SelLength(Value: Integer); safecall;
  3183.     function Get_SelStart: Integer; safecall;
  3184.     procedure Set_SelStart(Value: Integer); safecall;
  3185.     function Get_SelText: WideString; safecall;
  3186.     procedure Set_SelText(const Value: WideString); safecall;
  3187.     function Get_Text: WideString; safecall;
  3188.     procedure Set_Text(const Value: WideString); safecall;
  3189.     function Get_DoubleBuffered: WordBool; safecall;
  3190.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  3191.     procedure FlipChildren(AllLevels: WordBool); safecall;
  3192.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  3193.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  3194.     procedure InitiateAction; safecall;
  3195.     function IsRightToLeft: WordBool; safecall;
  3196.     function UseRightToLeftAlignment: WordBool; safecall;
  3197.     function UseRightToLeftReading: WordBool; safecall;
  3198.     function UseRightToLeftScrollBar: WordBool; safecall;
  3199.     function Get_Cursor: Smallint; safecall;
  3200.     procedure Set_Cursor(Value: Smallint); safecall;
  3201.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  3202.     procedure AboutBox; safecall;
  3203.     property Alignment: TxAlignment read Get_Alignment write Set_Alignment;
  3204.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  3205.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  3206.     property Color: OLE_COLOR read Get_Color write Set_Color;
  3207.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  3208.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  3209.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  3210.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3211.     property Font: IFontDisp read Get_Font write _Set_Font;
  3212.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  3213.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  3214.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  3215.     property Lines: IStrings read Get_Lines write Set_Lines;
  3216.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  3217.     property OEMConvert: WordBool read Get_OEMConvert write Set_OEMConvert;
  3218.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  3219.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  3220.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  3221.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  3222.     property ScrollBars: TxScrollStyle read Get_ScrollBars write Set_ScrollBars;
  3223.     property Visible: WordBool read Get_Visible write Set_Visible;
  3224.     property WantReturns: WordBool read Get_WantReturns write Set_WantReturns;
  3225.     property WantTabs: WordBool read Get_WantTabs write Set_WantTabs;
  3226.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  3227.     property CanUndo: WordBool read Get_CanUndo;
  3228.     property Modified: WordBool read Get_Modified write Set_Modified;
  3229.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  3230.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  3231.     property SelText: WideString read Get_SelText write Set_SelText;
  3232.     property Text: WideString read Get_Text write Set_Text;
  3233.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  3234.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3235.   end;
  3236.  
  3237. // *********************************************************************//
  3238. // DispIntf:  IMemoXDisp
  3239. // Flags:     (4416) Dual OleAutomation Dispatchable
  3240. // GUID:      {695CDB53-02E5-11D2-B20D-00C04FA368D4}
  3241. // *********************************************************************//
  3242.   IMemoXDisp = dispinterface
  3243.     ['{695CDB53-02E5-11D2-B20D-00C04FA368D4}']
  3244.     property Alignment: TxAlignment dispid 1;
  3245.     property BiDiMode: TxBiDiMode dispid 2;
  3246.     property BorderStyle: TxBorderStyle dispid 3;
  3247.     property Color: OLE_COLOR dispid -501;
  3248.     property Ctl3D: WordBool dispid 4;
  3249.     property DragCursor: Smallint dispid 5;
  3250.     property DragMode: TxDragMode dispid 6;
  3251.     property Enabled: WordBool dispid -514;
  3252.     property Font: IFontDisp dispid -512;
  3253.     property HideSelection: WordBool dispid 7;
  3254.     property ImeMode: TxImeMode dispid 8;
  3255.     property ImeName: WideString dispid 9;
  3256.     property Lines: IStrings dispid 10;
  3257.     property MaxLength: Integer dispid 11;
  3258.     property OEMConvert: WordBool dispid 12;
  3259.     property ParentColor: WordBool dispid 13;
  3260.     property ParentCtl3D: WordBool dispid 14;
  3261.     property ParentFont: WordBool dispid 15;
  3262.     property ReadOnly: WordBool dispid 16;
  3263.     property ScrollBars: TxScrollStyle dispid 17;
  3264.     property Visible: WordBool dispid 18;
  3265.     property WantReturns: WordBool dispid 19;
  3266.     property WantTabs: WordBool dispid 20;
  3267.     property WordWrap: WordBool dispid 21;
  3268.     function GetControlsAlignment: TxAlignment; dispid 22;
  3269.     procedure Clear; dispid 23;
  3270.     procedure ClearSelection; dispid 24;
  3271.     procedure CopyToClipboard; dispid 25;
  3272.     procedure CutToClipboard; dispid 26;
  3273.     procedure PasteFromClipboard; dispid 28;
  3274.     procedure Undo; dispid 29;
  3275.     procedure ClearUndo; dispid 30;
  3276.     procedure SelectAll; dispid 32;
  3277.     property CanUndo: WordBool readonly dispid 34;
  3278.     property Modified: WordBool dispid 35;
  3279.     property SelLength: Integer dispid 36;
  3280.     property SelStart: Integer dispid 37;
  3281.     property SelText: WideString dispid 38;
  3282.     property Text: WideString dispid -517;
  3283.     property DoubleBuffered: WordBool dispid 40;
  3284.     procedure FlipChildren(AllLevels: WordBool); dispid 41;
  3285.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 44;
  3286.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 45;
  3287.     procedure InitiateAction; dispid 47;
  3288.     function IsRightToLeft: WordBool; dispid 48;
  3289.     function UseRightToLeftAlignment: WordBool; dispid 53;
  3290.     function UseRightToLeftReading: WordBool; dispid 54;
  3291.     function UseRightToLeftScrollBar: WordBool; dispid 55;
  3292.     property Cursor: Smallint dispid 56;
  3293.     function ClassNameIs(const Name: WideString): WordBool; dispid 60;
  3294.     procedure AboutBox; dispid -552;
  3295.   end;
  3296.  
  3297. // *********************************************************************//
  3298. // DispIntf:  IMemoXEvents
  3299. // Flags:     (0)
  3300. // GUID:      {695CDB55-02E5-11D2-B20D-00C04FA368D4}
  3301. // *********************************************************************//
  3302.   IMemoXEvents = dispinterface
  3303.     ['{695CDB55-02E5-11D2-B20D-00C04FA368D4}']
  3304.     procedure OnChange; dispid 1;
  3305.     procedure OnClick; dispid 2;
  3306.     procedure OnDblClick; dispid 3;
  3307.     procedure OnKeyPress(var Key: Smallint); dispid 9;
  3308.   end;
  3309.  
  3310. // *********************************************************************//
  3311. // Interface: IMonthCalendarX
  3312. // Flags:     (4416) Dual OleAutomation Dispatchable
  3313. // GUID:      {695CDB5A-02E5-11D2-B20D-00C04FA368D4}
  3314. // *********************************************************************//
  3315.   IMonthCalendarX = interface(IDispatch)
  3316.     ['{695CDB5A-02E5-11D2-B20D-00C04FA368D4}']
  3317.     function Get_AutoSize: WordBool; safecall;
  3318.     procedure Set_AutoSize(Value: WordBool); safecall;
  3319.     function Get_BiDiMode: TxBiDiMode; safecall;
  3320.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  3321.     function Get_MultiSelect: WordBool; safecall;
  3322.     procedure Set_MultiSelect(Value: WordBool); safecall;
  3323.     function Get_Date: Double; safecall;
  3324.     procedure Set_Date(Value: Double); safecall;
  3325.     function Get_DragCursor: Smallint; safecall;
  3326.     procedure Set_DragCursor(Value: Smallint); safecall;
  3327.     function Get_DragMode: TxDragMode; safecall;
  3328.     procedure Set_DragMode(Value: TxDragMode); safecall;
  3329.     function Get_Enabled: WordBool; safecall;
  3330.     procedure Set_Enabled(Value: WordBool); safecall;
  3331.     function Get_EndDate: Double; safecall;
  3332.     procedure Set_EndDate(Value: Double); safecall;
  3333.     function Get_FirstDayOfWeek: TxCalDayOfWeek; safecall;
  3334.     procedure Set_FirstDayOfWeek(Value: TxCalDayOfWeek); safecall;
  3335.     function Get_Font: IFontDisp; safecall;
  3336.     procedure _Set_Font(const Value: IFontDisp); safecall;
  3337.     procedure Set_Font(const Value: IFontDisp); safecall;
  3338.     function Get_ImeMode: TxImeMode; safecall;
  3339.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  3340.     function Get_ImeName: WideString; safecall;
  3341.     procedure Set_ImeName(const Value: WideString); safecall;
  3342.     function Get_MaxDate: Double; safecall;
  3343.     procedure Set_MaxDate(Value: Double); safecall;
  3344.     function Get_MaxSelectRange: Integer; safecall;
  3345.     procedure Set_MaxSelectRange(Value: Integer); safecall;
  3346.     function Get_MinDate: Double; safecall;
  3347.     procedure Set_MinDate(Value: Double); safecall;
  3348.     function Get_ParentFont: WordBool; safecall;
  3349.     procedure Set_ParentFont(Value: WordBool); safecall;
  3350.     function Get_ShowToday: WordBool; safecall;
  3351.     procedure Set_ShowToday(Value: WordBool); safecall;
  3352.     function Get_ShowTodayCircle: WordBool; safecall;
  3353.     procedure Set_ShowTodayCircle(Value: WordBool); safecall;
  3354.     function Get_Visible: WordBool; safecall;
  3355.     procedure Set_Visible(Value: WordBool); safecall;
  3356.     function Get_WeekNumbers: WordBool; safecall;
  3357.     procedure Set_WeekNumbers(Value: WordBool); safecall;
  3358.     function Get_DoubleBuffered: WordBool; safecall;
  3359.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  3360.     procedure FlipChildren(AllLevels: WordBool); safecall;
  3361.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  3362.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  3363.     function GetControlsAlignment: TxAlignment; safecall;
  3364.     procedure InitiateAction; safecall;
  3365.     function IsRightToLeft: WordBool; safecall;
  3366.     function UseRightToLeftAlignment: WordBool; safecall;
  3367.     function UseRightToLeftReading: WordBool; safecall;
  3368.     function UseRightToLeftScrollBar: WordBool; safecall;
  3369.     function Get_Cursor: Smallint; safecall;
  3370.     procedure Set_Cursor(Value: Smallint); safecall;
  3371.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  3372.     procedure AboutBox; safecall;
  3373.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  3374.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  3375.     property MultiSelect: WordBool read Get_MultiSelect write Set_MultiSelect;
  3376.     property Date: Double read Get_Date write Set_Date;
  3377.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  3378.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  3379.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3380.     property EndDate: Double read Get_EndDate write Set_EndDate;
  3381.     property FirstDayOfWeek: TxCalDayOfWeek read Get_FirstDayOfWeek write Set_FirstDayOfWeek;
  3382.     property Font: IFontDisp read Get_Font write _Set_Font;
  3383.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  3384.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  3385.     property MaxDate: Double read Get_MaxDate write Set_MaxDate;
  3386.     property MaxSelectRange: Integer read Get_MaxSelectRange write Set_MaxSelectRange;
  3387.     property MinDate: Double read Get_MinDate write Set_MinDate;
  3388.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  3389.     property ShowToday: WordBool read Get_ShowToday write Set_ShowToday;
  3390.     property ShowTodayCircle: WordBool read Get_ShowTodayCircle write Set_ShowTodayCircle;
  3391.     property Visible: WordBool read Get_Visible write Set_Visible;
  3392.     property WeekNumbers: WordBool read Get_WeekNumbers write Set_WeekNumbers;
  3393.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  3394.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3395.   end;
  3396.  
  3397. // *********************************************************************//
  3398. // DispIntf:  IMonthCalendarXDisp
  3399. // Flags:     (4416) Dual OleAutomation Dispatchable
  3400. // GUID:      {695CDB5A-02E5-11D2-B20D-00C04FA368D4}
  3401. // *********************************************************************//
  3402.   IMonthCalendarXDisp = dispinterface
  3403.     ['{695CDB5A-02E5-11D2-B20D-00C04FA368D4}']
  3404.     property AutoSize: WordBool dispid 1;
  3405.     property BiDiMode: TxBiDiMode dispid 2;
  3406.     property MultiSelect: WordBool dispid 3;
  3407.     property Date: Double dispid 4;
  3408.     property DragCursor: Smallint dispid 5;
  3409.     property DragMode: TxDragMode dispid 6;
  3410.     property Enabled: WordBool dispid -514;
  3411.     property EndDate: Double dispid 7;
  3412.     property FirstDayOfWeek: TxCalDayOfWeek dispid 8;
  3413.     property Font: IFontDisp dispid -512;
  3414.     property ImeMode: TxImeMode dispid 9;
  3415.     property ImeName: WideString dispid 10;
  3416.     property MaxDate: Double dispid 11;
  3417.     property MaxSelectRange: Integer dispid 12;
  3418.     property MinDate: Double dispid 13;
  3419.     property ParentFont: WordBool dispid 14;
  3420.     property ShowToday: WordBool dispid 15;
  3421.     property ShowTodayCircle: WordBool dispid 16;
  3422.     property Visible: WordBool dispid 17;
  3423.     property WeekNumbers: WordBool dispid 18;
  3424.     property DoubleBuffered: WordBool dispid 22;
  3425.     procedure FlipChildren(AllLevels: WordBool); dispid 23;
  3426.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 26;
  3427.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 27;
  3428.     function GetControlsAlignment: TxAlignment; dispid 28;
  3429.     procedure InitiateAction; dispid 30;
  3430.     function IsRightToLeft: WordBool; dispid 31;
  3431.     function UseRightToLeftAlignment: WordBool; dispid 36;
  3432.     function UseRightToLeftReading: WordBool; dispid 37;
  3433.     function UseRightToLeftScrollBar: WordBool; dispid 38;
  3434.     property Cursor: Smallint dispid 39;
  3435.     function ClassNameIs(const Name: WideString): WordBool; dispid 43;
  3436.     procedure AboutBox; dispid -552;
  3437.   end;
  3438.  
  3439. // *********************************************************************//
  3440. // DispIntf:  IMonthCalendarXEvents
  3441. // Flags:     (0)
  3442. // GUID:      {695CDB5C-02E5-11D2-B20D-00C04FA368D4}
  3443. // *********************************************************************//
  3444.   IMonthCalendarXEvents = dispinterface
  3445.     ['{695CDB5C-02E5-11D2-B20D-00C04FA368D4}']
  3446.     procedure OnClick; dispid 1;
  3447.     procedure OnDblClick; dispid 2;
  3448.     procedure OnGetMonthInfo(Month: Integer; var MonthBoldInfo: Integer); dispid 7;
  3449.     procedure OnKeyPress(var Key: Smallint); dispid 9;
  3450.   end;
  3451.  
  3452. // *********************************************************************//
  3453. // Interface: INotebookX
  3454. // Flags:     (4416) Dual OleAutomation Dispatchable
  3455. // GUID:      {695CDB62-02E5-11D2-B20D-00C04FA368D4}
  3456. // *********************************************************************//
  3457.   INotebookX = interface(IDispatch)
  3458.     ['{695CDB62-02E5-11D2-B20D-00C04FA368D4}']
  3459.     function Get_ActivePage: WideString; safecall;
  3460.     procedure Set_ActivePage(const Value: WideString); safecall;
  3461.     function Get_Color: OLE_COLOR; safecall;
  3462.     procedure Set_Color(Value: OLE_COLOR); safecall;
  3463.     function Get_Ctl3D: WordBool; safecall;
  3464.     procedure Set_Ctl3D(Value: WordBool); safecall;
  3465.     function Get_DragCursor: Smallint; safecall;
  3466.     procedure Set_DragCursor(Value: Smallint); safecall;
  3467.     function Get_DragMode: TxDragMode; safecall;
  3468.     procedure Set_DragMode(Value: TxDragMode); safecall;
  3469.     function Get_Font: IFontDisp; safecall;
  3470.     procedure _Set_Font(const Value: IFontDisp); safecall;
  3471.     procedure Set_Font(const Value: IFontDisp); safecall;
  3472.     function Get_Enabled: WordBool; safecall;
  3473.     procedure Set_Enabled(Value: WordBool); safecall;
  3474.     function Get_PageIndex: Integer; safecall;
  3475.     procedure Set_PageIndex(Value: Integer); safecall;
  3476.     function Get_Pages: IStrings; safecall;
  3477.     procedure Set_Pages(const Value: IStrings); safecall;
  3478.     function Get_ParentColor: WordBool; safecall;
  3479.     procedure Set_ParentColor(Value: WordBool); safecall;
  3480.     function Get_ParentCtl3D: WordBool; safecall;
  3481.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  3482.     function Get_ParentFont: WordBool; safecall;
  3483.     procedure Set_ParentFont(Value: WordBool); safecall;
  3484.     function Get_Visible: WordBool; safecall;
  3485.     procedure Set_Visible(Value: WordBool); safecall;
  3486.     function Get_DoubleBuffered: WordBool; safecall;
  3487.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  3488.     procedure FlipChildren(AllLevels: WordBool); safecall;
  3489.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  3490.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  3491.     function GetControlsAlignment: TxAlignment; safecall;
  3492.     procedure InitiateAction; safecall;
  3493.     function IsRightToLeft: WordBool; safecall;
  3494.     function UseRightToLeftAlignment: WordBool; safecall;
  3495.     function UseRightToLeftReading: WordBool; safecall;
  3496.     function UseRightToLeftScrollBar: WordBool; safecall;
  3497.     function Get_BiDiMode: TxBiDiMode; safecall;
  3498.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  3499.     function Get_Cursor: Smallint; safecall;
  3500.     procedure Set_Cursor(Value: Smallint); safecall;
  3501.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  3502.     procedure AboutBox; safecall;
  3503.     property ActivePage: WideString read Get_ActivePage write Set_ActivePage;
  3504.     property Color: OLE_COLOR read Get_Color write Set_Color;
  3505.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  3506.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  3507.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  3508.     property Font: IFontDisp read Get_Font write _Set_Font;
  3509.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3510.     property PageIndex: Integer read Get_PageIndex write Set_PageIndex;
  3511.     property Pages: IStrings read Get_Pages write Set_Pages;
  3512.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  3513.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  3514.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  3515.     property Visible: WordBool read Get_Visible write Set_Visible;
  3516.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  3517.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  3518.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3519.   end;
  3520.  
  3521. // *********************************************************************//
  3522. // DispIntf:  INotebookXDisp
  3523. // Flags:     (4416) Dual OleAutomation Dispatchable
  3524. // GUID:      {695CDB62-02E5-11D2-B20D-00C04FA368D4}
  3525. // *********************************************************************//
  3526.   INotebookXDisp = dispinterface
  3527.     ['{695CDB62-02E5-11D2-B20D-00C04FA368D4}']
  3528.     property ActivePage: WideString dispid 1;
  3529.     property Color: OLE_COLOR dispid -501;
  3530.     property Ctl3D: WordBool dispid 2;
  3531.     property DragCursor: Smallint dispid 3;
  3532.     property DragMode: TxDragMode dispid 4;
  3533.     property Font: IFontDisp dispid -512;
  3534.     property Enabled: WordBool dispid -514;
  3535.     property PageIndex: Integer dispid 5;
  3536.     property Pages: IStrings dispid 6;
  3537.     property ParentColor: WordBool dispid 7;
  3538.     property ParentCtl3D: WordBool dispid 8;
  3539.     property ParentFont: WordBool dispid 9;
  3540.     property Visible: WordBool dispid 10;
  3541.     property DoubleBuffered: WordBool dispid 13;
  3542.     procedure FlipChildren(AllLevels: WordBool); dispid 14;
  3543.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 17;
  3544.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 18;
  3545.     function GetControlsAlignment: TxAlignment; dispid 19;
  3546.     procedure InitiateAction; dispid 21;
  3547.     function IsRightToLeft: WordBool; dispid 22;
  3548.     function UseRightToLeftAlignment: WordBool; dispid 27;
  3549.     function UseRightToLeftReading: WordBool; dispid 28;
  3550.     function UseRightToLeftScrollBar: WordBool; dispid 29;
  3551.     property BiDiMode: TxBiDiMode dispid 30;
  3552.     property Cursor: Smallint dispid 31;
  3553.     function ClassNameIs(const Name: WideString): WordBool; dispid 35;
  3554.     procedure AboutBox; dispid -552;
  3555.   end;
  3556.  
  3557. // *********************************************************************//
  3558. // DispIntf:  INotebookXEvents
  3559. // Flags:     (0)
  3560. // GUID:      {695CDB64-02E5-11D2-B20D-00C04FA368D4}
  3561. // *********************************************************************//
  3562.   INotebookXEvents = dispinterface
  3563.     ['{695CDB64-02E5-11D2-B20D-00C04FA368D4}']
  3564.     procedure OnClick; dispid 1;
  3565.     procedure OnDblClick; dispid 2;
  3566.     procedure OnPageChanged; dispid 10;
  3567.   end;
  3568.  
  3569. // *********************************************************************//
  3570. // Interface: IOutlineX
  3571. // Flags:     (4416) Dual OleAutomation Dispatchable
  3572. // GUID:      {695CDB69-02E5-11D2-B20D-00C04FA368D4}
  3573. // *********************************************************************//
  3574.   IOutlineX = interface(IDispatch)
  3575.     ['{695CDB69-02E5-11D2-B20D-00C04FA368D4}']
  3576.     function Get_Lines: IStrings; safecall;
  3577.     procedure Set_Lines(const Value: IStrings); safecall;
  3578.     function Get_OutlineStyle: TxOutlineStyle; safecall;
  3579.     procedure Set_OutlineStyle(Value: TxOutlineStyle); safecall;
  3580.     function Get_Style: TxOutlineType; safecall;
  3581.     procedure Set_Style(Value: TxOutlineType); safecall;
  3582.     function Get_ItemHeight: Integer; safecall;
  3583.     procedure Set_ItemHeight(Value: Integer); safecall;
  3584.     function Get_Enabled: WordBool; safecall;
  3585.     procedure Set_Enabled(Value: WordBool); safecall;
  3586.     function Get_Font: IFontDisp; safecall;
  3587.     procedure _Set_Font(const Value: IFontDisp); safecall;
  3588.     procedure Set_Font(const Value: IFontDisp); safecall;
  3589.     function Get_Color: OLE_COLOR; safecall;
  3590.     procedure Set_Color(Value: OLE_COLOR); safecall;
  3591.     function Get_ParentColor: WordBool; safecall;
  3592.     procedure Set_ParentColor(Value: WordBool); safecall;
  3593.     function Get_ParentCtl3D: WordBool; safecall;
  3594.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  3595.     function Get_Ctl3D: WordBool; safecall;
  3596.     procedure Set_Ctl3D(Value: WordBool); safecall;
  3597.     function Get_Visible: WordBool; safecall;
  3598.     procedure Set_Visible(Value: WordBool); safecall;
  3599.     function Get_DragMode: TxDragMode; safecall;
  3600.     procedure Set_DragMode(Value: TxDragMode); safecall;
  3601.     function Get_DragCursor: Smallint; safecall;
  3602.     procedure Set_DragCursor(Value: Smallint); safecall;
  3603.     function Get_BorderStyle: TxBorderStyle; safecall;
  3604.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  3605.     function Get_ItemSeparator: WideString; safecall;
  3606.     procedure Set_ItemSeparator(const Value: WideString); safecall;
  3607.     function Get_ParentFont: WordBool; safecall;
  3608.     procedure Set_ParentFont(Value: WordBool); safecall;
  3609.     function Get_ScrollBars: TxScrollStyle; safecall;
  3610.     procedure Set_ScrollBars(Value: TxScrollStyle); safecall;
  3611.     function Add(Index: Integer; const Text: WideString): Integer; safecall;
  3612.     function AddChild(Index: Integer; const Text: WideString): Integer; safecall;
  3613.     function Insert(Index: Integer; const Text: WideString): Integer; safecall;
  3614.     procedure Delete(Index: Integer); safecall;
  3615.     function GetItem(X: Integer; Y: Integer): Integer; safecall;
  3616.     function GetTextItem(const Param1: WideString): Integer; safecall;
  3617.     procedure FullExpand; safecall;
  3618.     procedure FullCollapse; safecall;
  3619.     procedure LoadFromFile(const FileName: WideString); safecall;
  3620.     procedure SaveToFile(const FileName: WideString); safecall;
  3621.     procedure BeginUpdate; safecall;
  3622.     procedure EndUpdate; safecall;
  3623.     procedure SetUpdateState(Value: WordBool); safecall;
  3624.     procedure Clear; safecall;
  3625.     function Get_ItemCount: Integer; safecall;
  3626.     function Get_SelectedItem: Integer; safecall;
  3627.     procedure Set_SelectedItem(Value: Integer); safecall;
  3628.     function Get_Row: Integer; safecall;
  3629.     procedure Set_Row(Value: Integer); safecall;
  3630.     function Get_DoubleBuffered: WordBool; safecall;
  3631.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  3632.     procedure FlipChildren(AllLevels: WordBool); safecall;
  3633.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  3634.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  3635.     function GetControlsAlignment: TxAlignment; safecall;
  3636.     procedure InitiateAction; safecall;
  3637.     function IsRightToLeft: WordBool; safecall;
  3638.     function UseRightToLeftAlignment: WordBool; safecall;
  3639.     function UseRightToLeftReading: WordBool; safecall;
  3640.     function UseRightToLeftScrollBar: WordBool; safecall;
  3641.     function Get_BiDiMode: TxBiDiMode; safecall;
  3642.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  3643.     function Get_Cursor: Smallint; safecall;
  3644.     procedure Set_Cursor(Value: Smallint); safecall;
  3645.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  3646.     procedure AboutBox; safecall;
  3647.     property Lines: IStrings read Get_Lines write Set_Lines;
  3648.     property OutlineStyle: TxOutlineStyle read Get_OutlineStyle write Set_OutlineStyle;
  3649.     property Style: TxOutlineType read Get_Style write Set_Style;
  3650.     property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
  3651.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3652.     property Font: IFontDisp read Get_Font write _Set_Font;
  3653.     property Color: OLE_COLOR read Get_Color write Set_Color;
  3654.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  3655.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  3656.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  3657.     property Visible: WordBool read Get_Visible write Set_Visible;
  3658.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  3659.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  3660.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  3661.     property ItemSeparator: WideString read Get_ItemSeparator write Set_ItemSeparator;
  3662.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  3663.     property ScrollBars: TxScrollStyle read Get_ScrollBars write Set_ScrollBars;
  3664.     property ItemCount: Integer read Get_ItemCount;
  3665.     property SelectedItem: Integer read Get_SelectedItem write Set_SelectedItem;
  3666.     property Row: Integer read Get_Row write Set_Row;
  3667.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  3668.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  3669.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3670.   end;
  3671.  
  3672. // *********************************************************************//
  3673. // DispIntf:  IOutlineXDisp
  3674. // Flags:     (4416) Dual OleAutomation Dispatchable
  3675. // GUID:      {695CDB69-02E5-11D2-B20D-00C04FA368D4}
  3676. // *********************************************************************//
  3677.   IOutlineXDisp = dispinterface
  3678.     ['{695CDB69-02E5-11D2-B20D-00C04FA368D4}']
  3679.     property Lines: IStrings dispid 1;
  3680.     property OutlineStyle: TxOutlineStyle dispid 2;
  3681.     property Style: TxOutlineType dispid 3;
  3682.     property ItemHeight: Integer dispid 4;
  3683.     property Enabled: WordBool dispid -514;
  3684.     property Font: IFontDisp dispid -512;
  3685.     property Color: OLE_COLOR dispid -501;
  3686.     property ParentColor: WordBool dispid 5;
  3687.     property ParentCtl3D: WordBool dispid 6;
  3688.     property Ctl3D: WordBool dispid 7;
  3689.     property Visible: WordBool dispid 8;
  3690.     property DragMode: TxDragMode dispid 9;
  3691.     property DragCursor: Smallint dispid 10;
  3692.     property BorderStyle: TxBorderStyle dispid 11;
  3693.     property ItemSeparator: WideString dispid 12;
  3694.     property ParentFont: WordBool dispid 13;
  3695.     property ScrollBars: TxScrollStyle dispid 14;
  3696.     function Add(Index: Integer; const Text: WideString): Integer; dispid 15;
  3697.     function AddChild(Index: Integer; const Text: WideString): Integer; dispid 16;
  3698.     function Insert(Index: Integer; const Text: WideString): Integer; dispid 19;
  3699.     procedure Delete(Index: Integer); dispid 21;
  3700.     function GetItem(X: Integer; Y: Integer): Integer; dispid 23;
  3701.     function GetTextItem(const Param1: WideString): Integer; dispid 25;
  3702.     procedure FullExpand; dispid 26;
  3703.     procedure FullCollapse; dispid 27;
  3704.     procedure LoadFromFile(const FileName: WideString); dispid 28;
  3705.     procedure SaveToFile(const FileName: WideString); dispid 30;
  3706.     procedure BeginUpdate; dispid 32;
  3707.     procedure EndUpdate; dispid 33;
  3708.     procedure SetUpdateState(Value: WordBool); dispid 34;
  3709.     procedure Clear; dispid 35;
  3710.     property ItemCount: Integer readonly dispid 36;
  3711.     property SelectedItem: Integer dispid 37;
  3712.     property Row: Integer dispid 38;
  3713.     property DoubleBuffered: WordBool dispid 41;
  3714.     procedure FlipChildren(AllLevels: WordBool); dispid 42;
  3715.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 45;
  3716.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 46;
  3717.     function GetControlsAlignment: TxAlignment; dispid 47;
  3718.     procedure InitiateAction; dispid 49;
  3719.     function IsRightToLeft: WordBool; dispid 50;
  3720.     function UseRightToLeftAlignment: WordBool; dispid 55;
  3721.     function UseRightToLeftReading: WordBool; dispid 56;
  3722.     function UseRightToLeftScrollBar: WordBool; dispid 57;
  3723.     property BiDiMode: TxBiDiMode dispid 58;
  3724.     property Cursor: Smallint dispid 59;
  3725.     function ClassNameIs(const Name: WideString): WordBool; dispid 63;
  3726.     procedure AboutBox; dispid -552;
  3727.   end;
  3728.  
  3729. // *********************************************************************//
  3730. // DispIntf:  IOutlineXEvents
  3731. // Flags:     (0)
  3732. // GUID:      {695CDB6B-02E5-11D2-B20D-00C04FA368D4}
  3733. // *********************************************************************//
  3734.   IOutlineXEvents = dispinterface
  3735.     ['{695CDB6B-02E5-11D2-B20D-00C04FA368D4}']
  3736.     procedure OnExpand(Index: Integer); dispid 1;
  3737.     procedure OnCollapse(Index: Integer); dispid 2;
  3738.     procedure OnClick; dispid 4;
  3739.     procedure OnDblClick; dispid 14;
  3740.     procedure OnKeyPress(var Key: Smallint); dispid 16;
  3741.   end;
  3742.  
  3743. // *********************************************************************//
  3744. // Interface: IPageScrollerX
  3745. // Flags:     (4416) Dual OleAutomation Dispatchable
  3746. // GUID:      {695CDB72-02E5-11D2-B20D-00C04FA368D4}
  3747. // *********************************************************************//
  3748.   IPageScrollerX = interface(IDispatch)
  3749.     ['{695CDB72-02E5-11D2-B20D-00C04FA368D4}']
  3750.     function GetButtonState(Button: TxPageScrollerButton): TxPageScrollerButtonState; safecall;
  3751.     function Get_AutoScroll: WordBool; safecall;
  3752.     procedure Set_AutoScroll(Value: WordBool); safecall;
  3753.     function Get_ButtonSize: Integer; safecall;
  3754.     procedure Set_ButtonSize(Value: Integer); safecall;
  3755.     function Get_Color: OLE_COLOR; safecall;
  3756.     procedure Set_Color(Value: OLE_COLOR); safecall;
  3757.     function Get_DockSite: WordBool; safecall;
  3758.     procedure Set_DockSite(Value: WordBool); safecall;
  3759.     function Get_DragCursor: Smallint; safecall;
  3760.     procedure Set_DragCursor(Value: Smallint); safecall;
  3761.     function Get_DragMode: TxDragMode; safecall;
  3762.     procedure Set_DragMode(Value: TxDragMode); safecall;
  3763.     function Get_DragScroll: WordBool; safecall;
  3764.     procedure Set_DragScroll(Value: WordBool); safecall;
  3765.     function Get_Enabled: WordBool; safecall;
  3766.     procedure Set_Enabled(Value: WordBool); safecall;
  3767.     function Get_Font: IFontDisp; safecall;
  3768.     procedure _Set_Font(const Value: IFontDisp); safecall;
  3769.     procedure Set_Font(const Value: IFontDisp); safecall;
  3770.     function Get_Margin: Integer; safecall;
  3771.     procedure Set_Margin(Value: Integer); safecall;
  3772.     function Get_Orientation: TxPageScrollerOrientation; safecall;
  3773.     procedure Set_Orientation(Value: TxPageScrollerOrientation); safecall;
  3774.     function Get_ParentColor: WordBool; safecall;
  3775.     procedure Set_ParentColor(Value: WordBool); safecall;
  3776.     function Get_ParentFont: WordBool; safecall;
  3777.     procedure Set_ParentFont(Value: WordBool); safecall;
  3778.     function Get_Position: Integer; safecall;
  3779.     procedure Set_Position(Value: Integer); safecall;
  3780.     function Get_Visible: WordBool; safecall;
  3781.     procedure Set_Visible(Value: WordBool); safecall;
  3782.     function Get_DoubleBuffered: WordBool; safecall;
  3783.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  3784.     procedure FlipChildren(AllLevels: WordBool); safecall;
  3785.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  3786.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  3787.     function GetControlsAlignment: TxAlignment; safecall;
  3788.     procedure InitiateAction; safecall;
  3789.     function IsRightToLeft: WordBool; safecall;
  3790.     function UseRightToLeftAlignment: WordBool; safecall;
  3791.     function UseRightToLeftReading: WordBool; safecall;
  3792.     function UseRightToLeftScrollBar: WordBool; safecall;
  3793.     function Get_BiDiMode: TxBiDiMode; safecall;
  3794.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  3795.     function Get_Cursor: Smallint; safecall;
  3796.     procedure Set_Cursor(Value: Smallint); safecall;
  3797.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  3798.     procedure AboutBox; safecall;
  3799.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  3800.     property ButtonSize: Integer read Get_ButtonSize write Set_ButtonSize;
  3801.     property Color: OLE_COLOR read Get_Color write Set_Color;
  3802.     property DockSite: WordBool read Get_DockSite write Set_DockSite;
  3803.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  3804.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  3805.     property DragScroll: WordBool read Get_DragScroll write Set_DragScroll;
  3806.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3807.     property Font: IFontDisp read Get_Font write _Set_Font;
  3808.     property Margin: Integer read Get_Margin write Set_Margin;
  3809.     property Orientation: TxPageScrollerOrientation read Get_Orientation write Set_Orientation;
  3810.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  3811.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  3812.     property Position: Integer read Get_Position write Set_Position;
  3813.     property Visible: WordBool read Get_Visible write Set_Visible;
  3814.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  3815.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  3816.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3817.   end;
  3818.  
  3819. // *********************************************************************//
  3820. // DispIntf:  IPageScrollerXDisp
  3821. // Flags:     (4416) Dual OleAutomation Dispatchable
  3822. // GUID:      {695CDB72-02E5-11D2-B20D-00C04FA368D4}
  3823. // *********************************************************************//
  3824.   IPageScrollerXDisp = dispinterface
  3825.     ['{695CDB72-02E5-11D2-B20D-00C04FA368D4}']
  3826.     function GetButtonState(Button: TxPageScrollerButton): TxPageScrollerButtonState; dispid 1;
  3827.     property AutoScroll: WordBool dispid 2;
  3828.     property ButtonSize: Integer dispid 3;
  3829.     property Color: OLE_COLOR dispid -501;
  3830.     property DockSite: WordBool dispid 4;
  3831.     property DragCursor: Smallint dispid 5;
  3832.     property DragMode: TxDragMode dispid 6;
  3833.     property DragScroll: WordBool dispid 7;
  3834.     property Enabled: WordBool dispid -514;
  3835.     property Font: IFontDisp dispid -512;
  3836.     property Margin: Integer dispid 8;
  3837.     property Orientation: TxPageScrollerOrientation dispid 9;
  3838.     property ParentColor: WordBool dispid 10;
  3839.     property ParentFont: WordBool dispid 11;
  3840.     property Position: Integer dispid 12;
  3841.     property Visible: WordBool dispid 13;
  3842.     property DoubleBuffered: WordBool dispid 16;
  3843.     procedure FlipChildren(AllLevels: WordBool); dispid 17;
  3844.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 20;
  3845.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 21;
  3846.     function GetControlsAlignment: TxAlignment; dispid 22;
  3847.     procedure InitiateAction; dispid 24;
  3848.     function IsRightToLeft: WordBool; dispid 25;
  3849.     function UseRightToLeftAlignment: WordBool; dispid 30;
  3850.     function UseRightToLeftReading: WordBool; dispid 31;
  3851.     function UseRightToLeftScrollBar: WordBool; dispid 32;
  3852.     property BiDiMode: TxBiDiMode dispid 33;
  3853.     property Cursor: Smallint dispid 34;
  3854.     function ClassNameIs(const Name: WideString): WordBool; dispid 38;
  3855.     procedure AboutBox; dispid -552;
  3856.   end;
  3857.  
  3858. // *********************************************************************//
  3859. // DispIntf:  IPageScrollerXEvents
  3860. // Flags:     (0)
  3861. // GUID:      {695CDB74-02E5-11D2-B20D-00C04FA368D4}
  3862. // *********************************************************************//
  3863.   IPageScrollerXEvents = dispinterface
  3864.     ['{695CDB74-02E5-11D2-B20D-00C04FA368D4}']
  3865.     procedure OnClick; dispid 1;
  3866.     procedure OnDblClick; dispid 2;
  3867.     procedure OnKeyPress(var Key: Smallint); dispid 8;
  3868.     procedure OnResize; dispid 10;
  3869.   end;
  3870.  
  3871. // *********************************************************************//
  3872. // Interface: IPanelX
  3873. // Flags:     (4416) Dual OleAutomation Dispatchable
  3874. // GUID:      {695CDB7C-02E5-11D2-B20D-00C04FA368D4}
  3875. // *********************************************************************//
  3876.   IPanelX = interface(IDispatch)
  3877.     ['{695CDB7C-02E5-11D2-B20D-00C04FA368D4}']
  3878.     function Get_Alignment: TxAlignment; safecall;
  3879.     procedure Set_Alignment(Value: TxAlignment); safecall;
  3880.     function Get_AutoSize: WordBool; safecall;
  3881.     procedure Set_AutoSize(Value: WordBool); safecall;
  3882.     function Get_BevelInner: TxBevelCut; safecall;
  3883.     procedure Set_BevelInner(Value: TxBevelCut); safecall;
  3884.     function Get_BevelOuter: TxBevelCut; safecall;
  3885.     procedure Set_BevelOuter(Value: TxBevelCut); safecall;
  3886.     function Get_BiDiMode: TxBiDiMode; safecall;
  3887.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  3888.     function Get_BorderStyle: TxBorderStyle; safecall;
  3889.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  3890.     function Get_Caption: WideString; safecall;
  3891.     procedure Set_Caption(const Value: WideString); safecall;
  3892.     function Get_Color: OLE_COLOR; safecall;
  3893.     procedure Set_Color(Value: OLE_COLOR); safecall;
  3894.     function Get_Ctl3D: WordBool; safecall;
  3895.     procedure Set_Ctl3D(Value: WordBool); safecall;
  3896.     function Get_UseDockManager: WordBool; safecall;
  3897.     procedure Set_UseDockManager(Value: WordBool); safecall;
  3898.     function Get_DockSite: WordBool; safecall;
  3899.     procedure Set_DockSite(Value: WordBool); safecall;
  3900.     function Get_DragCursor: Smallint; safecall;
  3901.     procedure Set_DragCursor(Value: Smallint); safecall;
  3902.     function Get_DragMode: TxDragMode; safecall;
  3903.     procedure Set_DragMode(Value: TxDragMode); safecall;
  3904.     function Get_Enabled: WordBool; safecall;
  3905.     procedure Set_Enabled(Value: WordBool); safecall;
  3906.     function Get_FullRepaint: WordBool; safecall;
  3907.     procedure Set_FullRepaint(Value: WordBool); safecall;
  3908.     function Get_Font: IFontDisp; safecall;
  3909.     procedure _Set_Font(const Value: IFontDisp); safecall;
  3910.     procedure Set_Font(const Value: IFontDisp); safecall;
  3911.     function Get_Locked: WordBool; safecall;
  3912.     procedure Set_Locked(Value: WordBool); safecall;
  3913.     function Get_ParentColor: WordBool; safecall;
  3914.     procedure Set_ParentColor(Value: WordBool); safecall;
  3915.     function Get_ParentCtl3D: WordBool; safecall;
  3916.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  3917.     function Get_ParentFont: WordBool; safecall;
  3918.     procedure Set_ParentFont(Value: WordBool); safecall;
  3919.     function Get_Visible: WordBool; safecall;
  3920.     procedure Set_Visible(Value: WordBool); safecall;
  3921.     function GetControlsAlignment: TxAlignment; safecall;
  3922.     function Get_DoubleBuffered: WordBool; safecall;
  3923.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  3924.     procedure FlipChildren(AllLevels: WordBool); safecall;
  3925.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  3926.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  3927.     procedure InitiateAction; safecall;
  3928.     function IsRightToLeft: WordBool; safecall;
  3929.     function UseRightToLeftAlignment: WordBool; safecall;
  3930.     function UseRightToLeftReading: WordBool; safecall;
  3931.     function UseRightToLeftScrollBar: WordBool; safecall;
  3932.     function Get_Cursor: Smallint; safecall;
  3933.     procedure Set_Cursor(Value: Smallint); safecall;
  3934.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  3935.     procedure AboutBox; safecall;
  3936.     property Alignment: TxAlignment read Get_Alignment write Set_Alignment;
  3937.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  3938.     property BevelInner: TxBevelCut read Get_BevelInner write Set_BevelInner;
  3939.     property BevelOuter: TxBevelCut read Get_BevelOuter write Set_BevelOuter;
  3940.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  3941.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  3942.     property Caption: WideString read Get_Caption write Set_Caption;
  3943.     property Color: OLE_COLOR read Get_Color write Set_Color;
  3944.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  3945.     property UseDockManager: WordBool read Get_UseDockManager write Set_UseDockManager;
  3946.     property DockSite: WordBool read Get_DockSite write Set_DockSite;
  3947.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  3948.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  3949.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  3950.     property FullRepaint: WordBool read Get_FullRepaint write Set_FullRepaint;
  3951.     property Font: IFontDisp read Get_Font write _Set_Font;
  3952.     property Locked: WordBool read Get_Locked write Set_Locked;
  3953.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  3954.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  3955.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  3956.     property Visible: WordBool read Get_Visible write Set_Visible;
  3957.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  3958.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  3959.   end;
  3960.  
  3961. // *********************************************************************//
  3962. // DispIntf:  IPanelXDisp
  3963. // Flags:     (4416) Dual OleAutomation Dispatchable
  3964. // GUID:      {695CDB7C-02E5-11D2-B20D-00C04FA368D4}
  3965. // *********************************************************************//
  3966.   IPanelXDisp = dispinterface
  3967.     ['{695CDB7C-02E5-11D2-B20D-00C04FA368D4}']
  3968.     property Alignment: TxAlignment dispid 1;
  3969.     property AutoSize: WordBool dispid 2;
  3970.     property BevelInner: TxBevelCut dispid 3;
  3971.     property BevelOuter: TxBevelCut dispid 4;
  3972.     property BiDiMode: TxBiDiMode dispid 5;
  3973.     property BorderStyle: TxBorderStyle dispid 6;
  3974.     property Caption: WideString dispid -518;
  3975.     property Color: OLE_COLOR dispid -501;
  3976.     property Ctl3D: WordBool dispid 7;
  3977.     property UseDockManager: WordBool dispid 8;
  3978.     property DockSite: WordBool dispid 9;
  3979.     property DragCursor: Smallint dispid 10;
  3980.     property DragMode: TxDragMode dispid 11;
  3981.     property Enabled: WordBool dispid -514;
  3982.     property FullRepaint: WordBool dispid 12;
  3983.     property Font: IFontDisp dispid -512;
  3984.     property Locked: WordBool dispid 13;
  3985.     property ParentColor: WordBool dispid 14;
  3986.     property ParentCtl3D: WordBool dispid 15;
  3987.     property ParentFont: WordBool dispid 16;
  3988.     property Visible: WordBool dispid 17;
  3989.     function GetControlsAlignment: TxAlignment; dispid 18;
  3990.     property DoubleBuffered: WordBool dispid 21;
  3991.     procedure FlipChildren(AllLevels: WordBool); dispid 22;
  3992.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 25;
  3993.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 26;
  3994.     procedure InitiateAction; dispid 28;
  3995.     function IsRightToLeft: WordBool; dispid 29;
  3996.     function UseRightToLeftAlignment: WordBool; dispid 34;
  3997.     function UseRightToLeftReading: WordBool; dispid 35;
  3998.     function UseRightToLeftScrollBar: WordBool; dispid 36;
  3999.     property Cursor: Smallint dispid 37;
  4000.     function ClassNameIs(const Name: WideString): WordBool; dispid 41;
  4001.     procedure AboutBox; dispid -552;
  4002.   end;
  4003.  
  4004. // *********************************************************************//
  4005. // DispIntf:  IPanelXEvents
  4006. // Flags:     (0)
  4007. // GUID:      {695CDB7E-02E5-11D2-B20D-00C04FA368D4}
  4008. // *********************************************************************//
  4009.   IPanelXEvents = dispinterface
  4010.     ['{695CDB7E-02E5-11D2-B20D-00C04FA368D4}']
  4011.     procedure OnCanResize(var NewWidth: Integer; var NewHeight: Integer; var Resize: WordBool); dispid 1;
  4012.     procedure OnClick; dispid 2;
  4013.     procedure OnConstrainedResize(var MinWidth: Integer; var MinHeight: Integer; 
  4014.                                   var MaxWidth: Integer; var MaxHeight: Integer); dispid 3;
  4015.     procedure OnDblClick; dispid 6;
  4016.     procedure OnResize; dispid 15;
  4017.   end;
  4018.  
  4019. // *********************************************************************//
  4020. // Interface: IProgressBarX
  4021. // Flags:     (4416) Dual OleAutomation Dispatchable
  4022. // GUID:      {695CDB83-02E5-11D2-B20D-00C04FA368D4}
  4023. // *********************************************************************//
  4024.   IProgressBarX = interface(IDispatch)
  4025.     ['{695CDB83-02E5-11D2-B20D-00C04FA368D4}']
  4026.     procedure StepIt; safecall;
  4027.     procedure StepBy(Delta: Integer); safecall;
  4028.     function Get_DragCursor: Smallint; safecall;
  4029.     procedure Set_DragCursor(Value: Smallint); safecall;
  4030.     function Get_DragMode: TxDragMode; safecall;
  4031.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4032.     function Get_Enabled: WordBool; safecall;
  4033.     procedure Set_Enabled(Value: WordBool); safecall;
  4034.     function Get_Min: Integer; safecall;
  4035.     procedure Set_Min(Value: Integer); safecall;
  4036.     function Get_Max: Integer; safecall;
  4037.     procedure Set_Max(Value: Integer); safecall;
  4038.     function Get_Orientation: TxProgressBarOrientation; safecall;
  4039.     procedure Set_Orientation(Value: TxProgressBarOrientation); safecall;
  4040.     function Get_Position: Integer; safecall;
  4041.     procedure Set_Position(Value: Integer); safecall;
  4042.     function Get_Smooth: WordBool; safecall;
  4043.     procedure Set_Smooth(Value: WordBool); safecall;
  4044.     function Get_Step: Integer; safecall;
  4045.     procedure Set_Step(Value: Integer); safecall;
  4046.     function Get_Visible: WordBool; safecall;
  4047.     procedure Set_Visible(Value: WordBool); safecall;
  4048.     function Get_DoubleBuffered: WordBool; safecall;
  4049.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4050.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4051.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4052.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4053.     function GetControlsAlignment: TxAlignment; safecall;
  4054.     procedure InitiateAction; safecall;
  4055.     function IsRightToLeft: WordBool; safecall;
  4056.     function UseRightToLeftAlignment: WordBool; safecall;
  4057.     function UseRightToLeftReading: WordBool; safecall;
  4058.     function UseRightToLeftScrollBar: WordBool; safecall;
  4059.     function Get_BiDiMode: TxBiDiMode; safecall;
  4060.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4061.     function Get_Cursor: Smallint; safecall;
  4062.     procedure Set_Cursor(Value: Smallint); safecall;
  4063.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4064.     procedure AboutBox; safecall;
  4065.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4066.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4067.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4068.     property Min: Integer read Get_Min write Set_Min;
  4069.     property Max: Integer read Get_Max write Set_Max;
  4070.     property Orientation: TxProgressBarOrientation read Get_Orientation write Set_Orientation;
  4071.     property Position: Integer read Get_Position write Set_Position;
  4072.     property Smooth: WordBool read Get_Smooth write Set_Smooth;
  4073.     property Step: Integer read Get_Step write Set_Step;
  4074.     property Visible: WordBool read Get_Visible write Set_Visible;
  4075.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  4076.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  4077.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  4078.   end;
  4079.  
  4080. // *********************************************************************//
  4081. // DispIntf:  IProgressBarXDisp
  4082. // Flags:     (4416) Dual OleAutomation Dispatchable
  4083. // GUID:      {695CDB83-02E5-11D2-B20D-00C04FA368D4}
  4084. // *********************************************************************//
  4085.   IProgressBarXDisp = dispinterface
  4086.     ['{695CDB83-02E5-11D2-B20D-00C04FA368D4}']
  4087.     procedure StepIt; dispid 1;
  4088.     procedure StepBy(Delta: Integer); dispid 2;
  4089.     property DragCursor: Smallint dispid 3;
  4090.     property DragMode: TxDragMode dispid 4;
  4091.     property Enabled: WordBool dispid -514;
  4092.     property Min: Integer dispid 5;
  4093.     property Max: Integer dispid 6;
  4094.     property Orientation: TxProgressBarOrientation dispid 7;
  4095.     property Position: Integer dispid 8;
  4096.     property Smooth: WordBool dispid 9;
  4097.     property Step: Integer dispid 10;
  4098.     property Visible: WordBool dispid 11;
  4099.     property DoubleBuffered: WordBool dispid 14;
  4100.     procedure FlipChildren(AllLevels: WordBool); dispid 15;
  4101.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 18;
  4102.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 19;
  4103.     function GetControlsAlignment: TxAlignment; dispid 20;
  4104.     procedure InitiateAction; dispid 22;
  4105.     function IsRightToLeft: WordBool; dispid 23;
  4106.     function UseRightToLeftAlignment: WordBool; dispid 28;
  4107.     function UseRightToLeftReading: WordBool; dispid 29;
  4108.     function UseRightToLeftScrollBar: WordBool; dispid 30;
  4109.     property BiDiMode: TxBiDiMode dispid 31;
  4110.     property Cursor: Smallint dispid 32;
  4111.     function ClassNameIs(const Name: WideString): WordBool; dispid 36;
  4112.     procedure AboutBox; dispid -552;
  4113.   end;
  4114.  
  4115. // *********************************************************************//
  4116. // DispIntf:  IProgressBarXEvents
  4117. // Flags:     (0)
  4118. // GUID:      {695CDB85-02E5-11D2-B20D-00C04FA368D4}
  4119. // *********************************************************************//
  4120.   IProgressBarXEvents = dispinterface
  4121.     ['{695CDB85-02E5-11D2-B20D-00C04FA368D4}']
  4122.   end;
  4123.  
  4124. // *********************************************************************//
  4125. // Interface: IRadioButtonX
  4126. // Flags:     (4416) Dual OleAutomation Dispatchable
  4127. // GUID:      {695CDB8B-02E5-11D2-B20D-00C04FA368D4}
  4128. // *********************************************************************//
  4129.   IRadioButtonX = interface(IDispatch)
  4130.     ['{695CDB8B-02E5-11D2-B20D-00C04FA368D4}']
  4131.     function GetControlsAlignment: TxAlignment; safecall;
  4132.     function Get_Alignment: TxLeftRight; safecall;
  4133.     procedure Set_Alignment(Value: TxLeftRight); safecall;
  4134.     function Get_BiDiMode: TxBiDiMode; safecall;
  4135.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4136.     function Get_Caption: WideString; safecall;
  4137.     procedure Set_Caption(const Value: WideString); safecall;
  4138.     function Get_Checked: WordBool; safecall;
  4139.     procedure Set_Checked(Value: WordBool); safecall;
  4140.     function Get_Color: OLE_COLOR; safecall;
  4141.     procedure Set_Color(Value: OLE_COLOR); safecall;
  4142.     function Get_Ctl3D: WordBool; safecall;
  4143.     procedure Set_Ctl3D(Value: WordBool); safecall;
  4144.     function Get_DragCursor: Smallint; safecall;
  4145.     procedure Set_DragCursor(Value: Smallint); safecall;
  4146.     function Get_DragMode: TxDragMode; safecall;
  4147.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4148.     function Get_Enabled: WordBool; safecall;
  4149.     procedure Set_Enabled(Value: WordBool); safecall;
  4150.     function Get_Font: IFontDisp; safecall;
  4151.     procedure _Set_Font(const Value: IFontDisp); safecall;
  4152.     procedure Set_Font(const Value: IFontDisp); safecall;
  4153.     function Get_ParentColor: WordBool; safecall;
  4154.     procedure Set_ParentColor(Value: WordBool); safecall;
  4155.     function Get_ParentCtl3D: WordBool; safecall;
  4156.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  4157.     function Get_ParentFont: WordBool; safecall;
  4158.     procedure Set_ParentFont(Value: WordBool); safecall;
  4159.     function Get_Visible: WordBool; safecall;
  4160.     procedure Set_Visible(Value: WordBool); safecall;
  4161.     function Get_DoubleBuffered: WordBool; safecall;
  4162.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4163.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4164.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4165.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4166.     procedure InitiateAction; safecall;
  4167.     function IsRightToLeft: WordBool; safecall;
  4168.     function UseRightToLeftAlignment: WordBool; safecall;
  4169.     function UseRightToLeftReading: WordBool; safecall;
  4170.     function UseRightToLeftScrollBar: WordBool; safecall;
  4171.     function Get_Cursor: Smallint; safecall;
  4172.     procedure Set_Cursor(Value: Smallint); safecall;
  4173.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4174.     procedure AboutBox; safecall;
  4175.     property Alignment: TxLeftRight read Get_Alignment write Set_Alignment;
  4176.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  4177.     property Caption: WideString read Get_Caption write Set_Caption;
  4178.     property Checked: WordBool read Get_Checked write Set_Checked;
  4179.     property Color: OLE_COLOR read Get_Color write Set_Color;
  4180.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  4181.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4182.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4183.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4184.     property Font: IFontDisp read Get_Font write _Set_Font;
  4185.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  4186.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  4187.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  4188.     property Visible: WordBool read Get_Visible write Set_Visible;
  4189.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  4190.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  4191.   end;
  4192.  
  4193. // *********************************************************************//
  4194. // DispIntf:  IRadioButtonXDisp
  4195. // Flags:     (4416) Dual OleAutomation Dispatchable
  4196. // GUID:      {695CDB8B-02E5-11D2-B20D-00C04FA368D4}
  4197. // *********************************************************************//
  4198.   IRadioButtonXDisp = dispinterface
  4199.     ['{695CDB8B-02E5-11D2-B20D-00C04FA368D4}']
  4200.     function GetControlsAlignment: TxAlignment; dispid 1;
  4201.     property Alignment: TxLeftRight dispid 2;
  4202.     property BiDiMode: TxBiDiMode dispid 3;
  4203.     property Caption: WideString dispid -518;
  4204.     property Checked: WordBool dispid 4;
  4205.     property Color: OLE_COLOR dispid -501;
  4206.     property Ctl3D: WordBool dispid 5;
  4207.     property DragCursor: Smallint dispid 6;
  4208.     property DragMode: TxDragMode dispid 7;
  4209.     property Enabled: WordBool dispid -514;
  4210.     property Font: IFontDisp dispid -512;
  4211.     property ParentColor: WordBool dispid 8;
  4212.     property ParentCtl3D: WordBool dispid 9;
  4213.     property ParentFont: WordBool dispid 10;
  4214.     property Visible: WordBool dispid 11;
  4215.     property DoubleBuffered: WordBool dispid 14;
  4216.     procedure FlipChildren(AllLevels: WordBool); dispid 15;
  4217.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 18;
  4218.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 19;
  4219.     procedure InitiateAction; dispid 21;
  4220.     function IsRightToLeft: WordBool; dispid 22;
  4221.     function UseRightToLeftAlignment: WordBool; dispid 27;
  4222.     function UseRightToLeftReading: WordBool; dispid 28;
  4223.     function UseRightToLeftScrollBar: WordBool; dispid 29;
  4224.     property Cursor: Smallint dispid 30;
  4225.     function ClassNameIs(const Name: WideString): WordBool; dispid 34;
  4226.     procedure AboutBox; dispid -552;
  4227.   end;
  4228.  
  4229. // *********************************************************************//
  4230. // DispIntf:  IRadioButtonXEvents
  4231. // Flags:     (0)
  4232. // GUID:      {695CDB8D-02E5-11D2-B20D-00C04FA368D4}
  4233. // *********************************************************************//
  4234.   IRadioButtonXEvents = dispinterface
  4235.     ['{695CDB8D-02E5-11D2-B20D-00C04FA368D4}']
  4236.     procedure OnClick; dispid 1;
  4237.     procedure OnDblClick; dispid 2;
  4238.     procedure OnKeyPress(var Key: Smallint); dispid 8;
  4239.   end;
  4240.  
  4241. // *********************************************************************//
  4242. // Interface: IRadioGroupX
  4243. // Flags:     (4416) Dual OleAutomation Dispatchable
  4244. // GUID:      {695CDB92-02E5-11D2-B20D-00C04FA368D4}
  4245. // *********************************************************************//
  4246.   IRadioGroupX = interface(IDispatch)
  4247.     ['{695CDB92-02E5-11D2-B20D-00C04FA368D4}']
  4248.     function Get_BiDiMode: TxBiDiMode; safecall;
  4249.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4250.     function Get_Caption: WideString; safecall;
  4251.     procedure Set_Caption(const Value: WideString); safecall;
  4252.     function Get_Color: OLE_COLOR; safecall;
  4253.     procedure Set_Color(Value: OLE_COLOR); safecall;
  4254.     function Get_Columns: Integer; safecall;
  4255.     procedure Set_Columns(Value: Integer); safecall;
  4256.     function Get_Ctl3D: WordBool; safecall;
  4257.     procedure Set_Ctl3D(Value: WordBool); safecall;
  4258.     function Get_DragCursor: Smallint; safecall;
  4259.     procedure Set_DragCursor(Value: Smallint); safecall;
  4260.     function Get_DragMode: TxDragMode; safecall;
  4261.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4262.     function Get_Enabled: WordBool; safecall;
  4263.     procedure Set_Enabled(Value: WordBool); safecall;
  4264.     function Get_Font: IFontDisp; safecall;
  4265.     procedure _Set_Font(const Value: IFontDisp); safecall;
  4266.     procedure Set_Font(const Value: IFontDisp); safecall;
  4267.     function Get_ItemIndex: Integer; safecall;
  4268.     procedure Set_ItemIndex(Value: Integer); safecall;
  4269.     function Get_Items: IStrings; safecall;
  4270.     procedure Set_Items(const Value: IStrings); safecall;
  4271.     function Get_ParentColor: WordBool; safecall;
  4272.     procedure Set_ParentColor(Value: WordBool); safecall;
  4273.     function Get_ParentCtl3D: WordBool; safecall;
  4274.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  4275.     function Get_ParentFont: WordBool; safecall;
  4276.     procedure Set_ParentFont(Value: WordBool); safecall;
  4277.     function Get_Visible: WordBool; safecall;
  4278.     procedure Set_Visible(Value: WordBool); safecall;
  4279.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4280.     function Get_DoubleBuffered: WordBool; safecall;
  4281.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4282.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4283.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4284.     function GetControlsAlignment: TxAlignment; safecall;
  4285.     procedure InitiateAction; safecall;
  4286.     function IsRightToLeft: WordBool; safecall;
  4287.     function UseRightToLeftAlignment: WordBool; safecall;
  4288.     function UseRightToLeftReading: WordBool; safecall;
  4289.     function UseRightToLeftScrollBar: WordBool; safecall;
  4290.     function Get_Cursor: Smallint; safecall;
  4291.     procedure Set_Cursor(Value: Smallint); safecall;
  4292.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4293.     procedure AboutBox; safecall;
  4294.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  4295.     property Caption: WideString read Get_Caption write Set_Caption;
  4296.     property Color: OLE_COLOR read Get_Color write Set_Color;
  4297.     property Columns: Integer read Get_Columns write Set_Columns;
  4298.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  4299.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4300.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4301.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4302.     property Font: IFontDisp read Get_Font write _Set_Font;
  4303.     property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
  4304.     property Items: IStrings read Get_Items write Set_Items;
  4305.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  4306.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  4307.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  4308.     property Visible: WordBool read Get_Visible write Set_Visible;
  4309.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  4310.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  4311.   end;
  4312.  
  4313. // *********************************************************************//
  4314. // DispIntf:  IRadioGroupXDisp
  4315. // Flags:     (4416) Dual OleAutomation Dispatchable
  4316. // GUID:      {695CDB92-02E5-11D2-B20D-00C04FA368D4}
  4317. // *********************************************************************//
  4318.   IRadioGroupXDisp = dispinterface
  4319.     ['{695CDB92-02E5-11D2-B20D-00C04FA368D4}']
  4320.     property BiDiMode: TxBiDiMode dispid 1;
  4321.     property Caption: WideString dispid -518;
  4322.     property Color: OLE_COLOR dispid -501;
  4323.     property Columns: Integer dispid 2;
  4324.     property Ctl3D: WordBool dispid 3;
  4325.     property DragCursor: Smallint dispid 4;
  4326.     property DragMode: TxDragMode dispid 5;
  4327.     property Enabled: WordBool dispid -514;
  4328.     property Font: IFontDisp dispid -512;
  4329.     property ItemIndex: Integer dispid 6;
  4330.     property Items: IStrings dispid 7;
  4331.     property ParentColor: WordBool dispid 8;
  4332.     property ParentCtl3D: WordBool dispid 9;
  4333.     property ParentFont: WordBool dispid 10;
  4334.     property Visible: WordBool dispid 11;
  4335.     procedure FlipChildren(AllLevels: WordBool); dispid 12;
  4336.     property DoubleBuffered: WordBool dispid 15;
  4337.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 18;
  4338.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 19;
  4339.     function GetControlsAlignment: TxAlignment; dispid 20;
  4340.     procedure InitiateAction; dispid 22;
  4341.     function IsRightToLeft: WordBool; dispid 23;
  4342.     function UseRightToLeftAlignment: WordBool; dispid 28;
  4343.     function UseRightToLeftReading: WordBool; dispid 29;
  4344.     function UseRightToLeftScrollBar: WordBool; dispid 30;
  4345.     property Cursor: Smallint dispid 31;
  4346.     function ClassNameIs(const Name: WideString): WordBool; dispid 35;
  4347.     procedure AboutBox; dispid -552;
  4348.   end;
  4349.  
  4350. // *********************************************************************//
  4351. // DispIntf:  IRadioGroupXEvents
  4352. // Flags:     (0)
  4353. // GUID:      {695CDB94-02E5-11D2-B20D-00C04FA368D4}
  4354. // *********************************************************************//
  4355.   IRadioGroupXEvents = dispinterface
  4356.     ['{695CDB94-02E5-11D2-B20D-00C04FA368D4}']
  4357.     procedure OnClick; dispid 1;
  4358.   end;
  4359.  
  4360. // *********************************************************************//
  4361. // Interface: IRichEditX
  4362. // Flags:     (4416) Dual OleAutomation Dispatchable
  4363. // GUID:      {695CDB99-02E5-11D2-B20D-00C04FA368D4}
  4364. // *********************************************************************//
  4365.   IRichEditX = interface(IDispatch)
  4366.     ['{695CDB99-02E5-11D2-B20D-00C04FA368D4}']
  4367.     function Get_Alignment: TxAlignment; safecall;
  4368.     procedure Set_Alignment(Value: TxAlignment); safecall;
  4369.     function Get_BiDiMode: TxBiDiMode; safecall;
  4370.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4371.     function Get_BorderStyle: TxBorderStyle; safecall;
  4372.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  4373.     function Get_Color: OLE_COLOR; safecall;
  4374.     procedure Set_Color(Value: OLE_COLOR); safecall;
  4375.     function Get_Ctl3D: WordBool; safecall;
  4376.     procedure Set_Ctl3D(Value: WordBool); safecall;
  4377.     function Get_DragCursor: Smallint; safecall;
  4378.     procedure Set_DragCursor(Value: Smallint); safecall;
  4379.     function Get_DragMode: TxDragMode; safecall;
  4380.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4381.     function Get_Enabled: WordBool; safecall;
  4382.     procedure Set_Enabled(Value: WordBool); safecall;
  4383.     function Get_Font: IFontDisp; safecall;
  4384.     procedure _Set_Font(const Value: IFontDisp); safecall;
  4385.     procedure Set_Font(const Value: IFontDisp); safecall;
  4386.     function Get_HideSelection: WordBool; safecall;
  4387.     procedure Set_HideSelection(Value: WordBool); safecall;
  4388.     function Get_HideScrollBars: WordBool; safecall;
  4389.     procedure Set_HideScrollBars(Value: WordBool); safecall;
  4390.     function Get_ImeMode: TxImeMode; safecall;
  4391.     procedure Set_ImeMode(Value: TxImeMode); safecall;
  4392.     function Get_ImeName: WideString; safecall;
  4393.     procedure Set_ImeName(const Value: WideString); safecall;
  4394.     function Get_Lines: IStrings; safecall;
  4395.     procedure Set_Lines(const Value: IStrings); safecall;
  4396.     function Get_MaxLength: Integer; safecall;
  4397.     procedure Set_MaxLength(Value: Integer); safecall;
  4398.     function Get_ParentColor: WordBool; safecall;
  4399.     procedure Set_ParentColor(Value: WordBool); safecall;
  4400.     function Get_ParentCtl3D: WordBool; safecall;
  4401.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  4402.     function Get_ParentFont: WordBool; safecall;
  4403.     procedure Set_ParentFont(Value: WordBool); safecall;
  4404.     function Get_PlainText: WordBool; safecall;
  4405.     procedure Set_PlainText(Value: WordBool); safecall;
  4406.     function Get_ReadOnly: WordBool; safecall;
  4407.     procedure Set_ReadOnly(Value: WordBool); safecall;
  4408.     function Get_ScrollBars: TxScrollStyle; safecall;
  4409.     procedure Set_ScrollBars(Value: TxScrollStyle); safecall;
  4410.     function Get_Visible: WordBool; safecall;
  4411.     procedure Set_Visible(Value: WordBool); safecall;
  4412.     function Get_WantTabs: WordBool; safecall;
  4413.     procedure Set_WantTabs(Value: WordBool); safecall;
  4414.     function Get_WantReturns: WordBool; safecall;
  4415.     procedure Set_WantReturns(Value: WordBool); safecall;
  4416.     function Get_WordWrap: WordBool; safecall;
  4417.     procedure Set_WordWrap(Value: WordBool); safecall;
  4418.     procedure Clear; safecall;
  4419.     procedure Print(const Caption: WideString); safecall;
  4420.     function GetControlsAlignment: TxAlignment; safecall;
  4421.     procedure ClearSelection; safecall;
  4422.     procedure CopyToClipboard; safecall;
  4423.     procedure CutToClipboard; safecall;
  4424.     procedure PasteFromClipboard; safecall;
  4425.     procedure Undo; safecall;
  4426.     procedure ClearUndo; safecall;
  4427.     procedure SelectAll; safecall;
  4428.     function Get_CanUndo: WordBool; safecall;
  4429.     function Get_Modified: WordBool; safecall;
  4430.     procedure Set_Modified(Value: WordBool); safecall;
  4431.     function Get_SelLength: Integer; safecall;
  4432.     procedure Set_SelLength(Value: Integer); safecall;
  4433.     function Get_SelStart: Integer; safecall;
  4434.     procedure Set_SelStart(Value: Integer); safecall;
  4435.     function Get_SelText: WideString; safecall;
  4436.     procedure Set_SelText(const Value: WideString); safecall;
  4437.     function Get_Text: WideString; safecall;
  4438.     procedure Set_Text(const Value: WideString); safecall;
  4439.     function Get_DoubleBuffered: WordBool; safecall;
  4440.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4441.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4442.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4443.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4444.     procedure InitiateAction; safecall;
  4445.     function IsRightToLeft: WordBool; safecall;
  4446.     function UseRightToLeftAlignment: WordBool; safecall;
  4447.     function UseRightToLeftReading: WordBool; safecall;
  4448.     function UseRightToLeftScrollBar: WordBool; safecall;
  4449.     function Get_Cursor: Smallint; safecall;
  4450.     procedure Set_Cursor(Value: Smallint); safecall;
  4451.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4452.     procedure AboutBox; safecall;
  4453.     property Alignment: TxAlignment read Get_Alignment write Set_Alignment;
  4454.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  4455.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  4456.     property Color: OLE_COLOR read Get_Color write Set_Color;
  4457.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  4458.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4459.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4460.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4461.     property Font: IFontDisp read Get_Font write _Set_Font;
  4462.     property HideSelection: WordBool read Get_HideSelection write Set_HideSelection;
  4463.     property HideScrollBars: WordBool read Get_HideScrollBars write Set_HideScrollBars;
  4464.     property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
  4465.     property ImeName: WideString read Get_ImeName write Set_ImeName;
  4466.     property Lines: IStrings read Get_Lines write Set_Lines;
  4467.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  4468.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  4469.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  4470.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  4471.     property PlainText: WordBool read Get_PlainText write Set_PlainText;
  4472.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  4473.     property ScrollBars: TxScrollStyle read Get_ScrollBars write Set_ScrollBars;
  4474.     property Visible: WordBool read Get_Visible write Set_Visible;
  4475.     property WantTabs: WordBool read Get_WantTabs write Set_WantTabs;
  4476.     property WantReturns: WordBool read Get_WantReturns write Set_WantReturns;
  4477.     property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
  4478.     property CanUndo: WordBool read Get_CanUndo;
  4479.     property Modified: WordBool read Get_Modified write Set_Modified;
  4480.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  4481.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  4482.     property SelText: WideString read Get_SelText write Set_SelText;
  4483.     property Text: WideString read Get_Text write Set_Text;
  4484.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  4485.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  4486.   end;
  4487.  
  4488. // *********************************************************************//
  4489. // DispIntf:  IRichEditXDisp
  4490. // Flags:     (4416) Dual OleAutomation Dispatchable
  4491. // GUID:      {695CDB99-02E5-11D2-B20D-00C04FA368D4}
  4492. // *********************************************************************//
  4493.   IRichEditXDisp = dispinterface
  4494.     ['{695CDB99-02E5-11D2-B20D-00C04FA368D4}']
  4495.     property Alignment: TxAlignment dispid 1;
  4496.     property BiDiMode: TxBiDiMode dispid 2;
  4497.     property BorderStyle: TxBorderStyle dispid 3;
  4498.     property Color: OLE_COLOR dispid -501;
  4499.     property Ctl3D: WordBool dispid 4;
  4500.     property DragCursor: Smallint dispid 5;
  4501.     property DragMode: TxDragMode dispid 6;
  4502.     property Enabled: WordBool dispid -514;
  4503.     property Font: IFontDisp dispid -512;
  4504.     property HideSelection: WordBool dispid 7;
  4505.     property HideScrollBars: WordBool dispid 8;
  4506.     property ImeMode: TxImeMode dispid 9;
  4507.     property ImeName: WideString dispid 10;
  4508.     property Lines: IStrings dispid 11;
  4509.     property MaxLength: Integer dispid 12;
  4510.     property ParentColor: WordBool dispid 13;
  4511.     property ParentCtl3D: WordBool dispid 14;
  4512.     property ParentFont: WordBool dispid 15;
  4513.     property PlainText: WordBool dispid 16;
  4514.     property ReadOnly: WordBool dispid 17;
  4515.     property ScrollBars: TxScrollStyle dispid 18;
  4516.     property Visible: WordBool dispid 19;
  4517.     property WantTabs: WordBool dispid 20;
  4518.     property WantReturns: WordBool dispid 21;
  4519.     property WordWrap: WordBool dispid 22;
  4520.     procedure Clear; dispid 23;
  4521.     procedure Print(const Caption: WideString); dispid 26;
  4522.     function GetControlsAlignment: TxAlignment; dispid 28;
  4523.     procedure ClearSelection; dispid 29;
  4524.     procedure CopyToClipboard; dispid 30;
  4525.     procedure CutToClipboard; dispid 31;
  4526.     procedure PasteFromClipboard; dispid 33;
  4527.     procedure Undo; dispid 34;
  4528.     procedure ClearUndo; dispid 35;
  4529.     procedure SelectAll; dispid 36;
  4530.     property CanUndo: WordBool readonly dispid 38;
  4531.     property Modified: WordBool dispid 39;
  4532.     property SelLength: Integer dispid 40;
  4533.     property SelStart: Integer dispid 41;
  4534.     property SelText: WideString dispid 42;
  4535.     property Text: WideString dispid -517;
  4536.     property DoubleBuffered: WordBool dispid 44;
  4537.     procedure FlipChildren(AllLevels: WordBool); dispid 45;
  4538.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 48;
  4539.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 49;
  4540.     procedure InitiateAction; dispid 51;
  4541.     function IsRightToLeft: WordBool; dispid 52;
  4542.     function UseRightToLeftAlignment: WordBool; dispid 57;
  4543.     function UseRightToLeftReading: WordBool; dispid 58;
  4544.     function UseRightToLeftScrollBar: WordBool; dispid 59;
  4545.     property Cursor: Smallint dispid 60;
  4546.     function ClassNameIs(const Name: WideString): WordBool; dispid 64;
  4547.     procedure AboutBox; dispid -552;
  4548.   end;
  4549.  
  4550. // *********************************************************************//
  4551. // DispIntf:  IRichEditXEvents
  4552. // Flags:     (0)
  4553. // GUID:      {695CDB9B-02E5-11D2-B20D-00C04FA368D4}
  4554. // *********************************************************************//
  4555.   IRichEditXEvents = dispinterface
  4556.     ['{695CDB9B-02E5-11D2-B20D-00C04FA368D4}']
  4557.     procedure OnChange; dispid 1;
  4558.     procedure OnKeyPress(var Key: Smallint); dispid 7;
  4559.     procedure OnProtectChange(StartPos: Integer; EndPos: Integer; var AllowChange: WordBool); dispid 15;
  4560.     procedure OnSaveClipboard(NumObjects: Integer; NumChars: Integer; var SaveClipboard: WordBool); dispid 17;
  4561.     procedure OnSelectionChange; dispid 18;
  4562.   end;
  4563.  
  4564. // *********************************************************************//
  4565. // Interface: IScrollBarX
  4566. // Flags:     (4416) Dual OleAutomation Dispatchable
  4567. // GUID:      {695CDBA0-02E5-11D2-B20D-00C04FA368D4}
  4568. // *********************************************************************//
  4569.   IScrollBarX = interface(IDispatch)
  4570.     ['{695CDBA0-02E5-11D2-B20D-00C04FA368D4}']
  4571.     procedure SetParams(APosition: Integer; AMin: Integer; AMax: Integer); safecall;
  4572.     function Get_BiDiMode: TxBiDiMode; safecall;
  4573.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4574.     function Get_Ctl3D: WordBool; safecall;
  4575.     procedure Set_Ctl3D(Value: WordBool); safecall;
  4576.     function Get_DragCursor: Smallint; safecall;
  4577.     procedure Set_DragCursor(Value: Smallint); safecall;
  4578.     function Get_DragMode: TxDragMode; safecall;
  4579.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4580.     function Get_Enabled: WordBool; safecall;
  4581.     procedure Set_Enabled(Value: WordBool); safecall;
  4582.     function Get_Kind: TxScrollBarKind; safecall;
  4583.     procedure Set_Kind(Value: TxScrollBarKind); safecall;
  4584.     function Get_LargeChange: Smallint; safecall;
  4585.     procedure Set_LargeChange(Value: Smallint); safecall;
  4586.     function Get_Max: Integer; safecall;
  4587.     procedure Set_Max(Value: Integer); safecall;
  4588.     function Get_Min: Integer; safecall;
  4589.     procedure Set_Min(Value: Integer); safecall;
  4590.     function Get_PageSize: Integer; safecall;
  4591.     procedure Set_PageSize(Value: Integer); safecall;
  4592.     function Get_ParentCtl3D: WordBool; safecall;
  4593.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  4594.     function Get_Position: Integer; safecall;
  4595.     procedure Set_Position(Value: Integer); safecall;
  4596.     function Get_SmallChange: Smallint; safecall;
  4597.     procedure Set_SmallChange(Value: Smallint); safecall;
  4598.     function Get_Visible: WordBool; safecall;
  4599.     procedure Set_Visible(Value: WordBool); safecall;
  4600.     function Get_DoubleBuffered: WordBool; safecall;
  4601.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4602.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4603.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4604.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4605.     function GetControlsAlignment: TxAlignment; safecall;
  4606.     procedure InitiateAction; safecall;
  4607.     function IsRightToLeft: WordBool; safecall;
  4608.     function UseRightToLeftAlignment: WordBool; safecall;
  4609.     function UseRightToLeftReading: WordBool; safecall;
  4610.     function UseRightToLeftScrollBar: WordBool; safecall;
  4611.     function Get_Cursor: Smallint; safecall;
  4612.     procedure Set_Cursor(Value: Smallint); safecall;
  4613.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4614.     procedure AboutBox; safecall;
  4615.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  4616.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  4617.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4618.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4619.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4620.     property Kind: TxScrollBarKind read Get_Kind write Set_Kind;
  4621.     property LargeChange: Smallint read Get_LargeChange write Set_LargeChange;
  4622.     property Max: Integer read Get_Max write Set_Max;
  4623.     property Min: Integer read Get_Min write Set_Min;
  4624.     property PageSize: Integer read Get_PageSize write Set_PageSize;
  4625.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  4626.     property Position: Integer read Get_Position write Set_Position;
  4627.     property SmallChange: Smallint read Get_SmallChange write Set_SmallChange;
  4628.     property Visible: WordBool read Get_Visible write Set_Visible;
  4629.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  4630.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  4631.   end;
  4632.  
  4633. // *********************************************************************//
  4634. // DispIntf:  IScrollBarXDisp
  4635. // Flags:     (4416) Dual OleAutomation Dispatchable
  4636. // GUID:      {695CDBA0-02E5-11D2-B20D-00C04FA368D4}
  4637. // *********************************************************************//
  4638.   IScrollBarXDisp = dispinterface
  4639.     ['{695CDBA0-02E5-11D2-B20D-00C04FA368D4}']
  4640.     procedure SetParams(APosition: Integer; AMin: Integer; AMax: Integer); dispid 1;
  4641.     property BiDiMode: TxBiDiMode dispid 2;
  4642.     property Ctl3D: WordBool dispid 3;
  4643.     property DragCursor: Smallint dispid 4;
  4644.     property DragMode: TxDragMode dispid 5;
  4645.     property Enabled: WordBool dispid -514;
  4646.     property Kind: TxScrollBarKind dispid 6;
  4647.     property LargeChange: Smallint dispid 7;
  4648.     property Max: Integer dispid 8;
  4649.     property Min: Integer dispid 9;
  4650.     property PageSize: Integer dispid 10;
  4651.     property ParentCtl3D: WordBool dispid 11;
  4652.     property Position: Integer dispid 12;
  4653.     property SmallChange: Smallint dispid 13;
  4654.     property Visible: WordBool dispid 14;
  4655.     property DoubleBuffered: WordBool dispid 17;
  4656.     procedure FlipChildren(AllLevels: WordBool); dispid 18;
  4657.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 21;
  4658.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 22;
  4659.     function GetControlsAlignment: TxAlignment; dispid 23;
  4660.     procedure InitiateAction; dispid 25;
  4661.     function IsRightToLeft: WordBool; dispid 26;
  4662.     function UseRightToLeftAlignment: WordBool; dispid 31;
  4663.     function UseRightToLeftReading: WordBool; dispid 32;
  4664.     function UseRightToLeftScrollBar: WordBool; dispid 33;
  4665.     property Cursor: Smallint dispid 34;
  4666.     function ClassNameIs(const Name: WideString): WordBool; dispid 38;
  4667.     procedure AboutBox; dispid -552;
  4668.   end;
  4669.  
  4670. // *********************************************************************//
  4671. // DispIntf:  IScrollBarXEvents
  4672. // Flags:     (0)
  4673. // GUID:      {695CDBA2-02E5-11D2-B20D-00C04FA368D4}
  4674. // *********************************************************************//
  4675.   IScrollBarXEvents = dispinterface
  4676.     ['{695CDBA2-02E5-11D2-B20D-00C04FA368D4}']
  4677.     procedure OnChange; dispid 1;
  4678.     procedure OnKeyPress(var Key: Smallint); dispid 7;
  4679.     procedure OnScroll(ScrollCode: TxScrollCode; var ScrollPos: Integer); dispid 9;
  4680.   end;
  4681.  
  4682. // *********************************************************************//
  4683. // Interface: IScrollBoxX
  4684. // Flags:     (4416) Dual OleAutomation Dispatchable
  4685. // GUID:      {695CDBA9-02E5-11D2-B20D-00C04FA368D4}
  4686. // *********************************************************************//
  4687.   IScrollBoxX = interface(IDispatch)
  4688.     ['{695CDBA9-02E5-11D2-B20D-00C04FA368D4}']
  4689.     function Get_AutoScroll: WordBool; safecall;
  4690.     procedure Set_AutoScroll(Value: WordBool); safecall;
  4691.     function Get_AutoSize: WordBool; safecall;
  4692.     procedure Set_AutoSize(Value: WordBool); safecall;
  4693.     function Get_BiDiMode: TxBiDiMode; safecall;
  4694.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4695.     function Get_BorderStyle: TxBorderStyle; safecall;
  4696.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  4697.     function Get_DockSite: WordBool; safecall;
  4698.     procedure Set_DockSite(Value: WordBool); safecall;
  4699.     function Get_DragCursor: Smallint; safecall;
  4700.     procedure Set_DragCursor(Value: Smallint); safecall;
  4701.     function Get_DragMode: TxDragMode; safecall;
  4702.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4703.     function Get_Enabled: WordBool; safecall;
  4704.     procedure Set_Enabled(Value: WordBool); safecall;
  4705.     function Get_Color: OLE_COLOR; safecall;
  4706.     procedure Set_Color(Value: OLE_COLOR); safecall;
  4707.     function Get_Ctl3D: WordBool; safecall;
  4708.     procedure Set_Ctl3D(Value: WordBool); safecall;
  4709.     function Get_Font: IFontDisp; safecall;
  4710.     procedure _Set_Font(const Value: IFontDisp); safecall;
  4711.     procedure Set_Font(const Value: IFontDisp); safecall;
  4712.     function Get_ParentColor: WordBool; safecall;
  4713.     procedure Set_ParentColor(Value: WordBool); safecall;
  4714.     function Get_ParentCtl3D: WordBool; safecall;
  4715.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  4716.     function Get_ParentFont: WordBool; safecall;
  4717.     procedure Set_ParentFont(Value: WordBool); safecall;
  4718.     function Get_Visible: WordBool; safecall;
  4719.     procedure Set_Visible(Value: WordBool); safecall;
  4720.     procedure DisableAutoRange; safecall;
  4721.     procedure EnableAutoRange; safecall;
  4722.     function Get_DoubleBuffered: WordBool; safecall;
  4723.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4724.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4725.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4726.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4727.     function GetControlsAlignment: TxAlignment; safecall;
  4728.     procedure InitiateAction; safecall;
  4729.     function IsRightToLeft: WordBool; safecall;
  4730.     function UseRightToLeftAlignment: WordBool; safecall;
  4731.     function UseRightToLeftReading: WordBool; safecall;
  4732.     function UseRightToLeftScrollBar: WordBool; safecall;
  4733.     function Get_Cursor: Smallint; safecall;
  4734.     procedure Set_Cursor(Value: Smallint); safecall;
  4735.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4736.     procedure AboutBox; safecall;
  4737.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  4738.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  4739.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  4740.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  4741.     property DockSite: WordBool read Get_DockSite write Set_DockSite;
  4742.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4743.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4744.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4745.     property Color: OLE_COLOR read Get_Color write Set_Color;
  4746.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  4747.     property Font: IFontDisp read Get_Font write _Set_Font;
  4748.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  4749.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  4750.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  4751.     property Visible: WordBool read Get_Visible write Set_Visible;
  4752.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  4753.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  4754.   end;
  4755.  
  4756. // *********************************************************************//
  4757. // DispIntf:  IScrollBoxXDisp
  4758. // Flags:     (4416) Dual OleAutomation Dispatchable
  4759. // GUID:      {695CDBA9-02E5-11D2-B20D-00C04FA368D4}
  4760. // *********************************************************************//
  4761.   IScrollBoxXDisp = dispinterface
  4762.     ['{695CDBA9-02E5-11D2-B20D-00C04FA368D4}']
  4763.     property AutoScroll: WordBool dispid 1;
  4764.     property AutoSize: WordBool dispid 2;
  4765.     property BiDiMode: TxBiDiMode dispid 3;
  4766.     property BorderStyle: TxBorderStyle dispid 4;
  4767.     property DockSite: WordBool dispid 5;
  4768.     property DragCursor: Smallint dispid 6;
  4769.     property DragMode: TxDragMode dispid 7;
  4770.     property Enabled: WordBool dispid -514;
  4771.     property Color: OLE_COLOR dispid -501;
  4772.     property Ctl3D: WordBool dispid 8;
  4773.     property Font: IFontDisp dispid -512;
  4774.     property ParentColor: WordBool dispid 9;
  4775.     property ParentCtl3D: WordBool dispid 10;
  4776.     property ParentFont: WordBool dispid 11;
  4777.     property Visible: WordBool dispid 12;
  4778.     procedure DisableAutoRange; dispid 13;
  4779.     procedure EnableAutoRange; dispid 14;
  4780.     property DoubleBuffered: WordBool dispid 18;
  4781.     procedure FlipChildren(AllLevels: WordBool); dispid 19;
  4782.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 22;
  4783.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 23;
  4784.     function GetControlsAlignment: TxAlignment; dispid 24;
  4785.     procedure InitiateAction; dispid 26;
  4786.     function IsRightToLeft: WordBool; dispid 27;
  4787.     function UseRightToLeftAlignment: WordBool; dispid 32;
  4788.     function UseRightToLeftReading: WordBool; dispid 33;
  4789.     function UseRightToLeftScrollBar: WordBool; dispid 34;
  4790.     property Cursor: Smallint dispid 35;
  4791.     function ClassNameIs(const Name: WideString): WordBool; dispid 39;
  4792.     procedure AboutBox; dispid -552;
  4793.   end;
  4794.  
  4795. // *********************************************************************//
  4796. // DispIntf:  IScrollBoxXEvents
  4797. // Flags:     (0)
  4798. // GUID:      {695CDBAB-02E5-11D2-B20D-00C04FA368D4}
  4799. // *********************************************************************//
  4800.   IScrollBoxXEvents = dispinterface
  4801.     ['{695CDBAB-02E5-11D2-B20D-00C04FA368D4}']
  4802.     procedure OnCanResize(var NewWidth: Integer; var NewHeight: Integer; var Resize: WordBool); dispid 1;
  4803.     procedure OnClick; dispid 2;
  4804.     procedure OnConstrainedResize(var MinWidth: Integer; var MinHeight: Integer; 
  4805.                                   var MaxWidth: Integer; var MaxHeight: Integer); dispid 3;
  4806.     procedure OnDblClick; dispid 4;
  4807.     procedure OnResize; dispid 18;
  4808.   end;
  4809.  
  4810. // *********************************************************************//
  4811. // Interface: ISpinButtonX
  4812. // Flags:     (4416) Dual OleAutomation Dispatchable
  4813. // GUID:      {695CDBB0-02E5-11D2-B20D-00C04FA368D4}
  4814. // *********************************************************************//
  4815.   ISpinButtonX = interface(IDispatch)
  4816.     ['{695CDBB0-02E5-11D2-B20D-00C04FA368D4}']
  4817.     function Get_Ctl3D: WordBool; safecall;
  4818.     procedure Set_Ctl3D(Value: WordBool); safecall;
  4819.     function Get_DownNumGlyphs: Smallint; safecall;
  4820.     procedure Set_DownNumGlyphs(Value: Smallint); safecall;
  4821.     function Get_DragCursor: Smallint; safecall;
  4822.     procedure Set_DragCursor(Value: Smallint); safecall;
  4823.     function Get_DragMode: TxDragMode; safecall;
  4824.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4825.     function Get_Enabled: WordBool; safecall;
  4826.     procedure Set_Enabled(Value: WordBool); safecall;
  4827.     function Get_ParentCtl3D: WordBool; safecall;
  4828.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  4829.     function Get_UpNumGlyphs: Smallint; safecall;
  4830.     procedure Set_UpNumGlyphs(Value: Smallint); safecall;
  4831.     function Get_Visible: WordBool; safecall;
  4832.     procedure Set_Visible(Value: WordBool); safecall;
  4833.     function Get_DoubleBuffered: WordBool; safecall;
  4834.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4835.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4836.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4837.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4838.     function GetControlsAlignment: TxAlignment; safecall;
  4839.     procedure InitiateAction; safecall;
  4840.     function IsRightToLeft: WordBool; safecall;
  4841.     function UseRightToLeftAlignment: WordBool; safecall;
  4842.     function UseRightToLeftReading: WordBool; safecall;
  4843.     function UseRightToLeftScrollBar: WordBool; safecall;
  4844.     function Get_BiDiMode: TxBiDiMode; safecall;
  4845.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4846.     function Get_Cursor: Smallint; safecall;
  4847.     procedure Set_Cursor(Value: Smallint); safecall;
  4848.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4849.     procedure AboutBox; safecall;
  4850.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  4851.     property DownNumGlyphs: Smallint read Get_DownNumGlyphs write Set_DownNumGlyphs;
  4852.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4853.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4854.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4855.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  4856.     property UpNumGlyphs: Smallint read Get_UpNumGlyphs write Set_UpNumGlyphs;
  4857.     property Visible: WordBool read Get_Visible write Set_Visible;
  4858.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  4859.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  4860.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  4861.   end;
  4862.  
  4863. // *********************************************************************//
  4864. // DispIntf:  ISpinButtonXDisp
  4865. // Flags:     (4416) Dual OleAutomation Dispatchable
  4866. // GUID:      {695CDBB0-02E5-11D2-B20D-00C04FA368D4}
  4867. // *********************************************************************//
  4868.   ISpinButtonXDisp = dispinterface
  4869.     ['{695CDBB0-02E5-11D2-B20D-00C04FA368D4}']
  4870.     property Ctl3D: WordBool dispid 1;
  4871.     property DownNumGlyphs: Smallint dispid 2;
  4872.     property DragCursor: Smallint dispid 3;
  4873.     property DragMode: TxDragMode dispid 4;
  4874.     property Enabled: WordBool dispid -514;
  4875.     property ParentCtl3D: WordBool dispid 5;
  4876.     property UpNumGlyphs: Smallint dispid 6;
  4877.     property Visible: WordBool dispid 7;
  4878.     property DoubleBuffered: WordBool dispid 10;
  4879.     procedure FlipChildren(AllLevels: WordBool); dispid 11;
  4880.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 14;
  4881.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 15;
  4882.     function GetControlsAlignment: TxAlignment; dispid 16;
  4883.     procedure InitiateAction; dispid 18;
  4884.     function IsRightToLeft: WordBool; dispid 19;
  4885.     function UseRightToLeftAlignment: WordBool; dispid 24;
  4886.     function UseRightToLeftReading: WordBool; dispid 25;
  4887.     function UseRightToLeftScrollBar: WordBool; dispid 26;
  4888.     property BiDiMode: TxBiDiMode dispid 27;
  4889.     property Cursor: Smallint dispid 28;
  4890.     function ClassNameIs(const Name: WideString): WordBool; dispid 32;
  4891.     procedure AboutBox; dispid -552;
  4892.   end;
  4893.  
  4894. // *********************************************************************//
  4895. // DispIntf:  ISpinButtonXEvents
  4896. // Flags:     (0)
  4897. // GUID:      {695CDBB2-02E5-11D2-B20D-00C04FA368D4}
  4898. // *********************************************************************//
  4899.   ISpinButtonXEvents = dispinterface
  4900.     ['{695CDBB2-02E5-11D2-B20D-00C04FA368D4}']
  4901.     procedure OnDownClick; dispid 1;
  4902.     procedure OnUpClick; dispid 8;
  4903.   end;
  4904.  
  4905. // *********************************************************************//
  4906. // Interface: ISpinEditX
  4907. // Flags:     (4416) Dual OleAutomation Dispatchable
  4908. // GUID:      {695CDBB7-02E5-11D2-B20D-00C04FA368D4}
  4909. // *********************************************************************//
  4910.   ISpinEditX = interface(IDispatch)
  4911.     ['{695CDBB7-02E5-11D2-B20D-00C04FA368D4}']
  4912.     function Get_AutoSelect: WordBool; safecall;
  4913.     procedure Set_AutoSelect(Value: WordBool); safecall;
  4914.     function Get_AutoSize: WordBool; safecall;
  4915.     procedure Set_AutoSize(Value: WordBool); safecall;
  4916.     function Get_Color: OLE_COLOR; safecall;
  4917.     procedure Set_Color(Value: OLE_COLOR); safecall;
  4918.     function Get_Ctl3D: WordBool; safecall;
  4919.     procedure Set_Ctl3D(Value: WordBool); safecall;
  4920.     function Get_DragCursor: Smallint; safecall;
  4921.     procedure Set_DragCursor(Value: Smallint); safecall;
  4922.     function Get_DragMode: TxDragMode; safecall;
  4923.     procedure Set_DragMode(Value: TxDragMode); safecall;
  4924.     function Get_EditorEnabled: WordBool; safecall;
  4925.     procedure Set_EditorEnabled(Value: WordBool); safecall;
  4926.     function Get_Enabled: WordBool; safecall;
  4927.     procedure Set_Enabled(Value: WordBool); safecall;
  4928.     function Get_Font: IFontDisp; safecall;
  4929.     procedure _Set_Font(const Value: IFontDisp); safecall;
  4930.     procedure Set_Font(const Value: IFontDisp); safecall;
  4931.     function Get_Increment: Integer; safecall;
  4932.     procedure Set_Increment(Value: Integer); safecall;
  4933.     function Get_MaxLength: Integer; safecall;
  4934.     procedure Set_MaxLength(Value: Integer); safecall;
  4935.     function Get_MaxValue: Integer; safecall;
  4936.     procedure Set_MaxValue(Value: Integer); safecall;
  4937.     function Get_MinValue: Integer; safecall;
  4938.     procedure Set_MinValue(Value: Integer); safecall;
  4939.     function Get_ParentColor: WordBool; safecall;
  4940.     procedure Set_ParentColor(Value: WordBool); safecall;
  4941.     function Get_ParentCtl3D: WordBool; safecall;
  4942.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  4943.     function Get_ParentFont: WordBool; safecall;
  4944.     procedure Set_ParentFont(Value: WordBool); safecall;
  4945.     function Get_ReadOnly: WordBool; safecall;
  4946.     procedure Set_ReadOnly(Value: WordBool); safecall;
  4947.     function Get_Value: Integer; safecall;
  4948.     procedure Set_Value(Value: Integer); safecall;
  4949.     function Get_Visible: WordBool; safecall;
  4950.     procedure Set_Visible(Value: WordBool); safecall;
  4951.     procedure Clear; safecall;
  4952.     procedure ClearSelection; safecall;
  4953.     procedure CopyToClipboard; safecall;
  4954.     procedure CutToClipboard; safecall;
  4955.     procedure PasteFromClipboard; safecall;
  4956.     procedure Undo; safecall;
  4957.     procedure ClearUndo; safecall;
  4958.     procedure SelectAll; safecall;
  4959.     function Get_CanUndo: WordBool; safecall;
  4960.     function Get_Modified: WordBool; safecall;
  4961.     procedure Set_Modified(Value: WordBool); safecall;
  4962.     function Get_SelLength: Integer; safecall;
  4963.     procedure Set_SelLength(Value: Integer); safecall;
  4964.     function Get_SelStart: Integer; safecall;
  4965.     procedure Set_SelStart(Value: Integer); safecall;
  4966.     function Get_SelText: WideString; safecall;
  4967.     procedure Set_SelText(const Value: WideString); safecall;
  4968.     function Get_Text: WideString; safecall;
  4969.     procedure Set_Text(const Value: WideString); safecall;
  4970.     function Get_DoubleBuffered: WordBool; safecall;
  4971.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  4972.     procedure FlipChildren(AllLevels: WordBool); safecall;
  4973.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  4974.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  4975.     function GetControlsAlignment: TxAlignment; safecall;
  4976.     procedure InitiateAction; safecall;
  4977.     function IsRightToLeft: WordBool; safecall;
  4978.     function UseRightToLeftAlignment: WordBool; safecall;
  4979.     function UseRightToLeftReading: WordBool; safecall;
  4980.     function UseRightToLeftScrollBar: WordBool; safecall;
  4981.     function Get_BiDiMode: TxBiDiMode; safecall;
  4982.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  4983.     function Get_Cursor: Smallint; safecall;
  4984.     procedure Set_Cursor(Value: Smallint); safecall;
  4985.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  4986.     procedure AboutBox; safecall;
  4987.     property AutoSelect: WordBool read Get_AutoSelect write Set_AutoSelect;
  4988.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  4989.     property Color: OLE_COLOR read Get_Color write Set_Color;
  4990.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  4991.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  4992.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  4993.     property EditorEnabled: WordBool read Get_EditorEnabled write Set_EditorEnabled;
  4994.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  4995.     property Font: IFontDisp read Get_Font write _Set_Font;
  4996.     property Increment: Integer read Get_Increment write Set_Increment;
  4997.     property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
  4998.     property MaxValue: Integer read Get_MaxValue write Set_MaxValue;
  4999.     property MinValue: Integer read Get_MinValue write Set_MinValue;
  5000.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  5001.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  5002.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  5003.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  5004.     property Value: Integer read Get_Value write Set_Value;
  5005.     property Visible: WordBool read Get_Visible write Set_Visible;
  5006.     property CanUndo: WordBool read Get_CanUndo;
  5007.     property Modified: WordBool read Get_Modified write Set_Modified;
  5008.     property SelLength: Integer read Get_SelLength write Set_SelLength;
  5009.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  5010.     property SelText: WideString read Get_SelText write Set_SelText;
  5011.     property Text: WideString read Get_Text write Set_Text;
  5012.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5013.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5014.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5015.   end;
  5016.  
  5017. // *********************************************************************//
  5018. // DispIntf:  ISpinEditXDisp
  5019. // Flags:     (4416) Dual OleAutomation Dispatchable
  5020. // GUID:      {695CDBB7-02E5-11D2-B20D-00C04FA368D4}
  5021. // *********************************************************************//
  5022.   ISpinEditXDisp = dispinterface
  5023.     ['{695CDBB7-02E5-11D2-B20D-00C04FA368D4}']
  5024.     property AutoSelect: WordBool dispid 1;
  5025.     property AutoSize: WordBool dispid 2;
  5026.     property Color: OLE_COLOR dispid -501;
  5027.     property Ctl3D: WordBool dispid 3;
  5028.     property DragCursor: Smallint dispid 4;
  5029.     property DragMode: TxDragMode dispid 5;
  5030.     property EditorEnabled: WordBool dispid 6;
  5031.     property Enabled: WordBool dispid -514;
  5032.     property Font: IFontDisp dispid -512;
  5033.     property Increment: Integer dispid 7;
  5034.     property MaxLength: Integer dispid 8;
  5035.     property MaxValue: Integer dispid 9;
  5036.     property MinValue: Integer dispid 10;
  5037.     property ParentColor: WordBool dispid 11;
  5038.     property ParentCtl3D: WordBool dispid 12;
  5039.     property ParentFont: WordBool dispid 13;
  5040.     property ReadOnly: WordBool dispid 14;
  5041.     property Value: Integer dispid 15;
  5042.     property Visible: WordBool dispid 16;
  5043.     procedure Clear; dispid 17;
  5044.     procedure ClearSelection; dispid 18;
  5045.     procedure CopyToClipboard; dispid 19;
  5046.     procedure CutToClipboard; dispid 20;
  5047.     procedure PasteFromClipboard; dispid 22;
  5048.     procedure Undo; dispid 23;
  5049.     procedure ClearUndo; dispid 24;
  5050.     procedure SelectAll; dispid 26;
  5051.     property CanUndo: WordBool readonly dispid 28;
  5052.     property Modified: WordBool dispid 29;
  5053.     property SelLength: Integer dispid 30;
  5054.     property SelStart: Integer dispid 31;
  5055.     property SelText: WideString dispid 32;
  5056.     property Text: WideString dispid -517;
  5057.     property DoubleBuffered: WordBool dispid 34;
  5058.     procedure FlipChildren(AllLevels: WordBool); dispid 35;
  5059.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 38;
  5060.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 39;
  5061.     function GetControlsAlignment: TxAlignment; dispid 40;
  5062.     procedure InitiateAction; dispid 42;
  5063.     function IsRightToLeft: WordBool; dispid 43;
  5064.     function UseRightToLeftAlignment: WordBool; dispid 48;
  5065.     function UseRightToLeftReading: WordBool; dispid 49;
  5066.     function UseRightToLeftScrollBar: WordBool; dispid 50;
  5067.     property BiDiMode: TxBiDiMode dispid 51;
  5068.     property Cursor: Smallint dispid 52;
  5069.     function ClassNameIs(const Name: WideString): WordBool; dispid 56;
  5070.     procedure AboutBox; dispid -552;
  5071.   end;
  5072.  
  5073. // *********************************************************************//
  5074. // DispIntf:  ISpinEditXEvents
  5075. // Flags:     (0)
  5076. // GUID:      {695CDBB9-02E5-11D2-B20D-00C04FA368D4}
  5077. // *********************************************************************//
  5078.   ISpinEditXEvents = dispinterface
  5079.     ['{695CDBB9-02E5-11D2-B20D-00C04FA368D4}']
  5080.     procedure OnChange; dispid 1;
  5081.     procedure OnClick; dispid 2;
  5082.     procedure OnDblClick; dispid 3;
  5083.     procedure OnKeyPress(var Key: Smallint); dispid 8;
  5084.   end;
  5085.  
  5086. // *********************************************************************//
  5087. // Interface: IStaticTextX
  5088. // Flags:     (4416) Dual OleAutomation Dispatchable
  5089. // GUID:      {695CDBBE-02E5-11D2-B20D-00C04FA368D4}
  5090. // *********************************************************************//
  5091.   IStaticTextX = interface(IDispatch)
  5092.     ['{695CDBBE-02E5-11D2-B20D-00C04FA368D4}']
  5093.     function Get_Alignment: TxAlignment; safecall;
  5094.     procedure Set_Alignment(Value: TxAlignment); safecall;
  5095.     function Get_AutoSize: WordBool; safecall;
  5096.     procedure Set_AutoSize(Value: WordBool); safecall;
  5097.     function Get_BiDiMode: TxBiDiMode; safecall;
  5098.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  5099.     function Get_BorderStyle: TxStaticBorderStyle; safecall;
  5100.     procedure Set_BorderStyle(Value: TxStaticBorderStyle); safecall;
  5101.     function Get_Caption: WideString; safecall;
  5102.     procedure Set_Caption(const Value: WideString); safecall;
  5103.     function Get_Color: OLE_COLOR; safecall;
  5104.     procedure Set_Color(Value: OLE_COLOR); safecall;
  5105.     function Get_DragCursor: Smallint; safecall;
  5106.     procedure Set_DragCursor(Value: Smallint); safecall;
  5107.     function Get_DragMode: TxDragMode; safecall;
  5108.     procedure Set_DragMode(Value: TxDragMode); safecall;
  5109.     function Get_Enabled: WordBool; safecall;
  5110.     procedure Set_Enabled(Value: WordBool); safecall;
  5111.     function Get_Font: IFontDisp; safecall;
  5112.     procedure _Set_Font(const Value: IFontDisp); safecall;
  5113.     procedure Set_Font(const Value: IFontDisp); safecall;
  5114.     function Get_ParentColor: WordBool; safecall;
  5115.     procedure Set_ParentColor(Value: WordBool); safecall;
  5116.     function Get_ParentFont: WordBool; safecall;
  5117.     procedure Set_ParentFont(Value: WordBool); safecall;
  5118.     function Get_ShowAccelChar: WordBool; safecall;
  5119.     procedure Set_ShowAccelChar(Value: WordBool); safecall;
  5120.     function Get_Visible: WordBool; safecall;
  5121.     procedure Set_Visible(Value: WordBool); safecall;
  5122.     function Get_DoubleBuffered: WordBool; safecall;
  5123.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  5124.     procedure FlipChildren(AllLevels: WordBool); safecall;
  5125.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  5126.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  5127.     function GetControlsAlignment: TxAlignment; safecall;
  5128.     procedure InitiateAction; safecall;
  5129.     function IsRightToLeft: WordBool; safecall;
  5130.     function UseRightToLeftAlignment: WordBool; safecall;
  5131.     function UseRightToLeftReading: WordBool; safecall;
  5132.     function UseRightToLeftScrollBar: WordBool; safecall;
  5133.     function Get_Cursor: Smallint; safecall;
  5134.     procedure Set_Cursor(Value: Smallint); safecall;
  5135.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  5136.     procedure AboutBox; safecall;
  5137.     property Alignment: TxAlignment read Get_Alignment write Set_Alignment;
  5138.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  5139.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5140.     property BorderStyle: TxStaticBorderStyle read Get_BorderStyle write Set_BorderStyle;
  5141.     property Caption: WideString read Get_Caption write Set_Caption;
  5142.     property Color: OLE_COLOR read Get_Color write Set_Color;
  5143.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  5144.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  5145.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5146.     property Font: IFontDisp read Get_Font write _Set_Font;
  5147.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  5148.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  5149.     property ShowAccelChar: WordBool read Get_ShowAccelChar write Set_ShowAccelChar;
  5150.     property Visible: WordBool read Get_Visible write Set_Visible;
  5151.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5152.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5153.   end;
  5154.  
  5155. // *********************************************************************//
  5156. // DispIntf:  IStaticTextXDisp
  5157. // Flags:     (4416) Dual OleAutomation Dispatchable
  5158. // GUID:      {695CDBBE-02E5-11D2-B20D-00C04FA368D4}
  5159. // *********************************************************************//
  5160.   IStaticTextXDisp = dispinterface
  5161.     ['{695CDBBE-02E5-11D2-B20D-00C04FA368D4}']
  5162.     property Alignment: TxAlignment dispid 1;
  5163.     property AutoSize: WordBool dispid 2;
  5164.     property BiDiMode: TxBiDiMode dispid 3;
  5165.     property BorderStyle: TxStaticBorderStyle dispid 4;
  5166.     property Caption: WideString dispid -518;
  5167.     property Color: OLE_COLOR dispid -501;
  5168.     property DragCursor: Smallint dispid 5;
  5169.     property DragMode: TxDragMode dispid 6;
  5170.     property Enabled: WordBool dispid -514;
  5171.     property Font: IFontDisp dispid -512;
  5172.     property ParentColor: WordBool dispid 7;
  5173.     property ParentFont: WordBool dispid 8;
  5174.     property ShowAccelChar: WordBool dispid 9;
  5175.     property Visible: WordBool dispid 10;
  5176.     property DoubleBuffered: WordBool dispid 13;
  5177.     procedure FlipChildren(AllLevels: WordBool); dispid 14;
  5178.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 17;
  5179.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 18;
  5180.     function GetControlsAlignment: TxAlignment; dispid 19;
  5181.     procedure InitiateAction; dispid 21;
  5182.     function IsRightToLeft: WordBool; dispid 22;
  5183.     function UseRightToLeftAlignment: WordBool; dispid 27;
  5184.     function UseRightToLeftReading: WordBool; dispid 28;
  5185.     function UseRightToLeftScrollBar: WordBool; dispid 29;
  5186.     property Cursor: Smallint dispid 30;
  5187.     function ClassNameIs(const Name: WideString): WordBool; dispid 34;
  5188.     procedure AboutBox; dispid -552;
  5189.   end;
  5190.  
  5191. // *********************************************************************//
  5192. // DispIntf:  IStaticTextXEvents
  5193. // Flags:     (0)
  5194. // GUID:      {695CDBC0-02E5-11D2-B20D-00C04FA368D4}
  5195. // *********************************************************************//
  5196.   IStaticTextXEvents = dispinterface
  5197.     ['{695CDBC0-02E5-11D2-B20D-00C04FA368D4}']
  5198.     procedure OnClick; dispid 1;
  5199.     procedure OnDblClick; dispid 2;
  5200.   end;
  5201.  
  5202. // *********************************************************************//
  5203. // Interface: IStringGridX
  5204. // Flags:     (4416) Dual OleAutomation Dispatchable
  5205. // GUID:      {695CDBC6-02E5-11D2-B20D-00C04FA368D4}
  5206. // *********************************************************************//
  5207.   IStringGridX = interface(IDispatch)
  5208.     ['{695CDBC6-02E5-11D2-B20D-00C04FA368D4}']
  5209.     procedure MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer); safecall;
  5210.     function Get_Col: Integer; safecall;
  5211.     procedure Set_Col(Value: Integer); safecall;
  5212.     function Get_EditorMode: WordBool; safecall;
  5213.     procedure Set_EditorMode(Value: WordBool); safecall;
  5214.     function Get_GridHeight: Integer; safecall;
  5215.     function Get_GridWidth: Integer; safecall;
  5216.     function Get_LeftCol: Integer; safecall;
  5217.     procedure Set_LeftCol(Value: Integer); safecall;
  5218.     function Get_Row: Integer; safecall;
  5219.     procedure Set_Row(Value: Integer); safecall;
  5220.     function Get_TopRow: Integer; safecall;
  5221.     procedure Set_TopRow(Value: Integer); safecall;
  5222.     function Get_BiDiMode: TxBiDiMode; safecall;
  5223.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  5224.     function Get_BorderStyle: TxBorderStyle; safecall;
  5225.     procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
  5226.     function Get_Color: OLE_COLOR; safecall;
  5227.     procedure Set_Color(Value: OLE_COLOR); safecall;
  5228.     function Get_ColCount: Integer; safecall;
  5229.     procedure Set_ColCount(Value: Integer); safecall;
  5230.     function Get_Ctl3D: WordBool; safecall;
  5231.     procedure Set_Ctl3D(Value: WordBool); safecall;
  5232.     function Get_DefaultColWidth: Integer; safecall;
  5233.     procedure Set_DefaultColWidth(Value: Integer); safecall;
  5234.     function Get_DefaultRowHeight: Integer; safecall;
  5235.     procedure Set_DefaultRowHeight(Value: Integer); safecall;
  5236.     function Get_DefaultDrawing: WordBool; safecall;
  5237.     procedure Set_DefaultDrawing(Value: WordBool); safecall;
  5238.     function Get_DragCursor: Smallint; safecall;
  5239.     procedure Set_DragCursor(Value: Smallint); safecall;
  5240.     function Get_DragMode: TxDragMode; safecall;
  5241.     procedure Set_DragMode(Value: TxDragMode); safecall;
  5242.     function Get_Enabled: WordBool; safecall;
  5243.     procedure Set_Enabled(Value: WordBool); safecall;
  5244.     function Get_FixedColor: OLE_COLOR; safecall;
  5245.     procedure Set_FixedColor(Value: OLE_COLOR); safecall;
  5246.     function Get_FixedCols: Integer; safecall;
  5247.     procedure Set_FixedCols(Value: Integer); safecall;
  5248.     function Get_RowCount: Integer; safecall;
  5249.     procedure Set_RowCount(Value: Integer); safecall;
  5250.     function Get_FixedRows: Integer; safecall;
  5251.     procedure Set_FixedRows(Value: Integer); safecall;
  5252.     function Get_Font: IFontDisp; safecall;
  5253.     procedure _Set_Font(const Value: IFontDisp); safecall;
  5254.     procedure Set_Font(const Value: IFontDisp); safecall;
  5255.     function Get_GridLineWidth: Integer; safecall;
  5256.     procedure Set_GridLineWidth(Value: Integer); safecall;
  5257.     function Get_ParentColor: WordBool; safecall;
  5258.     procedure Set_ParentColor(Value: WordBool); safecall;
  5259.     function Get_ParentCtl3D: WordBool; safecall;
  5260.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  5261.     function Get_ParentFont: WordBool; safecall;
  5262.     procedure Set_ParentFont(Value: WordBool); safecall;
  5263.     function Get_ScrollBars: TxScrollStyle; safecall;
  5264.     procedure Set_ScrollBars(Value: TxScrollStyle); safecall;
  5265.     function Get_Visible: WordBool; safecall;
  5266.     procedure Set_Visible(Value: WordBool); safecall;
  5267.     function Get_VisibleColCount: Integer; safecall;
  5268.     function Get_VisibleRowCount: Integer; safecall;
  5269.     function Get_DoubleBuffered: WordBool; safecall;
  5270.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  5271.     procedure FlipChildren(AllLevels: WordBool); safecall;
  5272.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  5273.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  5274.     function GetControlsAlignment: TxAlignment; safecall;
  5275.     procedure InitiateAction; safecall;
  5276.     function IsRightToLeft: WordBool; safecall;
  5277.     function UseRightToLeftAlignment: WordBool; safecall;
  5278.     function UseRightToLeftReading: WordBool; safecall;
  5279.     function UseRightToLeftScrollBar: WordBool; safecall;
  5280.     function Get_Cursor: Smallint; safecall;
  5281.     procedure Set_Cursor(Value: Smallint); safecall;
  5282.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  5283.     procedure AboutBox; safecall;
  5284.     property Col: Integer read Get_Col write Set_Col;
  5285.     property EditorMode: WordBool read Get_EditorMode write Set_EditorMode;
  5286.     property GridHeight: Integer read Get_GridHeight;
  5287.     property GridWidth: Integer read Get_GridWidth;
  5288.     property LeftCol: Integer read Get_LeftCol write Set_LeftCol;
  5289.     property Row: Integer read Get_Row write Set_Row;
  5290.     property TopRow: Integer read Get_TopRow write Set_TopRow;
  5291.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5292.     property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
  5293.     property Color: OLE_COLOR read Get_Color write Set_Color;
  5294.     property ColCount: Integer read Get_ColCount write Set_ColCount;
  5295.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  5296.     property DefaultColWidth: Integer read Get_DefaultColWidth write Set_DefaultColWidth;
  5297.     property DefaultRowHeight: Integer read Get_DefaultRowHeight write Set_DefaultRowHeight;
  5298.     property DefaultDrawing: WordBool read Get_DefaultDrawing write Set_DefaultDrawing;
  5299.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  5300.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  5301.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5302.     property FixedColor: OLE_COLOR read Get_FixedColor write Set_FixedColor;
  5303.     property FixedCols: Integer read Get_FixedCols write Set_FixedCols;
  5304.     property RowCount: Integer read Get_RowCount write Set_RowCount;
  5305.     property FixedRows: Integer read Get_FixedRows write Set_FixedRows;
  5306.     property Font: IFontDisp read Get_Font write _Set_Font;
  5307.     property GridLineWidth: Integer read Get_GridLineWidth write Set_GridLineWidth;
  5308.     property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
  5309.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  5310.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  5311.     property ScrollBars: TxScrollStyle read Get_ScrollBars write Set_ScrollBars;
  5312.     property Visible: WordBool read Get_Visible write Set_Visible;
  5313.     property VisibleColCount: Integer read Get_VisibleColCount;
  5314.     property VisibleRowCount: Integer read Get_VisibleRowCount;
  5315.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5316.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5317.   end;
  5318.  
  5319. // *********************************************************************//
  5320. // DispIntf:  IStringGridXDisp
  5321. // Flags:     (4416) Dual OleAutomation Dispatchable
  5322. // GUID:      {695CDBC6-02E5-11D2-B20D-00C04FA368D4}
  5323. // *********************************************************************//
  5324.   IStringGridXDisp = dispinterface
  5325.     ['{695CDBC6-02E5-11D2-B20D-00C04FA368D4}']
  5326.     procedure MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer); dispid 1;
  5327.     property Col: Integer dispid 2;
  5328.     property EditorMode: WordBool dispid 3;
  5329.     property GridHeight: Integer readonly dispid 4;
  5330.     property GridWidth: Integer readonly dispid 5;
  5331.     property LeftCol: Integer dispid 6;
  5332.     property Row: Integer dispid 7;
  5333.     property TopRow: Integer dispid 8;
  5334.     property BiDiMode: TxBiDiMode dispid 9;
  5335.     property BorderStyle: TxBorderStyle dispid 10;
  5336.     property Color: OLE_COLOR dispid -501;
  5337.     property ColCount: Integer dispid 11;
  5338.     property Ctl3D: WordBool dispid 12;
  5339.     property DefaultColWidth: Integer dispid 13;
  5340.     property DefaultRowHeight: Integer dispid 14;
  5341.     property DefaultDrawing: WordBool dispid 15;
  5342.     property DragCursor: Smallint dispid 16;
  5343.     property DragMode: TxDragMode dispid 17;
  5344.     property Enabled: WordBool dispid -514;
  5345.     property FixedColor: OLE_COLOR dispid 18;
  5346.     property FixedCols: Integer dispid 19;
  5347.     property RowCount: Integer dispid 20;
  5348.     property FixedRows: Integer dispid 21;
  5349.     property Font: IFontDisp dispid -512;
  5350.     property GridLineWidth: Integer dispid 22;
  5351.     property ParentColor: WordBool dispid 23;
  5352.     property ParentCtl3D: WordBool dispid 24;
  5353.     property ParentFont: WordBool dispid 25;
  5354.     property ScrollBars: TxScrollStyle dispid 26;
  5355.     property Visible: WordBool dispid 27;
  5356.     property VisibleColCount: Integer readonly dispid 28;
  5357.     property VisibleRowCount: Integer readonly dispid 29;
  5358.     property DoubleBuffered: WordBool dispid 32;
  5359.     procedure FlipChildren(AllLevels: WordBool); dispid 33;
  5360.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 36;
  5361.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 37;
  5362.     function GetControlsAlignment: TxAlignment; dispid 38;
  5363.     procedure InitiateAction; dispid 40;
  5364.     function IsRightToLeft: WordBool; dispid 41;
  5365.     function UseRightToLeftAlignment: WordBool; dispid 46;
  5366.     function UseRightToLeftReading: WordBool; dispid 47;
  5367.     function UseRightToLeftScrollBar: WordBool; dispid 48;
  5368.     property Cursor: Smallint dispid 49;
  5369.     function ClassNameIs(const Name: WideString): WordBool; dispid 53;
  5370.     procedure AboutBox; dispid -552;
  5371.   end;
  5372.  
  5373. // *********************************************************************//
  5374. // DispIntf:  IStringGridXEvents
  5375. // Flags:     (0)
  5376. // GUID:      {695CDBC8-02E5-11D2-B20D-00C04FA368D4}
  5377. // *********************************************************************//
  5378.   IStringGridXEvents = dispinterface
  5379.     ['{695CDBC8-02E5-11D2-B20D-00C04FA368D4}']
  5380.     procedure OnClick; dispid 1;
  5381.     procedure OnColumnMoved(FromIndex: Integer; ToIndex: Integer); dispid 2;
  5382.     procedure OnDblClick; dispid 3;
  5383.     procedure OnGetEditMask(ACol: Integer; ARow: Integer; var Value: WideString); dispid 9;
  5384.     procedure OnGetEditText(ACol: Integer; ARow: Integer; var Value: WideString); dispid 10;
  5385.     procedure OnKeyPress(var Key: Smallint); dispid 12;
  5386.     procedure OnRowMoved(FromIndex: Integer; ToIndex: Integer); dispid 19;
  5387.     procedure OnSelectCell(ACol: Integer; ARow: Integer; var CanSelect: WordBool); dispid 20;
  5388.     procedure OnSetEditText(ACol: Integer; ARow: Integer; const Value: WideString); dispid 21;
  5389.     procedure OnTopLeftChanged; dispid 24;
  5390.   end;
  5391.  
  5392. // *********************************************************************//
  5393. // Interface: ITabbedNotebookX
  5394. // Flags:     (4416) Dual OleAutomation Dispatchable
  5395. // GUID:      {695CDBCD-02E5-11D2-B20D-00C04FA368D4}
  5396. // *********************************************************************//
  5397.   ITabbedNotebookX = interface(IDispatch)
  5398.     ['{695CDBCD-02E5-11D2-B20D-00C04FA368D4}']
  5399.     function GetIndexForPage(const PageName: WideString): Integer; safecall;
  5400.     function Get_TopFont: IFontDisp; safecall;
  5401.     function Get_ActivePage: WideString; safecall;
  5402.     procedure Set_ActivePage(const Value: WideString); safecall;
  5403.     function Get_Enabled: WordBool; safecall;
  5404.     procedure Set_Enabled(Value: WordBool); safecall;
  5405.     function Get_PageIndex: Integer; safecall;
  5406.     procedure Set_PageIndex(Value: Integer); safecall;
  5407.     function Get_Pages: IStrings; safecall;
  5408.     procedure Set_Pages(const Value: IStrings); safecall;
  5409.     function Get_Font: IFontDisp; safecall;
  5410.     procedure _Set_Font(const Value: IFontDisp); safecall;
  5411.     procedure Set_Font(const Value: IFontDisp); safecall;
  5412.     function Get_TabsPerRow: Integer; safecall;
  5413.     procedure Set_TabsPerRow(Value: Integer); safecall;
  5414.     function Get_TabFont: IFontDisp; safecall;
  5415.     procedure Set_TabFont(const Value: IFontDisp); safecall;
  5416.     function Get_Visible: WordBool; safecall;
  5417.     procedure Set_Visible(Value: WordBool); safecall;
  5418.     function Get_DoubleBuffered: WordBool; safecall;
  5419.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  5420.     procedure FlipChildren(AllLevels: WordBool); safecall;
  5421.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  5422.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  5423.     function GetControlsAlignment: TxAlignment; safecall;
  5424.     procedure InitiateAction; safecall;
  5425.     function IsRightToLeft: WordBool; safecall;
  5426.     function UseRightToLeftAlignment: WordBool; safecall;
  5427.     function UseRightToLeftReading: WordBool; safecall;
  5428.     function UseRightToLeftScrollBar: WordBool; safecall;
  5429.     function Get_BiDiMode: TxBiDiMode; safecall;
  5430.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  5431.     function Get_Cursor: Smallint; safecall;
  5432.     procedure Set_Cursor(Value: Smallint); safecall;
  5433.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  5434.     procedure AboutBox; safecall;
  5435.     property TopFont: IFontDisp read Get_TopFont;
  5436.     property ActivePage: WideString read Get_ActivePage write Set_ActivePage;
  5437.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5438.     property PageIndex: Integer read Get_PageIndex write Set_PageIndex;
  5439.     property Pages: IStrings read Get_Pages write Set_Pages;
  5440.     property Font: IFontDisp read Get_Font write _Set_Font;
  5441.     property TabsPerRow: Integer read Get_TabsPerRow write Set_TabsPerRow;
  5442.     property TabFont: IFontDisp read Get_TabFont write Set_TabFont;
  5443.     property Visible: WordBool read Get_Visible write Set_Visible;
  5444.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5445.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5446.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5447.   end;
  5448.  
  5449. // *********************************************************************//
  5450. // DispIntf:  ITabbedNotebookXDisp
  5451. // Flags:     (4416) Dual OleAutomation Dispatchable
  5452. // GUID:      {695CDBCD-02E5-11D2-B20D-00C04FA368D4}
  5453. // *********************************************************************//
  5454.   ITabbedNotebookXDisp = dispinterface
  5455.     ['{695CDBCD-02E5-11D2-B20D-00C04FA368D4}']
  5456.     function GetIndexForPage(const PageName: WideString): Integer; dispid 1;
  5457.     property TopFont: IFontDisp readonly dispid 2;
  5458.     property ActivePage: WideString dispid 4;
  5459.     property Enabled: WordBool dispid -514;
  5460.     property PageIndex: Integer dispid 5;
  5461.     property Pages: IStrings dispid 6;
  5462.     property Font: IFontDisp dispid -512;
  5463.     property TabsPerRow: Integer dispid 7;
  5464.     property TabFont: IFontDisp dispid 8;
  5465.     property Visible: WordBool dispid 9;
  5466.     property DoubleBuffered: WordBool dispid 12;
  5467.     procedure FlipChildren(AllLevels: WordBool); dispid 13;
  5468.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 16;
  5469.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 17;
  5470.     function GetControlsAlignment: TxAlignment; dispid 18;
  5471.     procedure InitiateAction; dispid 20;
  5472.     function IsRightToLeft: WordBool; dispid 21;
  5473.     function UseRightToLeftAlignment: WordBool; dispid 26;
  5474.     function UseRightToLeftReading: WordBool; dispid 27;
  5475.     function UseRightToLeftScrollBar: WordBool; dispid 28;
  5476.     property BiDiMode: TxBiDiMode dispid 29;
  5477.     property Cursor: Smallint dispid 30;
  5478.     function ClassNameIs(const Name: WideString): WordBool; dispid 34;
  5479.     procedure AboutBox; dispid -552;
  5480.   end;
  5481.  
  5482. // *********************************************************************//
  5483. // DispIntf:  ITabbedNotebookXEvents
  5484. // Flags:     (0)
  5485. // GUID:      {695CDBCF-02E5-11D2-B20D-00C04FA368D4}
  5486. // *********************************************************************//
  5487.   ITabbedNotebookXEvents = dispinterface
  5488.     ['{695CDBCF-02E5-11D2-B20D-00C04FA368D4}']
  5489.     procedure OnClick; dispid 1;
  5490.     procedure OnChange(NewTab: Integer; var AllowChange: WordBool); dispid 2;
  5491.   end;
  5492.  
  5493. // *********************************************************************//
  5494. // Interface: ITabControlX
  5495. // Flags:     (4416) Dual OleAutomation Dispatchable
  5496. // GUID:      {695CDBD4-02E5-11D2-B20D-00C04FA368D4}
  5497. // *********************************************************************//
  5498.   ITabControlX = interface(IDispatch)
  5499.     ['{695CDBD4-02E5-11D2-B20D-00C04FA368D4}']
  5500.     function Get_BiDiMode: TxBiDiMode; safecall;
  5501.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  5502.     function Get_DockSite: WordBool; safecall;
  5503.     procedure Set_DockSite(Value: WordBool); safecall;
  5504.     function Get_DragCursor: Smallint; safecall;
  5505.     procedure Set_DragCursor(Value: Smallint); safecall;
  5506.     function Get_DragMode: TxDragMode; safecall;
  5507.     procedure Set_DragMode(Value: TxDragMode); safecall;
  5508.     function Get_Enabled: WordBool; safecall;
  5509.     procedure Set_Enabled(Value: WordBool); safecall;
  5510.     function Get_Font: IFontDisp; safecall;
  5511.     procedure _Set_Font(const Value: IFontDisp); safecall;
  5512.     procedure Set_Font(const Value: IFontDisp); safecall;
  5513.     function Get_HotTrack: WordBool; safecall;
  5514.     procedure Set_HotTrack(Value: WordBool); safecall;
  5515.     function Get_MultiLine: WordBool; safecall;
  5516.     procedure Set_MultiLine(Value: WordBool); safecall;
  5517.     function Get_MultiSelect: WordBool; safecall;
  5518.     procedure Set_MultiSelect(Value: WordBool); safecall;
  5519.     function Get_OwnerDraw: WordBool; safecall;
  5520.     procedure Set_OwnerDraw(Value: WordBool); safecall;
  5521.     function Get_ParentFont: WordBool; safecall;
  5522.     procedure Set_ParentFont(Value: WordBool); safecall;
  5523.     function Get_RaggedRight: WordBool; safecall;
  5524.     procedure Set_RaggedRight(Value: WordBool); safecall;
  5525.     function Get_ScrollOpposite: WordBool; safecall;
  5526.     procedure Set_ScrollOpposite(Value: WordBool); safecall;
  5527.     function Get_Style: TxTabStyle; safecall;
  5528.     procedure Set_Style(Value: TxTabStyle); safecall;
  5529.     function Get_TabHeight: Smallint; safecall;
  5530.     procedure Set_TabHeight(Value: Smallint); safecall;
  5531.     function Get_TabPosition: TxTabPosition; safecall;
  5532.     procedure Set_TabPosition(Value: TxTabPosition); safecall;
  5533.     function Get_Tabs: IStrings; safecall;
  5534.     procedure Set_Tabs(const Value: IStrings); safecall;
  5535.     function Get_TabIndex: Integer; safecall;
  5536.     procedure Set_TabIndex(Value: Integer); safecall;
  5537.     function Get_TabWidth: Smallint; safecall;
  5538.     procedure Set_TabWidth(Value: Smallint); safecall;
  5539.     function Get_Visible: WordBool; safecall;
  5540.     procedure Set_Visible(Value: WordBool); safecall;
  5541.     function Get_DoubleBuffered: WordBool; safecall;
  5542.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  5543.     procedure FlipChildren(AllLevels: WordBool); safecall;
  5544.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  5545.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  5546.     function GetControlsAlignment: TxAlignment; safecall;
  5547.     procedure InitiateAction; safecall;
  5548.     function IsRightToLeft: WordBool; safecall;
  5549.     function UseRightToLeftAlignment: WordBool; safecall;
  5550.     function UseRightToLeftReading: WordBool; safecall;
  5551.     function UseRightToLeftScrollBar: WordBool; safecall;
  5552.     function Get_Cursor: Smallint; safecall;
  5553.     procedure Set_Cursor(Value: Smallint); safecall;
  5554.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  5555.     procedure AboutBox; safecall;
  5556.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5557.     property DockSite: WordBool read Get_DockSite write Set_DockSite;
  5558.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  5559.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  5560.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5561.     property Font: IFontDisp read Get_Font write _Set_Font;
  5562.     property HotTrack: WordBool read Get_HotTrack write Set_HotTrack;
  5563.     property MultiLine: WordBool read Get_MultiLine write Set_MultiLine;
  5564.     property MultiSelect: WordBool read Get_MultiSelect write Set_MultiSelect;
  5565.     property OwnerDraw: WordBool read Get_OwnerDraw write Set_OwnerDraw;
  5566.     property ParentFont: WordBool read Get_ParentFont write Set_ParentFont;
  5567.     property RaggedRight: WordBool read Get_RaggedRight write Set_RaggedRight;
  5568.     property ScrollOpposite: WordBool read Get_ScrollOpposite write Set_ScrollOpposite;
  5569.     property Style: TxTabStyle read Get_Style write Set_Style;
  5570.     property TabHeight: Smallint read Get_TabHeight write Set_TabHeight;
  5571.     property TabPosition: TxTabPosition read Get_TabPosition write Set_TabPosition;
  5572.     property Tabs: IStrings read Get_Tabs write Set_Tabs;
  5573.     property TabIndex: Integer read Get_TabIndex write Set_TabIndex;
  5574.     property TabWidth: Smallint read Get_TabWidth write Set_TabWidth;
  5575.     property Visible: WordBool read Get_Visible write Set_Visible;
  5576.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5577.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5578.   end;
  5579.  
  5580. // *********************************************************************//
  5581. // DispIntf:  ITabControlXDisp
  5582. // Flags:     (4416) Dual OleAutomation Dispatchable
  5583. // GUID:      {695CDBD4-02E5-11D2-B20D-00C04FA368D4}
  5584. // *********************************************************************//
  5585.   ITabControlXDisp = dispinterface
  5586.     ['{695CDBD4-02E5-11D2-B20D-00C04FA368D4}']
  5587.     property BiDiMode: TxBiDiMode dispid 1;
  5588.     property DockSite: WordBool dispid 2;
  5589.     property DragCursor: Smallint dispid 3;
  5590.     property DragMode: TxDragMode dispid 4;
  5591.     property Enabled: WordBool dispid -514;
  5592.     property Font: IFontDisp dispid -512;
  5593.     property HotTrack: WordBool dispid 5;
  5594.     property MultiLine: WordBool dispid 6;
  5595.     property MultiSelect: WordBool dispid 7;
  5596.     property OwnerDraw: WordBool dispid 8;
  5597.     property ParentFont: WordBool dispid 9;
  5598.     property RaggedRight: WordBool dispid 10;
  5599.     property ScrollOpposite: WordBool dispid 11;
  5600.     property Style: TxTabStyle dispid 12;
  5601.     property TabHeight: Smallint dispid 13;
  5602.     property TabPosition: TxTabPosition dispid 14;
  5603.     property Tabs: IStrings dispid 15;
  5604.     property TabIndex: Integer dispid 16;
  5605.     property TabWidth: Smallint dispid 17;
  5606.     property Visible: WordBool dispid 18;
  5607.     property DoubleBuffered: WordBool dispid 21;
  5608.     procedure FlipChildren(AllLevels: WordBool); dispid 22;
  5609.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 25;
  5610.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 26;
  5611.     function GetControlsAlignment: TxAlignment; dispid 27;
  5612.     procedure InitiateAction; dispid 29;
  5613.     function IsRightToLeft: WordBool; dispid 30;
  5614.     function UseRightToLeftAlignment: WordBool; dispid 35;
  5615.     function UseRightToLeftReading: WordBool; dispid 36;
  5616.     function UseRightToLeftScrollBar: WordBool; dispid 37;
  5617.     property Cursor: Smallint dispid 38;
  5618.     function ClassNameIs(const Name: WideString): WordBool; dispid 42;
  5619.     procedure AboutBox; dispid -552;
  5620.   end;
  5621.  
  5622. // *********************************************************************//
  5623. // DispIntf:  ITabControlXEvents
  5624. // Flags:     (0)
  5625. // GUID:      {695CDBD6-02E5-11D2-B20D-00C04FA368D4}
  5626. // *********************************************************************//
  5627.   ITabControlXEvents = dispinterface
  5628.     ['{695CDBD6-02E5-11D2-B20D-00C04FA368D4}']
  5629.     procedure OnChange; dispid 1;
  5630.     procedure OnChanging(var AllowChange: WordBool); dispid 2;
  5631.     procedure OnGetImageIndex(TabIndex: Integer; var ImageIndex: Integer); dispid 10;
  5632.     procedure OnResize; dispid 15;
  5633.   end;
  5634.  
  5635. // *********************************************************************//
  5636. // Interface: ITabSetX
  5637. // Flags:     (4416) Dual OleAutomation Dispatchable
  5638. // GUID:      {695CDBDD-02E5-11D2-B20D-00C04FA368D4}
  5639. // *********************************************************************//
  5640.   ITabSetX = interface(IDispatch)
  5641.     ['{695CDBDD-02E5-11D2-B20D-00C04FA368D4}']
  5642.     procedure SelectNext(Direction: WordBool); safecall;
  5643.     function Get_FirstIndex: Integer; safecall;
  5644.     procedure Set_FirstIndex(Value: Integer); safecall;
  5645.     function Get_AutoScroll: WordBool; safecall;
  5646.     procedure Set_AutoScroll(Value: WordBool); safecall;
  5647.     function Get_BackgroundColor: OLE_COLOR; safecall;
  5648.     procedure Set_BackgroundColor(Value: OLE_COLOR); safecall;
  5649.     function Get_DitherBackground: WordBool; safecall;
  5650.     procedure Set_DitherBackground(Value: WordBool); safecall;
  5651.     function Get_DragCursor: Smallint; safecall;
  5652.     procedure Set_DragCursor(Value: Smallint); safecall;
  5653.     function Get_DragMode: TxDragMode; safecall;
  5654.     procedure Set_DragMode(Value: TxDragMode); safecall;
  5655.     function Get_Enabled: WordBool; safecall;
  5656.     procedure Set_Enabled(Value: WordBool); safecall;
  5657.     function Get_EndMargin: Integer; safecall;
  5658.     procedure Set_EndMargin(Value: Integer); safecall;
  5659.     function Get_Font: IFontDisp; safecall;
  5660.     procedure _Set_Font(const Value: IFontDisp); safecall;
  5661.     procedure Set_Font(const Value: IFontDisp); safecall;
  5662.     function Get_StartMargin: Integer; safecall;
  5663.     procedure Set_StartMargin(Value: Integer); safecall;
  5664.     function Get_SelectedColor: OLE_COLOR; safecall;
  5665.     procedure Set_SelectedColor(Value: OLE_COLOR); safecall;
  5666.     function Get_Style: TxTabStyle; safecall;
  5667.     procedure Set_Style(Value: TxTabStyle); safecall;
  5668.     function Get_TabHeight: Integer; safecall;
  5669.     procedure Set_TabHeight(Value: Integer); safecall;
  5670.     function Get_Tabs: IStrings; safecall;
  5671.     procedure Set_Tabs(const Value: IStrings); safecall;
  5672.     function Get_TabIndex: Integer; safecall;
  5673.     procedure Set_TabIndex(Value: Integer); safecall;
  5674.     function Get_UnselectedColor: OLE_COLOR; safecall;
  5675.     procedure Set_UnselectedColor(Value: OLE_COLOR); safecall;
  5676.     function Get_Visible: WordBool; safecall;
  5677.     procedure Set_Visible(Value: WordBool); safecall;
  5678.     function Get_VisibleTabs: Integer; safecall;
  5679.     function Get_DoubleBuffered: WordBool; safecall;
  5680.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  5681.     procedure FlipChildren(AllLevels: WordBool); safecall;
  5682.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  5683.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  5684.     function GetControlsAlignment: TxAlignment; safecall;
  5685.     procedure InitiateAction; safecall;
  5686.     function IsRightToLeft: WordBool; safecall;
  5687.     function UseRightToLeftAlignment: WordBool; safecall;
  5688.     function UseRightToLeftReading: WordBool; safecall;
  5689.     function UseRightToLeftScrollBar: WordBool; safecall;
  5690.     function Get_BiDiMode: TxBiDiMode; safecall;
  5691.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  5692.     function Get_Cursor: Smallint; safecall;
  5693.     procedure Set_Cursor(Value: Smallint); safecall;
  5694.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  5695.     procedure AboutBox; safecall;
  5696.     property FirstIndex: Integer read Get_FirstIndex write Set_FirstIndex;
  5697.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  5698.     property BackgroundColor: OLE_COLOR read Get_BackgroundColor write Set_BackgroundColor;
  5699.     property DitherBackground: WordBool read Get_DitherBackground write Set_DitherBackground;
  5700.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  5701.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  5702.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5703.     property EndMargin: Integer read Get_EndMargin write Set_EndMargin;
  5704.     property Font: IFontDisp read Get_Font write _Set_Font;
  5705.     property StartMargin: Integer read Get_StartMargin write Set_StartMargin;
  5706.     property SelectedColor: OLE_COLOR read Get_SelectedColor write Set_SelectedColor;
  5707.     property Style: TxTabStyle read Get_Style write Set_Style;
  5708.     property TabHeight: Integer read Get_TabHeight write Set_TabHeight;
  5709.     property Tabs: IStrings read Get_Tabs write Set_Tabs;
  5710.     property TabIndex: Integer read Get_TabIndex write Set_TabIndex;
  5711.     property UnselectedColor: OLE_COLOR read Get_UnselectedColor write Set_UnselectedColor;
  5712.     property Visible: WordBool read Get_Visible write Set_Visible;
  5713.     property VisibleTabs: Integer read Get_VisibleTabs;
  5714.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5715.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5716.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5717.   end;
  5718.  
  5719. // *********************************************************************//
  5720. // DispIntf:  ITabSetXDisp
  5721. // Flags:     (4416) Dual OleAutomation Dispatchable
  5722. // GUID:      {695CDBDD-02E5-11D2-B20D-00C04FA368D4}
  5723. // *********************************************************************//
  5724.   ITabSetXDisp = dispinterface
  5725.     ['{695CDBDD-02E5-11D2-B20D-00C04FA368D4}']
  5726.     procedure SelectNext(Direction: WordBool); dispid 2;
  5727.     property FirstIndex: Integer dispid 3;
  5728.     property AutoScroll: WordBool dispid 4;
  5729.     property BackgroundColor: OLE_COLOR dispid 5;
  5730.     property DitherBackground: WordBool dispid 6;
  5731.     property DragCursor: Smallint dispid 7;
  5732.     property DragMode: TxDragMode dispid 8;
  5733.     property Enabled: WordBool dispid -514;
  5734.     property EndMargin: Integer dispid 9;
  5735.     property Font: IFontDisp dispid -512;
  5736.     property StartMargin: Integer dispid 10;
  5737.     property SelectedColor: OLE_COLOR dispid 11;
  5738.     property Style: TxTabStyle dispid 12;
  5739.     property TabHeight: Integer dispid 13;
  5740.     property Tabs: IStrings dispid 14;
  5741.     property TabIndex: Integer dispid 15;
  5742.     property UnselectedColor: OLE_COLOR dispid 16;
  5743.     property Visible: WordBool dispid 17;
  5744.     property VisibleTabs: Integer readonly dispid 18;
  5745.     property DoubleBuffered: WordBool dispid 21;
  5746.     procedure FlipChildren(AllLevels: WordBool); dispid 22;
  5747.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 25;
  5748.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 26;
  5749.     function GetControlsAlignment: TxAlignment; dispid 27;
  5750.     procedure InitiateAction; dispid 29;
  5751.     function IsRightToLeft: WordBool; dispid 30;
  5752.     function UseRightToLeftAlignment: WordBool; dispid 35;
  5753.     function UseRightToLeftReading: WordBool; dispid 36;
  5754.     function UseRightToLeftScrollBar: WordBool; dispid 37;
  5755.     property BiDiMode: TxBiDiMode dispid 38;
  5756.     property Cursor: Smallint dispid 39;
  5757.     function ClassNameIs(const Name: WideString): WordBool; dispid 43;
  5758.     procedure AboutBox; dispid -552;
  5759.   end;
  5760.  
  5761. // *********************************************************************//
  5762. // DispIntf:  ITabSetXEvents
  5763. // Flags:     (0)
  5764. // GUID:      {695CDBDF-02E5-11D2-B20D-00C04FA368D4}
  5765. // *********************************************************************//
  5766.   ITabSetXEvents = dispinterface
  5767.     ['{695CDBDF-02E5-11D2-B20D-00C04FA368D4}']
  5768.     procedure OnClick; dispid 1;
  5769.     procedure OnChange(NewTab: Integer; var AllowChange: WordBool); dispid 2;
  5770.     procedure OnMeasureTab(Index: Integer; var TabWidth: Integer); dispid 11;
  5771.   end;
  5772.  
  5773. // *********************************************************************//
  5774. // Interface: ITrackBarX
  5775. // Flags:     (4416) Dual OleAutomation Dispatchable
  5776. // GUID:      {695CDBE4-02E5-11D2-B20D-00C04FA368D4}
  5777. // *********************************************************************//
  5778.   ITrackBarX = interface(IDispatch)
  5779.     ['{695CDBE4-02E5-11D2-B20D-00C04FA368D4}']
  5780.     procedure SetTick(Value: Integer); safecall;
  5781.     function Get_Ctl3D: WordBool; safecall;
  5782.     procedure Set_Ctl3D(Value: WordBool); safecall;
  5783.     function Get_DragCursor: Smallint; safecall;
  5784.     procedure Set_DragCursor(Value: Smallint); safecall;
  5785.     function Get_DragMode: TxDragMode; safecall;
  5786.     procedure Set_DragMode(Value: TxDragMode); safecall;
  5787.     function Get_Enabled: WordBool; safecall;
  5788.     procedure Set_Enabled(Value: WordBool); safecall;
  5789.     function Get_LineSize: Integer; safecall;
  5790.     procedure Set_LineSize(Value: Integer); safecall;
  5791.     function Get_Max: Integer; safecall;
  5792.     procedure Set_Max(Value: Integer); safecall;
  5793.     function Get_Min: Integer; safecall;
  5794.     procedure Set_Min(Value: Integer); safecall;
  5795.     function Get_Orientation: TxTrackBarOrientation; safecall;
  5796.     procedure Set_Orientation(Value: TxTrackBarOrientation); safecall;
  5797.     function Get_ParentCtl3D: WordBool; safecall;
  5798.     procedure Set_ParentCtl3D(Value: WordBool); safecall;
  5799.     function Get_PageSize: Integer; safecall;
  5800.     procedure Set_PageSize(Value: Integer); safecall;
  5801.     function Get_Frequency: Integer; safecall;
  5802.     procedure Set_Frequency(Value: Integer); safecall;
  5803.     function Get_Position: Integer; safecall;
  5804.     procedure Set_Position(Value: Integer); safecall;
  5805.     function Get_SliderVisible: WordBool; safecall;
  5806.     procedure Set_SliderVisible(Value: WordBool); safecall;
  5807.     function Get_SelEnd: Integer; safecall;
  5808.     procedure Set_SelEnd(Value: Integer); safecall;
  5809.     function Get_SelStart: Integer; safecall;
  5810.     procedure Set_SelStart(Value: Integer); safecall;
  5811.     function Get_ThumbLength: Integer; safecall;
  5812.     procedure Set_ThumbLength(Value: Integer); safecall;
  5813.     function Get_TickMarks: TxTickMark; safecall;
  5814.     procedure Set_TickMarks(Value: TxTickMark); safecall;
  5815.     function Get_TickStyle: TxTickStyle; safecall;
  5816.     procedure Set_TickStyle(Value: TxTickStyle); safecall;
  5817.     function Get_Visible: WordBool; safecall;
  5818.     procedure Set_Visible(Value: WordBool); safecall;
  5819.     function Get_DoubleBuffered: WordBool; safecall;
  5820.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  5821.     procedure FlipChildren(AllLevels: WordBool); safecall;
  5822.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  5823.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  5824.     function GetControlsAlignment: TxAlignment; safecall;
  5825.     procedure InitiateAction; safecall;
  5826.     function IsRightToLeft: WordBool; safecall;
  5827.     function UseRightToLeftAlignment: WordBool; safecall;
  5828.     function UseRightToLeftReading: WordBool; safecall;
  5829.     function UseRightToLeftScrollBar: WordBool; safecall;
  5830.     function Get_BiDiMode: TxBiDiMode; safecall;
  5831.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  5832.     function Get_Cursor: Smallint; safecall;
  5833.     procedure Set_Cursor(Value: Smallint); safecall;
  5834.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  5835.     procedure AboutBox; safecall;
  5836.     property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
  5837.     property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
  5838.     property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
  5839.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5840.     property LineSize: Integer read Get_LineSize write Set_LineSize;
  5841.     property Max: Integer read Get_Max write Set_Max;
  5842.     property Min: Integer read Get_Min write Set_Min;
  5843.     property Orientation: TxTrackBarOrientation read Get_Orientation write Set_Orientation;
  5844.     property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
  5845.     property PageSize: Integer read Get_PageSize write Set_PageSize;
  5846.     property Frequency: Integer read Get_Frequency write Set_Frequency;
  5847.     property Position: Integer read Get_Position write Set_Position;
  5848.     property SliderVisible: WordBool read Get_SliderVisible write Set_SliderVisible;
  5849.     property SelEnd: Integer read Get_SelEnd write Set_SelEnd;
  5850.     property SelStart: Integer read Get_SelStart write Set_SelStart;
  5851.     property ThumbLength: Integer read Get_ThumbLength write Set_ThumbLength;
  5852.     property TickMarks: TxTickMark read Get_TickMarks write Set_TickMarks;
  5853.     property TickStyle: TxTickStyle read Get_TickStyle write Set_TickStyle;
  5854.     property Visible: WordBool read Get_Visible write Set_Visible;
  5855.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5856.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5857.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5858.   end;
  5859.  
  5860. // *********************************************************************//
  5861. // DispIntf:  ITrackBarXDisp
  5862. // Flags:     (4416) Dual OleAutomation Dispatchable
  5863. // GUID:      {695CDBE4-02E5-11D2-B20D-00C04FA368D4}
  5864. // *********************************************************************//
  5865.   ITrackBarXDisp = dispinterface
  5866.     ['{695CDBE4-02E5-11D2-B20D-00C04FA368D4}']
  5867.     procedure SetTick(Value: Integer); dispid 1;
  5868.     property Ctl3D: WordBool dispid 2;
  5869.     property DragCursor: Smallint dispid 3;
  5870.     property DragMode: TxDragMode dispid 4;
  5871.     property Enabled: WordBool dispid -514;
  5872.     property LineSize: Integer dispid 5;
  5873.     property Max: Integer dispid 6;
  5874.     property Min: Integer dispid 7;
  5875.     property Orientation: TxTrackBarOrientation dispid 8;
  5876.     property ParentCtl3D: WordBool dispid 9;
  5877.     property PageSize: Integer dispid 10;
  5878.     property Frequency: Integer dispid 11;
  5879.     property Position: Integer dispid 12;
  5880.     property SliderVisible: WordBool dispid 13;
  5881.     property SelEnd: Integer dispid 14;
  5882.     property SelStart: Integer dispid 15;
  5883.     property ThumbLength: Integer dispid 16;
  5884.     property TickMarks: TxTickMark dispid 17;
  5885.     property TickStyle: TxTickStyle dispid 18;
  5886.     property Visible: WordBool dispid 19;
  5887.     property DoubleBuffered: WordBool dispid 22;
  5888.     procedure FlipChildren(AllLevels: WordBool); dispid 23;
  5889.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 26;
  5890.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 27;
  5891.     function GetControlsAlignment: TxAlignment; dispid 28;
  5892.     procedure InitiateAction; dispid 30;
  5893.     function IsRightToLeft: WordBool; dispid 31;
  5894.     function UseRightToLeftAlignment: WordBool; dispid 36;
  5895.     function UseRightToLeftReading: WordBool; dispid 37;
  5896.     function UseRightToLeftScrollBar: WordBool; dispid 38;
  5897.     property BiDiMode: TxBiDiMode dispid 39;
  5898.     property Cursor: Smallint dispid 40;
  5899.     function ClassNameIs(const Name: WideString): WordBool; dispid 44;
  5900.     procedure AboutBox; dispid -552;
  5901.   end;
  5902.  
  5903. // *********************************************************************//
  5904. // DispIntf:  ITrackBarXEvents
  5905. // Flags:     (0)
  5906. // GUID:      {695CDBE6-02E5-11D2-B20D-00C04FA368D4}
  5907. // *********************************************************************//
  5908.   ITrackBarXEvents = dispinterface
  5909.     ['{695CDBE6-02E5-11D2-B20D-00C04FA368D4}']
  5910.     procedure OnChange; dispid 1;
  5911.     procedure OnKeyPress(var Key: Smallint); dispid 7;
  5912.   end;
  5913.  
  5914. // *********************************************************************//
  5915. // Interface: IUpDownX
  5916. // Flags:     (4416) Dual OleAutomation Dispatchable
  5917. // GUID:      {695CDBEE-02E5-11D2-B20D-00C04FA368D4}
  5918. // *********************************************************************//
  5919.   IUpDownX = interface(IDispatch)
  5920.     ['{695CDBEE-02E5-11D2-B20D-00C04FA368D4}']
  5921.     function Get_AlignButton: TxUDAlignButton; safecall;
  5922.     procedure Set_AlignButton(Value: TxUDAlignButton); safecall;
  5923.     function Get_ArrowKeys: WordBool; safecall;
  5924.     procedure Set_ArrowKeys(Value: WordBool); safecall;
  5925.     function Get_Enabled: WordBool; safecall;
  5926.     procedure Set_Enabled(Value: WordBool); safecall;
  5927.     function Get_Min: Smallint; safecall;
  5928.     procedure Set_Min(Value: Smallint); safecall;
  5929.     function Get_Max: Smallint; safecall;
  5930.     procedure Set_Max(Value: Smallint); safecall;
  5931.     function Get_Increment: Integer; safecall;
  5932.     procedure Set_Increment(Value: Integer); safecall;
  5933.     function Get_Orientation: TxUDOrientation; safecall;
  5934.     procedure Set_Orientation(Value: TxUDOrientation); safecall;
  5935.     function Get_Position: Smallint; safecall;
  5936.     procedure Set_Position(Value: Smallint); safecall;
  5937.     function Get_Thousands: WordBool; safecall;
  5938.     procedure Set_Thousands(Value: WordBool); safecall;
  5939.     function Get_Visible: WordBool; safecall;
  5940.     procedure Set_Visible(Value: WordBool); safecall;
  5941.     function Get_Wrap: WordBool; safecall;
  5942.     procedure Set_Wrap(Value: WordBool); safecall;
  5943.     function Get_DoubleBuffered: WordBool; safecall;
  5944.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  5945.     procedure FlipChildren(AllLevels: WordBool); safecall;
  5946.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
  5947.     function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
  5948.     function GetControlsAlignment: TxAlignment; safecall;
  5949.     procedure InitiateAction; safecall;
  5950.     function IsRightToLeft: WordBool; safecall;
  5951.     function UseRightToLeftAlignment: WordBool; safecall;
  5952.     function UseRightToLeftReading: WordBool; safecall;
  5953.     function UseRightToLeftScrollBar: WordBool; safecall;
  5954.     function Get_BiDiMode: TxBiDiMode; safecall;
  5955.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  5956.     function Get_Cursor: Smallint; safecall;
  5957.     procedure Set_Cursor(Value: Smallint); safecall;
  5958.     function ClassNameIs(const Name: WideString): WordBool; safecall;
  5959.     procedure AboutBox; safecall;
  5960.     property AlignButton: TxUDAlignButton read Get_AlignButton write Set_AlignButton;
  5961.     property ArrowKeys: WordBool read Get_ArrowKeys write Set_ArrowKeys;
  5962.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  5963.     property Min: Smallint read Get_Min write Set_Min;
  5964.     property Max: Smallint read Get_Max write Set_Max;
  5965.     property Increment: Integer read Get_Increment write Set_Increment;
  5966.     property Orientation: TxUDOrientation read Get_Orientation write Set_Orientation;
  5967.     property Position: Smallint read Get_Position write Set_Position;
  5968.     property Thousands: WordBool read Get_Thousands write Set_Thousands;
  5969.     property Visible: WordBool read Get_Visible write Set_Visible;
  5970.     property Wrap: WordBool read Get_Wrap write Set_Wrap;
  5971.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  5972.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  5973.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  5974.   end;
  5975.  
  5976. // *********************************************************************//
  5977. // DispIntf:  IUpDownXDisp
  5978. // Flags:     (4416) Dual OleAutomation Dispatchable
  5979. // GUID:      {695CDBEE-02E5-11D2-B20D-00C04FA368D4}
  5980. // *********************************************************************//
  5981.   IUpDownXDisp = dispinterface
  5982.     ['{695CDBEE-02E5-11D2-B20D-00C04FA368D4}']
  5983.     property AlignButton: TxUDAlignButton dispid 1;
  5984.     property ArrowKeys: WordBool dispid 2;
  5985.     property Enabled: WordBool dispid -514;
  5986.     property Min: Smallint dispid 3;
  5987.     property Max: Smallint dispid 4;
  5988.     property Increment: Integer dispid 5;
  5989.     property Orientation: TxUDOrientation dispid 6;
  5990.     property Position: Smallint dispid 7;
  5991.     property Thousands: WordBool dispid 8;
  5992.     property Visible: WordBool dispid 9;
  5993.     property Wrap: WordBool dispid 10;
  5994.     property DoubleBuffered: WordBool dispid 13;
  5995.     procedure FlipChildren(AllLevels: WordBool); dispid 14;
  5996.     function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 17;
  5997.     function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 18;
  5998.     function GetControlsAlignment: TxAlignment; dispid 19;
  5999.     procedure InitiateAction; dispid 21;
  6000.     function IsRightToLeft: WordBool; dispid 22;
  6001.     function UseRightToLeftAlignment: WordBool; dispid 27;
  6002.     function UseRightToLeftReading: WordBool; dispid 28;
  6003.     function UseRightToLeftScrollBar: WordBool; dispid 29;
  6004.     property BiDiMode: TxBiDiMode dispid 30;
  6005.     property Cursor: Smallint dispid 31;
  6006.     function ClassNameIs(const Name: WideString): WordBool; dispid 35;
  6007.     procedure AboutBox; dispid -552;
  6008.   end;
  6009.  
  6010. // *********************************************************************//
  6011. // DispIntf:  IUpDownXEvents
  6012. // Flags:     (0)
  6013. // GUID:      {695CDBF0-02E5-11D2-B20D-00C04FA368D4}
  6014. // *********************************************************************//
  6015.   IUpDownXEvents = dispinterface
  6016.     ['{695CDBF0-02E5-11D2-B20D-00C04FA368D4}']
  6017.     procedure OnChanging(var AllowChange: WordBool); dispid 1;
  6018.     procedure OnClick(Button: TxUDBtnType); dispid 2;
  6019.   end;
  6020.  
  6021.  
  6022. // *********************************************************************//
  6023. // OLE Control Proxy class declaration
  6024. // Control Name     : TAnimateX
  6025. // Help String      : AnimateX Control
  6026. // Default Interface: IAnimateX
  6027. // Def. Intf. DISP? : No
  6028. // Event   Interface: IAnimateXEvents
  6029. // TypeFlags        : (38) CanCreate Licensed Control
  6030. // *********************************************************************//
  6031.   TAnimateX = class(TOleControl)
  6032.   private
  6033.     FOnOpen: TNotifyEvent;
  6034.     FOnClose: TNotifyEvent;
  6035.     FOnStart: TNotifyEvent;
  6036.     FOnStop: TNotifyEvent;
  6037.     FIntf: IAnimateX;
  6038.     function  GetControlInterface: IAnimateX;
  6039.   protected
  6040.     procedure CreateControl;
  6041.     procedure InitControlData; override;
  6042.   public
  6043.     procedure Play(FromFrame: Smallint; ToFrame: Smallint; Count: Integer);
  6044.     procedure Reset;
  6045.     procedure Seek(Frame: Smallint);
  6046.     procedure Stop;
  6047.     procedure FlipChildren(AllLevels: WordBool);
  6048.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6049.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6050.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6051.     procedure InitiateAction;
  6052.     function IsRightToLeft(out Value: WordBool): WordBool;
  6053.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6054.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6055.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6056.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6057.     procedure AboutBox;
  6058.     property  ControlInterface: IAnimateX read GetControlInterface;
  6059.     property FrameCount: Integer index 1 read GetIntegerProp;
  6060.     property FrameHeight: Integer index 2 read GetIntegerProp;
  6061.     property FrameWidth: Integer index 3 read GetIntegerProp;
  6062.     property Open: WordBool index 4 read GetWordBoolProp write SetWordBoolProp;
  6063.     property ResHandle: Integer index 9 read GetIntegerProp write SetIntegerProp;
  6064.     property ResId: Integer index 10 read GetIntegerProp write SetIntegerProp;
  6065.     property ResName: WideString index 11 read GetWideStringProp write SetWideStringProp;
  6066.     property DoubleBuffered: WordBool index 26 read GetWordBoolProp write SetWordBoolProp;
  6067.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp;
  6068.     property BiDiMode: TOleEnum index 43 read GetTOleEnumProp write SetTOleEnumProp;
  6069.   published
  6070.     property Active: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  6071.     property AutoSize: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  6072.     property Center: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  6073.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6074.     property CommonAVI: TOleEnum index 15 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6075.     property FileName: WideString index 16 read GetWideStringProp write SetWideStringProp stored False;
  6076.     property ParentColor: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  6077.     property Repetitions: Integer index 18 read GetIntegerProp write SetIntegerProp stored False;
  6078.     property StartFrame: Smallint index 19 read GetSmallintProp write SetSmallintProp stored False;
  6079.     property StopFrame: Smallint index 20 read GetSmallintProp write SetSmallintProp stored False;
  6080.     property Timers: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False;
  6081.     property Transparent: WordBool index 22 read GetWordBoolProp write SetWordBoolProp stored False;
  6082.     property Visible: WordBool index 23 read GetWordBoolProp write SetWordBoolProp stored False;
  6083.     property Cursor: Smallint index 44 read GetSmallintProp write SetSmallintProp stored False;
  6084.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  6085.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  6086.     property OnStart: TNotifyEvent read FOnStart write FOnStart;
  6087.     property OnStop: TNotifyEvent read FOnStop write FOnStop;
  6088.   end;
  6089.  
  6090.  
  6091. // *********************************************************************//
  6092. // OLE Control Proxy class declaration
  6093. // Control Name     : TButtonX
  6094. // Help String      : ButtonX Control
  6095. // Default Interface: IButtonX
  6096. // Def. Intf. DISP? : No
  6097. // Event   Interface: IButtonXEvents
  6098. // TypeFlags        : (38) CanCreate Licensed Control
  6099. // *********************************************************************//
  6100.   TButtonXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6101.  
  6102.   TButtonX = class(TOleControl)
  6103.   private
  6104.     FOnClick: TNotifyEvent;
  6105.     FOnKeyPress: TButtonXOnKeyPress;
  6106.     FIntf: IButtonX;
  6107.     function  GetControlInterface: IButtonX;
  6108.   protected
  6109.     procedure CreateControl;
  6110.     procedure InitControlData; override;
  6111.   public
  6112.     procedure Click;
  6113.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6114.     procedure FlipChildren(AllLevels: WordBool);
  6115.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6116.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6117.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6118.     procedure InitiateAction;
  6119.     function IsRightToLeft(out Value: WordBool): WordBool;
  6120.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6121.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6122.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6123.     procedure AboutBox;
  6124.     property  ControlInterface: IButtonX read GetControlInterface;
  6125.     property DoubleBuffered: WordBool index 12 read GetWordBoolProp write SetWordBoolProp;
  6126.   published
  6127.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6128.     property Cancel: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  6129.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  6130.     property Default: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  6131.     property DragCursor: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  6132.     property DragMode: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6133.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6134.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6135.     property ParentFont: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  6136.     property Visible: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  6137.     property Cursor: Smallint index 28 read GetSmallintProp write SetSmallintProp stored False;
  6138.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6139.     property OnKeyPress: TButtonXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6140.   end;
  6141.  
  6142.  
  6143. // *********************************************************************//
  6144. // OLE Control Proxy class declaration
  6145. // Control Name     : TCalendarX
  6146. // Help String      : CalendarX Control
  6147. // Default Interface: ICalendarX
  6148. // Def. Intf. DISP? : No
  6149. // Event   Interface: ICalendarXEvents
  6150. // TypeFlags        : (38) CanCreate Licensed Control
  6151. // *********************************************************************//
  6152.   TCalendarXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6153.  
  6154.   TCalendarX = class(TOleControl)
  6155.   private
  6156.     FOnClick: TNotifyEvent;
  6157.     FOnChange: TNotifyEvent;
  6158.     FOnDblClick: TNotifyEvent;
  6159.     FOnKeyPress: TCalendarXOnKeyPress;
  6160.     FIntf: ICalendarX;
  6161.     function  GetControlInterface: ICalendarX;
  6162.   protected
  6163.     procedure CreateControl;
  6164.     procedure InitControlData; override;
  6165.   public
  6166.     procedure NextMonth;
  6167.     procedure NextYear;
  6168.     procedure PrevMonth;
  6169.     procedure PrevYear;
  6170.     procedure UpdateCalendar;
  6171.     procedure FlipChildren(AllLevels: WordBool);
  6172.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6173.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6174.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6175.     procedure InitiateAction;
  6176.     function IsRightToLeft(out Value: WordBool): WordBool;
  6177.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6178.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6179.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6180.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6181.     procedure AboutBox;
  6182.     property  ControlInterface: ICalendarX read GetControlInterface;
  6183.     property CalendarDate: Double index 1 read GetDoubleProp write SetDoubleProp;
  6184.     property DoubleBuffered: WordBool index 23 read GetWordBoolProp write SetWordBoolProp;
  6185.     property BiDiMode: TOleEnum index 40 read GetTOleEnumProp write SetTOleEnumProp;
  6186.   published
  6187.     property BorderStyle: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6188.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6189.     property Ctl3D: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  6190.     property Day: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  6191.     property DragCursor: Smallint index 10 read GetSmallintProp write SetSmallintProp stored False;
  6192.     property DragMode: TOleEnum index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6193.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6194.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6195.     property GridLineWidth: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  6196.     property Month: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  6197.     property ParentColor: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  6198.     property ParentFont: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  6199.     property ReadOnly: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  6200.     property StartOfWeek: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  6201.     property UseCurrentDate: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  6202.     property Visible: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  6203.     property Year: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  6204.     property Cursor: Smallint index 41 read GetSmallintProp write SetSmallintProp stored False;
  6205.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6206.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  6207.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6208.     property OnKeyPress: TCalendarXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6209.   end;
  6210.  
  6211.  
  6212. // *********************************************************************//
  6213. // OLE Control Proxy class declaration
  6214. // Control Name     : TCheckBoxX
  6215. // Help String      : CheckBoxX Control
  6216. // Default Interface: ICheckBoxX
  6217. // Def. Intf. DISP? : No
  6218. // Event   Interface: ICheckBoxXEvents
  6219. // TypeFlags        : (38) CanCreate Licensed Control
  6220. // *********************************************************************//
  6221.   TCheckBoxXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6222.  
  6223.   TCheckBoxX = class(TOleControl)
  6224.   private
  6225.     FOnClick: TNotifyEvent;
  6226.     FOnKeyPress: TCheckBoxXOnKeyPress;
  6227.     FIntf: ICheckBoxX;
  6228.     function  GetControlInterface: ICheckBoxX;
  6229.   protected
  6230.     procedure CreateControl;
  6231.     procedure InitControlData; override;
  6232.   public
  6233.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6234.     procedure FlipChildren(AllLevels: WordBool);
  6235.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6236.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6237.     procedure InitiateAction;
  6238.     function IsRightToLeft(out Value: WordBool): WordBool;
  6239.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6240.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6241.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6242.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6243.     procedure AboutBox;
  6244.     property  ControlInterface: ICheckBoxX read GetControlInterface;
  6245.     property DoubleBuffered: WordBool index 16 read GetWordBoolProp write SetWordBoolProp;
  6246.   published
  6247.     property Alignment: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6248.     property AllowGrayed: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  6249.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6250.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  6251.     property Checked: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  6252.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6253.     property Ctl3D: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  6254.     property DragCursor: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  6255.     property DragMode: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6256.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6257.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6258.     property ParentColor: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  6259.     property ParentCtl3D: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  6260.     property ParentFont: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  6261.     property State: TOleEnum index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6262.     property Visible: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  6263.     property Cursor: Smallint index 32 read GetSmallintProp write SetSmallintProp stored False;
  6264.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6265.     property OnKeyPress: TCheckBoxXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6266.   end;
  6267.  
  6268.  
  6269. // *********************************************************************//
  6270. // OLE Control Proxy class declaration
  6271. // Control Name     : TCheckListBoxX
  6272. // Help String      : CheckListBoxX Control
  6273. // Default Interface: ICheckListBoxX
  6274. // Def. Intf. DISP? : No
  6275. // Event   Interface: ICheckListBoxXEvents
  6276. // TypeFlags        : (38) CanCreate Licensed Control
  6277. // *********************************************************************//
  6278.   TCheckListBoxXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6279.   TCheckListBoxXOnMeasureItem = procedure(Sender: TObject; Index: Integer; var Height: Integer) of object;
  6280.  
  6281.   TCheckListBoxX = class(TOleControl)
  6282.   private
  6283.     FOnClickCheck: TNotifyEvent;
  6284.     FOnClick: TNotifyEvent;
  6285.     FOnDblClick: TNotifyEvent;
  6286.     FOnKeyPress: TCheckListBoxXOnKeyPress;
  6287.     FOnMeasureItem: TCheckListBoxXOnMeasureItem;
  6288.     FIntf: ICheckListBoxX;
  6289.     function  GetControlInterface: ICheckListBoxX;
  6290.     function Get_Items: IStrings;
  6291.     procedure Set_Items(const Value: IStrings);
  6292.   protected
  6293.     procedure CreateControl;
  6294.     procedure InitControlData; override;
  6295.   public
  6296.     procedure Clear;
  6297.     procedure FlipChildren(AllLevels: WordBool);
  6298.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6299.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6300.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6301.     procedure InitiateAction;
  6302.     function IsRightToLeft(out Value: WordBool): WordBool;
  6303.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6304.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6305.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6306.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6307.     procedure AboutBox;
  6308.     property  ControlInterface: ICheckListBoxX read GetControlInterface;
  6309.     property Items: IStrings read Get_Items write Set_Items;
  6310.     property ItemIndex: Integer index 23 read GetIntegerProp write SetIntegerProp;
  6311.     property SelCount: Integer index 24 read GetIntegerProp;
  6312.     property TopIndex: Integer index 25 read GetIntegerProp write SetIntegerProp;
  6313.     property DoubleBuffered: WordBool index 28 read GetWordBoolProp write SetWordBoolProp;
  6314.   published
  6315.     property AllowGrayed: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  6316.     property BiDiMode: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6317.     property BorderStyle: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6318.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6319.     property Columns: Integer index 4 read GetIntegerProp write SetIntegerProp stored False;
  6320.     property Ctl3D: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  6321.     property DragCursor: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  6322.     property DragMode: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6323.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6324.     property Flat: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  6325.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6326.     property ImeMode: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6327.     property ImeName: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  6328.     property IntegralHeight: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  6329.     property ItemHeight: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  6330.     property ParentColor: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  6331.     property ParentCtl3D: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  6332.     property ParentFont: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  6333.     property Sorted: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  6334.     property Style: TOleEnum index 18 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6335.     property TabWidth: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  6336.     property Visible: WordBool index 20 read GetWordBoolProp write SetWordBoolProp stored False;
  6337.     property Cursor: Smallint index 45 read GetSmallintProp write SetSmallintProp stored False;
  6338.     property OnClickCheck: TNotifyEvent read FOnClickCheck write FOnClickCheck;
  6339.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6340.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6341.     property OnKeyPress: TCheckListBoxXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6342.     property OnMeasureItem: TCheckListBoxXOnMeasureItem read FOnMeasureItem write FOnMeasureItem;
  6343.   end;
  6344.  
  6345.  
  6346. // *********************************************************************//
  6347. // OLE Control Proxy class declaration
  6348. // Control Name     : TColorGridX
  6349. // Help String      : ColorGridX Control
  6350. // Default Interface: IColorGridX
  6351. // Def. Intf. DISP? : No
  6352. // Event   Interface: IColorGridXEvents
  6353. // TypeFlags        : (38) CanCreate Licensed Control
  6354. // *********************************************************************//
  6355.   TColorGridXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6356.  
  6357.   TColorGridX = class(TOleControl)
  6358.   private
  6359.     FOnChange: TNotifyEvent;
  6360.     FOnClick: TNotifyEvent;
  6361.     FOnKeyPress: TColorGridXOnKeyPress;
  6362.     FIntf: IColorGridX;
  6363.     function  GetControlInterface: IColorGridX;
  6364.   protected
  6365.     procedure CreateControl;
  6366.     procedure InitControlData; override;
  6367.   public
  6368.     function ColorToIndex(AColor: OLE_COLOR; out Value: Integer): Integer;
  6369.     procedure FlipChildren(AllLevels: WordBool);
  6370.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6371.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6372.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6373.     procedure InitiateAction;
  6374.     function IsRightToLeft(out Value: WordBool): WordBool;
  6375.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6376.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6377.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6378.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6379.     procedure AboutBox;
  6380.     property  ControlInterface: IColorGridX read GetControlInterface;
  6381.     property ForegroundColor: TColor index 2 read GetTColorProp;
  6382.     property BackgroundColor: TColor index 3 read GetTColorProp;
  6383.     property DoubleBuffered: WordBool index 19 read GetWordBoolProp write SetWordBoolProp;
  6384.     property BiDiMode: TOleEnum index 36 read GetTOleEnumProp write SetTOleEnumProp;
  6385.   published
  6386.     property ClickEnablesColor: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  6387.     property Ctl3D: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  6388.     property DragCursor: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  6389.     property DragMode: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6390.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6391.     property GridOrdering: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6392.     property ForegroundIndex: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  6393.     property BackgroundIndex: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  6394.     property ForegroundEnabled: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  6395.     property BackgroundEnabled: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  6396.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6397.     property ParentCtl3D: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  6398.     property ParentFont: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  6399.     property Selection: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;
  6400.     property Visible: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  6401.     property Cursor: Smallint index 37 read GetSmallintProp write SetSmallintProp stored False;
  6402.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  6403.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6404.     property OnKeyPress: TColorGridXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6405.   end;
  6406.  
  6407.  
  6408. // *********************************************************************//
  6409. // OLE Control Proxy class declaration
  6410. // Control Name     : TComboBoxX
  6411. // Help String      : ComboBoxX Control
  6412. // Default Interface: IComboBoxX
  6413. // Def. Intf. DISP? : No
  6414. // Event   Interface: IComboBoxXEvents
  6415. // TypeFlags        : (38) CanCreate Licensed Control
  6416. // *********************************************************************//
  6417.   TComboBoxXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6418.   TComboBoxXOnMeasureItem = procedure(Sender: TObject; Index: Integer; var Height: Integer) of object;
  6419.  
  6420.   TComboBoxX = class(TOleControl)
  6421.   private
  6422.     FOnChange: TNotifyEvent;
  6423.     FOnClick: TNotifyEvent;
  6424.     FOnDblClick: TNotifyEvent;
  6425.     FOnDropDown: TNotifyEvent;
  6426.     FOnKeyPress: TComboBoxXOnKeyPress;
  6427.     FOnMeasureItem: TComboBoxXOnMeasureItem;
  6428.     FIntf: IComboBoxX;
  6429.     function  GetControlInterface: IComboBoxX;
  6430.     function Get_Items: IStrings;
  6431.     procedure Set_Items(const Value: IStrings);
  6432.   protected
  6433.     procedure CreateControl;
  6434.     procedure InitControlData; override;
  6435.   public
  6436.     procedure Clear;
  6437.     procedure SelectAll;
  6438.     procedure FlipChildren(AllLevels: WordBool);
  6439.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6440.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6441.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6442.     procedure InitiateAction;
  6443.     function IsRightToLeft(out Value: WordBool): WordBool;
  6444.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6445.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6446.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6447.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6448.     procedure AboutBox;
  6449.     property  ControlInterface: IComboBoxX read GetControlInterface;
  6450.     property Items: IStrings read Get_Items write Set_Items;
  6451.     property CharCase: TOleEnum index 19 read GetTOleEnumProp write SetTOleEnumProp;
  6452.     property DroppedDown: WordBool index 20 read GetWordBoolProp write SetWordBoolProp;
  6453.     property ItemIndex: Integer index 21 read GetIntegerProp write SetIntegerProp;
  6454.     property SelLength: Integer index 22 read GetIntegerProp write SetIntegerProp;
  6455.     property SelStart: Integer index 23 read GetIntegerProp write SetIntegerProp;
  6456.     property SelText: WideString index 24 read GetWideStringProp write SetWideStringProp;
  6457.     property DoubleBuffered: WordBool index 27 read GetWordBoolProp write SetWordBoolProp;
  6458.   published
  6459.     property Style: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6460.     property BiDiMode: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6461.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6462.     property Ctl3D: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  6463.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  6464.     property DragMode: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6465.     property DropDownCount: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  6466.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6467.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6468.     property ImeMode: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6469.     property ImeName: WideString index 8 read GetWideStringProp write SetWideStringProp stored False;
  6470.     property ItemHeight: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  6471.     property MaxLength: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  6472.     property ParentColor: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  6473.     property ParentCtl3D: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  6474.     property ParentFont: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  6475.     property Sorted: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  6476.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp stored False;
  6477.     property Visible: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  6478.     property Cursor: Smallint index 44 read GetSmallintProp write SetSmallintProp stored False;
  6479.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  6480.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6481.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6482.     property OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown;
  6483.     property OnKeyPress: TComboBoxXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6484.     property OnMeasureItem: TComboBoxXOnMeasureItem read FOnMeasureItem write FOnMeasureItem;
  6485.   end;
  6486.  
  6487.  
  6488. // *********************************************************************//
  6489. // OLE Control Proxy class declaration
  6490. // Control Name     : TControlBarX
  6491. // Help String      : ControlBarX Control
  6492. // Default Interface: IControlBarX
  6493. // Def. Intf. DISP? : No
  6494. // Event   Interface: IControlBarXEvents
  6495. // TypeFlags        : (38) CanCreate Licensed Control
  6496. // *********************************************************************//
  6497.   TControlBarXOnCanResize = procedure(Sender: TObject; var NewWidth: Integer; 
  6498.                                                        var NewHeight: Integer; var Resize: WordBool) of object;
  6499.   TControlBarXOnConstrainedResize = procedure(Sender: TObject; var MinWidth: Integer; 
  6500.                                                                var MinHeight: Integer; 
  6501.                                                                var MaxWidth: Integer; 
  6502.                                                                var MaxHeight: Integer) of object;
  6503.  
  6504.   TControlBarX = class(TOleControl)
  6505.   private
  6506.     FOnCanResize: TControlBarXOnCanResize;
  6507.     FOnClick: TNotifyEvent;
  6508.     FOnConstrainedResize: TControlBarXOnConstrainedResize;
  6509.     FOnDblClick: TNotifyEvent;
  6510.     FOnPaint: TNotifyEvent;
  6511.     FOnResize: TNotifyEvent;
  6512.     FIntf: IControlBarX;
  6513.     function  GetControlInterface: IControlBarX;
  6514.   protected
  6515.     procedure CreateControl;
  6516.     procedure InitControlData; override;
  6517.   public
  6518.     procedure FlipChildren(AllLevels: WordBool);
  6519.     procedure StickControls;
  6520.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6521.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6522.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6523.     procedure InitiateAction;
  6524.     function IsRightToLeft(out Value: WordBool): WordBool;
  6525.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6526.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6527.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6528.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6529.     procedure AboutBox;
  6530.     property  ControlInterface: IControlBarX read GetControlInterface;
  6531.     property DoubleBuffered: WordBool index 18 read GetWordBoolProp write SetWordBoolProp;
  6532.     property BiDiMode: TOleEnum index 34 read GetTOleEnumProp write SetTOleEnumProp;
  6533.   published
  6534.     property AutoDrag: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  6535.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  6536.     property BevelInner: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6537.     property BevelOuter: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6538.     property BevelKind: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6539.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6540.     property DockSite: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  6541.     property DragCursor: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  6542.     property DragMode: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6543.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6544.     property ParentColor: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  6545.     property ParentCtl3D: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  6546.     property ParentFont: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  6547.     property Picture: TPicture index -523 read GetTPictureProp write SetTPictureProp stored False;
  6548.     property RowSnap: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  6549.     property Visible: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  6550.     property Cursor: Smallint index 35 read GetSmallintProp write SetSmallintProp stored False;
  6551.     property OnCanResize: TControlBarXOnCanResize read FOnCanResize write FOnCanResize;
  6552.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6553.     property OnConstrainedResize: TControlBarXOnConstrainedResize read FOnConstrainedResize write FOnConstrainedResize;
  6554.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6555.     property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  6556.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  6557.   end;
  6558.  
  6559.  
  6560. // *********************************************************************//
  6561. // OLE Control Proxy class declaration
  6562. // Control Name     : TDateTimePickerX
  6563. // Help String      : DateTimePickerX Control
  6564. // Default Interface: IDateTimePickerX
  6565. // Def. Intf. DISP? : No
  6566. // Event   Interface: IDateTimePickerXEvents
  6567. // TypeFlags        : (38) CanCreate Licensed Control
  6568. // *********************************************************************//
  6569.   TDateTimePickerXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6570.   TDateTimePickerXOnUserInput = procedure(Sender: TObject; const UserString: WideString; 
  6571.                                                            var DateAndTime: Double; 
  6572.                                                            var AllowChange: WordBool) of object;
  6573.  
  6574.   TDateTimePickerX = class(TOleControl)
  6575.   private
  6576.     FOnClick: TNotifyEvent;
  6577.     FOnCloseUp: TNotifyEvent;
  6578.     FOnChange: TNotifyEvent;
  6579.     FOnDropDown: TNotifyEvent;
  6580.     FOnDblClick: TNotifyEvent;
  6581.     FOnKeyPress: TDateTimePickerXOnKeyPress;
  6582.     FOnUserInput: TDateTimePickerXOnUserInput;
  6583.     FIntf: IDateTimePickerX;
  6584.     function  GetControlInterface: IDateTimePickerX;
  6585.   protected
  6586.     procedure CreateControl;
  6587.     procedure InitControlData; override;
  6588.   public
  6589.     procedure FlipChildren(AllLevels: WordBool);
  6590.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6591.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6592.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6593.     procedure InitiateAction;
  6594.     function IsRightToLeft(out Value: WordBool): WordBool;
  6595.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6596.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6597.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6598.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6599.     procedure AboutBox;
  6600.     property  ControlInterface: IDateTimePickerX read GetControlInterface;
  6601.     property DateTime: Double index 1 read GetDoubleProp write SetDoubleProp;
  6602.     property DroppedDown: WordBool index 2 read GetWordBoolProp;
  6603.     property DoubleBuffered: WordBool index 25 read GetWordBoolProp write SetWordBoolProp;
  6604.   published
  6605.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6606.     property CalAlignment: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6607.     property Date: Double index 5 read GetDoubleProp write SetDoubleProp stored False;
  6608.     property Time: Double index 6 read GetDoubleProp write SetDoubleProp stored False;
  6609.     property ShowCheckbox: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  6610.     property Checked: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  6611.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6612.     property DateFormat: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6613.     property DateMode: TOleEnum index 10 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6614.     property DragCursor: Smallint index 11 read GetSmallintProp write SetSmallintProp stored False;
  6615.     property DragMode: TOleEnum index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6616.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6617.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6618.     property ImeMode: TOleEnum index 13 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6619.     property ImeName: WideString index 14 read GetWideStringProp write SetWideStringProp stored False;
  6620.     property Kind: TOleEnum index 15 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6621.     property MaxDate: Double index 16 read GetDoubleProp write SetDoubleProp stored False;
  6622.     property MinDate: Double index 17 read GetDoubleProp write SetDoubleProp stored False;
  6623.     property ParseInput: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  6624.     property ParentColor: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  6625.     property ParentFont: WordBool index 20 read GetWordBoolProp write SetWordBoolProp stored False;
  6626.     property Visible: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False;
  6627.     property Cursor: Smallint index 42 read GetSmallintProp write SetSmallintProp stored False;
  6628.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6629.     property OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp;
  6630.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  6631.     property OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown;
  6632.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6633.     property OnKeyPress: TDateTimePickerXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6634.     property OnUserInput: TDateTimePickerXOnUserInput read FOnUserInput write FOnUserInput;
  6635.   end;
  6636.  
  6637.  
  6638. // *********************************************************************//
  6639. // OLE Control Proxy class declaration
  6640. // Control Name     : TDrawGridX
  6641. // Help String      : DrawGridX Control
  6642. // Default Interface: IDrawGridX
  6643. // Def. Intf. DISP? : No
  6644. // Event   Interface: IDrawGridXEvents
  6645. // TypeFlags        : (38) CanCreate Licensed Control
  6646. // *********************************************************************//
  6647.   TDrawGridXOnColumnMoved = procedure(Sender: TObject; FromIndex: Integer; ToIndex: Integer) of object;
  6648.   TDrawGridXOnGetEditMask = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  6649.                                                        var Value: WideString) of object;
  6650.   TDrawGridXOnGetEditText = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  6651.                                                        var Value: WideString) of object;
  6652.   TDrawGridXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6653.   TDrawGridXOnRowMoved = procedure(Sender: TObject; FromIndex: Integer; ToIndex: Integer) of object;
  6654.   TDrawGridXOnSelectCell = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  6655.                                                       var CanSelect: WordBool) of object;
  6656.   TDrawGridXOnSetEditText = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  6657.                                                        const Value: WideString) of object;
  6658.  
  6659.   TDrawGridX = class(TOleControl)
  6660.   private
  6661.     FOnClick: TNotifyEvent;
  6662.     FOnColumnMoved: TDrawGridXOnColumnMoved;
  6663.     FOnDblClick: TNotifyEvent;
  6664.     FOnGetEditMask: TDrawGridXOnGetEditMask;
  6665.     FOnGetEditText: TDrawGridXOnGetEditText;
  6666.     FOnKeyPress: TDrawGridXOnKeyPress;
  6667.     FOnRowMoved: TDrawGridXOnRowMoved;
  6668.     FOnSelectCell: TDrawGridXOnSelectCell;
  6669.     FOnSetEditText: TDrawGridXOnSetEditText;
  6670.     FOnTopLeftChanged: TNotifyEvent;
  6671.     FIntf: IDrawGridX;
  6672.     function  GetControlInterface: IDrawGridX;
  6673.   protected
  6674.     procedure CreateControl;
  6675.     procedure InitControlData; override;
  6676.   public
  6677.     procedure MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer);
  6678.     procedure FlipChildren(AllLevels: WordBool);
  6679.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6680.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6681.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6682.     procedure InitiateAction;
  6683.     function IsRightToLeft(out Value: WordBool): WordBool;
  6684.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6685.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6686.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6687.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6688.     procedure AboutBox;
  6689.     property  ControlInterface: IDrawGridX read GetControlInterface;
  6690.     property Col: Integer index 2 read GetIntegerProp write SetIntegerProp;
  6691.     property EditorMode: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  6692.     property GridHeight: Integer index 4 read GetIntegerProp;
  6693.     property GridWidth: Integer index 5 read GetIntegerProp;
  6694.     property LeftCol: Integer index 6 read GetIntegerProp write SetIntegerProp;
  6695.     property Row: Integer index 7 read GetIntegerProp write SetIntegerProp;
  6696.     property TopRow: Integer index 8 read GetIntegerProp write SetIntegerProp;
  6697.     property VisibleColCount: Integer index 28 read GetIntegerProp;
  6698.     property VisibleRowCount: Integer index 29 read GetIntegerProp;
  6699.     property DoubleBuffered: WordBool index 32 read GetWordBoolProp write SetWordBoolProp;
  6700.   published
  6701.     property BiDiMode: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6702.     property BorderStyle: TOleEnum index 10 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6703.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6704.     property ColCount: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  6705.     property Ctl3D: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  6706.     property DefaultColWidth: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  6707.     property DefaultRowHeight: Integer index 14 read GetIntegerProp write SetIntegerProp stored False;
  6708.     property DefaultDrawing: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  6709.     property DragCursor: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  6710.     property DragMode: TOleEnum index 17 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6711.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6712.     property FixedColor: TColor index 18 read GetTColorProp write SetTColorProp stored False;
  6713.     property FixedCols: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  6714.     property RowCount: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  6715.     property FixedRows: Integer index 21 read GetIntegerProp write SetIntegerProp stored False;
  6716.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6717.     property GridLineWidth: Integer index 22 read GetIntegerProp write SetIntegerProp stored False;
  6718.     property ParentColor: WordBool index 23 read GetWordBoolProp write SetWordBoolProp stored False;
  6719.     property ParentCtl3D: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False;
  6720.     property ParentFont: WordBool index 25 read GetWordBoolProp write SetWordBoolProp stored False;
  6721.     property ScrollBars: TOleEnum index 26 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6722.     property Visible: WordBool index 27 read GetWordBoolProp write SetWordBoolProp stored False;
  6723.     property Cursor: Smallint index 49 read GetSmallintProp write SetSmallintProp stored False;
  6724.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6725.     property OnColumnMoved: TDrawGridXOnColumnMoved read FOnColumnMoved write FOnColumnMoved;
  6726.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6727.     property OnGetEditMask: TDrawGridXOnGetEditMask read FOnGetEditMask write FOnGetEditMask;
  6728.     property OnGetEditText: TDrawGridXOnGetEditText read FOnGetEditText write FOnGetEditText;
  6729.     property OnKeyPress: TDrawGridXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6730.     property OnRowMoved: TDrawGridXOnRowMoved read FOnRowMoved write FOnRowMoved;
  6731.     property OnSelectCell: TDrawGridXOnSelectCell read FOnSelectCell write FOnSelectCell;
  6732.     property OnSetEditText: TDrawGridXOnSetEditText read FOnSetEditText write FOnSetEditText;
  6733.     property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
  6734.   end;
  6735.  
  6736.  
  6737. // *********************************************************************//
  6738. // OLE Control Proxy class declaration
  6739. // Control Name     : TEditX
  6740. // Help String      : EditX Control
  6741. // Default Interface: IEditX
  6742. // Def. Intf. DISP? : No
  6743. // Event   Interface: IEditXEvents
  6744. // TypeFlags        : (38) CanCreate Licensed Control
  6745. // *********************************************************************//
  6746.   TEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6747.  
  6748.   TEditX = class(TOleControl)
  6749.   private
  6750.     FOnChange: TNotifyEvent;
  6751.     FOnClick: TNotifyEvent;
  6752.     FOnDblClick: TNotifyEvent;
  6753.     FOnKeyPress: TEditXOnKeyPress;
  6754.     FIntf: IEditX;
  6755.     function  GetControlInterface: IEditX;
  6756.   protected
  6757.     procedure CreateControl;
  6758.     procedure InitControlData; override;
  6759.   public
  6760.     procedure Clear;
  6761.     procedure ClearSelection;
  6762.     procedure CopyToClipboard;
  6763.     procedure CutToClipboard;
  6764.     procedure PasteFromClipboard;
  6765.     procedure Undo;
  6766.     procedure ClearUndo;
  6767.     procedure SelectAll;
  6768.     procedure FlipChildren(AllLevels: WordBool);
  6769.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6770.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6771.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6772.     procedure InitiateAction;
  6773.     function IsRightToLeft(out Value: WordBool): WordBool;
  6774.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6775.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6776.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6777.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6778.     procedure AboutBox;
  6779.     property  ControlInterface: IEditX read GetControlInterface;
  6780.     property CanUndo: WordBool index 31 read GetWordBoolProp;
  6781.     property Modified: WordBool index 32 read GetWordBoolProp write SetWordBoolProp;
  6782.     property SelLength: Integer index 33 read GetIntegerProp write SetIntegerProp;
  6783.     property SelStart: Integer index 34 read GetIntegerProp write SetIntegerProp;
  6784.     property SelText: WideString index 35 read GetWideStringProp write SetWideStringProp;
  6785.     property DoubleBuffered: WordBool index 37 read GetWordBoolProp write SetWordBoolProp;
  6786.   published
  6787.     property AutoSelect: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  6788.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  6789.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6790.     property BorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6791.     property CharCase: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6792.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6793.     property Ctl3D: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  6794.     property DragCursor: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  6795.     property DragMode: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6796.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6797.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6798.     property HideSelection: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  6799.     property ImeMode: TOleEnum index 10 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6800.     property ImeName: WideString index 11 read GetWideStringProp write SetWideStringProp stored False;
  6801.     property MaxLength: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  6802.     property OEMConvert: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  6803.     property ParentColor: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  6804.     property ParentCtl3D: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  6805.     property ParentFont: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  6806.     property PasswordChar: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  6807.     property ReadOnly: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  6808.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp stored False;
  6809.     property Visible: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  6810.     property Cursor: Smallint index 54 read GetSmallintProp write SetSmallintProp stored False;
  6811.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  6812.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6813.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6814.     property OnKeyPress: TEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6815.   end;
  6816.  
  6817.  
  6818. // *********************************************************************//
  6819. // OLE Control Proxy class declaration
  6820. // Control Name     : TGroupBoxX
  6821. // Help String      : GroupBoxX Control
  6822. // Default Interface: IGroupBoxX
  6823. // Def. Intf. DISP? : No
  6824. // Event   Interface: IGroupBoxXEvents
  6825. // TypeFlags        : (38) CanCreate Licensed Control
  6826. // *********************************************************************//
  6827.   TGroupBoxX = class(TOleControl)
  6828.   private
  6829.     FOnClick: TNotifyEvent;
  6830.     FOnDblClick: TNotifyEvent;
  6831.     FIntf: IGroupBoxX;
  6832.     function  GetControlInterface: IGroupBoxX;
  6833.   protected
  6834.     procedure CreateControl;
  6835.     procedure InitControlData; override;
  6836.   public
  6837.     procedure FlipChildren(AllLevels: WordBool);
  6838.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6839.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6840.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6841.     procedure InitiateAction;
  6842.     function IsRightToLeft(out Value: WordBool): WordBool;
  6843.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6844.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6845.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6846.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6847.     procedure AboutBox;
  6848.     property  ControlInterface: IGroupBoxX read GetControlInterface;
  6849.     property DoubleBuffered: WordBool index 12 read GetWordBoolProp write SetWordBoolProp;
  6850.   published
  6851.     property BiDiMode: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6852.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  6853.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6854.     property Ctl3D: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  6855.     property DockSite: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  6856.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  6857.     property DragMode: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6858.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6859.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6860.     property ParentColor: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  6861.     property ParentCtl3D: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  6862.     property ParentFont: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  6863.     property Visible: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  6864.     property Cursor: Smallint index 29 read GetSmallintProp write SetSmallintProp stored False;
  6865.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6866.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6867.   end;
  6868.  
  6869.  
  6870. // *********************************************************************//
  6871. // OLE Control Proxy class declaration
  6872. // Control Name     : THotKeyX
  6873. // Help String      : HotKeyX Control
  6874. // Default Interface: IHotKeyX
  6875. // Def. Intf. DISP? : No
  6876. // Event   Interface: IHotKeyXEvents
  6877. // TypeFlags        : (38) CanCreate Licensed Control
  6878. // *********************************************************************//
  6879.   THotKeyX = class(TOleControl)
  6880.   private
  6881.     FIntf: IHotKeyX;
  6882.     function  GetControlInterface: IHotKeyX;
  6883.   protected
  6884.     procedure CreateControl;
  6885.     procedure InitControlData; override;
  6886.   public
  6887.     procedure FlipChildren(AllLevels: WordBool);
  6888.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6889.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6890.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6891.     procedure InitiateAction;
  6892.     function IsRightToLeft(out Value: WordBool): WordBool;
  6893.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6894.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6895.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6896.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6897.     procedure AboutBox;
  6898.     property  ControlInterface: IHotKeyX read GetControlInterface;
  6899.     property DoubleBuffered: WordBool index 7 read GetWordBoolProp write SetWordBoolProp;
  6900.   published
  6901.     property AutoSize: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  6902.     property BiDiMode: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6903.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6904.     property HotKey: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  6905.     property Visible: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  6906.     property Cursor: Smallint index 24 read GetSmallintProp write SetSmallintProp stored False;
  6907.   end;
  6908.  
  6909.  
  6910. // *********************************************************************//
  6911. // OLE Control Proxy class declaration
  6912. // Control Name     : TListBoxX
  6913. // Help String      : ListBoxX Control
  6914. // Default Interface: IListBoxX
  6915. // Def. Intf. DISP? : No
  6916. // Event   Interface: IListBoxXEvents
  6917. // TypeFlags        : (38) CanCreate Licensed Control
  6918. // *********************************************************************//
  6919.   TListBoxXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6920.   TListBoxXOnMeasureItem = procedure(Sender: TObject; Index: Integer; var Height: Integer) of object;
  6921.  
  6922.   TListBoxX = class(TOleControl)
  6923.   private
  6924.     FOnClick: TNotifyEvent;
  6925.     FOnDblClick: TNotifyEvent;
  6926.     FOnKeyPress: TListBoxXOnKeyPress;
  6927.     FOnMeasureItem: TListBoxXOnMeasureItem;
  6928.     FIntf: IListBoxX;
  6929.     function  GetControlInterface: IListBoxX;
  6930.     function Get_Items: IStrings;
  6931.     procedure Set_Items(const Value: IStrings);
  6932.   protected
  6933.     procedure CreateControl;
  6934.     procedure InitControlData; override;
  6935.   public
  6936.     procedure Clear;
  6937.     procedure FlipChildren(AllLevels: WordBool);
  6938.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  6939.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  6940.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  6941.     procedure InitiateAction;
  6942.     function IsRightToLeft(out Value: WordBool): WordBool;
  6943.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  6944.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  6945.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  6946.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  6947.     procedure AboutBox;
  6948.     property  ControlInterface: IListBoxX read GetControlInterface;
  6949.     property Items: IStrings read Get_Items write Set_Items;
  6950.     property ItemIndex: Integer index 23 read GetIntegerProp write SetIntegerProp;
  6951.     property SelCount: Integer index 24 read GetIntegerProp;
  6952.     property TopIndex: Integer index 25 read GetIntegerProp write SetIntegerProp;
  6953.     property DoubleBuffered: WordBool index 28 read GetWordBoolProp write SetWordBoolProp;
  6954.   published
  6955.     property BiDiMode: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6956.     property BorderStyle: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6957.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  6958.     property Columns: Integer index 3 read GetIntegerProp write SetIntegerProp stored False;
  6959.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  6960.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  6961.     property DragMode: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6962.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  6963.     property ExtendedSelect: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  6964.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  6965.     property ImeMode: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6966.     property ImeName: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  6967.     property IntegralHeight: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  6968.     property ItemHeight: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  6969.     property MultiSelect: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  6970.     property ParentColor: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  6971.     property ParentCtl3D: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  6972.     property ParentFont: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  6973.     property Sorted: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  6974.     property Style: TOleEnum index 18 read GetTOleEnumProp write SetTOleEnumProp stored False;
  6975.     property TabWidth: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  6976.     property Visible: WordBool index 20 read GetWordBoolProp write SetWordBoolProp stored False;
  6977.     property Cursor: Smallint index 45 read GetSmallintProp write SetSmallintProp stored False;
  6978.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  6979.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  6980.     property OnKeyPress: TListBoxXOnKeyPress read FOnKeyPress write FOnKeyPress;
  6981.     property OnMeasureItem: TListBoxXOnMeasureItem read FOnMeasureItem write FOnMeasureItem;
  6982.   end;
  6983.  
  6984.  
  6985. // *********************************************************************//
  6986. // OLE Control Proxy class declaration
  6987. // Control Name     : TMaskEditX
  6988. // Help String      : MaskEditX Control
  6989. // Default Interface: IMaskEditX
  6990. // Def. Intf. DISP? : No
  6991. // Event   Interface: IMaskEditXEvents
  6992. // TypeFlags        : (38) CanCreate Licensed Control
  6993. // *********************************************************************//
  6994.   TMaskEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  6995.  
  6996.   TMaskEditX = class(TOleControl)
  6997.   private
  6998.     FOnChange: TNotifyEvent;
  6999.     FOnClick: TNotifyEvent;
  7000.     FOnDblClick: TNotifyEvent;
  7001.     FOnKeyPress: TMaskEditXOnKeyPress;
  7002.     FIntf: IMaskEditX;
  7003.     function  GetControlInterface: IMaskEditX;
  7004.   protected
  7005.     procedure CreateControl;
  7006.     procedure InitControlData; override;
  7007.   public
  7008.     procedure ValidateEdit;
  7009.     procedure Clear;
  7010.     procedure ClearSelection;
  7011.     procedure CopyToClipboard;
  7012.     procedure CutToClipboard;
  7013.     procedure PasteFromClipboard;
  7014.     procedure Undo;
  7015.     procedure ClearUndo;
  7016.     procedure SelectAll;
  7017.     procedure FlipChildren(AllLevels: WordBool);
  7018.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7019.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7020.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7021.     procedure InitiateAction;
  7022.     function IsRightToLeft(out Value: WordBool): WordBool;
  7023.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7024.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7025.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7026.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7027.     procedure AboutBox;
  7028.     property  ControlInterface: IMaskEditX read GetControlInterface;
  7029.     property IsMasked: WordBool index 21 read GetWordBoolProp;
  7030.     property EditText: WideString index 22 read GetWideStringProp write SetWideStringProp;
  7031.     property CanUndo: WordBool index 33 read GetWordBoolProp;
  7032.     property Modified: WordBool index 34 read GetWordBoolProp write SetWordBoolProp;
  7033.     property SelLength: Integer index 35 read GetIntegerProp write SetIntegerProp;
  7034.     property SelStart: Integer index 36 read GetIntegerProp write SetIntegerProp;
  7035.     property SelText: WideString index 37 read GetWideStringProp write SetWideStringProp;
  7036.     property DoubleBuffered: WordBool index 39 read GetWordBoolProp write SetWordBoolProp;
  7037.   published
  7038.     property AutoSelect: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  7039.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  7040.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7041.     property BorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7042.     property CharCase: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7043.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7044.     property Ctl3D: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  7045.     property DragCursor: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  7046.     property DragMode: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7047.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7048.     property EditMask: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  7049.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7050.     property ImeMode: TOleEnum index 10 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7051.     property ImeName: WideString index 11 read GetWideStringProp write SetWideStringProp stored False;
  7052.     property MaxLength: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  7053.     property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  7054.     property ParentCtl3D: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  7055.     property ParentFont: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  7056.     property PasswordChar: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  7057.     property ReadOnly: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  7058.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp stored False;
  7059.     property Visible: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  7060.     property Cursor: Smallint index 56 read GetSmallintProp write SetSmallintProp stored False;
  7061.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  7062.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7063.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7064.     property OnKeyPress: TMaskEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7065.   end;
  7066.  
  7067.  
  7068. // *********************************************************************//
  7069. // OLE Control Proxy class declaration
  7070. // Control Name     : TMediaPlayerX
  7071. // Help String      : MediaPlayerX Control
  7072. // Default Interface: IMediaPlayerX
  7073. // Def. Intf. DISP? : No
  7074. // Event   Interface: IMediaPlayerXEvents
  7075. // TypeFlags        : (38) CanCreate Licensed Control
  7076. // *********************************************************************//
  7077.   TMediaPlayerXOnClick = procedure(Sender: TObject; Button: TxMPBtnType; var DoDefault: WordBool) of object;
  7078.   TMediaPlayerXOnPostClick = procedure(Sender: TObject; Button: TxMPBtnType) of object;
  7079.  
  7080.   TMediaPlayerX = class(TOleControl)
  7081.   private
  7082.     FOnClick: TMediaPlayerXOnClick;
  7083.     FOnPostClick: TMediaPlayerXOnPostClick;
  7084.     FOnNotify: TNotifyEvent;
  7085.     FIntf: IMediaPlayerX;
  7086.     function  GetControlInterface: IMediaPlayerX;
  7087.   protected
  7088.     procedure CreateControl;
  7089.     procedure InitControlData; override;
  7090.   public
  7091.     procedure Open;
  7092.     procedure Close;
  7093.     procedure Play;
  7094.     procedure Stop;
  7095.     procedure Pause;
  7096.     procedure Step;
  7097.     procedure Back;
  7098.     procedure Previous;
  7099.     procedure Next;
  7100.     procedure StartRecording;
  7101.     procedure Eject;
  7102.     procedure Save;
  7103.     procedure PauseOnly;
  7104.     procedure Resume;
  7105.     procedure Rewind;
  7106.     procedure FlipChildren(AllLevels: WordBool);
  7107.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7108.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7109.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7110.     procedure InitiateAction;
  7111.     function IsRightToLeft(out Value: WordBool): WordBool;
  7112.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7113.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7114.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7115.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7116.     procedure AboutBox;
  7117.     property  ControlInterface: IMediaPlayerX read GetControlInterface;
  7118.     property Error: Integer index 16 read GetIntegerProp;
  7119.     property ErrorMessage: WideString index 17 read GetWideStringProp;
  7120.     property Start: Integer index 18 read GetIntegerProp;
  7121.     property Length: Integer index 19 read GetIntegerProp;
  7122.     property Tracks: Integer index 20 read GetIntegerProp;
  7123.     property Frames: Integer index 21 read GetIntegerProp write SetIntegerProp;
  7124.     property Mode: TOleEnum index 22 read GetTOleEnumProp;
  7125.     property Position: Integer index 23 read GetIntegerProp write SetIntegerProp;
  7126.     property Wait: WordBool index 24 read GetWordBoolProp write SetWordBoolProp;
  7127.     property Notify: WordBool index 25 read GetWordBoolProp write SetWordBoolProp;
  7128.     property NotifyValue: TOleEnum index 26 read GetTOleEnumProp;
  7129.     property StartPos: Integer index 27 read GetIntegerProp write SetIntegerProp;
  7130.     property EndPos: Integer index 28 read GetIntegerProp write SetIntegerProp;
  7131.     property DeviceID: Smallint index 29 read GetSmallintProp;
  7132.     property TimeFormat: TOleEnum index 30 read GetTOleEnumProp write SetTOleEnumProp;
  7133.     property DoubleBuffered: WordBool index 40 read GetWordBoolProp write SetWordBoolProp;
  7134.     property BiDiMode: TOleEnum index 57 read GetTOleEnumProp write SetTOleEnumProp;
  7135.   published
  7136.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7137.     property AutoEnable: WordBool index 31 read GetWordBoolProp write SetWordBoolProp stored False;
  7138.     property AutoOpen: WordBool index 32 read GetWordBoolProp write SetWordBoolProp stored False;
  7139.     property AutoRewind: WordBool index 33 read GetWordBoolProp write SetWordBoolProp stored False;
  7140.     property DeviceType: TOleEnum index 34 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7141.     property FileName: WideString index 35 read GetWideStringProp write SetWideStringProp stored False;
  7142.     property Shareable: WordBool index 36 read GetWordBoolProp write SetWordBoolProp stored False;
  7143.     property Visible: WordBool index 37 read GetWordBoolProp write SetWordBoolProp stored False;
  7144.     property Cursor: Smallint index 58 read GetSmallintProp write SetSmallintProp stored False;
  7145.     property OnClick: TMediaPlayerXOnClick read FOnClick write FOnClick;
  7146.     property OnPostClick: TMediaPlayerXOnPostClick read FOnPostClick write FOnPostClick;
  7147.     property OnNotify: TNotifyEvent read FOnNotify write FOnNotify;
  7148.   end;
  7149.  
  7150.  
  7151. // *********************************************************************//
  7152. // OLE Control Proxy class declaration
  7153. // Control Name     : TMemoX
  7154. // Help String      : MemoX Control
  7155. // Default Interface: IMemoX
  7156. // Def. Intf. DISP? : No
  7157. // Event   Interface: IMemoXEvents
  7158. // TypeFlags        : (38) CanCreate Licensed Control
  7159. // *********************************************************************//
  7160.   TMemoXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  7161.  
  7162.   TMemoX = class(TOleControl)
  7163.   private
  7164.     FOnChange: TNotifyEvent;
  7165.     FOnClick: TNotifyEvent;
  7166.     FOnDblClick: TNotifyEvent;
  7167.     FOnKeyPress: TMemoXOnKeyPress;
  7168.     FIntf: IMemoX;
  7169.     function  GetControlInterface: IMemoX;
  7170.     function Get_Lines: IStrings;
  7171.     procedure Set_Lines(const Value: IStrings);
  7172.   protected
  7173.     procedure CreateControl;
  7174.     procedure InitControlData; override;
  7175.   public
  7176.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7177.     procedure Clear;
  7178.     procedure ClearSelection;
  7179.     procedure CopyToClipboard;
  7180.     procedure CutToClipboard;
  7181.     procedure PasteFromClipboard;
  7182.     procedure Undo;
  7183.     procedure ClearUndo;
  7184.     procedure SelectAll;
  7185.     procedure FlipChildren(AllLevels: WordBool);
  7186.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7187.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7188.     procedure InitiateAction;
  7189.     function IsRightToLeft(out Value: WordBool): WordBool;
  7190.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7191.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7192.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7193.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7194.     procedure AboutBox;
  7195.     property  ControlInterface: IMemoX read GetControlInterface;
  7196.     property Lines: IStrings read Get_Lines write Set_Lines;
  7197.     property CanUndo: WordBool index 34 read GetWordBoolProp;
  7198.     property Modified: WordBool index 35 read GetWordBoolProp write SetWordBoolProp;
  7199.     property SelLength: Integer index 36 read GetIntegerProp write SetIntegerProp;
  7200.     property SelStart: Integer index 37 read GetIntegerProp write SetIntegerProp;
  7201.     property SelText: WideString index 38 read GetWideStringProp write SetWideStringProp;
  7202.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp;
  7203.     property DoubleBuffered: WordBool index 40 read GetWordBoolProp write SetWordBoolProp;
  7204.   published
  7205.     property Alignment: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7206.     property BiDiMode: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7207.     property BorderStyle: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7208.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7209.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  7210.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  7211.     property DragMode: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7212.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7213.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7214.     property HideSelection: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  7215.     property ImeMode: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7216.     property ImeName: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  7217.     property MaxLength: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  7218.     property OEMConvert: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  7219.     property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  7220.     property ParentCtl3D: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  7221.     property ParentFont: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  7222.     property ReadOnly: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  7223.     property ScrollBars: TOleEnum index 17 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7224.     property Visible: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  7225.     property WantReturns: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  7226.     property WantTabs: WordBool index 20 read GetWordBoolProp write SetWordBoolProp stored False;
  7227.     property WordWrap: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False;
  7228.     property Cursor: Smallint index 56 read GetSmallintProp write SetSmallintProp stored False;
  7229.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  7230.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7231.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7232.     property OnKeyPress: TMemoXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7233.   end;
  7234.  
  7235.  
  7236. // *********************************************************************//
  7237. // OLE Control Proxy class declaration
  7238. // Control Name     : TMonthCalendarX
  7239. // Help String      : MonthCalendarX Control
  7240. // Default Interface: IMonthCalendarX
  7241. // Def. Intf. DISP? : No
  7242. // Event   Interface: IMonthCalendarXEvents
  7243. // TypeFlags        : (38) CanCreate Licensed Control
  7244. // *********************************************************************//
  7245.   TMonthCalendarXOnGetMonthInfo = procedure(Sender: TObject; Month: Integer; 
  7246.                                                              var MonthBoldInfo: Integer) of object;
  7247.   TMonthCalendarXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  7248.  
  7249.   TMonthCalendarX = class(TOleControl)
  7250.   private
  7251.     FOnClick: TNotifyEvent;
  7252.     FOnDblClick: TNotifyEvent;
  7253.     FOnGetMonthInfo: TMonthCalendarXOnGetMonthInfo;
  7254.     FOnKeyPress: TMonthCalendarXOnKeyPress;
  7255.     FIntf: IMonthCalendarX;
  7256.     function  GetControlInterface: IMonthCalendarX;
  7257.   protected
  7258.     procedure CreateControl;
  7259.     procedure InitControlData; override;
  7260.   public
  7261.     procedure FlipChildren(AllLevels: WordBool);
  7262.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7263.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7264.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7265.     procedure InitiateAction;
  7266.     function IsRightToLeft(out Value: WordBool): WordBool;
  7267.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7268.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7269.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7270.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7271.     procedure AboutBox;
  7272.     property  ControlInterface: IMonthCalendarX read GetControlInterface;
  7273.     property DoubleBuffered: WordBool index 22 read GetWordBoolProp write SetWordBoolProp;
  7274.   published
  7275.     property AutoSize: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  7276.     property BiDiMode: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7277.     property MultiSelect: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  7278.     property Date: Double index 4 read GetDoubleProp write SetDoubleProp stored False;
  7279.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  7280.     property DragMode: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7281.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7282.     property EndDate: Double index 7 read GetDoubleProp write SetDoubleProp stored False;
  7283.     property FirstDayOfWeek: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7284.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7285.     property ImeMode: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7286.     property ImeName: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  7287.     property MaxDate: Double index 11 read GetDoubleProp write SetDoubleProp stored False;
  7288.     property MaxSelectRange: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  7289.     property MinDate: Double index 13 read GetDoubleProp write SetDoubleProp stored False;
  7290.     property ParentFont: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  7291.     property ShowToday: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  7292.     property ShowTodayCircle: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  7293.     property Visible: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  7294.     property WeekNumbers: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  7295.     property Cursor: Smallint index 39 read GetSmallintProp write SetSmallintProp stored False;
  7296.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7297.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7298.     property OnGetMonthInfo: TMonthCalendarXOnGetMonthInfo read FOnGetMonthInfo write FOnGetMonthInfo;
  7299.     property OnKeyPress: TMonthCalendarXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7300.   end;
  7301.  
  7302.  
  7303. // *********************************************************************//
  7304. // OLE Control Proxy class declaration
  7305. // Control Name     : TNotebookX
  7306. // Help String      : NotebookX Control
  7307. // Default Interface: INotebookX
  7308. // Def. Intf. DISP? : No
  7309. // Event   Interface: INotebookXEvents
  7310. // TypeFlags        : (38) CanCreate Licensed Control
  7311. // *********************************************************************//
  7312.   TNotebookX = class(TOleControl)
  7313.   private
  7314.     FOnClick: TNotifyEvent;
  7315.     FOnDblClick: TNotifyEvent;
  7316.     FOnPageChanged: TNotifyEvent;
  7317.     FIntf: INotebookX;
  7318.     function  GetControlInterface: INotebookX;
  7319.     function Get_Pages: IStrings;
  7320.     procedure Set_Pages(const Value: IStrings);
  7321.   protected
  7322.     procedure CreateControl;
  7323.     procedure InitControlData; override;
  7324.   public
  7325.     procedure FlipChildren(AllLevels: WordBool);
  7326.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7327.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7328.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7329.     procedure InitiateAction;
  7330.     function IsRightToLeft(out Value: WordBool): WordBool;
  7331.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7332.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7333.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7334.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7335.     procedure AboutBox;
  7336.     property  ControlInterface: INotebookX read GetControlInterface;
  7337.     property Pages: IStrings read Get_Pages write Set_Pages;
  7338.     property DoubleBuffered: WordBool index 13 read GetWordBoolProp write SetWordBoolProp;
  7339.     property BiDiMode: TOleEnum index 30 read GetTOleEnumProp write SetTOleEnumProp;
  7340.   published
  7341.     property ActivePage: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;
  7342.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7343.     property Ctl3D: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  7344.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  7345.     property DragMode: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7346.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7347.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7348.     property PageIndex: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  7349.     property ParentColor: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  7350.     property ParentCtl3D: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  7351.     property ParentFont: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  7352.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  7353.     property Cursor: Smallint index 31 read GetSmallintProp write SetSmallintProp stored False;
  7354.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7355.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7356.     property OnPageChanged: TNotifyEvent read FOnPageChanged write FOnPageChanged;
  7357.   end;
  7358.  
  7359.  
  7360. // *********************************************************************//
  7361. // OLE Control Proxy class declaration
  7362. // Control Name     : TOutlineX
  7363. // Help String      : OutlineX Control
  7364. // Default Interface: IOutlineX
  7365. // Def. Intf. DISP? : No
  7366. // Event   Interface: IOutlineXEvents
  7367. // TypeFlags        : (38) CanCreate Licensed Control
  7368. // *********************************************************************//
  7369.   TOutlineXOnExpand = procedure(Sender: TObject; Index: Integer) of object;
  7370.   TOutlineXOnCollapse = procedure(Sender: TObject; Index: Integer) of object;
  7371.   TOutlineXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  7372.  
  7373.   TOutlineX = class(TOleControl)
  7374.   private
  7375.     FOnExpand: TOutlineXOnExpand;
  7376.     FOnCollapse: TOutlineXOnCollapse;
  7377.     FOnClick: TNotifyEvent;
  7378.     FOnDblClick: TNotifyEvent;
  7379.     FOnKeyPress: TOutlineXOnKeyPress;
  7380.     FIntf: IOutlineX;
  7381.     function  GetControlInterface: IOutlineX;
  7382.     function Get_Lines: IStrings;
  7383.     procedure Set_Lines(const Value: IStrings);
  7384.   protected
  7385.     procedure CreateControl;
  7386.     procedure InitControlData; override;
  7387.   public
  7388.     function Add(Index: Integer; const Text: WideString; out Value: Integer): Integer;
  7389.     function AddChild(Index: Integer; const Text: WideString; out Value: Integer): Integer;
  7390.     function Insert(Index: Integer; const Text: WideString; out Value: Integer): Integer;
  7391.     procedure Delete(Index: Integer);
  7392.     function GetItem(X: Integer; Y: Integer; out Value: Integer): Integer;
  7393.     function GetTextItem(const Param1: WideString; out Value: Integer): Integer;
  7394.     procedure FullExpand;
  7395.     procedure FullCollapse;
  7396.     procedure LoadFromFile(const FileName: WideString);
  7397.     procedure SaveToFile(const FileName: WideString);
  7398.     procedure BeginUpdate;
  7399.     procedure EndUpdate;
  7400.     procedure SetUpdateState(Value: WordBool);
  7401.     procedure Clear;
  7402.     procedure FlipChildren(AllLevels: WordBool);
  7403.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7404.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7405.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7406.     procedure InitiateAction;
  7407.     function IsRightToLeft(out Value: WordBool): WordBool;
  7408.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7409.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7410.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7411.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7412.     procedure AboutBox;
  7413.     property  ControlInterface: IOutlineX read GetControlInterface;
  7414.     property Lines: IStrings read Get_Lines write Set_Lines;
  7415.     property ItemCount: Integer index 36 read GetIntegerProp;
  7416.     property SelectedItem: Integer index 37 read GetIntegerProp write SetIntegerProp;
  7417.     property Row: Integer index 38 read GetIntegerProp write SetIntegerProp;
  7418.     property DoubleBuffered: WordBool index 41 read GetWordBoolProp write SetWordBoolProp;
  7419.     property BiDiMode: TOleEnum index 58 read GetTOleEnumProp write SetTOleEnumProp;
  7420.   published
  7421.     property OutlineStyle: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7422.     property Style: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7423.     property ItemHeight: Integer index 4 read GetIntegerProp write SetIntegerProp stored False;
  7424.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7425.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7426.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7427.     property ParentColor: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  7428.     property ParentCtl3D: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  7429.     property Ctl3D: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  7430.     property Visible: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  7431.     property DragMode: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7432.     property DragCursor: Smallint index 10 read GetSmallintProp write SetSmallintProp stored False;
  7433.     property BorderStyle: TOleEnum index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7434.     property ItemSeparator: WideString index 12 read GetWideStringProp write SetWideStringProp stored False;
  7435.     property ParentFont: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  7436.     property ScrollBars: TOleEnum index 14 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7437.     property Cursor: Smallint index 59 read GetSmallintProp write SetSmallintProp stored False;
  7438.     property OnExpand: TOutlineXOnExpand read FOnExpand write FOnExpand;
  7439.     property OnCollapse: TOutlineXOnCollapse read FOnCollapse write FOnCollapse;
  7440.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7441.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7442.     property OnKeyPress: TOutlineXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7443.   end;
  7444.  
  7445.  
  7446. // *********************************************************************//
  7447. // OLE Control Proxy class declaration
  7448. // Control Name     : TPageScrollerX
  7449. // Help String      : PageScrollerX Control
  7450. // Default Interface: IPageScrollerX
  7451. // Def. Intf. DISP? : No
  7452. // Event   Interface: IPageScrollerXEvents
  7453. // TypeFlags        : (38) CanCreate Licensed Control
  7454. // *********************************************************************//
  7455.   TPageScrollerXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  7456.  
  7457.   TPageScrollerX = class(TOleControl)
  7458.   private
  7459.     FOnClick: TNotifyEvent;
  7460.     FOnDblClick: TNotifyEvent;
  7461.     FOnKeyPress: TPageScrollerXOnKeyPress;
  7462.     FOnResize: TNotifyEvent;
  7463.     FIntf: IPageScrollerX;
  7464.     function  GetControlInterface: IPageScrollerX;
  7465.   protected
  7466.     procedure CreateControl;
  7467.     procedure InitControlData; override;
  7468.   public
  7469.     function GetButtonState(Button: TxPageScrollerButton; out Value: TxPageScrollerButtonState): TxPageScrollerButtonState;
  7470.     procedure FlipChildren(AllLevels: WordBool);
  7471.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7472.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7473.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7474.     procedure InitiateAction;
  7475.     function IsRightToLeft(out Value: WordBool): WordBool;
  7476.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7477.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7478.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7479.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7480.     procedure AboutBox;
  7481.     property  ControlInterface: IPageScrollerX read GetControlInterface;
  7482.     property DoubleBuffered: WordBool index 16 read GetWordBoolProp write SetWordBoolProp;
  7483.     property BiDiMode: TOleEnum index 33 read GetTOleEnumProp write SetTOleEnumProp;
  7484.   published
  7485.     property AutoScroll: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  7486.     property ButtonSize: Integer index 3 read GetIntegerProp write SetIntegerProp stored False;
  7487.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7488.     property DockSite: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  7489.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  7490.     property DragMode: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7491.     property DragScroll: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  7492.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7493.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7494.     property Margin: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  7495.     property Orientation: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7496.     property ParentColor: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  7497.     property ParentFont: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  7498.     property Position: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  7499.     property Visible: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  7500.     property Cursor: Smallint index 34 read GetSmallintProp write SetSmallintProp stored False;
  7501.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7502.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7503.     property OnKeyPress: TPageScrollerXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7504.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  7505.   end;
  7506.  
  7507.  
  7508. // *********************************************************************//
  7509. // OLE Control Proxy class declaration
  7510. // Control Name     : TPanelX
  7511. // Help String      : PanelX Control
  7512. // Default Interface: IPanelX
  7513. // Def. Intf. DISP? : No
  7514. // Event   Interface: IPanelXEvents
  7515. // TypeFlags        : (38) CanCreate Licensed Control
  7516. // *********************************************************************//
  7517.   TPanelXOnCanResize = procedure(Sender: TObject; var NewWidth: Integer; var NewHeight: Integer; 
  7518.                                                   var Resize: WordBool) of object;
  7519.   TPanelXOnConstrainedResize = procedure(Sender: TObject; var MinWidth: Integer; 
  7520.                                                           var MinHeight: Integer; 
  7521.                                                           var MaxWidth: Integer; 
  7522.                                                           var MaxHeight: Integer) of object;
  7523.  
  7524.   TPanelX = class(TOleControl)
  7525.   private
  7526.     FOnCanResize: TPanelXOnCanResize;
  7527.     FOnClick: TNotifyEvent;
  7528.     FOnConstrainedResize: TPanelXOnConstrainedResize;
  7529.     FOnDblClick: TNotifyEvent;
  7530.     FOnResize: TNotifyEvent;
  7531.     FIntf: IPanelX;
  7532.     function  GetControlInterface: IPanelX;
  7533.   protected
  7534.     procedure CreateControl;
  7535.     procedure InitControlData; override;
  7536.   public
  7537.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7538.     procedure FlipChildren(AllLevels: WordBool);
  7539.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7540.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7541.     procedure InitiateAction;
  7542.     function IsRightToLeft(out Value: WordBool): WordBool;
  7543.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7544.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7545.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7546.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7547.     procedure AboutBox;
  7548.     property  ControlInterface: IPanelX read GetControlInterface;
  7549.     property DoubleBuffered: WordBool index 21 read GetWordBoolProp write SetWordBoolProp;
  7550.   published
  7551.     property Alignment: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7552.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  7553.     property BevelInner: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7554.     property BevelOuter: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7555.     property BiDiMode: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7556.     property BorderStyle: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7557.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  7558.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7559.     property Ctl3D: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  7560.     property UseDockManager: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  7561.     property DockSite: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  7562.     property DragCursor: Smallint index 10 read GetSmallintProp write SetSmallintProp stored False;
  7563.     property DragMode: TOleEnum index 11 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7564.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7565.     property FullRepaint: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  7566.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7567.     property Locked: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  7568.     property ParentColor: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  7569.     property ParentCtl3D: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  7570.     property ParentFont: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  7571.     property Visible: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  7572.     property Cursor: Smallint index 37 read GetSmallintProp write SetSmallintProp stored False;
  7573.     property OnCanResize: TPanelXOnCanResize read FOnCanResize write FOnCanResize;
  7574.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7575.     property OnConstrainedResize: TPanelXOnConstrainedResize read FOnConstrainedResize write FOnConstrainedResize;
  7576.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7577.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  7578.   end;
  7579.  
  7580.  
  7581. // *********************************************************************//
  7582. // OLE Control Proxy class declaration
  7583. // Control Name     : TProgressBarX
  7584. // Help String      : ProgressBarX Control
  7585. // Default Interface: IProgressBarX
  7586. // Def. Intf. DISP? : No
  7587. // Event   Interface: IProgressBarXEvents
  7588. // TypeFlags        : (38) CanCreate Licensed Control
  7589. // *********************************************************************//
  7590.   TProgressBarX = class(TOleControl)
  7591.   private
  7592.     FIntf: IProgressBarX;
  7593.     function  GetControlInterface: IProgressBarX;
  7594.   protected
  7595.     procedure CreateControl;
  7596.     procedure InitControlData; override;
  7597.   public
  7598.     procedure StepIt;
  7599.     procedure StepBy(Delta: Integer);
  7600.     procedure FlipChildren(AllLevels: WordBool);
  7601.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7602.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7603.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7604.     procedure InitiateAction;
  7605.     function IsRightToLeft(out Value: WordBool): WordBool;
  7606.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7607.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7608.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7609.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7610.     procedure AboutBox;
  7611.     property  ControlInterface: IProgressBarX read GetControlInterface;
  7612.     property DoubleBuffered: WordBool index 14 read GetWordBoolProp write SetWordBoolProp;
  7613.     property BiDiMode: TOleEnum index 31 read GetTOleEnumProp write SetTOleEnumProp;
  7614.   published
  7615.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  7616.     property DragMode: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7617.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7618.     property Min: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  7619.     property Max: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  7620.     property Orientation: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7621.     property Position: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  7622.     property Smooth: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  7623.     property Step: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  7624.     property Visible: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  7625.     property Cursor: Smallint index 32 read GetSmallintProp write SetSmallintProp stored False;
  7626.   end;
  7627.  
  7628.  
  7629. // *********************************************************************//
  7630. // OLE Control Proxy class declaration
  7631. // Control Name     : TRadioButtonX
  7632. // Help String      : RadioButtonX Control
  7633. // Default Interface: IRadioButtonX
  7634. // Def. Intf. DISP? : No
  7635. // Event   Interface: IRadioButtonXEvents
  7636. // TypeFlags        : (38) CanCreate Licensed Control
  7637. // *********************************************************************//
  7638.   TRadioButtonXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  7639.  
  7640.   TRadioButtonX = class(TOleControl)
  7641.   private
  7642.     FOnClick: TNotifyEvent;
  7643.     FOnDblClick: TNotifyEvent;
  7644.     FOnKeyPress: TRadioButtonXOnKeyPress;
  7645.     FIntf: IRadioButtonX;
  7646.     function  GetControlInterface: IRadioButtonX;
  7647.   protected
  7648.     procedure CreateControl;
  7649.     procedure InitControlData; override;
  7650.   public
  7651.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7652.     procedure FlipChildren(AllLevels: WordBool);
  7653.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7654.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7655.     procedure InitiateAction;
  7656.     function IsRightToLeft(out Value: WordBool): WordBool;
  7657.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7658.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7659.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7660.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7661.     procedure AboutBox;
  7662.     property  ControlInterface: IRadioButtonX read GetControlInterface;
  7663.     property DoubleBuffered: WordBool index 14 read GetWordBoolProp write SetWordBoolProp;
  7664.   published
  7665.     property Alignment: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7666.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7667.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  7668.     property Checked: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  7669.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7670.     property Ctl3D: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  7671.     property DragCursor: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  7672.     property DragMode: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7673.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7674.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7675.     property ParentColor: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  7676.     property ParentCtl3D: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  7677.     property ParentFont: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  7678.     property Visible: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  7679.     property Cursor: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  7680.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7681.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7682.     property OnKeyPress: TRadioButtonXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7683.   end;
  7684.  
  7685.  
  7686. // *********************************************************************//
  7687. // OLE Control Proxy class declaration
  7688. // Control Name     : TRadioGroupX
  7689. // Help String      : RadioGroupX Control
  7690. // Default Interface: IRadioGroupX
  7691. // Def. Intf. DISP? : No
  7692. // Event   Interface: IRadioGroupXEvents
  7693. // TypeFlags        : (38) CanCreate Licensed Control
  7694. // *********************************************************************//
  7695.   TRadioGroupX = class(TOleControl)
  7696.   private
  7697.     FOnClick: TNotifyEvent;
  7698.     FIntf: IRadioGroupX;
  7699.     function  GetControlInterface: IRadioGroupX;
  7700.     function Get_Items: IStrings;
  7701.     procedure Set_Items(const Value: IStrings);
  7702.   protected
  7703.     procedure CreateControl;
  7704.     procedure InitControlData; override;
  7705.   public
  7706.     procedure FlipChildren(AllLevels: WordBool);
  7707.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7708.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7709.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7710.     procedure InitiateAction;
  7711.     function IsRightToLeft(out Value: WordBool): WordBool;
  7712.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7713.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7714.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7715.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7716.     procedure AboutBox;
  7717.     property  ControlInterface: IRadioGroupX read GetControlInterface;
  7718.     property Items: IStrings read Get_Items write Set_Items;
  7719.     property DoubleBuffered: WordBool index 15 read GetWordBoolProp write SetWordBoolProp;
  7720.   published
  7721.     property BiDiMode: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7722.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  7723.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7724.     property Columns: Integer index 2 read GetIntegerProp write SetIntegerProp stored False;
  7725.     property Ctl3D: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  7726.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  7727.     property DragMode: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7728.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7729.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7730.     property ItemIndex: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  7731.     property ParentColor: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  7732.     property ParentCtl3D: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  7733.     property ParentFont: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  7734.     property Visible: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  7735.     property Cursor: Smallint index 31 read GetSmallintProp write SetSmallintProp stored False;
  7736.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7737.   end;
  7738.  
  7739.  
  7740. // *********************************************************************//
  7741. // OLE Control Proxy class declaration
  7742. // Control Name     : TRichEditX
  7743. // Help String      : RichEditX Control
  7744. // Default Interface: IRichEditX
  7745. // Def. Intf. DISP? : No
  7746. // Event   Interface: IRichEditXEvents
  7747. // TypeFlags        : (38) CanCreate Licensed Control
  7748. // *********************************************************************//
  7749.   TRichEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  7750.   TRichEditXOnProtectChange = procedure(Sender: TObject; StartPos: Integer; EndPos: Integer; 
  7751.                                                          var AllowChange: WordBool) of object;
  7752.   TRichEditXOnSaveClipboard = procedure(Sender: TObject; NumObjects: Integer; NumChars: Integer; 
  7753.                                                          var SaveClipboard: WordBool) of object;
  7754.  
  7755.   TRichEditX = class(TOleControl)
  7756.   private
  7757.     FOnChange: TNotifyEvent;
  7758.     FOnKeyPress: TRichEditXOnKeyPress;
  7759.     FOnProtectChange: TRichEditXOnProtectChange;
  7760.     FOnSaveClipboard: TRichEditXOnSaveClipboard;
  7761.     FOnSelectionChange: TNotifyEvent;
  7762.     FIntf: IRichEditX;
  7763.     function  GetControlInterface: IRichEditX;
  7764.     function Get_Lines: IStrings;
  7765.     procedure Set_Lines(const Value: IStrings);
  7766.   protected
  7767.     procedure CreateControl;
  7768.     procedure InitControlData; override;
  7769.   public
  7770.     procedure Clear;
  7771.     procedure Print(const Caption: WideString);
  7772.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7773.     procedure ClearSelection;
  7774.     procedure CopyToClipboard;
  7775.     procedure CutToClipboard;
  7776.     procedure PasteFromClipboard;
  7777.     procedure Undo;
  7778.     procedure ClearUndo;
  7779.     procedure SelectAll;
  7780.     procedure FlipChildren(AllLevels: WordBool);
  7781.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7782.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7783.     procedure InitiateAction;
  7784.     function IsRightToLeft(out Value: WordBool): WordBool;
  7785.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7786.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7787.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7788.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7789.     procedure AboutBox;
  7790.     property  ControlInterface: IRichEditX read GetControlInterface;
  7791.     property Lines: IStrings read Get_Lines write Set_Lines;
  7792.     property CanUndo: WordBool index 38 read GetWordBoolProp;
  7793.     property Modified: WordBool index 39 read GetWordBoolProp write SetWordBoolProp;
  7794.     property SelLength: Integer index 40 read GetIntegerProp write SetIntegerProp;
  7795.     property SelStart: Integer index 41 read GetIntegerProp write SetIntegerProp;
  7796.     property SelText: WideString index 42 read GetWideStringProp write SetWideStringProp;
  7797.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp;
  7798.     property DoubleBuffered: WordBool index 44 read GetWordBoolProp write SetWordBoolProp;
  7799.   published
  7800.     property Alignment: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7801.     property BiDiMode: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7802.     property BorderStyle: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7803.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7804.     property Ctl3D: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  7805.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  7806.     property DragMode: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7807.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7808.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7809.     property HideSelection: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  7810.     property HideScrollBars: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  7811.     property ImeMode: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7812.     property ImeName: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  7813.     property MaxLength: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  7814.     property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  7815.     property ParentCtl3D: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  7816.     property ParentFont: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  7817.     property PlainText: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  7818.     property ReadOnly: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  7819.     property ScrollBars: TOleEnum index 18 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7820.     property Visible: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  7821.     property WantTabs: WordBool index 20 read GetWordBoolProp write SetWordBoolProp stored False;
  7822.     property WantReturns: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False;
  7823.     property WordWrap: WordBool index 22 read GetWordBoolProp write SetWordBoolProp stored False;
  7824.     property Cursor: Smallint index 60 read GetSmallintProp write SetSmallintProp stored False;
  7825.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  7826.     property OnKeyPress: TRichEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7827.     property OnProtectChange: TRichEditXOnProtectChange read FOnProtectChange write FOnProtectChange;
  7828.     property OnSaveClipboard: TRichEditXOnSaveClipboard read FOnSaveClipboard write FOnSaveClipboard;
  7829.     property OnSelectionChange: TNotifyEvent read FOnSelectionChange write FOnSelectionChange;
  7830.   end;
  7831.  
  7832.  
  7833. // *********************************************************************//
  7834. // OLE Control Proxy class declaration
  7835. // Control Name     : TScrollBarX
  7836. // Help String      : ScrollBarX Control
  7837. // Default Interface: IScrollBarX
  7838. // Def. Intf. DISP? : No
  7839. // Event   Interface: IScrollBarXEvents
  7840. // TypeFlags        : (38) CanCreate Licensed Control
  7841. // *********************************************************************//
  7842.   TScrollBarXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  7843.   TScrollBarXOnScroll = procedure(Sender: TObject; ScrollCode: TxScrollCode; var ScrollPos: Integer) of object;
  7844.  
  7845.   TScrollBarX = class(TOleControl)
  7846.   private
  7847.     FOnChange: TNotifyEvent;
  7848.     FOnKeyPress: TScrollBarXOnKeyPress;
  7849.     FOnScroll: TScrollBarXOnScroll;
  7850.     FIntf: IScrollBarX;
  7851.     function  GetControlInterface: IScrollBarX;
  7852.   protected
  7853.     procedure CreateControl;
  7854.     procedure InitControlData; override;
  7855.   public
  7856.     procedure SetParams(APosition: Integer; AMin: Integer; AMax: Integer);
  7857.     procedure FlipChildren(AllLevels: WordBool);
  7858.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7859.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7860.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7861.     procedure InitiateAction;
  7862.     function IsRightToLeft(out Value: WordBool): WordBool;
  7863.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7864.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7865.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7866.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7867.     procedure AboutBox;
  7868.     property  ControlInterface: IScrollBarX read GetControlInterface;
  7869.     property DoubleBuffered: WordBool index 17 read GetWordBoolProp write SetWordBoolProp;
  7870.   published
  7871.     property BiDiMode: TOleEnum index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7872.     property Ctl3D: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  7873.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  7874.     property DragMode: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7875.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7876.     property Kind: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7877.     property LargeChange: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  7878.     property Max: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  7879.     property Min: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  7880.     property PageSize: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  7881.     property ParentCtl3D: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  7882.     property Position: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  7883.     property SmallChange: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  7884.     property Visible: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  7885.     property Cursor: Smallint index 34 read GetSmallintProp write SetSmallintProp stored False;
  7886.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  7887.     property OnKeyPress: TScrollBarXOnKeyPress read FOnKeyPress write FOnKeyPress;
  7888.     property OnScroll: TScrollBarXOnScroll read FOnScroll write FOnScroll;
  7889.   end;
  7890.  
  7891.  
  7892. // *********************************************************************//
  7893. // OLE Control Proxy class declaration
  7894. // Control Name     : TScrollBoxX
  7895. // Help String      : ScrollBoxX Control
  7896. // Default Interface: IScrollBoxX
  7897. // Def. Intf. DISP? : No
  7898. // Event   Interface: IScrollBoxXEvents
  7899. // TypeFlags        : (38) CanCreate Licensed Control
  7900. // *********************************************************************//
  7901.   TScrollBoxXOnCanResize = procedure(Sender: TObject; var NewWidth: Integer; 
  7902.                                                       var NewHeight: Integer; var Resize: WordBool) of object;
  7903.   TScrollBoxXOnConstrainedResize = procedure(Sender: TObject; var MinWidth: Integer; 
  7904.                                                               var MinHeight: Integer; 
  7905.                                                               var MaxWidth: Integer; 
  7906.                                                               var MaxHeight: Integer) of object;
  7907.  
  7908.   TScrollBoxX = class(TOleControl)
  7909.   private
  7910.     FOnCanResize: TScrollBoxXOnCanResize;
  7911.     FOnClick: TNotifyEvent;
  7912.     FOnConstrainedResize: TScrollBoxXOnConstrainedResize;
  7913.     FOnDblClick: TNotifyEvent;
  7914.     FOnResize: TNotifyEvent;
  7915.     FIntf: IScrollBoxX;
  7916.     function  GetControlInterface: IScrollBoxX;
  7917.   protected
  7918.     procedure CreateControl;
  7919.     procedure InitControlData; override;
  7920.   public
  7921.     procedure DisableAutoRange;
  7922.     procedure EnableAutoRange;
  7923.     procedure FlipChildren(AllLevels: WordBool);
  7924.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7925.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7926.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7927.     procedure InitiateAction;
  7928.     function IsRightToLeft(out Value: WordBool): WordBool;
  7929.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7930.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7931.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7932.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7933.     procedure AboutBox;
  7934.     property  ControlInterface: IScrollBoxX read GetControlInterface;
  7935.     property DoubleBuffered: WordBool index 18 read GetWordBoolProp write SetWordBoolProp;
  7936.   published
  7937.     property AutoScroll: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  7938.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  7939.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7940.     property BorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7941.     property DockSite: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  7942.     property DragCursor: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  7943.     property DragMode: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7944.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  7945.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  7946.     property Ctl3D: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  7947.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  7948.     property ParentColor: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  7949.     property ParentCtl3D: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  7950.     property ParentFont: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  7951.     property Visible: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  7952.     property Cursor: Smallint index 35 read GetSmallintProp write SetSmallintProp stored False;
  7953.     property OnCanResize: TScrollBoxXOnCanResize read FOnCanResize write FOnCanResize;
  7954.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  7955.     property OnConstrainedResize: TScrollBoxXOnConstrainedResize read FOnConstrainedResize write FOnConstrainedResize;
  7956.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  7957.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  7958.   end;
  7959.  
  7960.  
  7961. // *********************************************************************//
  7962. // OLE Control Proxy class declaration
  7963. // Control Name     : TSpinButtonX
  7964. // Help String      : SpinButtonX Control
  7965. // Default Interface: ISpinButtonX
  7966. // Def. Intf. DISP? : No
  7967. // Event   Interface: ISpinButtonXEvents
  7968. // TypeFlags        : (38) CanCreate Licensed Control
  7969. // *********************************************************************//
  7970.   TSpinButtonX = class(TOleControl)
  7971.   private
  7972.     FOnDownClick: TNotifyEvent;
  7973.     FOnUpClick: TNotifyEvent;
  7974.     FIntf: ISpinButtonX;
  7975.     function  GetControlInterface: ISpinButtonX;
  7976.   protected
  7977.     procedure CreateControl;
  7978.     procedure InitControlData; override;
  7979.   public
  7980.     procedure FlipChildren(AllLevels: WordBool);
  7981.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  7982.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  7983.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  7984.     procedure InitiateAction;
  7985.     function IsRightToLeft(out Value: WordBool): WordBool;
  7986.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  7987.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  7988.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  7989.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  7990.     procedure AboutBox;
  7991.     property  ControlInterface: ISpinButtonX read GetControlInterface;
  7992.     property DoubleBuffered: WordBool index 10 read GetWordBoolProp write SetWordBoolProp;
  7993.     property BiDiMode: TOleEnum index 27 read GetTOleEnumProp write SetTOleEnumProp;
  7994.   published
  7995.     property Ctl3D: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  7996.     property DownNumGlyphs: Smallint index 2 read GetSmallintProp write SetSmallintProp stored False;
  7997.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  7998.     property DragMode: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  7999.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8000.     property ParentCtl3D: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  8001.     property UpNumGlyphs: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  8002.     property Visible: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  8003.     property Cursor: Smallint index 28 read GetSmallintProp write SetSmallintProp stored False;
  8004.     property OnDownClick: TNotifyEvent read FOnDownClick write FOnDownClick;
  8005.     property OnUpClick: TNotifyEvent read FOnUpClick write FOnUpClick;
  8006.   end;
  8007.  
  8008.  
  8009. // *********************************************************************//
  8010. // OLE Control Proxy class declaration
  8011. // Control Name     : TSpinEditX
  8012. // Help String      : SpinEditX Control
  8013. // Default Interface: ISpinEditX
  8014. // Def. Intf. DISP? : No
  8015. // Event   Interface: ISpinEditXEvents
  8016. // TypeFlags        : (38) CanCreate Licensed Control
  8017. // *********************************************************************//
  8018.   TSpinEditXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  8019.  
  8020.   TSpinEditX = class(TOleControl)
  8021.   private
  8022.     FOnChange: TNotifyEvent;
  8023.     FOnClick: TNotifyEvent;
  8024.     FOnDblClick: TNotifyEvent;
  8025.     FOnKeyPress: TSpinEditXOnKeyPress;
  8026.     FIntf: ISpinEditX;
  8027.     function  GetControlInterface: ISpinEditX;
  8028.   protected
  8029.     procedure CreateControl;
  8030.     procedure InitControlData; override;
  8031.   public
  8032.     procedure Clear;
  8033.     procedure ClearSelection;
  8034.     procedure CopyToClipboard;
  8035.     procedure CutToClipboard;
  8036.     procedure PasteFromClipboard;
  8037.     procedure Undo;
  8038.     procedure ClearUndo;
  8039.     procedure SelectAll;
  8040.     procedure FlipChildren(AllLevels: WordBool);
  8041.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8042.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8043.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8044.     procedure InitiateAction;
  8045.     function IsRightToLeft(out Value: WordBool): WordBool;
  8046.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8047.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8048.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8049.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8050.     procedure AboutBox;
  8051.     property  ControlInterface: ISpinEditX read GetControlInterface;
  8052.     property CanUndo: WordBool index 28 read GetWordBoolProp;
  8053.     property Modified: WordBool index 29 read GetWordBoolProp write SetWordBoolProp;
  8054.     property SelLength: Integer index 30 read GetIntegerProp write SetIntegerProp;
  8055.     property SelStart: Integer index 31 read GetIntegerProp write SetIntegerProp;
  8056.     property SelText: WideString index 32 read GetWideStringProp write SetWideStringProp;
  8057.     property Text: WideString index -517 read GetWideStringProp write SetWideStringProp;
  8058.     property DoubleBuffered: WordBool index 34 read GetWordBoolProp write SetWordBoolProp;
  8059.     property BiDiMode: TOleEnum index 51 read GetTOleEnumProp write SetTOleEnumProp;
  8060.   published
  8061.     property AutoSelect: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  8062.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  8063.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  8064.     property Ctl3D: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  8065.     property DragCursor: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  8066.     property DragMode: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8067.     property EditorEnabled: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  8068.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8069.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  8070.     property Increment: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  8071.     property MaxLength: Integer index 8 read GetIntegerProp write SetIntegerProp stored False;
  8072.     property MaxValue: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  8073.     property MinValue: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  8074.     property ParentColor: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  8075.     property ParentCtl3D: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  8076.     property ParentFont: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  8077.     property ReadOnly: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  8078.     property Value: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;
  8079.     property Visible: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
  8080.     property Cursor: Smallint index 52 read GetSmallintProp write SetSmallintProp stored False;
  8081.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  8082.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  8083.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  8084.     property OnKeyPress: TSpinEditXOnKeyPress read FOnKeyPress write FOnKeyPress;
  8085.   end;
  8086.  
  8087.  
  8088. // *********************************************************************//
  8089. // OLE Control Proxy class declaration
  8090. // Control Name     : TStaticTextX
  8091. // Help String      : StaticTextX Control
  8092. // Default Interface: IStaticTextX
  8093. // Def. Intf. DISP? : No
  8094. // Event   Interface: IStaticTextXEvents
  8095. // TypeFlags        : (38) CanCreate Licensed Control
  8096. // *********************************************************************//
  8097.   TStaticTextX = class(TOleControl)
  8098.   private
  8099.     FOnClick: TNotifyEvent;
  8100.     FOnDblClick: TNotifyEvent;
  8101.     FIntf: IStaticTextX;
  8102.     function  GetControlInterface: IStaticTextX;
  8103.   protected
  8104.     procedure CreateControl;
  8105.     procedure InitControlData; override;
  8106.   public
  8107.     procedure FlipChildren(AllLevels: WordBool);
  8108.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8109.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8110.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8111.     procedure InitiateAction;
  8112.     function IsRightToLeft(out Value: WordBool): WordBool;
  8113.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8114.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8115.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8116.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8117.     procedure AboutBox;
  8118.     property  ControlInterface: IStaticTextX read GetControlInterface;
  8119.     property DoubleBuffered: WordBool index 13 read GetWordBoolProp write SetWordBoolProp;
  8120.   published
  8121.     property Alignment: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8122.     property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  8123.     property BiDiMode: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8124.     property BorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8125.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  8126.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  8127.     property DragCursor: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  8128.     property DragMode: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8129.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8130.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  8131.     property ParentColor: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  8132.     property ParentFont: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  8133.     property ShowAccelChar: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  8134.     property Visible: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  8135.     property Cursor: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  8136.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  8137.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  8138.   end;
  8139.  
  8140.  
  8141. // *********************************************************************//
  8142. // OLE Control Proxy class declaration
  8143. // Control Name     : TStringGridX
  8144. // Help String      : StringGridX Control
  8145. // Default Interface: IStringGridX
  8146. // Def. Intf. DISP? : No
  8147. // Event   Interface: IStringGridXEvents
  8148. // TypeFlags        : (38) CanCreate Licensed Control
  8149. // *********************************************************************//
  8150.   TStringGridXOnColumnMoved = procedure(Sender: TObject; FromIndex: Integer; ToIndex: Integer) of object;
  8151.   TStringGridXOnGetEditMask = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  8152.                                                          var Value: WideString) of object;
  8153.   TStringGridXOnGetEditText = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  8154.                                                          var Value: WideString) of object;
  8155.   TStringGridXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  8156.   TStringGridXOnRowMoved = procedure(Sender: TObject; FromIndex: Integer; ToIndex: Integer) of object;
  8157.   TStringGridXOnSelectCell = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  8158.                                                         var CanSelect: WordBool) of object;
  8159.   TStringGridXOnSetEditText = procedure(Sender: TObject; ACol: Integer; ARow: Integer; 
  8160.                                                          const Value: WideString) of object;
  8161.  
  8162.   TStringGridX = class(TOleControl)
  8163.   private
  8164.     FOnClick: TNotifyEvent;
  8165.     FOnColumnMoved: TStringGridXOnColumnMoved;
  8166.     FOnDblClick: TNotifyEvent;
  8167.     FOnGetEditMask: TStringGridXOnGetEditMask;
  8168.     FOnGetEditText: TStringGridXOnGetEditText;
  8169.     FOnKeyPress: TStringGridXOnKeyPress;
  8170.     FOnRowMoved: TStringGridXOnRowMoved;
  8171.     FOnSelectCell: TStringGridXOnSelectCell;
  8172.     FOnSetEditText: TStringGridXOnSetEditText;
  8173.     FOnTopLeftChanged: TNotifyEvent;
  8174.     FIntf: IStringGridX;
  8175.     function  GetControlInterface: IStringGridX;
  8176.   protected
  8177.     procedure CreateControl;
  8178.     procedure InitControlData; override;
  8179.   public
  8180.     procedure MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer);
  8181.     procedure FlipChildren(AllLevels: WordBool);
  8182.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8183.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8184.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8185.     procedure InitiateAction;
  8186.     function IsRightToLeft(out Value: WordBool): WordBool;
  8187.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8188.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8189.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8190.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8191.     procedure AboutBox;
  8192.     property  ControlInterface: IStringGridX read GetControlInterface;
  8193.     property Col: Integer index 2 read GetIntegerProp write SetIntegerProp;
  8194.     property EditorMode: WordBool index 3 read GetWordBoolProp write SetWordBoolProp;
  8195.     property GridHeight: Integer index 4 read GetIntegerProp;
  8196.     property GridWidth: Integer index 5 read GetIntegerProp;
  8197.     property LeftCol: Integer index 6 read GetIntegerProp write SetIntegerProp;
  8198.     property Row: Integer index 7 read GetIntegerProp write SetIntegerProp;
  8199.     property TopRow: Integer index 8 read GetIntegerProp write SetIntegerProp;
  8200.     property VisibleColCount: Integer index 28 read GetIntegerProp;
  8201.     property VisibleRowCount: Integer index 29 read GetIntegerProp;
  8202.     property DoubleBuffered: WordBool index 32 read GetWordBoolProp write SetWordBoolProp;
  8203.   published
  8204.     property BiDiMode: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8205.     property BorderStyle: TOleEnum index 10 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8206.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  8207.     property ColCount: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  8208.     property Ctl3D: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
  8209.     property DefaultColWidth: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  8210.     property DefaultRowHeight: Integer index 14 read GetIntegerProp write SetIntegerProp stored False;
  8211.     property DefaultDrawing: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
  8212.     property DragCursor: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  8213.     property DragMode: TOleEnum index 17 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8214.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8215.     property FixedColor: TColor index 18 read GetTColorProp write SetTColorProp stored False;
  8216.     property FixedCols: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  8217.     property RowCount: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  8218.     property FixedRows: Integer index 21 read GetIntegerProp write SetIntegerProp stored False;
  8219.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  8220.     property GridLineWidth: Integer index 22 read GetIntegerProp write SetIntegerProp stored False;
  8221.     property ParentColor: WordBool index 23 read GetWordBoolProp write SetWordBoolProp stored False;
  8222.     property ParentCtl3D: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False;
  8223.     property ParentFont: WordBool index 25 read GetWordBoolProp write SetWordBoolProp stored False;
  8224.     property ScrollBars: TOleEnum index 26 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8225.     property Visible: WordBool index 27 read GetWordBoolProp write SetWordBoolProp stored False;
  8226.     property Cursor: Smallint index 49 read GetSmallintProp write SetSmallintProp stored False;
  8227.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  8228.     property OnColumnMoved: TStringGridXOnColumnMoved read FOnColumnMoved write FOnColumnMoved;
  8229.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  8230.     property OnGetEditMask: TStringGridXOnGetEditMask read FOnGetEditMask write FOnGetEditMask;
  8231.     property OnGetEditText: TStringGridXOnGetEditText read FOnGetEditText write FOnGetEditText;
  8232.     property OnKeyPress: TStringGridXOnKeyPress read FOnKeyPress write FOnKeyPress;
  8233.     property OnRowMoved: TStringGridXOnRowMoved read FOnRowMoved write FOnRowMoved;
  8234.     property OnSelectCell: TStringGridXOnSelectCell read FOnSelectCell write FOnSelectCell;
  8235.     property OnSetEditText: TStringGridXOnSetEditText read FOnSetEditText write FOnSetEditText;
  8236.     property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
  8237.   end;
  8238.  
  8239.  
  8240. // *********************************************************************//
  8241. // OLE Control Proxy class declaration
  8242. // Control Name     : TTabbedNotebookX
  8243. // Help String      : TabbedNotebookX Control
  8244. // Default Interface: ITabbedNotebookX
  8245. // Def. Intf. DISP? : No
  8246. // Event   Interface: ITabbedNotebookXEvents
  8247. // TypeFlags        : (38) CanCreate Licensed Control
  8248. // *********************************************************************//
  8249.   TTabbedNotebookXOnChange = procedure(Sender: TObject; NewTab: Integer; var AllowChange: WordBool) of object;
  8250.  
  8251.   TTabbedNotebookX = class(TOleControl)
  8252.   private
  8253.     FOnClick: TNotifyEvent;
  8254.     FOnChange: TTabbedNotebookXOnChange;
  8255.     FIntf: ITabbedNotebookX;
  8256.     function  GetControlInterface: ITabbedNotebookX;
  8257.     function Get_Pages: IStrings;
  8258.     procedure Set_Pages(const Value: IStrings);
  8259.   protected
  8260.     procedure CreateControl;
  8261.     procedure InitControlData; override;
  8262.   public
  8263.     function GetIndexForPage(const PageName: WideString; out Value: Integer): Integer;
  8264.     procedure FlipChildren(AllLevels: WordBool);
  8265.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8266.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8267.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8268.     procedure InitiateAction;
  8269.     function IsRightToLeft(out Value: WordBool): WordBool;
  8270.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8271.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8272.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8273.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8274.     procedure AboutBox;
  8275.     property  ControlInterface: ITabbedNotebookX read GetControlInterface;
  8276.     property TopFont: TFont index 2 read GetTFontProp;
  8277.     property Pages: IStrings read Get_Pages write Set_Pages;
  8278.     property DoubleBuffered: WordBool index 12 read GetWordBoolProp write SetWordBoolProp;
  8279.     property BiDiMode: TOleEnum index 29 read GetTOleEnumProp write SetTOleEnumProp;
  8280.   published
  8281.     property ActivePage: WideString index 4 read GetWideStringProp write SetWideStringProp stored False;
  8282.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8283.     property PageIndex: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  8284.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  8285.     property TabsPerRow: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  8286.     property TabFont: TFont index 8 read GetTFontProp write SetTFontProp stored False;
  8287.     property Visible: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  8288.     property Cursor: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  8289.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  8290.     property OnChange: TTabbedNotebookXOnChange read FOnChange write FOnChange;
  8291.   end;
  8292.  
  8293.  
  8294. // *********************************************************************//
  8295. // OLE Control Proxy class declaration
  8296. // Control Name     : TTabControlX
  8297. // Help String      : TabControlX Control
  8298. // Default Interface: ITabControlX
  8299. // Def. Intf. DISP? : No
  8300. // Event   Interface: ITabControlXEvents
  8301. // TypeFlags        : (38) CanCreate Licensed Control
  8302. // *********************************************************************//
  8303.   TTabControlXOnChanging = procedure(Sender: TObject; var AllowChange: WordBool) of object;
  8304.   TTabControlXOnGetImageIndex = procedure(Sender: TObject; TabIndex: Integer; 
  8305.                                                            var ImageIndex: Integer) of object;
  8306.  
  8307.   TTabControlX = class(TOleControl)
  8308.   private
  8309.     FOnChange: TNotifyEvent;
  8310.     FOnChanging: TTabControlXOnChanging;
  8311.     FOnGetImageIndex: TTabControlXOnGetImageIndex;
  8312.     FOnResize: TNotifyEvent;
  8313.     FIntf: ITabControlX;
  8314.     function  GetControlInterface: ITabControlX;
  8315.     function Get_Tabs: IStrings;
  8316.     procedure Set_Tabs(const Value: IStrings);
  8317.   protected
  8318.     procedure CreateControl;
  8319.     procedure InitControlData; override;
  8320.   public
  8321.     procedure FlipChildren(AllLevels: WordBool);
  8322.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8323.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8324.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8325.     procedure InitiateAction;
  8326.     function IsRightToLeft(out Value: WordBool): WordBool;
  8327.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8328.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8329.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8330.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8331.     procedure AboutBox;
  8332.     property  ControlInterface: ITabControlX read GetControlInterface;
  8333.     property Tabs: IStrings read Get_Tabs write Set_Tabs;
  8334.     property DoubleBuffered: WordBool index 21 read GetWordBoolProp write SetWordBoolProp;
  8335.   published
  8336.     property BiDiMode: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8337.     property DockSite: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  8338.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  8339.     property DragMode: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8340.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8341.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  8342.     property HotTrack: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  8343.     property MultiLine: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  8344.     property MultiSelect: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
  8345.     property OwnerDraw: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  8346.     property ParentFont: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  8347.     property RaggedRight: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  8348.     property ScrollOpposite: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  8349.     property Style: TOleEnum index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8350.     property TabHeight: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  8351.     property TabPosition: TOleEnum index 14 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8352.     property TabIndex: Integer index 16 read GetIntegerProp write SetIntegerProp stored False;
  8353.     property TabWidth: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  8354.     property Visible: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
  8355.     property Cursor: Smallint index 38 read GetSmallintProp write SetSmallintProp stored False;
  8356.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  8357.     property OnChanging: TTabControlXOnChanging read FOnChanging write FOnChanging;
  8358.     property OnGetImageIndex: TTabControlXOnGetImageIndex read FOnGetImageIndex write FOnGetImageIndex;
  8359.     property OnResize: TNotifyEvent read FOnResize write FOnResize;
  8360.   end;
  8361.  
  8362.  
  8363. // *********************************************************************//
  8364. // OLE Control Proxy class declaration
  8365. // Control Name     : TTabSetX
  8366. // Help String      : TabSetX Control
  8367. // Default Interface: ITabSetX
  8368. // Def. Intf. DISP? : No
  8369. // Event   Interface: ITabSetXEvents
  8370. // TypeFlags        : (38) CanCreate Licensed Control
  8371. // *********************************************************************//
  8372.   TTabSetXOnChange = procedure(Sender: TObject; NewTab: Integer; var AllowChange: WordBool) of object;
  8373.   TTabSetXOnMeasureTab = procedure(Sender: TObject; Index: Integer; var TabWidth: Integer) of object;
  8374.  
  8375.   TTabSetX = class(TOleControl)
  8376.   private
  8377.     FOnClick: TNotifyEvent;
  8378.     FOnChange: TTabSetXOnChange;
  8379.     FOnMeasureTab: TTabSetXOnMeasureTab;
  8380.     FIntf: ITabSetX;
  8381.     function  GetControlInterface: ITabSetX;
  8382.     function Get_Tabs: IStrings;
  8383.     procedure Set_Tabs(const Value: IStrings);
  8384.   protected
  8385.     procedure CreateControl;
  8386.     procedure InitControlData; override;
  8387.   public
  8388.     procedure SelectNext(Direction: WordBool);
  8389.     procedure FlipChildren(AllLevels: WordBool);
  8390.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8391.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8392.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8393.     procedure InitiateAction;
  8394.     function IsRightToLeft(out Value: WordBool): WordBool;
  8395.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8396.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8397.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8398.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8399.     procedure AboutBox;
  8400.     property  ControlInterface: ITabSetX read GetControlInterface;
  8401.     property FirstIndex: Integer index 3 read GetIntegerProp write SetIntegerProp;
  8402.     property Tabs: IStrings read Get_Tabs write Set_Tabs;
  8403.     property VisibleTabs: Integer index 18 read GetIntegerProp;
  8404.     property DoubleBuffered: WordBool index 21 read GetWordBoolProp write SetWordBoolProp;
  8405.     property BiDiMode: TOleEnum index 38 read GetTOleEnumProp write SetTOleEnumProp;
  8406.   published
  8407.     property AutoScroll: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
  8408.     property BackgroundColor: TColor index 5 read GetTColorProp write SetTColorProp stored False;
  8409.     property DitherBackground: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
  8410.     property DragCursor: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  8411.     property DragMode: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8412.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8413.     property EndMargin: Integer index 9 read GetIntegerProp write SetIntegerProp stored False;
  8414.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  8415.     property StartMargin: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  8416.     property SelectedColor: TColor index 11 read GetTColorProp write SetTColorProp stored False;
  8417.     property Style: TOleEnum index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8418.     property TabHeight: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  8419.     property TabIndex: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;
  8420.     property UnselectedColor: TColor index 16 read GetTColorProp write SetTColorProp stored False;
  8421.     property Visible: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
  8422.     property Cursor: Smallint index 39 read GetSmallintProp write SetSmallintProp stored False;
  8423.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  8424.     property OnChange: TTabSetXOnChange read FOnChange write FOnChange;
  8425.     property OnMeasureTab: TTabSetXOnMeasureTab read FOnMeasureTab write FOnMeasureTab;
  8426.   end;
  8427.  
  8428.  
  8429. // *********************************************************************//
  8430. // OLE Control Proxy class declaration
  8431. // Control Name     : TTrackBarX
  8432. // Help String      : TrackBarX Control
  8433. // Default Interface: ITrackBarX
  8434. // Def. Intf. DISP? : No
  8435. // Event   Interface: ITrackBarXEvents
  8436. // TypeFlags        : (38) CanCreate Licensed Control
  8437. // *********************************************************************//
  8438.   TTrackBarXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  8439.  
  8440.   TTrackBarX = class(TOleControl)
  8441.   private
  8442.     FOnChange: TNotifyEvent;
  8443.     FOnKeyPress: TTrackBarXOnKeyPress;
  8444.     FIntf: ITrackBarX;
  8445.     function  GetControlInterface: ITrackBarX;
  8446.   protected
  8447.     procedure CreateControl;
  8448.     procedure InitControlData; override;
  8449.   public
  8450.     procedure SetTick(Value: Integer);
  8451.     procedure FlipChildren(AllLevels: WordBool);
  8452.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8453.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8454.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8455.     procedure InitiateAction;
  8456.     function IsRightToLeft(out Value: WordBool): WordBool;
  8457.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8458.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8459.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8460.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8461.     procedure AboutBox;
  8462.     property  ControlInterface: ITrackBarX read GetControlInterface;
  8463.     property DoubleBuffered: WordBool index 22 read GetWordBoolProp write SetWordBoolProp;
  8464.     property BiDiMode: TOleEnum index 39 read GetTOleEnumProp write SetTOleEnumProp;
  8465.   published
  8466.     property Ctl3D: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  8467.     property DragCursor: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  8468.     property DragMode: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8469.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8470.     property LineSize: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  8471.     property Max: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  8472.     property Min: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
  8473.     property Orientation: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8474.     property ParentCtl3D: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  8475.     property PageSize: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  8476.     property Frequency: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  8477.     property Position: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  8478.     property SliderVisible: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  8479.     property SelEnd: Integer index 14 read GetIntegerProp write SetIntegerProp stored False;
  8480.     property SelStart: Integer index 15 read GetIntegerProp write SetIntegerProp stored False;
  8481.     property ThumbLength: Integer index 16 read GetIntegerProp write SetIntegerProp stored False;
  8482.     property TickMarks: TOleEnum index 17 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8483.     property TickStyle: TOleEnum index 18 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8484.     property Visible: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  8485.     property Cursor: Smallint index 40 read GetSmallintProp write SetSmallintProp stored False;
  8486.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  8487.     property OnKeyPress: TTrackBarXOnKeyPress read FOnKeyPress write FOnKeyPress;
  8488.   end;
  8489.  
  8490.  
  8491. // *********************************************************************//
  8492. // OLE Control Proxy class declaration
  8493. // Control Name     : TUpDownX
  8494. // Help String      : UpDownX Control
  8495. // Default Interface: IUpDownX
  8496. // Def. Intf. DISP? : No
  8497. // Event   Interface: IUpDownXEvents
  8498. // TypeFlags        : (38) CanCreate Licensed Control
  8499. // *********************************************************************//
  8500.   TUpDownXOnChanging = procedure(Sender: TObject; var AllowChange: WordBool) of object;
  8501.   TUpDownXOnClick = procedure(Sender: TObject; Button: TxUDBtnType) of object;
  8502.  
  8503.   TUpDownX = class(TOleControl)
  8504.   private
  8505.     FOnChanging: TUpDownXOnChanging;
  8506.     FOnClick: TUpDownXOnClick;
  8507.     FIntf: IUpDownX;
  8508.     function  GetControlInterface: IUpDownX;
  8509.   protected
  8510.     procedure CreateControl;
  8511.     procedure InitControlData; override;
  8512.   public
  8513.     procedure FlipChildren(AllLevels: WordBool);
  8514.     function DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8515.     function DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8516.     function GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8517.     procedure InitiateAction;
  8518.     function IsRightToLeft(out Value: WordBool): WordBool;
  8519.     function UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8520.     function UseRightToLeftReading(out Value: WordBool): WordBool;
  8521.     function UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8522.     function ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8523.     procedure AboutBox;
  8524.     property  ControlInterface: IUpDownX read GetControlInterface;
  8525.     property DoubleBuffered: WordBool index 13 read GetWordBoolProp write SetWordBoolProp;
  8526.     property BiDiMode: TOleEnum index 30 read GetTOleEnumProp write SetTOleEnumProp;
  8527.   published
  8528.     property AlignButton: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8529.     property ArrowKeys: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  8530.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  8531.     property Min: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  8532.     property Max: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  8533.     property Increment: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  8534.     property Orientation: TOleEnum index 6 read GetTOleEnumProp write SetTOleEnumProp stored False;
  8535.     property Position: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  8536.     property Thousands: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  8537.     property Visible: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
  8538.     property Wrap: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  8539.     property Cursor: Smallint index 31 read GetSmallintProp write SetSmallintProp stored False;
  8540.     property OnChanging: TUpDownXOnChanging read FOnChanging write FOnChanging;
  8541.     property OnClick: TUpDownXOnClick read FOnClick write FOnClick;
  8542.   end;
  8543.  
  8544. procedure Register;
  8545.  
  8546. implementation
  8547.  
  8548. uses ComObj;
  8549.  
  8550. procedure TAnimateX.InitControlData;
  8551. const
  8552.   CEventDispIDs: array [0..3] of DWORD = (
  8553.     $00000001, $00000002, $00000003, $00000004);
  8554.   CControlData: TControlData = (
  8555.     ClassID: '{695CDACE-02E5-11D2-B20D-00C04FA368D4}';
  8556.     EventIID: '{695CDACC-02E5-11D2-B20D-00C04FA368D4}';
  8557.     EventCount: 4;
  8558.     EventDispIDs: @CEventDispIDs;
  8559.     LicenseKey: nil;
  8560.     Flags: $00000009;
  8561.     Version: 300);
  8562. begin
  8563.   ControlData := @CControlData;
  8564. end;
  8565.  
  8566. procedure TAnimateX.CreateControl;
  8567.  
  8568.   procedure DoCreate;
  8569.   begin
  8570.     FIntf := IUnknown(OleObject) as IAnimateX;
  8571.   end;
  8572.  
  8573. begin
  8574.   if FIntf = nil then DoCreate;
  8575. end;
  8576.  
  8577. function TAnimateX.GetControlInterface: IAnimateX;
  8578. begin
  8579.   CreateControl;
  8580.   Result := FIntf;
  8581. end;
  8582.  
  8583. procedure TAnimateX.Play(FromFrame: Smallint; ToFrame: Smallint; Count: Integer);
  8584. begin
  8585.   ControlInterface.Play(FromFrame, ToFrame, Count);
  8586. end;
  8587.  
  8588. procedure TAnimateX.Reset;
  8589. begin
  8590.   ControlInterface.Reset;
  8591. end;
  8592.  
  8593. procedure TAnimateX.Seek(Frame: Smallint);
  8594. begin
  8595.   ControlInterface.Seek(Frame);
  8596. end;
  8597.  
  8598. procedure TAnimateX.Stop;
  8599. begin
  8600.   ControlInterface.Stop;
  8601. end;
  8602.  
  8603. procedure TAnimateX.FlipChildren(AllLevels: WordBool);
  8604. begin
  8605.   ControlInterface.FlipChildren(AllLevels);
  8606. end;
  8607.  
  8608. function TAnimateX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8609. begin
  8610.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  8611. end;
  8612.  
  8613. function TAnimateX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8614. begin
  8615.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  8616. end;
  8617.  
  8618. function TAnimateX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8619. begin
  8620.   Result := ControlInterface.GetControlsAlignment;
  8621. end;
  8622.  
  8623. procedure TAnimateX.InitiateAction;
  8624. begin
  8625.   ControlInterface.InitiateAction;
  8626. end;
  8627.  
  8628. function TAnimateX.IsRightToLeft(out Value: WordBool): WordBool;
  8629. begin
  8630.   Result := ControlInterface.IsRightToLeft;
  8631. end;
  8632.  
  8633. function TAnimateX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8634. begin
  8635.   Result := ControlInterface.UseRightToLeftAlignment;
  8636. end;
  8637.  
  8638. function TAnimateX.UseRightToLeftReading(out Value: WordBool): WordBool;
  8639. begin
  8640.   Result := ControlInterface.UseRightToLeftReading;
  8641. end;
  8642.  
  8643. function TAnimateX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8644. begin
  8645.   Result := ControlInterface.UseRightToLeftScrollBar;
  8646. end;
  8647.  
  8648. function TAnimateX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8649. begin
  8650.   Result := ControlInterface.ClassNameIs(Name);
  8651. end;
  8652.  
  8653. procedure TAnimateX.AboutBox;
  8654. begin
  8655.   ControlInterface.AboutBox;
  8656. end;
  8657.  
  8658. procedure TButtonX.InitControlData;
  8659. const
  8660.   CEventDispIDs: array [0..1] of DWORD = (
  8661.     $00000001, $00000007);
  8662.   CTFontIDs: array [0..0] of DWORD = (
  8663.     $FFFFFE00);
  8664.   CControlData: TControlData = (
  8665.     ClassID: '{695CDAD8-02E5-11D2-B20D-00C04FA368D4}';
  8666.     EventIID: '{695CDAD6-02E5-11D2-B20D-00C04FA368D4}';
  8667.     EventCount: 2;
  8668.     EventDispIDs: @CEventDispIDs;
  8669.     LicenseKey: nil;
  8670.     Flags: $0000001C;
  8671.     Version: 300;
  8672.     FontCount: 1;
  8673.     FontIDs: @CTFontIDs);
  8674. begin
  8675.   ControlData := @CControlData;
  8676. end;
  8677.  
  8678. procedure TButtonX.CreateControl;
  8679.  
  8680.   procedure DoCreate;
  8681.   begin
  8682.     FIntf := IUnknown(OleObject) as IButtonX;
  8683.   end;
  8684.  
  8685. begin
  8686.   if FIntf = nil then DoCreate;
  8687. end;
  8688.  
  8689. function TButtonX.GetControlInterface: IButtonX;
  8690. begin
  8691.   CreateControl;
  8692.   Result := FIntf;
  8693. end;
  8694.  
  8695. procedure TButtonX.Click;
  8696. begin
  8697.   ControlInterface.Click;
  8698. end;
  8699.  
  8700. function TButtonX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8701. begin
  8702.   Result := ControlInterface.UseRightToLeftAlignment;
  8703. end;
  8704.  
  8705. procedure TButtonX.FlipChildren(AllLevels: WordBool);
  8706. begin
  8707.   ControlInterface.FlipChildren(AllLevels);
  8708. end;
  8709.  
  8710. function TButtonX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8711. begin
  8712.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  8713. end;
  8714.  
  8715. function TButtonX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8716. begin
  8717.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  8718. end;
  8719.  
  8720. function TButtonX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8721. begin
  8722.   Result := ControlInterface.GetControlsAlignment;
  8723. end;
  8724.  
  8725. procedure TButtonX.InitiateAction;
  8726. begin
  8727.   ControlInterface.InitiateAction;
  8728. end;
  8729.  
  8730. function TButtonX.IsRightToLeft(out Value: WordBool): WordBool;
  8731. begin
  8732.   Result := ControlInterface.IsRightToLeft;
  8733. end;
  8734.  
  8735. function TButtonX.UseRightToLeftReading(out Value: WordBool): WordBool;
  8736. begin
  8737.   Result := ControlInterface.UseRightToLeftReading;
  8738. end;
  8739.  
  8740. function TButtonX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8741. begin
  8742.   Result := ControlInterface.UseRightToLeftScrollBar;
  8743. end;
  8744.  
  8745. function TButtonX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8746. begin
  8747.   Result := ControlInterface.ClassNameIs(Name);
  8748. end;
  8749.  
  8750. procedure TButtonX.AboutBox;
  8751. begin
  8752.   ControlInterface.AboutBox;
  8753. end;
  8754.  
  8755. procedure TCalendarX.InitControlData;
  8756. const
  8757.   CEventDispIDs: array [0..3] of DWORD = (
  8758.     $00000001, $00000002, $00000003, $00000009);
  8759.   CTFontIDs: array [0..0] of DWORD = (
  8760.     $FFFFFE00);
  8761.   CControlData: TControlData = (
  8762.     ClassID: '{695CDAE1-02E5-11D2-B20D-00C04FA368D4}';
  8763.     EventIID: '{695CDADF-02E5-11D2-B20D-00C04FA368D4}';
  8764.     EventCount: 4;
  8765.     EventDispIDs: @CEventDispIDs;
  8766.     LicenseKey: nil;
  8767.     Flags: $0000000D;
  8768.     Version: 300;
  8769.     FontCount: 1;
  8770.     FontIDs: @CTFontIDs);
  8771. begin
  8772.   ControlData := @CControlData;
  8773. end;
  8774.  
  8775. procedure TCalendarX.CreateControl;
  8776.  
  8777.   procedure DoCreate;
  8778.   begin
  8779.     FIntf := IUnknown(OleObject) as ICalendarX;
  8780.   end;
  8781.  
  8782. begin
  8783.   if FIntf = nil then DoCreate;
  8784. end;
  8785.  
  8786. function TCalendarX.GetControlInterface: ICalendarX;
  8787. begin
  8788.   CreateControl;
  8789.   Result := FIntf;
  8790. end;
  8791.  
  8792. procedure TCalendarX.NextMonth;
  8793. begin
  8794.   ControlInterface.NextMonth;
  8795. end;
  8796.  
  8797. procedure TCalendarX.NextYear;
  8798. begin
  8799.   ControlInterface.NextYear;
  8800. end;
  8801.  
  8802. procedure TCalendarX.PrevMonth;
  8803. begin
  8804.   ControlInterface.PrevMonth;
  8805. end;
  8806.  
  8807. procedure TCalendarX.PrevYear;
  8808. begin
  8809.   ControlInterface.PrevYear;
  8810. end;
  8811.  
  8812. procedure TCalendarX.UpdateCalendar;
  8813. begin
  8814.   ControlInterface.UpdateCalendar;
  8815. end;
  8816.  
  8817. procedure TCalendarX.FlipChildren(AllLevels: WordBool);
  8818. begin
  8819.   ControlInterface.FlipChildren(AllLevels);
  8820. end;
  8821.  
  8822. function TCalendarX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8823. begin
  8824.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  8825. end;
  8826.  
  8827. function TCalendarX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8828. begin
  8829.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  8830. end;
  8831.  
  8832. function TCalendarX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8833. begin
  8834.   Result := ControlInterface.GetControlsAlignment;
  8835. end;
  8836.  
  8837. procedure TCalendarX.InitiateAction;
  8838. begin
  8839.   ControlInterface.InitiateAction;
  8840. end;
  8841.  
  8842. function TCalendarX.IsRightToLeft(out Value: WordBool): WordBool;
  8843. begin
  8844.   Result := ControlInterface.IsRightToLeft;
  8845. end;
  8846.  
  8847. function TCalendarX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8848. begin
  8849.   Result := ControlInterface.UseRightToLeftAlignment;
  8850. end;
  8851.  
  8852. function TCalendarX.UseRightToLeftReading(out Value: WordBool): WordBool;
  8853. begin
  8854.   Result := ControlInterface.UseRightToLeftReading;
  8855. end;
  8856.  
  8857. function TCalendarX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8858. begin
  8859.   Result := ControlInterface.UseRightToLeftScrollBar;
  8860. end;
  8861.  
  8862. function TCalendarX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8863. begin
  8864.   Result := ControlInterface.ClassNameIs(Name);
  8865. end;
  8866.  
  8867. procedure TCalendarX.AboutBox;
  8868. begin
  8869.   ControlInterface.AboutBox;
  8870. end;
  8871.  
  8872. procedure TCheckBoxX.InitControlData;
  8873. const
  8874.   CEventDispIDs: array [0..1] of DWORD = (
  8875.     $00000001, $00000007);
  8876.   CTFontIDs: array [0..0] of DWORD = (
  8877.     $FFFFFE00);
  8878.   CControlData: TControlData = (
  8879.     ClassID: '{695CDAE9-02E5-11D2-B20D-00C04FA368D4}';
  8880.     EventIID: '{695CDAE7-02E5-11D2-B20D-00C04FA368D4}';
  8881.     EventCount: 2;
  8882.     EventDispIDs: @CEventDispIDs;
  8883.     LicenseKey: nil;
  8884.     Flags: $0000001D;
  8885.     Version: 300;
  8886.     FontCount: 1;
  8887.     FontIDs: @CTFontIDs);
  8888. begin
  8889.   ControlData := @CControlData;
  8890. end;
  8891.  
  8892. procedure TCheckBoxX.CreateControl;
  8893.  
  8894.   procedure DoCreate;
  8895.   begin
  8896.     FIntf := IUnknown(OleObject) as ICheckBoxX;
  8897.   end;
  8898.  
  8899. begin
  8900.   if FIntf = nil then DoCreate;
  8901. end;
  8902.  
  8903. function TCheckBoxX.GetControlInterface: ICheckBoxX;
  8904. begin
  8905.   CreateControl;
  8906.   Result := FIntf;
  8907. end;
  8908.  
  8909. function TCheckBoxX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  8910. begin
  8911.   Result := ControlInterface.GetControlsAlignment;
  8912. end;
  8913.  
  8914. procedure TCheckBoxX.FlipChildren(AllLevels: WordBool);
  8915. begin
  8916.   ControlInterface.FlipChildren(AllLevels);
  8917. end;
  8918.  
  8919. function TCheckBoxX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  8920. begin
  8921.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  8922. end;
  8923.  
  8924. function TCheckBoxX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  8925. begin
  8926.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  8927. end;
  8928.  
  8929. procedure TCheckBoxX.InitiateAction;
  8930. begin
  8931.   ControlInterface.InitiateAction;
  8932. end;
  8933.  
  8934. function TCheckBoxX.IsRightToLeft(out Value: WordBool): WordBool;
  8935. begin
  8936.   Result := ControlInterface.IsRightToLeft;
  8937. end;
  8938.  
  8939. function TCheckBoxX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  8940. begin
  8941.   Result := ControlInterface.UseRightToLeftAlignment;
  8942. end;
  8943.  
  8944. function TCheckBoxX.UseRightToLeftReading(out Value: WordBool): WordBool;
  8945. begin
  8946.   Result := ControlInterface.UseRightToLeftReading;
  8947. end;
  8948.  
  8949. function TCheckBoxX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  8950. begin
  8951.   Result := ControlInterface.UseRightToLeftScrollBar;
  8952. end;
  8953.  
  8954. function TCheckBoxX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  8955. begin
  8956.   Result := ControlInterface.ClassNameIs(Name);
  8957. end;
  8958.  
  8959. procedure TCheckBoxX.AboutBox;
  8960. begin
  8961.   ControlInterface.AboutBox;
  8962. end;
  8963.  
  8964. procedure TCheckListBoxX.InitControlData;
  8965. const
  8966.   CEventDispIDs: array [0..4] of DWORD = (
  8967.     $00000001, $00000002, $00000003, $0000000A, $0000000C);
  8968.   CTFontIDs: array [0..0] of DWORD = (
  8969.     $FFFFFE00);
  8970.   CControlData: TControlData = (
  8971.     ClassID: '{695CDAF2-02E5-11D2-B20D-00C04FA368D4}';
  8972.     EventIID: '{695CDAF0-02E5-11D2-B20D-00C04FA368D4}';
  8973.     EventCount: 5;
  8974.     EventDispIDs: @CEventDispIDs;
  8975.     LicenseKey: nil;
  8976.     Flags: $0000000D;
  8977.     Version: 300;
  8978.     FontCount: 1;
  8979.     FontIDs: @CTFontIDs);
  8980. begin
  8981.   ControlData := @CControlData;
  8982. end;
  8983.  
  8984. procedure TCheckListBoxX.CreateControl;
  8985.  
  8986.   procedure DoCreate;
  8987.   begin
  8988.     FIntf := IUnknown(OleObject) as ICheckListBoxX;
  8989.   end;
  8990.  
  8991. begin
  8992.   if FIntf = nil then DoCreate;
  8993. end;
  8994.  
  8995. function TCheckListBoxX.GetControlInterface: ICheckListBoxX;
  8996. begin
  8997.   CreateControl;
  8998.   Result := FIntf;
  8999. end;
  9000.  
  9001. function TCheckListBoxX.Get_Items: IStrings;
  9002. begin
  9003.   Result := ControlInterface.Get_Items;
  9004. end;
  9005.  
  9006. procedure TCheckListBoxX.Set_Items(const Value: IStrings);
  9007. begin
  9008.   ControlInterface.Set_Items(Value);
  9009. end;
  9010.  
  9011. procedure TCheckListBoxX.Clear;
  9012. begin
  9013.   ControlInterface.Clear;
  9014. end;
  9015.  
  9016. procedure TCheckListBoxX.FlipChildren(AllLevels: WordBool);
  9017. begin
  9018.   ControlInterface.FlipChildren(AllLevels);
  9019. end;
  9020.  
  9021. function TCheckListBoxX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9022. begin
  9023.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9024. end;
  9025.  
  9026. function TCheckListBoxX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9027. begin
  9028.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9029. end;
  9030.  
  9031. function TCheckListBoxX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9032. begin
  9033.   Result := ControlInterface.GetControlsAlignment;
  9034. end;
  9035.  
  9036. procedure TCheckListBoxX.InitiateAction;
  9037. begin
  9038.   ControlInterface.InitiateAction;
  9039. end;
  9040.  
  9041. function TCheckListBoxX.IsRightToLeft(out Value: WordBool): WordBool;
  9042. begin
  9043.   Result := ControlInterface.IsRightToLeft;
  9044. end;
  9045.  
  9046. function TCheckListBoxX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9047. begin
  9048.   Result := ControlInterface.UseRightToLeftAlignment;
  9049. end;
  9050.  
  9051. function TCheckListBoxX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9052. begin
  9053.   Result := ControlInterface.UseRightToLeftReading;
  9054. end;
  9055.  
  9056. function TCheckListBoxX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9057. begin
  9058.   Result := ControlInterface.UseRightToLeftScrollBar;
  9059. end;
  9060.  
  9061. function TCheckListBoxX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9062. begin
  9063.   Result := ControlInterface.ClassNameIs(Name);
  9064. end;
  9065.  
  9066. procedure TCheckListBoxX.AboutBox;
  9067. begin
  9068.   ControlInterface.AboutBox;
  9069. end;
  9070.  
  9071. procedure TColorGridX.InitControlData;
  9072. const
  9073.   CEventDispIDs: array [0..2] of DWORD = (
  9074.     $00000001, $00000002, $00000007);
  9075.   CTFontIDs: array [0..0] of DWORD = (
  9076.     $FFFFFE00);
  9077.   CControlData: TControlData = (
  9078.     ClassID: '{695CDAFB-02E5-11D2-B20D-00C04FA368D4}';
  9079.     EventIID: '{695CDAF9-02E5-11D2-B20D-00C04FA368D4}';
  9080.     EventCount: 3;
  9081.     EventDispIDs: @CEventDispIDs;
  9082.     LicenseKey: nil;
  9083.     Flags: $0000000C;
  9084.     Version: 300;
  9085.     FontCount: 1;
  9086.     FontIDs: @CTFontIDs);
  9087. begin
  9088.   ControlData := @CControlData;
  9089. end;
  9090.  
  9091. procedure TColorGridX.CreateControl;
  9092.  
  9093.   procedure DoCreate;
  9094.   begin
  9095.     FIntf := IUnknown(OleObject) as IColorGridX;
  9096.   end;
  9097.  
  9098. begin
  9099.   if FIntf = nil then DoCreate;
  9100. end;
  9101.  
  9102. function TColorGridX.GetControlInterface: IColorGridX;
  9103. begin
  9104.   CreateControl;
  9105.   Result := FIntf;
  9106. end;
  9107.  
  9108. function TColorGridX.ColorToIndex(AColor: OLE_COLOR; out Value: Integer): Integer;
  9109. begin
  9110.   Result := ControlInterface.ColorToIndex(AColor);
  9111. end;
  9112.  
  9113. procedure TColorGridX.FlipChildren(AllLevels: WordBool);
  9114. begin
  9115.   ControlInterface.FlipChildren(AllLevels);
  9116. end;
  9117.  
  9118. function TColorGridX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9119. begin
  9120.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9121. end;
  9122.  
  9123. function TColorGridX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9124. begin
  9125.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9126. end;
  9127.  
  9128. function TColorGridX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9129. begin
  9130.   Result := ControlInterface.GetControlsAlignment;
  9131. end;
  9132.  
  9133. procedure TColorGridX.InitiateAction;
  9134. begin
  9135.   ControlInterface.InitiateAction;
  9136. end;
  9137.  
  9138. function TColorGridX.IsRightToLeft(out Value: WordBool): WordBool;
  9139. begin
  9140.   Result := ControlInterface.IsRightToLeft;
  9141. end;
  9142.  
  9143. function TColorGridX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9144. begin
  9145.   Result := ControlInterface.UseRightToLeftAlignment;
  9146. end;
  9147.  
  9148. function TColorGridX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9149. begin
  9150.   Result := ControlInterface.UseRightToLeftReading;
  9151. end;
  9152.  
  9153. function TColorGridX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9154. begin
  9155.   Result := ControlInterface.UseRightToLeftScrollBar;
  9156. end;
  9157.  
  9158. function TColorGridX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9159. begin
  9160.   Result := ControlInterface.ClassNameIs(Name);
  9161. end;
  9162.  
  9163. procedure TColorGridX.AboutBox;
  9164. begin
  9165.   ControlInterface.AboutBox;
  9166. end;
  9167.  
  9168. procedure TComboBoxX.InitControlData;
  9169. const
  9170.   CEventDispIDs: array [0..5] of DWORD = (
  9171.     $00000001, $00000002, $00000003, $00000007, $0000000B, $0000000D);
  9172.   CTFontIDs: array [0..0] of DWORD = (
  9173.     $FFFFFE00);
  9174.   CControlData: TControlData = (
  9175.     ClassID: '{695CDB03-02E5-11D2-B20D-00C04FA368D4}';
  9176.     EventIID: '{695CDB01-02E5-11D2-B20D-00C04FA368D4}';
  9177.     EventCount: 6;
  9178.     EventDispIDs: @CEventDispIDs;
  9179.     LicenseKey: nil;
  9180.     Flags: $0000002D;
  9181.     Version: 300;
  9182.     FontCount: 1;
  9183.     FontIDs: @CTFontIDs);
  9184. begin
  9185.   ControlData := @CControlData;
  9186. end;
  9187.  
  9188. procedure TComboBoxX.CreateControl;
  9189.  
  9190.   procedure DoCreate;
  9191.   begin
  9192.     FIntf := IUnknown(OleObject) as IComboBoxX;
  9193.   end;
  9194.  
  9195. begin
  9196.   if FIntf = nil then DoCreate;
  9197. end;
  9198.  
  9199. function TComboBoxX.GetControlInterface: IComboBoxX;
  9200. begin
  9201.   CreateControl;
  9202.   Result := FIntf;
  9203. end;
  9204.  
  9205. function TComboBoxX.Get_Items: IStrings;
  9206. begin
  9207.   Result := ControlInterface.Get_Items;
  9208. end;
  9209.  
  9210. procedure TComboBoxX.Set_Items(const Value: IStrings);
  9211. begin
  9212.   ControlInterface.Set_Items(Value);
  9213. end;
  9214.  
  9215. procedure TComboBoxX.Clear;
  9216. begin
  9217.   ControlInterface.Clear;
  9218. end;
  9219.  
  9220. procedure TComboBoxX.SelectAll;
  9221. begin
  9222.   ControlInterface.SelectAll;
  9223. end;
  9224.  
  9225. procedure TComboBoxX.FlipChildren(AllLevels: WordBool);
  9226. begin
  9227.   ControlInterface.FlipChildren(AllLevels);
  9228. end;
  9229.  
  9230. function TComboBoxX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9231. begin
  9232.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9233. end;
  9234.  
  9235. function TComboBoxX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9236. begin
  9237.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9238. end;
  9239.  
  9240. function TComboBoxX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9241. begin
  9242.   Result := ControlInterface.GetControlsAlignment;
  9243. end;
  9244.  
  9245. procedure TComboBoxX.InitiateAction;
  9246. begin
  9247.   ControlInterface.InitiateAction;
  9248. end;
  9249.  
  9250. function TComboBoxX.IsRightToLeft(out Value: WordBool): WordBool;
  9251. begin
  9252.   Result := ControlInterface.IsRightToLeft;
  9253. end;
  9254.  
  9255. function TComboBoxX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9256. begin
  9257.   Result := ControlInterface.UseRightToLeftAlignment;
  9258. end;
  9259.  
  9260. function TComboBoxX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9261. begin
  9262.   Result := ControlInterface.UseRightToLeftReading;
  9263. end;
  9264.  
  9265. function TComboBoxX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9266. begin
  9267.   Result := ControlInterface.UseRightToLeftScrollBar;
  9268. end;
  9269.  
  9270. function TComboBoxX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9271. begin
  9272.   Result := ControlInterface.ClassNameIs(Name);
  9273. end;
  9274.  
  9275. procedure TComboBoxX.AboutBox;
  9276. begin
  9277.   ControlInterface.AboutBox;
  9278. end;
  9279.  
  9280. procedure TControlBarX.InitControlData;
  9281. const
  9282.   CEventDispIDs: array [0..5] of DWORD = (
  9283.     $00000005, $00000006, $00000007, $0000000A, $00000013, $00000014);
  9284.   CTPictureIDs: array [0..0] of DWORD = (
  9285.     $FFFFFDF5);
  9286.   CControlData: TControlData = (
  9287.     ClassID: '{695CDB0C-02E5-11D2-B20D-00C04FA368D4}';
  9288.     EventIID: '{695CDB0A-02E5-11D2-B20D-00C04FA368D4}';
  9289.     EventCount: 6;
  9290.     EventDispIDs: @CEventDispIDs;
  9291.     LicenseKey: nil;
  9292.     Flags: $00000009;
  9293.     Version: 300;
  9294.     FontCount: 0;
  9295.     FontIDs: nil;
  9296.     PictureCount: 1;
  9297.     PictureIDs: @CTPictureIDs);
  9298. begin
  9299.   ControlData := @CControlData;
  9300. end;
  9301.  
  9302. procedure TControlBarX.CreateControl;
  9303.  
  9304.   procedure DoCreate;
  9305.   begin
  9306.     FIntf := IUnknown(OleObject) as IControlBarX;
  9307.   end;
  9308.  
  9309. begin
  9310.   if FIntf = nil then DoCreate;
  9311. end;
  9312.  
  9313. function TControlBarX.GetControlInterface: IControlBarX;
  9314. begin
  9315.   CreateControl;
  9316.   Result := FIntf;
  9317. end;
  9318.  
  9319. procedure TControlBarX.FlipChildren(AllLevels: WordBool);
  9320. begin
  9321.   ControlInterface.FlipChildren(AllLevels);
  9322. end;
  9323.  
  9324. procedure TControlBarX.StickControls;
  9325. begin
  9326.   ControlInterface.StickControls;
  9327. end;
  9328.  
  9329. function TControlBarX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9330. begin
  9331.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9332. end;
  9333.  
  9334. function TControlBarX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9335. begin
  9336.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9337. end;
  9338.  
  9339. function TControlBarX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9340. begin
  9341.   Result := ControlInterface.GetControlsAlignment;
  9342. end;
  9343.  
  9344. procedure TControlBarX.InitiateAction;
  9345. begin
  9346.   ControlInterface.InitiateAction;
  9347. end;
  9348.  
  9349. function TControlBarX.IsRightToLeft(out Value: WordBool): WordBool;
  9350. begin
  9351.   Result := ControlInterface.IsRightToLeft;
  9352. end;
  9353.  
  9354. function TControlBarX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9355. begin
  9356.   Result := ControlInterface.UseRightToLeftAlignment;
  9357. end;
  9358.  
  9359. function TControlBarX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9360. begin
  9361.   Result := ControlInterface.UseRightToLeftReading;
  9362. end;
  9363.  
  9364. function TControlBarX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9365. begin
  9366.   Result := ControlInterface.UseRightToLeftScrollBar;
  9367. end;
  9368.  
  9369. function TControlBarX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9370. begin
  9371.   Result := ControlInterface.ClassNameIs(Name);
  9372. end;
  9373.  
  9374. procedure TControlBarX.AboutBox;
  9375. begin
  9376.   ControlInterface.AboutBox;
  9377. end;
  9378.  
  9379. procedure TDateTimePickerX.InitControlData;
  9380. const
  9381.   CEventDispIDs: array [0..6] of DWORD = (
  9382.     $00000001, $00000002, $00000003, $00000004, $00000005, $0000000B,
  9383.     $0000000F);
  9384.   CTFontIDs: array [0..0] of DWORD = (
  9385.     $FFFFFE00);
  9386.   CControlData: TControlData = (
  9387.     ClassID: '{695CDB15-02E5-11D2-B20D-00C04FA368D4}';
  9388.     EventIID: '{695CDB13-02E5-11D2-B20D-00C04FA368D4}';
  9389.     EventCount: 7;
  9390.     EventDispIDs: @CEventDispIDs;
  9391.     LicenseKey: nil;
  9392.     Flags: $0000000D;
  9393.     Version: 300;
  9394.     FontCount: 1;
  9395.     FontIDs: @CTFontIDs);
  9396. begin
  9397.   ControlData := @CControlData;
  9398. end;
  9399.  
  9400. procedure TDateTimePickerX.CreateControl;
  9401.  
  9402.   procedure DoCreate;
  9403.   begin
  9404.     FIntf := IUnknown(OleObject) as IDateTimePickerX;
  9405.   end;
  9406.  
  9407. begin
  9408.   if FIntf = nil then DoCreate;
  9409. end;
  9410.  
  9411. function TDateTimePickerX.GetControlInterface: IDateTimePickerX;
  9412. begin
  9413.   CreateControl;
  9414.   Result := FIntf;
  9415. end;
  9416.  
  9417. procedure TDateTimePickerX.FlipChildren(AllLevels: WordBool);
  9418. begin
  9419.   ControlInterface.FlipChildren(AllLevels);
  9420. end;
  9421.  
  9422. function TDateTimePickerX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9423. begin
  9424.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9425. end;
  9426.  
  9427. function TDateTimePickerX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9428. begin
  9429.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9430. end;
  9431.  
  9432. function TDateTimePickerX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9433. begin
  9434.   Result := ControlInterface.GetControlsAlignment;
  9435. end;
  9436.  
  9437. procedure TDateTimePickerX.InitiateAction;
  9438. begin
  9439.   ControlInterface.InitiateAction;
  9440. end;
  9441.  
  9442. function TDateTimePickerX.IsRightToLeft(out Value: WordBool): WordBool;
  9443. begin
  9444.   Result := ControlInterface.IsRightToLeft;
  9445. end;
  9446.  
  9447. function TDateTimePickerX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9448. begin
  9449.   Result := ControlInterface.UseRightToLeftAlignment;
  9450. end;
  9451.  
  9452. function TDateTimePickerX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9453. begin
  9454.   Result := ControlInterface.UseRightToLeftReading;
  9455. end;
  9456.  
  9457. function TDateTimePickerX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9458. begin
  9459.   Result := ControlInterface.UseRightToLeftScrollBar;
  9460. end;
  9461.  
  9462. function TDateTimePickerX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9463. begin
  9464.   Result := ControlInterface.ClassNameIs(Name);
  9465. end;
  9466.  
  9467. procedure TDateTimePickerX.AboutBox;
  9468. begin
  9469.   ControlInterface.AboutBox;
  9470. end;
  9471.  
  9472. procedure TDrawGridX.InitControlData;
  9473. const
  9474.   CEventDispIDs: array [0..9] of DWORD = (
  9475.     $00000001, $00000002, $00000003, $00000009, $0000000A, $0000000C,
  9476.     $00000013, $00000014, $00000015, $00000018);
  9477.   CTFontIDs: array [0..0] of DWORD = (
  9478.     $FFFFFE00);
  9479.   CControlData: TControlData = (
  9480.     ClassID: '{695CDB20-02E5-11D2-B20D-00C04FA368D4}';
  9481.     EventIID: '{695CDB1E-02E5-11D2-B20D-00C04FA368D4}';
  9482.     EventCount: 10;
  9483.     EventDispIDs: @CEventDispIDs;
  9484.     LicenseKey: nil;
  9485.     Flags: $0000000D;
  9486.     Version: 300;
  9487.     FontCount: 1;
  9488.     FontIDs: @CTFontIDs);
  9489. begin
  9490.   ControlData := @CControlData;
  9491. end;
  9492.  
  9493. procedure TDrawGridX.CreateControl;
  9494.  
  9495.   procedure DoCreate;
  9496.   begin
  9497.     FIntf := IUnknown(OleObject) as IDrawGridX;
  9498.   end;
  9499.  
  9500. begin
  9501.   if FIntf = nil then DoCreate;
  9502. end;
  9503.  
  9504. function TDrawGridX.GetControlInterface: IDrawGridX;
  9505. begin
  9506.   CreateControl;
  9507.   Result := FIntf;
  9508. end;
  9509.  
  9510. procedure TDrawGridX.MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer);
  9511. begin
  9512.   ControlInterface.MouseToCell(X, Y, ACol, ARow);
  9513. end;
  9514.  
  9515. procedure TDrawGridX.FlipChildren(AllLevels: WordBool);
  9516. begin
  9517.   ControlInterface.FlipChildren(AllLevels);
  9518. end;
  9519.  
  9520. function TDrawGridX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9521. begin
  9522.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9523. end;
  9524.  
  9525. function TDrawGridX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9526. begin
  9527.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9528. end;
  9529.  
  9530. function TDrawGridX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9531. begin
  9532.   Result := ControlInterface.GetControlsAlignment;
  9533. end;
  9534.  
  9535. procedure TDrawGridX.InitiateAction;
  9536. begin
  9537.   ControlInterface.InitiateAction;
  9538. end;
  9539.  
  9540. function TDrawGridX.IsRightToLeft(out Value: WordBool): WordBool;
  9541. begin
  9542.   Result := ControlInterface.IsRightToLeft;
  9543. end;
  9544.  
  9545. function TDrawGridX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9546. begin
  9547.   Result := ControlInterface.UseRightToLeftAlignment;
  9548. end;
  9549.  
  9550. function TDrawGridX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9551. begin
  9552.   Result := ControlInterface.UseRightToLeftReading;
  9553. end;
  9554.  
  9555. function TDrawGridX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9556. begin
  9557.   Result := ControlInterface.UseRightToLeftScrollBar;
  9558. end;
  9559.  
  9560. function TDrawGridX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9561. begin
  9562.   Result := ControlInterface.ClassNameIs(Name);
  9563. end;
  9564.  
  9565. procedure TDrawGridX.AboutBox;
  9566. begin
  9567.   ControlInterface.AboutBox;
  9568. end;
  9569.  
  9570. procedure TEditX.InitControlData;
  9571. const
  9572.   CEventDispIDs: array [0..3] of DWORD = (
  9573.     $00000001, $00000002, $00000003, $00000009);
  9574.   CTFontIDs: array [0..0] of DWORD = (
  9575.     $FFFFFE00);
  9576.   CControlData: TControlData = (
  9577.     ClassID: '{695CDB28-02E5-11D2-B20D-00C04FA368D4}';
  9578.     EventIID: '{695CDB26-02E5-11D2-B20D-00C04FA368D4}';
  9579.     EventCount: 4;
  9580.     EventDispIDs: @CEventDispIDs;
  9581.     LicenseKey: nil;
  9582.     Flags: $0000002D;
  9583.     Version: 300;
  9584.     FontCount: 1;
  9585.     FontIDs: @CTFontIDs);
  9586. begin
  9587.   ControlData := @CControlData;
  9588. end;
  9589.  
  9590. procedure TEditX.CreateControl;
  9591.  
  9592.   procedure DoCreate;
  9593.   begin
  9594.     FIntf := IUnknown(OleObject) as IEditX;
  9595.   end;
  9596.  
  9597. begin
  9598.   if FIntf = nil then DoCreate;
  9599. end;
  9600.  
  9601. function TEditX.GetControlInterface: IEditX;
  9602. begin
  9603.   CreateControl;
  9604.   Result := FIntf;
  9605. end;
  9606.  
  9607. procedure TEditX.Clear;
  9608. begin
  9609.   ControlInterface.Clear;
  9610. end;
  9611.  
  9612. procedure TEditX.ClearSelection;
  9613. begin
  9614.   ControlInterface.ClearSelection;
  9615. end;
  9616.  
  9617. procedure TEditX.CopyToClipboard;
  9618. begin
  9619.   ControlInterface.CopyToClipboard;
  9620. end;
  9621.  
  9622. procedure TEditX.CutToClipboard;
  9623. begin
  9624.   ControlInterface.CutToClipboard;
  9625. end;
  9626.  
  9627. procedure TEditX.PasteFromClipboard;
  9628. begin
  9629.   ControlInterface.PasteFromClipboard;
  9630. end;
  9631.  
  9632. procedure TEditX.Undo;
  9633. begin
  9634.   ControlInterface.Undo;
  9635. end;
  9636.  
  9637. procedure TEditX.ClearUndo;
  9638. begin
  9639.   ControlInterface.ClearUndo;
  9640. end;
  9641.  
  9642. procedure TEditX.SelectAll;
  9643. begin
  9644.   ControlInterface.SelectAll;
  9645. end;
  9646.  
  9647. procedure TEditX.FlipChildren(AllLevels: WordBool);
  9648. begin
  9649.   ControlInterface.FlipChildren(AllLevels);
  9650. end;
  9651.  
  9652. function TEditX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9653. begin
  9654.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9655. end;
  9656.  
  9657. function TEditX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9658. begin
  9659.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9660. end;
  9661.  
  9662. function TEditX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9663. begin
  9664.   Result := ControlInterface.GetControlsAlignment;
  9665. end;
  9666.  
  9667. procedure TEditX.InitiateAction;
  9668. begin
  9669.   ControlInterface.InitiateAction;
  9670. end;
  9671.  
  9672. function TEditX.IsRightToLeft(out Value: WordBool): WordBool;
  9673. begin
  9674.   Result := ControlInterface.IsRightToLeft;
  9675. end;
  9676.  
  9677. function TEditX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9678. begin
  9679.   Result := ControlInterface.UseRightToLeftAlignment;
  9680. end;
  9681.  
  9682. function TEditX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9683. begin
  9684.   Result := ControlInterface.UseRightToLeftReading;
  9685. end;
  9686.  
  9687. function TEditX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9688. begin
  9689.   Result := ControlInterface.UseRightToLeftScrollBar;
  9690. end;
  9691.  
  9692. function TEditX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9693. begin
  9694.   Result := ControlInterface.ClassNameIs(Name);
  9695. end;
  9696.  
  9697. procedure TEditX.AboutBox;
  9698. begin
  9699.   ControlInterface.AboutBox;
  9700. end;
  9701.  
  9702. procedure TGroupBoxX.InitControlData;
  9703. const
  9704.   CEventDispIDs: array [0..1] of DWORD = (
  9705.     $00000001, $00000002);
  9706.   CTFontIDs: array [0..0] of DWORD = (
  9707.     $FFFFFE00);
  9708.   CControlData: TControlData = (
  9709.     ClassID: '{695CDB2F-02E5-11D2-B20D-00C04FA368D4}';
  9710.     EventIID: '{695CDB2D-02E5-11D2-B20D-00C04FA368D4}';
  9711.     EventCount: 2;
  9712.     EventDispIDs: @CEventDispIDs;
  9713.     LicenseKey: nil;
  9714.     Flags: $0000001D;
  9715.     Version: 300;
  9716.     FontCount: 1;
  9717.     FontIDs: @CTFontIDs);
  9718. begin
  9719.   ControlData := @CControlData;
  9720. end;
  9721.  
  9722. procedure TGroupBoxX.CreateControl;
  9723.  
  9724.   procedure DoCreate;
  9725.   begin
  9726.     FIntf := IUnknown(OleObject) as IGroupBoxX;
  9727.   end;
  9728.  
  9729. begin
  9730.   if FIntf = nil then DoCreate;
  9731. end;
  9732.  
  9733. function TGroupBoxX.GetControlInterface: IGroupBoxX;
  9734. begin
  9735.   CreateControl;
  9736.   Result := FIntf;
  9737. end;
  9738.  
  9739. procedure TGroupBoxX.FlipChildren(AllLevels: WordBool);
  9740. begin
  9741.   ControlInterface.FlipChildren(AllLevels);
  9742. end;
  9743.  
  9744. function TGroupBoxX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9745. begin
  9746.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9747. end;
  9748.  
  9749. function TGroupBoxX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9750. begin
  9751.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9752. end;
  9753.  
  9754. function TGroupBoxX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9755. begin
  9756.   Result := ControlInterface.GetControlsAlignment;
  9757. end;
  9758.  
  9759. procedure TGroupBoxX.InitiateAction;
  9760. begin
  9761.   ControlInterface.InitiateAction;
  9762. end;
  9763.  
  9764. function TGroupBoxX.IsRightToLeft(out Value: WordBool): WordBool;
  9765. begin
  9766.   Result := ControlInterface.IsRightToLeft;
  9767. end;
  9768.  
  9769. function TGroupBoxX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9770. begin
  9771.   Result := ControlInterface.UseRightToLeftAlignment;
  9772. end;
  9773.  
  9774. function TGroupBoxX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9775. begin
  9776.   Result := ControlInterface.UseRightToLeftReading;
  9777. end;
  9778.  
  9779. function TGroupBoxX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9780. begin
  9781.   Result := ControlInterface.UseRightToLeftScrollBar;
  9782. end;
  9783.  
  9784. function TGroupBoxX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9785. begin
  9786.   Result := ControlInterface.ClassNameIs(Name);
  9787. end;
  9788.  
  9789. procedure TGroupBoxX.AboutBox;
  9790. begin
  9791.   ControlInterface.AboutBox;
  9792. end;
  9793.  
  9794. procedure THotKeyX.InitControlData;
  9795. const
  9796.   CControlData: TControlData = (
  9797.     ClassID: '{695CDB36-02E5-11D2-B20D-00C04FA368D4}';
  9798.     EventIID: '';
  9799.     EventCount: 0;
  9800.     EventDispIDs: nil;
  9801.     LicenseKey: nil;
  9802.     Flags: $00000008;
  9803.     Version: 300);
  9804. begin
  9805.   ControlData := @CControlData;
  9806. end;
  9807.  
  9808. procedure THotKeyX.CreateControl;
  9809.  
  9810.   procedure DoCreate;
  9811.   begin
  9812.     FIntf := IUnknown(OleObject) as IHotKeyX;
  9813.   end;
  9814.  
  9815. begin
  9816.   if FIntf = nil then DoCreate;
  9817. end;
  9818.  
  9819. function THotKeyX.GetControlInterface: IHotKeyX;
  9820. begin
  9821.   CreateControl;
  9822.   Result := FIntf;
  9823. end;
  9824.  
  9825. procedure THotKeyX.FlipChildren(AllLevels: WordBool);
  9826. begin
  9827.   ControlInterface.FlipChildren(AllLevels);
  9828. end;
  9829.  
  9830. function THotKeyX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9831. begin
  9832.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9833. end;
  9834.  
  9835. function THotKeyX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9836. begin
  9837.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9838. end;
  9839.  
  9840. function THotKeyX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9841. begin
  9842.   Result := ControlInterface.GetControlsAlignment;
  9843. end;
  9844.  
  9845. procedure THotKeyX.InitiateAction;
  9846. begin
  9847.   ControlInterface.InitiateAction;
  9848. end;
  9849.  
  9850. function THotKeyX.IsRightToLeft(out Value: WordBool): WordBool;
  9851. begin
  9852.   Result := ControlInterface.IsRightToLeft;
  9853. end;
  9854.  
  9855. function THotKeyX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9856. begin
  9857.   Result := ControlInterface.UseRightToLeftAlignment;
  9858. end;
  9859.  
  9860. function THotKeyX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9861. begin
  9862.   Result := ControlInterface.UseRightToLeftReading;
  9863. end;
  9864.  
  9865. function THotKeyX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9866. begin
  9867.   Result := ControlInterface.UseRightToLeftScrollBar;
  9868. end;
  9869.  
  9870. function THotKeyX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9871. begin
  9872.   Result := ControlInterface.ClassNameIs(Name);
  9873. end;
  9874.  
  9875. procedure THotKeyX.AboutBox;
  9876. begin
  9877.   ControlInterface.AboutBox;
  9878. end;
  9879.  
  9880. procedure TListBoxX.InitControlData;
  9881. const
  9882.   CEventDispIDs: array [0..3] of DWORD = (
  9883.     $00000001, $00000002, $00000009, $0000000B);
  9884.   CTFontIDs: array [0..0] of DWORD = (
  9885.     $FFFFFE00);
  9886.   CControlData: TControlData = (
  9887.     ClassID: '{695CDB3D-02E5-11D2-B20D-00C04FA368D4}';
  9888.     EventIID: '{695CDB3B-02E5-11D2-B20D-00C04FA368D4}';
  9889.     EventCount: 4;
  9890.     EventDispIDs: @CEventDispIDs;
  9891.     LicenseKey: nil;
  9892.     Flags: $0000000D;
  9893.     Version: 300;
  9894.     FontCount: 1;
  9895.     FontIDs: @CTFontIDs);
  9896. begin
  9897.   ControlData := @CControlData;
  9898. end;
  9899.  
  9900. procedure TListBoxX.CreateControl;
  9901.  
  9902.   procedure DoCreate;
  9903.   begin
  9904.     FIntf := IUnknown(OleObject) as IListBoxX;
  9905.   end;
  9906.  
  9907. begin
  9908.   if FIntf = nil then DoCreate;
  9909. end;
  9910.  
  9911. function TListBoxX.GetControlInterface: IListBoxX;
  9912. begin
  9913.   CreateControl;
  9914.   Result := FIntf;
  9915. end;
  9916.  
  9917. function TListBoxX.Get_Items: IStrings;
  9918. begin
  9919.   Result := ControlInterface.Get_Items;
  9920. end;
  9921.  
  9922. procedure TListBoxX.Set_Items(const Value: IStrings);
  9923. begin
  9924.   ControlInterface.Set_Items(Value);
  9925. end;
  9926.  
  9927. procedure TListBoxX.Clear;
  9928. begin
  9929.   ControlInterface.Clear;
  9930. end;
  9931.  
  9932. procedure TListBoxX.FlipChildren(AllLevels: WordBool);
  9933. begin
  9934.   ControlInterface.FlipChildren(AllLevels);
  9935. end;
  9936.  
  9937. function TListBoxX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  9938. begin
  9939.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  9940. end;
  9941.  
  9942. function TListBoxX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  9943. begin
  9944.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  9945. end;
  9946.  
  9947. function TListBoxX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  9948. begin
  9949.   Result := ControlInterface.GetControlsAlignment;
  9950. end;
  9951.  
  9952. procedure TListBoxX.InitiateAction;
  9953. begin
  9954.   ControlInterface.InitiateAction;
  9955. end;
  9956.  
  9957. function TListBoxX.IsRightToLeft(out Value: WordBool): WordBool;
  9958. begin
  9959.   Result := ControlInterface.IsRightToLeft;
  9960. end;
  9961.  
  9962. function TListBoxX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  9963. begin
  9964.   Result := ControlInterface.UseRightToLeftAlignment;
  9965. end;
  9966.  
  9967. function TListBoxX.UseRightToLeftReading(out Value: WordBool): WordBool;
  9968. begin
  9969.   Result := ControlInterface.UseRightToLeftReading;
  9970. end;
  9971.  
  9972. function TListBoxX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  9973. begin
  9974.   Result := ControlInterface.UseRightToLeftScrollBar;
  9975. end;
  9976.  
  9977. function TListBoxX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  9978. begin
  9979.   Result := ControlInterface.ClassNameIs(Name);
  9980. end;
  9981.  
  9982. procedure TListBoxX.AboutBox;
  9983. begin
  9984.   ControlInterface.AboutBox;
  9985. end;
  9986.  
  9987. procedure TMaskEditX.InitControlData;
  9988. const
  9989.   CEventDispIDs: array [0..3] of DWORD = (
  9990.     $00000001, $00000002, $00000003, $00000009);
  9991.   CTFontIDs: array [0..0] of DWORD = (
  9992.     $FFFFFE00);
  9993.   CControlData: TControlData = (
  9994.     ClassID: '{695CDB44-02E5-11D2-B20D-00C04FA368D4}';
  9995.     EventIID: '{695CDB42-02E5-11D2-B20D-00C04FA368D4}';
  9996.     EventCount: 4;
  9997.     EventDispIDs: @CEventDispIDs;
  9998.     LicenseKey: nil;
  9999.     Flags: $0000002D;
  10000.     Version: 300;
  10001.     FontCount: 1;
  10002.     FontIDs: @CTFontIDs);
  10003. begin
  10004.   ControlData := @CControlData;
  10005. end;
  10006.  
  10007. procedure TMaskEditX.CreateControl;
  10008.  
  10009.   procedure DoCreate;
  10010.   begin
  10011.     FIntf := IUnknown(OleObject) as IMaskEditX;
  10012.   end;
  10013.  
  10014. begin
  10015.   if FIntf = nil then DoCreate;
  10016. end;
  10017.  
  10018. function TMaskEditX.GetControlInterface: IMaskEditX;
  10019. begin
  10020.   CreateControl;
  10021.   Result := FIntf;
  10022. end;
  10023.  
  10024. procedure TMaskEditX.ValidateEdit;
  10025. begin
  10026.   ControlInterface.ValidateEdit;
  10027. end;
  10028.  
  10029. procedure TMaskEditX.Clear;
  10030. begin
  10031.   ControlInterface.Clear;
  10032. end;
  10033.  
  10034. procedure TMaskEditX.ClearSelection;
  10035. begin
  10036.   ControlInterface.ClearSelection;
  10037. end;
  10038.  
  10039. procedure TMaskEditX.CopyToClipboard;
  10040. begin
  10041.   ControlInterface.CopyToClipboard;
  10042. end;
  10043.  
  10044. procedure TMaskEditX.CutToClipboard;
  10045. begin
  10046.   ControlInterface.CutToClipboard;
  10047. end;
  10048.  
  10049. procedure TMaskEditX.PasteFromClipboard;
  10050. begin
  10051.   ControlInterface.PasteFromClipboard;
  10052. end;
  10053.  
  10054. procedure TMaskEditX.Undo;
  10055. begin
  10056.   ControlInterface.Undo;
  10057. end;
  10058.  
  10059. procedure TMaskEditX.ClearUndo;
  10060. begin
  10061.   ControlInterface.ClearUndo;
  10062. end;
  10063.  
  10064. procedure TMaskEditX.SelectAll;
  10065. begin
  10066.   ControlInterface.SelectAll;
  10067. end;
  10068.  
  10069. procedure TMaskEditX.FlipChildren(AllLevels: WordBool);
  10070. begin
  10071.   ControlInterface.FlipChildren(AllLevels);
  10072. end;
  10073.  
  10074. function TMaskEditX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10075. begin
  10076.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10077. end;
  10078.  
  10079. function TMaskEditX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10080. begin
  10081.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10082. end;
  10083.  
  10084. function TMaskEditX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10085. begin
  10086.   Result := ControlInterface.GetControlsAlignment;
  10087. end;
  10088.  
  10089. procedure TMaskEditX.InitiateAction;
  10090. begin
  10091.   ControlInterface.InitiateAction;
  10092. end;
  10093.  
  10094. function TMaskEditX.IsRightToLeft(out Value: WordBool): WordBool;
  10095. begin
  10096.   Result := ControlInterface.IsRightToLeft;
  10097. end;
  10098.  
  10099. function TMaskEditX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10100. begin
  10101.   Result := ControlInterface.UseRightToLeftAlignment;
  10102. end;
  10103.  
  10104. function TMaskEditX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10105. begin
  10106.   Result := ControlInterface.UseRightToLeftReading;
  10107. end;
  10108.  
  10109. function TMaskEditX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10110. begin
  10111.   Result := ControlInterface.UseRightToLeftScrollBar;
  10112. end;
  10113.  
  10114. function TMaskEditX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10115. begin
  10116.   Result := ControlInterface.ClassNameIs(Name);
  10117. end;
  10118.  
  10119. procedure TMaskEditX.AboutBox;
  10120. begin
  10121.   ControlInterface.AboutBox;
  10122. end;
  10123.  
  10124. procedure TMediaPlayerX.InitControlData;
  10125. const
  10126.   CEventDispIDs: array [0..2] of DWORD = (
  10127.     $00000001, $00000002, $00000003);
  10128.   CControlData: TControlData = (
  10129.     ClassID: '{695CDB4B-02E5-11D2-B20D-00C04FA368D4}';
  10130.     EventIID: '{695CDB49-02E5-11D2-B20D-00C04FA368D4}';
  10131.     EventCount: 3;
  10132.     EventDispIDs: @CEventDispIDs;
  10133.     LicenseKey: nil;
  10134.     Flags: $00000008;
  10135.     Version: 300);
  10136. begin
  10137.   ControlData := @CControlData;
  10138. end;
  10139.  
  10140. procedure TMediaPlayerX.CreateControl;
  10141.  
  10142.   procedure DoCreate;
  10143.   begin
  10144.     FIntf := IUnknown(OleObject) as IMediaPlayerX;
  10145.   end;
  10146.  
  10147. begin
  10148.   if FIntf = nil then DoCreate;
  10149. end;
  10150.  
  10151. function TMediaPlayerX.GetControlInterface: IMediaPlayerX;
  10152. begin
  10153.   CreateControl;
  10154.   Result := FIntf;
  10155. end;
  10156.  
  10157. procedure TMediaPlayerX.Open;
  10158. begin
  10159.   ControlInterface.Open;
  10160. end;
  10161.  
  10162. procedure TMediaPlayerX.Close;
  10163. begin
  10164.   ControlInterface.Close;
  10165. end;
  10166.  
  10167. procedure TMediaPlayerX.Play;
  10168. begin
  10169.   ControlInterface.Play;
  10170. end;
  10171.  
  10172. procedure TMediaPlayerX.Stop;
  10173. begin
  10174.   ControlInterface.Stop;
  10175. end;
  10176.  
  10177. procedure TMediaPlayerX.Pause;
  10178. begin
  10179.   ControlInterface.Pause;
  10180. end;
  10181.  
  10182. procedure TMediaPlayerX.Step;
  10183. begin
  10184.   ControlInterface.Step;
  10185. end;
  10186.  
  10187. procedure TMediaPlayerX.Back;
  10188. begin
  10189.   ControlInterface.Back;
  10190. end;
  10191.  
  10192. procedure TMediaPlayerX.Previous;
  10193. begin
  10194.   ControlInterface.Previous;
  10195. end;
  10196.  
  10197. procedure TMediaPlayerX.Next;
  10198. begin
  10199.   ControlInterface.Next;
  10200. end;
  10201.  
  10202. procedure TMediaPlayerX.StartRecording;
  10203. begin
  10204.   ControlInterface.StartRecording;
  10205. end;
  10206.  
  10207. procedure TMediaPlayerX.Eject;
  10208. begin
  10209.   ControlInterface.Eject;
  10210. end;
  10211.  
  10212. procedure TMediaPlayerX.Save;
  10213. begin
  10214.   ControlInterface.Save;
  10215. end;
  10216.  
  10217. procedure TMediaPlayerX.PauseOnly;
  10218. begin
  10219.   ControlInterface.PauseOnly;
  10220. end;
  10221.  
  10222. procedure TMediaPlayerX.Resume;
  10223. begin
  10224.   ControlInterface.Resume;
  10225. end;
  10226.  
  10227. procedure TMediaPlayerX.Rewind;
  10228. begin
  10229.   ControlInterface.Rewind;
  10230. end;
  10231.  
  10232. procedure TMediaPlayerX.FlipChildren(AllLevels: WordBool);
  10233. begin
  10234.   ControlInterface.FlipChildren(AllLevels);
  10235. end;
  10236.  
  10237. function TMediaPlayerX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10238. begin
  10239.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10240. end;
  10241.  
  10242. function TMediaPlayerX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10243. begin
  10244.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10245. end;
  10246.  
  10247. function TMediaPlayerX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10248. begin
  10249.   Result := ControlInterface.GetControlsAlignment;
  10250. end;
  10251.  
  10252. procedure TMediaPlayerX.InitiateAction;
  10253. begin
  10254.   ControlInterface.InitiateAction;
  10255. end;
  10256.  
  10257. function TMediaPlayerX.IsRightToLeft(out Value: WordBool): WordBool;
  10258. begin
  10259.   Result := ControlInterface.IsRightToLeft;
  10260. end;
  10261.  
  10262. function TMediaPlayerX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10263. begin
  10264.   Result := ControlInterface.UseRightToLeftAlignment;
  10265. end;
  10266.  
  10267. function TMediaPlayerX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10268. begin
  10269.   Result := ControlInterface.UseRightToLeftReading;
  10270. end;
  10271.  
  10272. function TMediaPlayerX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10273. begin
  10274.   Result := ControlInterface.UseRightToLeftScrollBar;
  10275. end;
  10276.  
  10277. function TMediaPlayerX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10278. begin
  10279.   Result := ControlInterface.ClassNameIs(Name);
  10280. end;
  10281.  
  10282. procedure TMediaPlayerX.AboutBox;
  10283. begin
  10284.   ControlInterface.AboutBox;
  10285. end;
  10286.  
  10287. procedure TMemoX.InitControlData;
  10288. const
  10289.   CEventDispIDs: array [0..3] of DWORD = (
  10290.     $00000001, $00000002, $00000003, $00000009);
  10291.   CTFontIDs: array [0..0] of DWORD = (
  10292.     $FFFFFE00);
  10293.   CControlData: TControlData = (
  10294.     ClassID: '{695CDB57-02E5-11D2-B20D-00C04FA368D4}';
  10295.     EventIID: '{695CDB55-02E5-11D2-B20D-00C04FA368D4}';
  10296.     EventCount: 4;
  10297.     EventDispIDs: @CEventDispIDs;
  10298.     LicenseKey: nil;
  10299.     Flags: $0000002D;
  10300.     Version: 300;
  10301.     FontCount: 1;
  10302.     FontIDs: @CTFontIDs);
  10303. begin
  10304.   ControlData := @CControlData;
  10305. end;
  10306.  
  10307. procedure TMemoX.CreateControl;
  10308.  
  10309.   procedure DoCreate;
  10310.   begin
  10311.     FIntf := IUnknown(OleObject) as IMemoX;
  10312.   end;
  10313.  
  10314. begin
  10315.   if FIntf = nil then DoCreate;
  10316. end;
  10317.  
  10318. function TMemoX.GetControlInterface: IMemoX;
  10319. begin
  10320.   CreateControl;
  10321.   Result := FIntf;
  10322. end;
  10323.  
  10324. function TMemoX.Get_Lines: IStrings;
  10325. begin
  10326.   Result := ControlInterface.Get_Lines;
  10327. end;
  10328.  
  10329. procedure TMemoX.Set_Lines(const Value: IStrings);
  10330. begin
  10331.   ControlInterface.Set_Lines(Value);
  10332. end;
  10333.  
  10334. function TMemoX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10335. begin
  10336.   Result := ControlInterface.GetControlsAlignment;
  10337. end;
  10338.  
  10339. procedure TMemoX.Clear;
  10340. begin
  10341.   ControlInterface.Clear;
  10342. end;
  10343.  
  10344. procedure TMemoX.ClearSelection;
  10345. begin
  10346.   ControlInterface.ClearSelection;
  10347. end;
  10348.  
  10349. procedure TMemoX.CopyToClipboard;
  10350. begin
  10351.   ControlInterface.CopyToClipboard;
  10352. end;
  10353.  
  10354. procedure TMemoX.CutToClipboard;
  10355. begin
  10356.   ControlInterface.CutToClipboard;
  10357. end;
  10358.  
  10359. procedure TMemoX.PasteFromClipboard;
  10360. begin
  10361.   ControlInterface.PasteFromClipboard;
  10362. end;
  10363.  
  10364. procedure TMemoX.Undo;
  10365. begin
  10366.   ControlInterface.Undo;
  10367. end;
  10368.  
  10369. procedure TMemoX.ClearUndo;
  10370. begin
  10371.   ControlInterface.ClearUndo;
  10372. end;
  10373.  
  10374. procedure TMemoX.SelectAll;
  10375. begin
  10376.   ControlInterface.SelectAll;
  10377. end;
  10378.  
  10379. procedure TMemoX.FlipChildren(AllLevels: WordBool);
  10380. begin
  10381.   ControlInterface.FlipChildren(AllLevels);
  10382. end;
  10383.  
  10384. function TMemoX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10385. begin
  10386.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10387. end;
  10388.  
  10389. function TMemoX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10390. begin
  10391.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10392. end;
  10393.  
  10394. procedure TMemoX.InitiateAction;
  10395. begin
  10396.   ControlInterface.InitiateAction;
  10397. end;
  10398.  
  10399. function TMemoX.IsRightToLeft(out Value: WordBool): WordBool;
  10400. begin
  10401.   Result := ControlInterface.IsRightToLeft;
  10402. end;
  10403.  
  10404. function TMemoX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10405. begin
  10406.   Result := ControlInterface.UseRightToLeftAlignment;
  10407. end;
  10408.  
  10409. function TMemoX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10410. begin
  10411.   Result := ControlInterface.UseRightToLeftReading;
  10412. end;
  10413.  
  10414. function TMemoX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10415. begin
  10416.   Result := ControlInterface.UseRightToLeftScrollBar;
  10417. end;
  10418.  
  10419. function TMemoX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10420. begin
  10421.   Result := ControlInterface.ClassNameIs(Name);
  10422. end;
  10423.  
  10424. procedure TMemoX.AboutBox;
  10425. begin
  10426.   ControlInterface.AboutBox;
  10427. end;
  10428.  
  10429. procedure TMonthCalendarX.InitControlData;
  10430. const
  10431.   CEventDispIDs: array [0..3] of DWORD = (
  10432.     $00000001, $00000002, $00000007, $00000009);
  10433.   CTFontIDs: array [0..0] of DWORD = (
  10434.     $FFFFFE00);
  10435.   CControlData: TControlData = (
  10436.     ClassID: '{695CDB5E-02E5-11D2-B20D-00C04FA368D4}';
  10437.     EventIID: '{695CDB5C-02E5-11D2-B20D-00C04FA368D4}';
  10438.     EventCount: 4;
  10439.     EventDispIDs: @CEventDispIDs;
  10440.     LicenseKey: nil;
  10441.     Flags: $0000000C;
  10442.     Version: 300;
  10443.     FontCount: 1;
  10444.     FontIDs: @CTFontIDs);
  10445. begin
  10446.   ControlData := @CControlData;
  10447. end;
  10448.  
  10449. procedure TMonthCalendarX.CreateControl;
  10450.  
  10451.   procedure DoCreate;
  10452.   begin
  10453.     FIntf := IUnknown(OleObject) as IMonthCalendarX;
  10454.   end;
  10455.  
  10456. begin
  10457.   if FIntf = nil then DoCreate;
  10458. end;
  10459.  
  10460. function TMonthCalendarX.GetControlInterface: IMonthCalendarX;
  10461. begin
  10462.   CreateControl;
  10463.   Result := FIntf;
  10464. end;
  10465.  
  10466. procedure TMonthCalendarX.FlipChildren(AllLevels: WordBool);
  10467. begin
  10468.   ControlInterface.FlipChildren(AllLevels);
  10469. end;
  10470.  
  10471. function TMonthCalendarX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10472. begin
  10473.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10474. end;
  10475.  
  10476. function TMonthCalendarX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10477. begin
  10478.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10479. end;
  10480.  
  10481. function TMonthCalendarX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10482. begin
  10483.   Result := ControlInterface.GetControlsAlignment;
  10484. end;
  10485.  
  10486. procedure TMonthCalendarX.InitiateAction;
  10487. begin
  10488.   ControlInterface.InitiateAction;
  10489. end;
  10490.  
  10491. function TMonthCalendarX.IsRightToLeft(out Value: WordBool): WordBool;
  10492. begin
  10493.   Result := ControlInterface.IsRightToLeft;
  10494. end;
  10495.  
  10496. function TMonthCalendarX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10497. begin
  10498.   Result := ControlInterface.UseRightToLeftAlignment;
  10499. end;
  10500.  
  10501. function TMonthCalendarX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10502. begin
  10503.   Result := ControlInterface.UseRightToLeftReading;
  10504. end;
  10505.  
  10506. function TMonthCalendarX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10507. begin
  10508.   Result := ControlInterface.UseRightToLeftScrollBar;
  10509. end;
  10510.  
  10511. function TMonthCalendarX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10512. begin
  10513.   Result := ControlInterface.ClassNameIs(Name);
  10514. end;
  10515.  
  10516. procedure TMonthCalendarX.AboutBox;
  10517. begin
  10518.   ControlInterface.AboutBox;
  10519. end;
  10520.  
  10521. procedure TNotebookX.InitControlData;
  10522. const
  10523.   CEventDispIDs: array [0..2] of DWORD = (
  10524.     $00000001, $00000002, $0000000A);
  10525.   CTFontIDs: array [0..0] of DWORD = (
  10526.     $FFFFFE00);
  10527.   CControlData: TControlData = (
  10528.     ClassID: '{695CDB66-02E5-11D2-B20D-00C04FA368D4}';
  10529.     EventIID: '{695CDB64-02E5-11D2-B20D-00C04FA368D4}';
  10530.     EventCount: 3;
  10531.     EventDispIDs: @CEventDispIDs;
  10532.     LicenseKey: nil;
  10533.     Flags: $0000000D;
  10534.     Version: 300;
  10535.     FontCount: 1;
  10536.     FontIDs: @CTFontIDs);
  10537. begin
  10538.   ControlData := @CControlData;
  10539. end;
  10540.  
  10541. procedure TNotebookX.CreateControl;
  10542.  
  10543.   procedure DoCreate;
  10544.   begin
  10545.     FIntf := IUnknown(OleObject) as INotebookX;
  10546.   end;
  10547.  
  10548. begin
  10549.   if FIntf = nil then DoCreate;
  10550. end;
  10551.  
  10552. function TNotebookX.GetControlInterface: INotebookX;
  10553. begin
  10554.   CreateControl;
  10555.   Result := FIntf;
  10556. end;
  10557.  
  10558. function TNotebookX.Get_Pages: IStrings;
  10559. begin
  10560.   Result := ControlInterface.Get_Pages;
  10561. end;
  10562.  
  10563. procedure TNotebookX.Set_Pages(const Value: IStrings);
  10564. begin
  10565.   ControlInterface.Set_Pages(Value);
  10566. end;
  10567.  
  10568. procedure TNotebookX.FlipChildren(AllLevels: WordBool);
  10569. begin
  10570.   ControlInterface.FlipChildren(AllLevels);
  10571. end;
  10572.  
  10573. function TNotebookX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10574. begin
  10575.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10576. end;
  10577.  
  10578. function TNotebookX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10579. begin
  10580.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10581. end;
  10582.  
  10583. function TNotebookX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10584. begin
  10585.   Result := ControlInterface.GetControlsAlignment;
  10586. end;
  10587.  
  10588. procedure TNotebookX.InitiateAction;
  10589. begin
  10590.   ControlInterface.InitiateAction;
  10591. end;
  10592.  
  10593. function TNotebookX.IsRightToLeft(out Value: WordBool): WordBool;
  10594. begin
  10595.   Result := ControlInterface.IsRightToLeft;
  10596. end;
  10597.  
  10598. function TNotebookX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10599. begin
  10600.   Result := ControlInterface.UseRightToLeftAlignment;
  10601. end;
  10602.  
  10603. function TNotebookX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10604. begin
  10605.   Result := ControlInterface.UseRightToLeftReading;
  10606. end;
  10607.  
  10608. function TNotebookX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10609. begin
  10610.   Result := ControlInterface.UseRightToLeftScrollBar;
  10611. end;
  10612.  
  10613. function TNotebookX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10614. begin
  10615.   Result := ControlInterface.ClassNameIs(Name);
  10616. end;
  10617.  
  10618. procedure TNotebookX.AboutBox;
  10619. begin
  10620.   ControlInterface.AboutBox;
  10621. end;
  10622.  
  10623. procedure TOutlineX.InitControlData;
  10624. const
  10625.   CEventDispIDs: array [0..4] of DWORD = (
  10626.     $00000001, $00000002, $00000004, $0000000E, $00000010);
  10627.   CTFontIDs: array [0..0] of DWORD = (
  10628.     $FFFFFE00);
  10629.   CControlData: TControlData = (
  10630.     ClassID: '{695CDB6D-02E5-11D2-B20D-00C04FA368D4}';
  10631.     EventIID: '{695CDB6B-02E5-11D2-B20D-00C04FA368D4}';
  10632.     EventCount: 5;
  10633.     EventDispIDs: @CEventDispIDs;
  10634.     LicenseKey: nil;
  10635.     Flags: $0000000D;
  10636.     Version: 300;
  10637.     FontCount: 1;
  10638.     FontIDs: @CTFontIDs);
  10639. begin
  10640.   ControlData := @CControlData;
  10641. end;
  10642.  
  10643. procedure TOutlineX.CreateControl;
  10644.  
  10645.   procedure DoCreate;
  10646.   begin
  10647.     FIntf := IUnknown(OleObject) as IOutlineX;
  10648.   end;
  10649.  
  10650. begin
  10651.   if FIntf = nil then DoCreate;
  10652. end;
  10653.  
  10654. function TOutlineX.GetControlInterface: IOutlineX;
  10655. begin
  10656.   CreateControl;
  10657.   Result := FIntf;
  10658. end;
  10659.  
  10660. function TOutlineX.Get_Lines: IStrings;
  10661. begin
  10662.   Result := ControlInterface.Get_Lines;
  10663. end;
  10664.  
  10665. procedure TOutlineX.Set_Lines(const Value: IStrings);
  10666. begin
  10667.   ControlInterface.Set_Lines(Value);
  10668. end;
  10669.  
  10670. function TOutlineX.Add(Index: Integer; const Text: WideString; out Value: Integer): Integer;
  10671. begin
  10672.   Result := ControlInterface.Add(Index, Text);
  10673. end;
  10674.  
  10675. function TOutlineX.AddChild(Index: Integer; const Text: WideString; out Value: Integer): Integer;
  10676. begin
  10677.   Result := ControlInterface.AddChild(Index, Text);
  10678. end;
  10679.  
  10680. function TOutlineX.Insert(Index: Integer; const Text: WideString; out Value: Integer): Integer;
  10681. begin
  10682.   Result := ControlInterface.Insert(Index, Text);
  10683. end;
  10684.  
  10685. procedure TOutlineX.Delete(Index: Integer);
  10686. begin
  10687.   ControlInterface.Delete(Index);
  10688. end;
  10689.  
  10690. function TOutlineX.GetItem(X: Integer; Y: Integer; out Value: Integer): Integer;
  10691. begin
  10692.   Result := ControlInterface.GetItem(X, Y);
  10693. end;
  10694.  
  10695. function TOutlineX.GetTextItem(const Param1: WideString; out Value: Integer): Integer;
  10696. begin
  10697.   Result := ControlInterface.GetTextItem(Param1);
  10698. end;
  10699.  
  10700. procedure TOutlineX.FullExpand;
  10701. begin
  10702.   ControlInterface.FullExpand;
  10703. end;
  10704.  
  10705. procedure TOutlineX.FullCollapse;
  10706. begin
  10707.   ControlInterface.FullCollapse;
  10708. end;
  10709.  
  10710. procedure TOutlineX.LoadFromFile(const FileName: WideString);
  10711. begin
  10712.   ControlInterface.LoadFromFile(FileName);
  10713. end;
  10714.  
  10715. procedure TOutlineX.SaveToFile(const FileName: WideString);
  10716. begin
  10717.   ControlInterface.SaveToFile(FileName);
  10718. end;
  10719.  
  10720. procedure TOutlineX.BeginUpdate;
  10721. begin
  10722.   ControlInterface.BeginUpdate;
  10723. end;
  10724.  
  10725. procedure TOutlineX.EndUpdate;
  10726. begin
  10727.   ControlInterface.EndUpdate;
  10728. end;
  10729.  
  10730. procedure TOutlineX.SetUpdateState(Value: WordBool);
  10731. begin
  10732.   ControlInterface.SetUpdateState(Value);
  10733. end;
  10734.  
  10735. procedure TOutlineX.Clear;
  10736. begin
  10737.   ControlInterface.Clear;
  10738. end;
  10739.  
  10740. procedure TOutlineX.FlipChildren(AllLevels: WordBool);
  10741. begin
  10742.   ControlInterface.FlipChildren(AllLevels);
  10743. end;
  10744.  
  10745. function TOutlineX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10746. begin
  10747.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10748. end;
  10749.  
  10750. function TOutlineX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10751. begin
  10752.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10753. end;
  10754.  
  10755. function TOutlineX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10756. begin
  10757.   Result := ControlInterface.GetControlsAlignment;
  10758. end;
  10759.  
  10760. procedure TOutlineX.InitiateAction;
  10761. begin
  10762.   ControlInterface.InitiateAction;
  10763. end;
  10764.  
  10765. function TOutlineX.IsRightToLeft(out Value: WordBool): WordBool;
  10766. begin
  10767.   Result := ControlInterface.IsRightToLeft;
  10768. end;
  10769.  
  10770. function TOutlineX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10771. begin
  10772.   Result := ControlInterface.UseRightToLeftAlignment;
  10773. end;
  10774.  
  10775. function TOutlineX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10776. begin
  10777.   Result := ControlInterface.UseRightToLeftReading;
  10778. end;
  10779.  
  10780. function TOutlineX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10781. begin
  10782.   Result := ControlInterface.UseRightToLeftScrollBar;
  10783. end;
  10784.  
  10785. function TOutlineX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10786. begin
  10787.   Result := ControlInterface.ClassNameIs(Name);
  10788. end;
  10789.  
  10790. procedure TOutlineX.AboutBox;
  10791. begin
  10792.   ControlInterface.AboutBox;
  10793. end;
  10794.  
  10795. procedure TPageScrollerX.InitControlData;
  10796. const
  10797.   CEventDispIDs: array [0..3] of DWORD = (
  10798.     $00000001, $00000002, $00000008, $0000000A);
  10799.   CTFontIDs: array [0..0] of DWORD = (
  10800.     $FFFFFE00);
  10801.   CControlData: TControlData = (
  10802.     ClassID: '{695CDB76-02E5-11D2-B20D-00C04FA368D4}';
  10803.     EventIID: '{695CDB74-02E5-11D2-B20D-00C04FA368D4}';
  10804.     EventCount: 4;
  10805.     EventDispIDs: @CEventDispIDs;
  10806.     LicenseKey: nil;
  10807.     Flags: $0000000D;
  10808.     Version: 300;
  10809.     FontCount: 1;
  10810.     FontIDs: @CTFontIDs);
  10811. begin
  10812.   ControlData := @CControlData;
  10813. end;
  10814.  
  10815. procedure TPageScrollerX.CreateControl;
  10816.  
  10817.   procedure DoCreate;
  10818.   begin
  10819.     FIntf := IUnknown(OleObject) as IPageScrollerX;
  10820.   end;
  10821.  
  10822. begin
  10823.   if FIntf = nil then DoCreate;
  10824. end;
  10825.  
  10826. function TPageScrollerX.GetControlInterface: IPageScrollerX;
  10827. begin
  10828.   CreateControl;
  10829.   Result := FIntf;
  10830. end;
  10831.  
  10832. function TPageScrollerX.GetButtonState(Button: TxPageScrollerButton; 
  10833.                                        out Value: TxPageScrollerButtonState): TxPageScrollerButtonState;
  10834. begin
  10835.   Result := ControlInterface.GetButtonState(Button);
  10836. end;
  10837.  
  10838. procedure TPageScrollerX.FlipChildren(AllLevels: WordBool);
  10839. begin
  10840.   ControlInterface.FlipChildren(AllLevels);
  10841. end;
  10842.  
  10843. function TPageScrollerX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10844. begin
  10845.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10846. end;
  10847.  
  10848. function TPageScrollerX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10849. begin
  10850.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10851. end;
  10852.  
  10853. function TPageScrollerX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10854. begin
  10855.   Result := ControlInterface.GetControlsAlignment;
  10856. end;
  10857.  
  10858. procedure TPageScrollerX.InitiateAction;
  10859. begin
  10860.   ControlInterface.InitiateAction;
  10861. end;
  10862.  
  10863. function TPageScrollerX.IsRightToLeft(out Value: WordBool): WordBool;
  10864. begin
  10865.   Result := ControlInterface.IsRightToLeft;
  10866. end;
  10867.  
  10868. function TPageScrollerX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10869. begin
  10870.   Result := ControlInterface.UseRightToLeftAlignment;
  10871. end;
  10872.  
  10873. function TPageScrollerX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10874. begin
  10875.   Result := ControlInterface.UseRightToLeftReading;
  10876. end;
  10877.  
  10878. function TPageScrollerX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10879. begin
  10880.   Result := ControlInterface.UseRightToLeftScrollBar;
  10881. end;
  10882.  
  10883. function TPageScrollerX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10884. begin
  10885.   Result := ControlInterface.ClassNameIs(Name);
  10886. end;
  10887.  
  10888. procedure TPageScrollerX.AboutBox;
  10889. begin
  10890.   ControlInterface.AboutBox;
  10891. end;
  10892.  
  10893. procedure TPanelX.InitControlData;
  10894. const
  10895.   CEventDispIDs: array [0..4] of DWORD = (
  10896.     $00000001, $00000002, $00000003, $00000006, $0000000F);
  10897.   CTFontIDs: array [0..0] of DWORD = (
  10898.     $FFFFFE00);
  10899.   CControlData: TControlData = (
  10900.     ClassID: '{695CDB80-02E5-11D2-B20D-00C04FA368D4}';
  10901.     EventIID: '{695CDB7E-02E5-11D2-B20D-00C04FA368D4}';
  10902.     EventCount: 5;
  10903.     EventDispIDs: @CEventDispIDs;
  10904.     LicenseKey: nil;
  10905.     Flags: $0000001D;
  10906.     Version: 300;
  10907.     FontCount: 1;
  10908.     FontIDs: @CTFontIDs);
  10909. begin
  10910.   ControlData := @CControlData;
  10911. end;
  10912.  
  10913. procedure TPanelX.CreateControl;
  10914.  
  10915.   procedure DoCreate;
  10916.   begin
  10917.     FIntf := IUnknown(OleObject) as IPanelX;
  10918.   end;
  10919.  
  10920. begin
  10921.   if FIntf = nil then DoCreate;
  10922. end;
  10923.  
  10924. function TPanelX.GetControlInterface: IPanelX;
  10925. begin
  10926.   CreateControl;
  10927.   Result := FIntf;
  10928. end;
  10929.  
  10930. function TPanelX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  10931. begin
  10932.   Result := ControlInterface.GetControlsAlignment;
  10933. end;
  10934.  
  10935. procedure TPanelX.FlipChildren(AllLevels: WordBool);
  10936. begin
  10937.   ControlInterface.FlipChildren(AllLevels);
  10938. end;
  10939.  
  10940. function TPanelX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  10941. begin
  10942.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  10943. end;
  10944.  
  10945. function TPanelX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  10946. begin
  10947.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  10948. end;
  10949.  
  10950. procedure TPanelX.InitiateAction;
  10951. begin
  10952.   ControlInterface.InitiateAction;
  10953. end;
  10954.  
  10955. function TPanelX.IsRightToLeft(out Value: WordBool): WordBool;
  10956. begin
  10957.   Result := ControlInterface.IsRightToLeft;
  10958. end;
  10959.  
  10960. function TPanelX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  10961. begin
  10962.   Result := ControlInterface.UseRightToLeftAlignment;
  10963. end;
  10964.  
  10965. function TPanelX.UseRightToLeftReading(out Value: WordBool): WordBool;
  10966. begin
  10967.   Result := ControlInterface.UseRightToLeftReading;
  10968. end;
  10969.  
  10970. function TPanelX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  10971. begin
  10972.   Result := ControlInterface.UseRightToLeftScrollBar;
  10973. end;
  10974.  
  10975. function TPanelX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  10976. begin
  10977.   Result := ControlInterface.ClassNameIs(Name);
  10978. end;
  10979.  
  10980. procedure TPanelX.AboutBox;
  10981. begin
  10982.   ControlInterface.AboutBox;
  10983. end;
  10984.  
  10985. procedure TProgressBarX.InitControlData;
  10986. const
  10987.   CControlData: TControlData = (
  10988.     ClassID: '{695CDB87-02E5-11D2-B20D-00C04FA368D4}';
  10989.     EventIID: '';
  10990.     EventCount: 0;
  10991.     EventDispIDs: nil;
  10992.     LicenseKey: nil;
  10993.     Flags: $00000008;
  10994.     Version: 300);
  10995. begin
  10996.   ControlData := @CControlData;
  10997. end;
  10998.  
  10999. procedure TProgressBarX.CreateControl;
  11000.  
  11001.   procedure DoCreate;
  11002.   begin
  11003.     FIntf := IUnknown(OleObject) as IProgressBarX;
  11004.   end;
  11005.  
  11006. begin
  11007.   if FIntf = nil then DoCreate;
  11008. end;
  11009.  
  11010. function TProgressBarX.GetControlInterface: IProgressBarX;
  11011. begin
  11012.   CreateControl;
  11013.   Result := FIntf;
  11014. end;
  11015.  
  11016. procedure TProgressBarX.StepIt;
  11017. begin
  11018.   ControlInterface.StepIt;
  11019. end;
  11020.  
  11021. procedure TProgressBarX.StepBy(Delta: Integer);
  11022. begin
  11023.   ControlInterface.StepBy(Delta);
  11024. end;
  11025.  
  11026. procedure TProgressBarX.FlipChildren(AllLevels: WordBool);
  11027. begin
  11028.   ControlInterface.FlipChildren(AllLevels);
  11029. end;
  11030.  
  11031. function TProgressBarX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11032. begin
  11033.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11034. end;
  11035.  
  11036. function TProgressBarX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11037. begin
  11038.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11039. end;
  11040.  
  11041. function TProgressBarX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11042. begin
  11043.   Result := ControlInterface.GetControlsAlignment;
  11044. end;
  11045.  
  11046. procedure TProgressBarX.InitiateAction;
  11047. begin
  11048.   ControlInterface.InitiateAction;
  11049. end;
  11050.  
  11051. function TProgressBarX.IsRightToLeft(out Value: WordBool): WordBool;
  11052. begin
  11053.   Result := ControlInterface.IsRightToLeft;
  11054. end;
  11055.  
  11056. function TProgressBarX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11057. begin
  11058.   Result := ControlInterface.UseRightToLeftAlignment;
  11059. end;
  11060.  
  11061. function TProgressBarX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11062. begin
  11063.   Result := ControlInterface.UseRightToLeftReading;
  11064. end;
  11065.  
  11066. function TProgressBarX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11067. begin
  11068.   Result := ControlInterface.UseRightToLeftScrollBar;
  11069. end;
  11070.  
  11071. function TProgressBarX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11072. begin
  11073.   Result := ControlInterface.ClassNameIs(Name);
  11074. end;
  11075.  
  11076. procedure TProgressBarX.AboutBox;
  11077. begin
  11078.   ControlInterface.AboutBox;
  11079. end;
  11080.  
  11081. procedure TRadioButtonX.InitControlData;
  11082. const
  11083.   CEventDispIDs: array [0..2] of DWORD = (
  11084.     $00000001, $00000002, $00000008);
  11085.   CTFontIDs: array [0..0] of DWORD = (
  11086.     $FFFFFE00);
  11087.   CControlData: TControlData = (
  11088.     ClassID: '{695CDB8F-02E5-11D2-B20D-00C04FA368D4}';
  11089.     EventIID: '{695CDB8D-02E5-11D2-B20D-00C04FA368D4}';
  11090.     EventCount: 3;
  11091.     EventDispIDs: @CEventDispIDs;
  11092.     LicenseKey: nil;
  11093.     Flags: $0000001D;
  11094.     Version: 300;
  11095.     FontCount: 1;
  11096.     FontIDs: @CTFontIDs);
  11097. begin
  11098.   ControlData := @CControlData;
  11099. end;
  11100.  
  11101. procedure TRadioButtonX.CreateControl;
  11102.  
  11103.   procedure DoCreate;
  11104.   begin
  11105.     FIntf := IUnknown(OleObject) as IRadioButtonX;
  11106.   end;
  11107.  
  11108. begin
  11109.   if FIntf = nil then DoCreate;
  11110. end;
  11111.  
  11112. function TRadioButtonX.GetControlInterface: IRadioButtonX;
  11113. begin
  11114.   CreateControl;
  11115.   Result := FIntf;
  11116. end;
  11117.  
  11118. function TRadioButtonX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11119. begin
  11120.   Result := ControlInterface.GetControlsAlignment;
  11121. end;
  11122.  
  11123. procedure TRadioButtonX.FlipChildren(AllLevels: WordBool);
  11124. begin
  11125.   ControlInterface.FlipChildren(AllLevels);
  11126. end;
  11127.  
  11128. function TRadioButtonX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11129. begin
  11130.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11131. end;
  11132.  
  11133. function TRadioButtonX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11134. begin
  11135.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11136. end;
  11137.  
  11138. procedure TRadioButtonX.InitiateAction;
  11139. begin
  11140.   ControlInterface.InitiateAction;
  11141. end;
  11142.  
  11143. function TRadioButtonX.IsRightToLeft(out Value: WordBool): WordBool;
  11144. begin
  11145.   Result := ControlInterface.IsRightToLeft;
  11146. end;
  11147.  
  11148. function TRadioButtonX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11149. begin
  11150.   Result := ControlInterface.UseRightToLeftAlignment;
  11151. end;
  11152.  
  11153. function TRadioButtonX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11154. begin
  11155.   Result := ControlInterface.UseRightToLeftReading;
  11156. end;
  11157.  
  11158. function TRadioButtonX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11159. begin
  11160.   Result := ControlInterface.UseRightToLeftScrollBar;
  11161. end;
  11162.  
  11163. function TRadioButtonX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11164. begin
  11165.   Result := ControlInterface.ClassNameIs(Name);
  11166. end;
  11167.  
  11168. procedure TRadioButtonX.AboutBox;
  11169. begin
  11170.   ControlInterface.AboutBox;
  11171. end;
  11172.  
  11173. procedure TRadioGroupX.InitControlData;
  11174. const
  11175.   CEventDispIDs: array [0..0] of DWORD = (
  11176.     $00000001);
  11177.   CTFontIDs: array [0..0] of DWORD = (
  11178.     $FFFFFE00);
  11179.   CControlData: TControlData = (
  11180.     ClassID: '{695CDB96-02E5-11D2-B20D-00C04FA368D4}';
  11181.     EventIID: '{695CDB94-02E5-11D2-B20D-00C04FA368D4}';
  11182.     EventCount: 1;
  11183.     EventDispIDs: @CEventDispIDs;
  11184.     LicenseKey: nil;
  11185.     Flags: $0000001D;
  11186.     Version: 300;
  11187.     FontCount: 1;
  11188.     FontIDs: @CTFontIDs);
  11189. begin
  11190.   ControlData := @CControlData;
  11191. end;
  11192.  
  11193. procedure TRadioGroupX.CreateControl;
  11194.  
  11195.   procedure DoCreate;
  11196.   begin
  11197.     FIntf := IUnknown(OleObject) as IRadioGroupX;
  11198.   end;
  11199.  
  11200. begin
  11201.   if FIntf = nil then DoCreate;
  11202. end;
  11203.  
  11204. function TRadioGroupX.GetControlInterface: IRadioGroupX;
  11205. begin
  11206.   CreateControl;
  11207.   Result := FIntf;
  11208. end;
  11209.  
  11210. function TRadioGroupX.Get_Items: IStrings;
  11211. begin
  11212.   Result := ControlInterface.Get_Items;
  11213. end;
  11214.  
  11215. procedure TRadioGroupX.Set_Items(const Value: IStrings);
  11216. begin
  11217.   ControlInterface.Set_Items(Value);
  11218. end;
  11219.  
  11220. procedure TRadioGroupX.FlipChildren(AllLevels: WordBool);
  11221. begin
  11222.   ControlInterface.FlipChildren(AllLevels);
  11223. end;
  11224.  
  11225. function TRadioGroupX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11226. begin
  11227.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11228. end;
  11229.  
  11230. function TRadioGroupX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11231. begin
  11232.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11233. end;
  11234.  
  11235. function TRadioGroupX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11236. begin
  11237.   Result := ControlInterface.GetControlsAlignment;
  11238. end;
  11239.  
  11240. procedure TRadioGroupX.InitiateAction;
  11241. begin
  11242.   ControlInterface.InitiateAction;
  11243. end;
  11244.  
  11245. function TRadioGroupX.IsRightToLeft(out Value: WordBool): WordBool;
  11246. begin
  11247.   Result := ControlInterface.IsRightToLeft;
  11248. end;
  11249.  
  11250. function TRadioGroupX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11251. begin
  11252.   Result := ControlInterface.UseRightToLeftAlignment;
  11253. end;
  11254.  
  11255. function TRadioGroupX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11256. begin
  11257.   Result := ControlInterface.UseRightToLeftReading;
  11258. end;
  11259.  
  11260. function TRadioGroupX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11261. begin
  11262.   Result := ControlInterface.UseRightToLeftScrollBar;
  11263. end;
  11264.  
  11265. function TRadioGroupX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11266. begin
  11267.   Result := ControlInterface.ClassNameIs(Name);
  11268. end;
  11269.  
  11270. procedure TRadioGroupX.AboutBox;
  11271. begin
  11272.   ControlInterface.AboutBox;
  11273. end;
  11274.  
  11275. procedure TRichEditX.InitControlData;
  11276. const
  11277.   CEventDispIDs: array [0..4] of DWORD = (
  11278.     $00000001, $00000007, $0000000F, $00000011, $00000012);
  11279.   CTFontIDs: array [0..0] of DWORD = (
  11280.     $FFFFFE00);
  11281.   CControlData: TControlData = (
  11282.     ClassID: '{695CDB9D-02E5-11D2-B20D-00C04FA368D4}';
  11283.     EventIID: '{695CDB9B-02E5-11D2-B20D-00C04FA368D4}';
  11284.     EventCount: 5;
  11285.     EventDispIDs: @CEventDispIDs;
  11286.     LicenseKey: nil;
  11287.     Flags: $0000002D;
  11288.     Version: 300;
  11289.     FontCount: 1;
  11290.     FontIDs: @CTFontIDs);
  11291. begin
  11292.   ControlData := @CControlData;
  11293. end;
  11294.  
  11295. procedure TRichEditX.CreateControl;
  11296.  
  11297.   procedure DoCreate;
  11298.   begin
  11299.     FIntf := IUnknown(OleObject) as IRichEditX;
  11300.   end;
  11301.  
  11302. begin
  11303.   if FIntf = nil then DoCreate;
  11304. end;
  11305.  
  11306. function TRichEditX.GetControlInterface: IRichEditX;
  11307. begin
  11308.   CreateControl;
  11309.   Result := FIntf;
  11310. end;
  11311.  
  11312. function TRichEditX.Get_Lines: IStrings;
  11313. begin
  11314.   Result := ControlInterface.Get_Lines;
  11315. end;
  11316.  
  11317. procedure TRichEditX.Set_Lines(const Value: IStrings);
  11318. begin
  11319.   ControlInterface.Set_Lines(Value);
  11320. end;
  11321.  
  11322. procedure TRichEditX.Clear;
  11323. begin
  11324.   ControlInterface.Clear;
  11325. end;
  11326.  
  11327. procedure TRichEditX.Print(const Caption: WideString);
  11328. begin
  11329.   ControlInterface.Print(Caption);
  11330. end;
  11331.  
  11332. function TRichEditX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11333. begin
  11334.   Result := ControlInterface.GetControlsAlignment;
  11335. end;
  11336.  
  11337. procedure TRichEditX.ClearSelection;
  11338. begin
  11339.   ControlInterface.ClearSelection;
  11340. end;
  11341.  
  11342. procedure TRichEditX.CopyToClipboard;
  11343. begin
  11344.   ControlInterface.CopyToClipboard;
  11345. end;
  11346.  
  11347. procedure TRichEditX.CutToClipboard;
  11348. begin
  11349.   ControlInterface.CutToClipboard;
  11350. end;
  11351.  
  11352. procedure TRichEditX.PasteFromClipboard;
  11353. begin
  11354.   ControlInterface.PasteFromClipboard;
  11355. end;
  11356.  
  11357. procedure TRichEditX.Undo;
  11358. begin
  11359.   ControlInterface.Undo;
  11360. end;
  11361.  
  11362. procedure TRichEditX.ClearUndo;
  11363. begin
  11364.   ControlInterface.ClearUndo;
  11365. end;
  11366.  
  11367. procedure TRichEditX.SelectAll;
  11368. begin
  11369.   ControlInterface.SelectAll;
  11370. end;
  11371.  
  11372. procedure TRichEditX.FlipChildren(AllLevels: WordBool);
  11373. begin
  11374.   ControlInterface.FlipChildren(AllLevels);
  11375. end;
  11376.  
  11377. function TRichEditX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11378. begin
  11379.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11380. end;
  11381.  
  11382. function TRichEditX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11383. begin
  11384.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11385. end;
  11386.  
  11387. procedure TRichEditX.InitiateAction;
  11388. begin
  11389.   ControlInterface.InitiateAction;
  11390. end;
  11391.  
  11392. function TRichEditX.IsRightToLeft(out Value: WordBool): WordBool;
  11393. begin
  11394.   Result := ControlInterface.IsRightToLeft;
  11395. end;
  11396.  
  11397. function TRichEditX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11398. begin
  11399.   Result := ControlInterface.UseRightToLeftAlignment;
  11400. end;
  11401.  
  11402. function TRichEditX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11403. begin
  11404.   Result := ControlInterface.UseRightToLeftReading;
  11405. end;
  11406.  
  11407. function TRichEditX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11408. begin
  11409.   Result := ControlInterface.UseRightToLeftScrollBar;
  11410. end;
  11411.  
  11412. function TRichEditX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11413. begin
  11414.   Result := ControlInterface.ClassNameIs(Name);
  11415. end;
  11416.  
  11417. procedure TRichEditX.AboutBox;
  11418. begin
  11419.   ControlInterface.AboutBox;
  11420. end;
  11421.  
  11422. procedure TScrollBarX.InitControlData;
  11423. const
  11424.   CEventDispIDs: array [0..2] of DWORD = (
  11425.     $00000001, $00000007, $00000009);
  11426.   CControlData: TControlData = (
  11427.     ClassID: '{695CDBA4-02E5-11D2-B20D-00C04FA368D4}';
  11428.     EventIID: '{695CDBA2-02E5-11D2-B20D-00C04FA368D4}';
  11429.     EventCount: 3;
  11430.     EventDispIDs: @CEventDispIDs;
  11431.     LicenseKey: nil;
  11432.     Flags: $00000008;
  11433.     Version: 300);
  11434. begin
  11435.   ControlData := @CControlData;
  11436. end;
  11437.  
  11438. procedure TScrollBarX.CreateControl;
  11439.  
  11440.   procedure DoCreate;
  11441.   begin
  11442.     FIntf := IUnknown(OleObject) as IScrollBarX;
  11443.   end;
  11444.  
  11445. begin
  11446.   if FIntf = nil then DoCreate;
  11447. end;
  11448.  
  11449. function TScrollBarX.GetControlInterface: IScrollBarX;
  11450. begin
  11451.   CreateControl;
  11452.   Result := FIntf;
  11453. end;
  11454.  
  11455. procedure TScrollBarX.SetParams(APosition: Integer; AMin: Integer; AMax: Integer);
  11456. begin
  11457.   ControlInterface.SetParams(APosition, AMin, AMax);
  11458. end;
  11459.  
  11460. procedure TScrollBarX.FlipChildren(AllLevels: WordBool);
  11461. begin
  11462.   ControlInterface.FlipChildren(AllLevels);
  11463. end;
  11464.  
  11465. function TScrollBarX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11466. begin
  11467.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11468. end;
  11469.  
  11470. function TScrollBarX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11471. begin
  11472.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11473. end;
  11474.  
  11475. function TScrollBarX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11476. begin
  11477.   Result := ControlInterface.GetControlsAlignment;
  11478. end;
  11479.  
  11480. procedure TScrollBarX.InitiateAction;
  11481. begin
  11482.   ControlInterface.InitiateAction;
  11483. end;
  11484.  
  11485. function TScrollBarX.IsRightToLeft(out Value: WordBool): WordBool;
  11486. begin
  11487.   Result := ControlInterface.IsRightToLeft;
  11488. end;
  11489.  
  11490. function TScrollBarX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11491. begin
  11492.   Result := ControlInterface.UseRightToLeftAlignment;
  11493. end;
  11494.  
  11495. function TScrollBarX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11496. begin
  11497.   Result := ControlInterface.UseRightToLeftReading;
  11498. end;
  11499.  
  11500. function TScrollBarX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11501. begin
  11502.   Result := ControlInterface.UseRightToLeftScrollBar;
  11503. end;
  11504.  
  11505. function TScrollBarX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11506. begin
  11507.   Result := ControlInterface.ClassNameIs(Name);
  11508. end;
  11509.  
  11510. procedure TScrollBarX.AboutBox;
  11511. begin
  11512.   ControlInterface.AboutBox;
  11513. end;
  11514.  
  11515. procedure TScrollBoxX.InitControlData;
  11516. const
  11517.   CEventDispIDs: array [0..4] of DWORD = (
  11518.     $00000001, $00000002, $00000003, $00000004, $00000012);
  11519.   CTFontIDs: array [0..0] of DWORD = (
  11520.     $FFFFFE00);
  11521.   CControlData: TControlData = (
  11522.     ClassID: '{695CDBAD-02E5-11D2-B20D-00C04FA368D4}';
  11523.     EventIID: '{695CDBAB-02E5-11D2-B20D-00C04FA368D4}';
  11524.     EventCount: 5;
  11525.     EventDispIDs: @CEventDispIDs;
  11526.     LicenseKey: nil;
  11527.     Flags: $0000000D;
  11528.     Version: 300;
  11529.     FontCount: 1;
  11530.     FontIDs: @CTFontIDs);
  11531. begin
  11532.   ControlData := @CControlData;
  11533. end;
  11534.  
  11535. procedure TScrollBoxX.CreateControl;
  11536.  
  11537.   procedure DoCreate;
  11538.   begin
  11539.     FIntf := IUnknown(OleObject) as IScrollBoxX;
  11540.   end;
  11541.  
  11542. begin
  11543.   if FIntf = nil then DoCreate;
  11544. end;
  11545.  
  11546. function TScrollBoxX.GetControlInterface: IScrollBoxX;
  11547. begin
  11548.   CreateControl;
  11549.   Result := FIntf;
  11550. end;
  11551.  
  11552. procedure TScrollBoxX.DisableAutoRange;
  11553. begin
  11554.   ControlInterface.DisableAutoRange;
  11555. end;
  11556.  
  11557. procedure TScrollBoxX.EnableAutoRange;
  11558. begin
  11559.   ControlInterface.EnableAutoRange;
  11560. end;
  11561.  
  11562. procedure TScrollBoxX.FlipChildren(AllLevels: WordBool);
  11563. begin
  11564.   ControlInterface.FlipChildren(AllLevels);
  11565. end;
  11566.  
  11567. function TScrollBoxX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11568. begin
  11569.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11570. end;
  11571.  
  11572. function TScrollBoxX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11573. begin
  11574.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11575. end;
  11576.  
  11577. function TScrollBoxX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11578. begin
  11579.   Result := ControlInterface.GetControlsAlignment;
  11580. end;
  11581.  
  11582. procedure TScrollBoxX.InitiateAction;
  11583. begin
  11584.   ControlInterface.InitiateAction;
  11585. end;
  11586.  
  11587. function TScrollBoxX.IsRightToLeft(out Value: WordBool): WordBool;
  11588. begin
  11589.   Result := ControlInterface.IsRightToLeft;
  11590. end;
  11591.  
  11592. function TScrollBoxX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11593. begin
  11594.   Result := ControlInterface.UseRightToLeftAlignment;
  11595. end;
  11596.  
  11597. function TScrollBoxX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11598. begin
  11599.   Result := ControlInterface.UseRightToLeftReading;
  11600. end;
  11601.  
  11602. function TScrollBoxX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11603. begin
  11604.   Result := ControlInterface.UseRightToLeftScrollBar;
  11605. end;
  11606.  
  11607. function TScrollBoxX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11608. begin
  11609.   Result := ControlInterface.ClassNameIs(Name);
  11610. end;
  11611.  
  11612. procedure TScrollBoxX.AboutBox;
  11613. begin
  11614.   ControlInterface.AboutBox;
  11615. end;
  11616.  
  11617. procedure TSpinButtonX.InitControlData;
  11618. const
  11619.   CEventDispIDs: array [0..1] of DWORD = (
  11620.     $00000001, $00000008);
  11621.   CControlData: TControlData = (
  11622.     ClassID: '{695CDBB4-02E5-11D2-B20D-00C04FA368D4}';
  11623.     EventIID: '{695CDBB2-02E5-11D2-B20D-00C04FA368D4}';
  11624.     EventCount: 2;
  11625.     EventDispIDs: @CEventDispIDs;
  11626.     LicenseKey: nil;
  11627.     Flags: $00000008;
  11628.     Version: 300);
  11629. begin
  11630.   ControlData := @CControlData;
  11631. end;
  11632.  
  11633. procedure TSpinButtonX.CreateControl;
  11634.  
  11635.   procedure DoCreate;
  11636.   begin
  11637.     FIntf := IUnknown(OleObject) as ISpinButtonX;
  11638.   end;
  11639.  
  11640. begin
  11641.   if FIntf = nil then DoCreate;
  11642. end;
  11643.  
  11644. function TSpinButtonX.GetControlInterface: ISpinButtonX;
  11645. begin
  11646.   CreateControl;
  11647.   Result := FIntf;
  11648. end;
  11649.  
  11650. procedure TSpinButtonX.FlipChildren(AllLevels: WordBool);
  11651. begin
  11652.   ControlInterface.FlipChildren(AllLevels);
  11653. end;
  11654.  
  11655. function TSpinButtonX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11656. begin
  11657.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11658. end;
  11659.  
  11660. function TSpinButtonX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11661. begin
  11662.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11663. end;
  11664.  
  11665. function TSpinButtonX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11666. begin
  11667.   Result := ControlInterface.GetControlsAlignment;
  11668. end;
  11669.  
  11670. procedure TSpinButtonX.InitiateAction;
  11671. begin
  11672.   ControlInterface.InitiateAction;
  11673. end;
  11674.  
  11675. function TSpinButtonX.IsRightToLeft(out Value: WordBool): WordBool;
  11676. begin
  11677.   Result := ControlInterface.IsRightToLeft;
  11678. end;
  11679.  
  11680. function TSpinButtonX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11681. begin
  11682.   Result := ControlInterface.UseRightToLeftAlignment;
  11683. end;
  11684.  
  11685. function TSpinButtonX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11686. begin
  11687.   Result := ControlInterface.UseRightToLeftReading;
  11688. end;
  11689.  
  11690. function TSpinButtonX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11691. begin
  11692.   Result := ControlInterface.UseRightToLeftScrollBar;
  11693. end;
  11694.  
  11695. function TSpinButtonX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11696. begin
  11697.   Result := ControlInterface.ClassNameIs(Name);
  11698. end;
  11699.  
  11700. procedure TSpinButtonX.AboutBox;
  11701. begin
  11702.   ControlInterface.AboutBox;
  11703. end;
  11704.  
  11705. procedure TSpinEditX.InitControlData;
  11706. const
  11707.   CEventDispIDs: array [0..3] of DWORD = (
  11708.     $00000001, $00000002, $00000003, $00000008);
  11709.   CTFontIDs: array [0..0] of DWORD = (
  11710.     $FFFFFE00);
  11711.   CControlData: TControlData = (
  11712.     ClassID: '{695CDBBB-02E5-11D2-B20D-00C04FA368D4}';
  11713.     EventIID: '{695CDBB9-02E5-11D2-B20D-00C04FA368D4}';
  11714.     EventCount: 4;
  11715.     EventDispIDs: @CEventDispIDs;
  11716.     LicenseKey: nil;
  11717.     Flags: $0000002D;
  11718.     Version: 300;
  11719.     FontCount: 1;
  11720.     FontIDs: @CTFontIDs);
  11721. begin
  11722.   ControlData := @CControlData;
  11723. end;
  11724.  
  11725. procedure TSpinEditX.CreateControl;
  11726.  
  11727.   procedure DoCreate;
  11728.   begin
  11729.     FIntf := IUnknown(OleObject) as ISpinEditX;
  11730.   end;
  11731.  
  11732. begin
  11733.   if FIntf = nil then DoCreate;
  11734. end;
  11735.  
  11736. function TSpinEditX.GetControlInterface: ISpinEditX;
  11737. begin
  11738.   CreateControl;
  11739.   Result := FIntf;
  11740. end;
  11741.  
  11742. procedure TSpinEditX.Clear;
  11743. begin
  11744.   ControlInterface.Clear;
  11745. end;
  11746.  
  11747. procedure TSpinEditX.ClearSelection;
  11748. begin
  11749.   ControlInterface.ClearSelection;
  11750. end;
  11751.  
  11752. procedure TSpinEditX.CopyToClipboard;
  11753. begin
  11754.   ControlInterface.CopyToClipboard;
  11755. end;
  11756.  
  11757. procedure TSpinEditX.CutToClipboard;
  11758. begin
  11759.   ControlInterface.CutToClipboard;
  11760. end;
  11761.  
  11762. procedure TSpinEditX.PasteFromClipboard;
  11763. begin
  11764.   ControlInterface.PasteFromClipboard;
  11765. end;
  11766.  
  11767. procedure TSpinEditX.Undo;
  11768. begin
  11769.   ControlInterface.Undo;
  11770. end;
  11771.  
  11772. procedure TSpinEditX.ClearUndo;
  11773. begin
  11774.   ControlInterface.ClearUndo;
  11775. end;
  11776.  
  11777. procedure TSpinEditX.SelectAll;
  11778. begin
  11779.   ControlInterface.SelectAll;
  11780. end;
  11781.  
  11782. procedure TSpinEditX.FlipChildren(AllLevels: WordBool);
  11783. begin
  11784.   ControlInterface.FlipChildren(AllLevels);
  11785. end;
  11786.  
  11787. function TSpinEditX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11788. begin
  11789.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11790. end;
  11791.  
  11792. function TSpinEditX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11793. begin
  11794.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11795. end;
  11796.  
  11797. function TSpinEditX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11798. begin
  11799.   Result := ControlInterface.GetControlsAlignment;
  11800. end;
  11801.  
  11802. procedure TSpinEditX.InitiateAction;
  11803. begin
  11804.   ControlInterface.InitiateAction;
  11805. end;
  11806.  
  11807. function TSpinEditX.IsRightToLeft(out Value: WordBool): WordBool;
  11808. begin
  11809.   Result := ControlInterface.IsRightToLeft;
  11810. end;
  11811.  
  11812. function TSpinEditX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11813. begin
  11814.   Result := ControlInterface.UseRightToLeftAlignment;
  11815. end;
  11816.  
  11817. function TSpinEditX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11818. begin
  11819.   Result := ControlInterface.UseRightToLeftReading;
  11820. end;
  11821.  
  11822. function TSpinEditX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11823. begin
  11824.   Result := ControlInterface.UseRightToLeftScrollBar;
  11825. end;
  11826.  
  11827. function TSpinEditX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11828. begin
  11829.   Result := ControlInterface.ClassNameIs(Name);
  11830. end;
  11831.  
  11832. procedure TSpinEditX.AboutBox;
  11833. begin
  11834.   ControlInterface.AboutBox;
  11835. end;
  11836.  
  11837. procedure TStaticTextX.InitControlData;
  11838. const
  11839.   CEventDispIDs: array [0..1] of DWORD = (
  11840.     $00000001, $00000002);
  11841.   CTFontIDs: array [0..0] of DWORD = (
  11842.     $FFFFFE00);
  11843.   CControlData: TControlData = (
  11844.     ClassID: '{695CDBC2-02E5-11D2-B20D-00C04FA368D4}';
  11845.     EventIID: '{695CDBC0-02E5-11D2-B20D-00C04FA368D4}';
  11846.     EventCount: 2;
  11847.     EventDispIDs: @CEventDispIDs;
  11848.     LicenseKey: nil;
  11849.     Flags: $0000001D;
  11850.     Version: 300;
  11851.     FontCount: 1;
  11852.     FontIDs: @CTFontIDs);
  11853. begin
  11854.   ControlData := @CControlData;
  11855. end;
  11856.  
  11857. procedure TStaticTextX.CreateControl;
  11858.  
  11859.   procedure DoCreate;
  11860.   begin
  11861.     FIntf := IUnknown(OleObject) as IStaticTextX;
  11862.   end;
  11863.  
  11864. begin
  11865.   if FIntf = nil then DoCreate;
  11866. end;
  11867.  
  11868. function TStaticTextX.GetControlInterface: IStaticTextX;
  11869. begin
  11870.   CreateControl;
  11871.   Result := FIntf;
  11872. end;
  11873.  
  11874. procedure TStaticTextX.FlipChildren(AllLevels: WordBool);
  11875. begin
  11876.   ControlInterface.FlipChildren(AllLevels);
  11877. end;
  11878.  
  11879. function TStaticTextX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11880. begin
  11881.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11882. end;
  11883.  
  11884. function TStaticTextX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11885. begin
  11886.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11887. end;
  11888.  
  11889. function TStaticTextX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11890. begin
  11891.   Result := ControlInterface.GetControlsAlignment;
  11892. end;
  11893.  
  11894. procedure TStaticTextX.InitiateAction;
  11895. begin
  11896.   ControlInterface.InitiateAction;
  11897. end;
  11898.  
  11899. function TStaticTextX.IsRightToLeft(out Value: WordBool): WordBool;
  11900. begin
  11901.   Result := ControlInterface.IsRightToLeft;
  11902. end;
  11903.  
  11904. function TStaticTextX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  11905. begin
  11906.   Result := ControlInterface.UseRightToLeftAlignment;
  11907. end;
  11908.  
  11909. function TStaticTextX.UseRightToLeftReading(out Value: WordBool): WordBool;
  11910. begin
  11911.   Result := ControlInterface.UseRightToLeftReading;
  11912. end;
  11913.  
  11914. function TStaticTextX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  11915. begin
  11916.   Result := ControlInterface.UseRightToLeftScrollBar;
  11917. end;
  11918.  
  11919. function TStaticTextX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  11920. begin
  11921.   Result := ControlInterface.ClassNameIs(Name);
  11922. end;
  11923.  
  11924. procedure TStaticTextX.AboutBox;
  11925. begin
  11926.   ControlInterface.AboutBox;
  11927. end;
  11928.  
  11929. procedure TStringGridX.InitControlData;
  11930. const
  11931.   CEventDispIDs: array [0..9] of DWORD = (
  11932.     $00000001, $00000002, $00000003, $00000009, $0000000A, $0000000C,
  11933.     $00000013, $00000014, $00000015, $00000018);
  11934.   CTFontIDs: array [0..0] of DWORD = (
  11935.     $FFFFFE00);
  11936.   CControlData: TControlData = (
  11937.     ClassID: '{695CDBCA-02E5-11D2-B20D-00C04FA368D4}';
  11938.     EventIID: '{695CDBC8-02E5-11D2-B20D-00C04FA368D4}';
  11939.     EventCount: 10;
  11940.     EventDispIDs: @CEventDispIDs;
  11941.     LicenseKey: nil;
  11942.     Flags: $0000000D;
  11943.     Version: 300;
  11944.     FontCount: 1;
  11945.     FontIDs: @CTFontIDs);
  11946. begin
  11947.   ControlData := @CControlData;
  11948. end;
  11949.  
  11950. procedure TStringGridX.CreateControl;
  11951.  
  11952.   procedure DoCreate;
  11953.   begin
  11954.     FIntf := IUnknown(OleObject) as IStringGridX;
  11955.   end;
  11956.  
  11957. begin
  11958.   if FIntf = nil then DoCreate;
  11959. end;
  11960.  
  11961. function TStringGridX.GetControlInterface: IStringGridX;
  11962. begin
  11963.   CreateControl;
  11964.   Result := FIntf;
  11965. end;
  11966.  
  11967. procedure TStringGridX.MouseToCell(X: Integer; Y: Integer; var ACol: Integer; var ARow: Integer);
  11968. begin
  11969.   ControlInterface.MouseToCell(X, Y, ACol, ARow);
  11970. end;
  11971.  
  11972. procedure TStringGridX.FlipChildren(AllLevels: WordBool);
  11973. begin
  11974.   ControlInterface.FlipChildren(AllLevels);
  11975. end;
  11976.  
  11977. function TStringGridX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  11978. begin
  11979.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  11980. end;
  11981.  
  11982. function TStringGridX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  11983. begin
  11984.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  11985. end;
  11986.  
  11987. function TStringGridX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  11988. begin
  11989.   Result := ControlInterface.GetControlsAlignment;
  11990. end;
  11991.  
  11992. procedure TStringGridX.InitiateAction;
  11993. begin
  11994.   ControlInterface.InitiateAction;
  11995. end;
  11996.  
  11997. function TStringGridX.IsRightToLeft(out Value: WordBool): WordBool;
  11998. begin
  11999.   Result := ControlInterface.IsRightToLeft;
  12000. end;
  12001.  
  12002. function TStringGridX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  12003. begin
  12004.   Result := ControlInterface.UseRightToLeftAlignment;
  12005. end;
  12006.  
  12007. function TStringGridX.UseRightToLeftReading(out Value: WordBool): WordBool;
  12008. begin
  12009.   Result := ControlInterface.UseRightToLeftReading;
  12010. end;
  12011.  
  12012. function TStringGridX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  12013. begin
  12014.   Result := ControlInterface.UseRightToLeftScrollBar;
  12015. end;
  12016.  
  12017. function TStringGridX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  12018. begin
  12019.   Result := ControlInterface.ClassNameIs(Name);
  12020. end;
  12021.  
  12022. procedure TStringGridX.AboutBox;
  12023. begin
  12024.   ControlInterface.AboutBox;
  12025. end;
  12026.  
  12027. procedure TTabbedNotebookX.InitControlData;
  12028. const
  12029.   CEventDispIDs: array [0..1] of DWORD = (
  12030.     $00000001, $00000002);
  12031.   CTFontIDs: array [0..2] of DWORD = (
  12032.     $00000002, $FFFFFE00, $00000008);
  12033.   CControlData: TControlData = (
  12034.     ClassID: '{695CDBD1-02E5-11D2-B20D-00C04FA368D4}';
  12035.     EventIID: '{695CDBCF-02E5-11D2-B20D-00C04FA368D4}';
  12036.     EventCount: 2;
  12037.     EventDispIDs: @CEventDispIDs;
  12038.     LicenseKey: nil;
  12039.     Flags: $0000000C;
  12040.     Version: 300;
  12041.     FontCount: 3;
  12042.     FontIDs: @CTFontIDs);
  12043. begin
  12044.   ControlData := @CControlData;
  12045. end;
  12046.  
  12047. procedure TTabbedNotebookX.CreateControl;
  12048.  
  12049.   procedure DoCreate;
  12050.   begin
  12051.     FIntf := IUnknown(OleObject) as ITabbedNotebookX;
  12052.   end;
  12053.  
  12054. begin
  12055.   if FIntf = nil then DoCreate;
  12056. end;
  12057.  
  12058. function TTabbedNotebookX.GetControlInterface: ITabbedNotebookX;
  12059. begin
  12060.   CreateControl;
  12061.   Result := FIntf;
  12062. end;
  12063.  
  12064. function TTabbedNotebookX.Get_Pages: IStrings;
  12065. begin
  12066.   Result := ControlInterface.Get_Pages;
  12067. end;
  12068.  
  12069. procedure TTabbedNotebookX.Set_Pages(const Value: IStrings);
  12070. begin
  12071.   ControlInterface.Set_Pages(Value);
  12072. end;
  12073.  
  12074. function TTabbedNotebookX.GetIndexForPage(const PageName: WideString; out Value: Integer): Integer;
  12075. begin
  12076.   Result := ControlInterface.GetIndexForPage(PageName);
  12077. end;
  12078.  
  12079. procedure TTabbedNotebookX.FlipChildren(AllLevels: WordBool);
  12080. begin
  12081.   ControlInterface.FlipChildren(AllLevels);
  12082. end;
  12083.  
  12084. function TTabbedNotebookX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  12085. begin
  12086.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  12087. end;
  12088.  
  12089. function TTabbedNotebookX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  12090. begin
  12091.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  12092. end;
  12093.  
  12094. function TTabbedNotebookX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  12095. begin
  12096.   Result := ControlInterface.GetControlsAlignment;
  12097. end;
  12098.  
  12099. procedure TTabbedNotebookX.InitiateAction;
  12100. begin
  12101.   ControlInterface.InitiateAction;
  12102. end;
  12103.  
  12104. function TTabbedNotebookX.IsRightToLeft(out Value: WordBool): WordBool;
  12105. begin
  12106.   Result := ControlInterface.IsRightToLeft;
  12107. end;
  12108.  
  12109. function TTabbedNotebookX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  12110. begin
  12111.   Result := ControlInterface.UseRightToLeftAlignment;
  12112. end;
  12113.  
  12114. function TTabbedNotebookX.UseRightToLeftReading(out Value: WordBool): WordBool;
  12115. begin
  12116.   Result := ControlInterface.UseRightToLeftReading;
  12117. end;
  12118.  
  12119. function TTabbedNotebookX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  12120. begin
  12121.   Result := ControlInterface.UseRightToLeftScrollBar;
  12122. end;
  12123.  
  12124. function TTabbedNotebookX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  12125. begin
  12126.   Result := ControlInterface.ClassNameIs(Name);
  12127. end;
  12128.  
  12129. procedure TTabbedNotebookX.AboutBox;
  12130. begin
  12131.   ControlInterface.AboutBox;
  12132. end;
  12133.  
  12134. procedure TTabControlX.InitControlData;
  12135. const
  12136.   CEventDispIDs: array [0..3] of DWORD = (
  12137.     $00000001, $00000002, $0000000A, $0000000F);
  12138.   CTFontIDs: array [0..0] of DWORD = (
  12139.     $FFFFFE00);
  12140.   CControlData: TControlData = (
  12141.     ClassID: '{695CDBD8-02E5-11D2-B20D-00C04FA368D4}';
  12142.     EventIID: '{695CDBD6-02E5-11D2-B20D-00C04FA368D4}';
  12143.     EventCount: 4;
  12144.     EventDispIDs: @CEventDispIDs;
  12145.     LicenseKey: nil;
  12146.     Flags: $0000000C;
  12147.     Version: 300;
  12148.     FontCount: 1;
  12149.     FontIDs: @CTFontIDs);
  12150. begin
  12151.   ControlData := @CControlData;
  12152. end;
  12153.  
  12154. procedure TTabControlX.CreateControl;
  12155.  
  12156.   procedure DoCreate;
  12157.   begin
  12158.     FIntf := IUnknown(OleObject) as ITabControlX;
  12159.   end;
  12160.  
  12161. begin
  12162.   if FIntf = nil then DoCreate;
  12163. end;
  12164.  
  12165. function TTabControlX.GetControlInterface: ITabControlX;
  12166. begin
  12167.   CreateControl;
  12168.   Result := FIntf;
  12169. end;
  12170.  
  12171. function TTabControlX.Get_Tabs: IStrings;
  12172. begin
  12173.   Result := ControlInterface.Get_Tabs;
  12174. end;
  12175.  
  12176. procedure TTabControlX.Set_Tabs(const Value: IStrings);
  12177. begin
  12178.   ControlInterface.Set_Tabs(Value);
  12179. end;
  12180.  
  12181. procedure TTabControlX.FlipChildren(AllLevels: WordBool);
  12182. begin
  12183.   ControlInterface.FlipChildren(AllLevels);
  12184. end;
  12185.  
  12186. function TTabControlX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  12187. begin
  12188.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  12189. end;
  12190.  
  12191. function TTabControlX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  12192. begin
  12193.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  12194. end;
  12195.  
  12196. function TTabControlX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  12197. begin
  12198.   Result := ControlInterface.GetControlsAlignment;
  12199. end;
  12200.  
  12201. procedure TTabControlX.InitiateAction;
  12202. begin
  12203.   ControlInterface.InitiateAction;
  12204. end;
  12205.  
  12206. function TTabControlX.IsRightToLeft(out Value: WordBool): WordBool;
  12207. begin
  12208.   Result := ControlInterface.IsRightToLeft;
  12209. end;
  12210.  
  12211. function TTabControlX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  12212. begin
  12213.   Result := ControlInterface.UseRightToLeftAlignment;
  12214. end;
  12215.  
  12216. function TTabControlX.UseRightToLeftReading(out Value: WordBool): WordBool;
  12217. begin
  12218.   Result := ControlInterface.UseRightToLeftReading;
  12219. end;
  12220.  
  12221. function TTabControlX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  12222. begin
  12223.   Result := ControlInterface.UseRightToLeftScrollBar;
  12224. end;
  12225.  
  12226. function TTabControlX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  12227. begin
  12228.   Result := ControlInterface.ClassNameIs(Name);
  12229. end;
  12230.  
  12231. procedure TTabControlX.AboutBox;
  12232. begin
  12233.   ControlInterface.AboutBox;
  12234. end;
  12235.  
  12236. procedure TTabSetX.InitControlData;
  12237. const
  12238.   CEventDispIDs: array [0..2] of DWORD = (
  12239.     $00000001, $00000002, $0000000B);
  12240.   CTFontIDs: array [0..0] of DWORD = (
  12241.     $FFFFFE00);
  12242.   CControlData: TControlData = (
  12243.     ClassID: '{695CDBE1-02E5-11D2-B20D-00C04FA368D4}';
  12244.     EventIID: '{695CDBDF-02E5-11D2-B20D-00C04FA368D4}';
  12245.     EventCount: 3;
  12246.     EventDispIDs: @CEventDispIDs;
  12247.     LicenseKey: nil;
  12248.     Flags: $0000000C;
  12249.     Version: 300;
  12250.     FontCount: 1;
  12251.     FontIDs: @CTFontIDs);
  12252. begin
  12253.   ControlData := @CControlData;
  12254. end;
  12255.  
  12256. procedure TTabSetX.CreateControl;
  12257.  
  12258.   procedure DoCreate;
  12259.   begin
  12260.     FIntf := IUnknown(OleObject) as ITabSetX;
  12261.   end;
  12262.  
  12263. begin
  12264.   if FIntf = nil then DoCreate;
  12265. end;
  12266.  
  12267. function TTabSetX.GetControlInterface: ITabSetX;
  12268. begin
  12269.   CreateControl;
  12270.   Result := FIntf;
  12271. end;
  12272.  
  12273. function TTabSetX.Get_Tabs: IStrings;
  12274. begin
  12275.   Result := ControlInterface.Get_Tabs;
  12276. end;
  12277.  
  12278. procedure TTabSetX.Set_Tabs(const Value: IStrings);
  12279. begin
  12280.   ControlInterface.Set_Tabs(Value);
  12281. end;
  12282.  
  12283. procedure TTabSetX.SelectNext(Direction: WordBool);
  12284. begin
  12285.   ControlInterface.SelectNext(Direction);
  12286. end;
  12287.  
  12288. procedure TTabSetX.FlipChildren(AllLevels: WordBool);
  12289. begin
  12290.   ControlInterface.FlipChildren(AllLevels);
  12291. end;
  12292.  
  12293. function TTabSetX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  12294. begin
  12295.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  12296. end;
  12297.  
  12298. function TTabSetX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  12299. begin
  12300.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  12301. end;
  12302.  
  12303. function TTabSetX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  12304. begin
  12305.   Result := ControlInterface.GetControlsAlignment;
  12306. end;
  12307.  
  12308. procedure TTabSetX.InitiateAction;
  12309. begin
  12310.   ControlInterface.InitiateAction;
  12311. end;
  12312.  
  12313. function TTabSetX.IsRightToLeft(out Value: WordBool): WordBool;
  12314. begin
  12315.   Result := ControlInterface.IsRightToLeft;
  12316. end;
  12317.  
  12318. function TTabSetX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  12319. begin
  12320.   Result := ControlInterface.UseRightToLeftAlignment;
  12321. end;
  12322.  
  12323. function TTabSetX.UseRightToLeftReading(out Value: WordBool): WordBool;
  12324. begin
  12325.   Result := ControlInterface.UseRightToLeftReading;
  12326. end;
  12327.  
  12328. function TTabSetX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  12329. begin
  12330.   Result := ControlInterface.UseRightToLeftScrollBar;
  12331. end;
  12332.  
  12333. function TTabSetX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  12334. begin
  12335.   Result := ControlInterface.ClassNameIs(Name);
  12336. end;
  12337.  
  12338. procedure TTabSetX.AboutBox;
  12339. begin
  12340.   ControlInterface.AboutBox;
  12341. end;
  12342.  
  12343. procedure TTrackBarX.InitControlData;
  12344. const
  12345.   CEventDispIDs: array [0..1] of DWORD = (
  12346.     $00000001, $00000007);
  12347.   CControlData: TControlData = (
  12348.     ClassID: '{695CDBE8-02E5-11D2-B20D-00C04FA368D4}';
  12349.     EventIID: '{695CDBE6-02E5-11D2-B20D-00C04FA368D4}';
  12350.     EventCount: 2;
  12351.     EventDispIDs: @CEventDispIDs;
  12352.     LicenseKey: nil;
  12353.     Flags: $00000008;
  12354.     Version: 300);
  12355. begin
  12356.   ControlData := @CControlData;
  12357. end;
  12358.  
  12359. procedure TTrackBarX.CreateControl;
  12360.  
  12361.   procedure DoCreate;
  12362.   begin
  12363.     FIntf := IUnknown(OleObject) as ITrackBarX;
  12364.   end;
  12365.  
  12366. begin
  12367.   if FIntf = nil then DoCreate;
  12368. end;
  12369.  
  12370. function TTrackBarX.GetControlInterface: ITrackBarX;
  12371. begin
  12372.   CreateControl;
  12373.   Result := FIntf;
  12374. end;
  12375.  
  12376. procedure TTrackBarX.SetTick(Value: Integer);
  12377. begin
  12378.   ControlInterface.SetTick(Value);
  12379. end;
  12380.  
  12381. procedure TTrackBarX.FlipChildren(AllLevels: WordBool);
  12382. begin
  12383.   ControlInterface.FlipChildren(AllLevels);
  12384. end;
  12385.  
  12386. function TTrackBarX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  12387. begin
  12388.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  12389. end;
  12390.  
  12391. function TTrackBarX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  12392. begin
  12393.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  12394. end;
  12395.  
  12396. function TTrackBarX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  12397. begin
  12398.   Result := ControlInterface.GetControlsAlignment;
  12399. end;
  12400.  
  12401. procedure TTrackBarX.InitiateAction;
  12402. begin
  12403.   ControlInterface.InitiateAction;
  12404. end;
  12405.  
  12406. function TTrackBarX.IsRightToLeft(out Value: WordBool): WordBool;
  12407. begin
  12408.   Result := ControlInterface.IsRightToLeft;
  12409. end;
  12410.  
  12411. function TTrackBarX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  12412. begin
  12413.   Result := ControlInterface.UseRightToLeftAlignment;
  12414. end;
  12415.  
  12416. function TTrackBarX.UseRightToLeftReading(out Value: WordBool): WordBool;
  12417. begin
  12418.   Result := ControlInterface.UseRightToLeftReading;
  12419. end;
  12420.  
  12421. function TTrackBarX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  12422. begin
  12423.   Result := ControlInterface.UseRightToLeftScrollBar;
  12424. end;
  12425.  
  12426. function TTrackBarX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  12427. begin
  12428.   Result := ControlInterface.ClassNameIs(Name);
  12429. end;
  12430.  
  12431. procedure TTrackBarX.AboutBox;
  12432. begin
  12433.   ControlInterface.AboutBox;
  12434. end;
  12435.  
  12436. procedure TUpDownX.InitControlData;
  12437. const
  12438.   CEventDispIDs: array [0..1] of DWORD = (
  12439.     $00000001, $00000002);
  12440.   CControlData: TControlData = (
  12441.     ClassID: '{695CDBF2-02E5-11D2-B20D-00C04FA368D4}';
  12442.     EventIID: '{695CDBF0-02E5-11D2-B20D-00C04FA368D4}';
  12443.     EventCount: 2;
  12444.     EventDispIDs: @CEventDispIDs;
  12445.     LicenseKey: nil;
  12446.     Flags: $00000008;
  12447.     Version: 300);
  12448. begin
  12449.   ControlData := @CControlData;
  12450. end;
  12451.  
  12452. procedure TUpDownX.CreateControl;
  12453.  
  12454.   procedure DoCreate;
  12455.   begin
  12456.     FIntf := IUnknown(OleObject) as IUpDownX;
  12457.   end;
  12458.  
  12459. begin
  12460.   if FIntf = nil then DoCreate;
  12461. end;
  12462.  
  12463. function TUpDownX.GetControlInterface: IUpDownX;
  12464. begin
  12465.   CreateControl;
  12466.   Result := FIntf;
  12467. end;
  12468.  
  12469. procedure TUpDownX.FlipChildren(AllLevels: WordBool);
  12470. begin
  12471.   ControlInterface.FlipChildren(AllLevels);
  12472. end;
  12473.  
  12474. function TUpDownX.DrawTextBiDiModeFlags(Flags: Integer; out Value: Integer): Integer;
  12475. begin
  12476.   Result := ControlInterface.DrawTextBiDiModeFlags(Flags);
  12477. end;
  12478.  
  12479. function TUpDownX.DrawTextBiDiModeFlagsReadingOnly(out Value: Integer): Integer;
  12480. begin
  12481.   Result := ControlInterface.DrawTextBiDiModeFlagsReadingOnly;
  12482. end;
  12483.  
  12484. function TUpDownX.GetControlsAlignment(out Value: TxAlignment): TxAlignment;
  12485. begin
  12486.   Result := ControlInterface.GetControlsAlignment;
  12487. end;
  12488.  
  12489. procedure TUpDownX.InitiateAction;
  12490. begin
  12491.   ControlInterface.InitiateAction;
  12492. end;
  12493.  
  12494. function TUpDownX.IsRightToLeft(out Value: WordBool): WordBool;
  12495. begin
  12496.   Result := ControlInterface.IsRightToLeft;
  12497. end;
  12498.  
  12499. function TUpDownX.UseRightToLeftAlignment(out Value: WordBool): WordBool;
  12500. begin
  12501.   Result := ControlInterface.UseRightToLeftAlignment;
  12502. end;
  12503.  
  12504. function TUpDownX.UseRightToLeftReading(out Value: WordBool): WordBool;
  12505. begin
  12506.   Result := ControlInterface.UseRightToLeftReading;
  12507. end;
  12508.  
  12509. function TUpDownX.UseRightToLeftScrollBar(out Value: WordBool): WordBool;
  12510. begin
  12511.   Result := ControlInterface.UseRightToLeftScrollBar;
  12512. end;
  12513.  
  12514. function TUpDownX.ClassNameIs(const Name: WideString; out Value: WordBool): WordBool;
  12515. begin
  12516.   Result := ControlInterface.ClassNameIs(Name);
  12517. end;
  12518.  
  12519. procedure TUpDownX.AboutBox;
  12520. begin
  12521.   ControlInterface.AboutBox;
  12522. end;
  12523.  
  12524. procedure Register;
  12525. begin
  12526.   RegisterComponents('ActiveX',[TAnimateX, TButtonX, TCalendarX, TCheckBoxX, 
  12527.     TCheckListBoxX, TColorGridX, TComboBoxX, TControlBarX, TDateTimePickerX, 
  12528.     TDrawGridX, TEditX, TGroupBoxX, THotKeyX, TListBoxX, 
  12529.     TMaskEditX, TMediaPlayerX, TMemoX, TMonthCalendarX, TNotebookX, 
  12530.     TOutlineX, TPageScrollerX, TPanelX, TProgressBarX, TRadioButtonX, 
  12531.     TRadioGroupX, TRichEditX, TScrollBarX, TScrollBoxX, TSpinButtonX, 
  12532.     TSpinEditX, TStaticTextX, TStringGridX, TTabbedNotebookX, TTabControlX, 
  12533.     TTabSetX, TTrackBarX, TUpDownX]);
  12534. end;
  12535.  
  12536. end.
  12537.