【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“ActiveX_TLB.pas”一文，供大家参考学习
unit ActiveX_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : 1.2
// File generated on 2003-2-13 14:40:39 from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Samples\Delphi7\COM\ActiveX\MyActiveX.tlb (1)
// LIBID: {DB92ED51-8FDE-435C-9769-5FFC55EC4D8D}
// LCID: 0
// Helpfile:
// HelpString: ActiveX Library
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
ActiveXMajorVersion = 1;
ActiveXMinorVersion = 0;
LIBID_ActiveX: TGUID = '{DB92ED51-8FDE-435C-9769-5FFC55EC4D8D}';
IID_IEditX: TGUID = '{334DB4A6-B2C9-4B40-92A6-08A630AF1899}';
DIID_IEditXEvents: TGUID = '{E1701201-C6C7-44AF-8A28-5960822BE757}';
CLASS_EditX: TGUID = '{0639BCE8-7154-4CB7-A25E-59E5A4C20C99}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum TxBevelCut
type
TxBevelCut = TOleEnum;
const
bvNone = $00000000;
bvLowered = $00000001;
bvRaised = $00000002;
bvSpace = $00000003;
// Constants for enum TxBevelKind
type
TxBevelKind = TOleEnum;
const
bkNone = $00000000;
bkTile = $00000001;
bkSoft = $00000002;
bkFlat = $00000003;
// Constants for enum TxBorderStyle
type
TxBorderStyle = TOleEnum;
const
bsNone = $00000000;
bsSingle = $00000001;
// Constants for enum TxEditCharCase
type
TxEditCharCase = TOleEnum;
const
ecNormal = $00000000;
ecUpperCase = $00000001;
ecLowerCase = $00000002;
// Constants for enum TxDragMode
type
TxDragMode = TOleEnum;
const
dmManual = $00000000;
dmAutomatic = $00000001;
// Constants for enum TxImeMode
type
TxImeMode = TOleEnum;
const
imDisable = $00000000;
imClose = $00000001;
imOpen = $00000002;
imDontCare = $00000003;
imSAlpha = $00000004;
imAlpha = $00000005;
imHira = $00000006;
imSKata = $00000007;
imKata = $00000008;
imChinese = $00000009;
imSHanguel = $0000000A;
imHanguel = $0000000B;
// Constants for enum TxMouseButton
type
TxMouseButton = TOleEnum;
const
mbLeft = $00000000;
mbRight = $00000001;
mbMiddle = $00000002;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IEditX = interface;
IEditXDisp = dispinterface;
IEditXEvents = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
EditX = IEditX;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PPUserType1 = ^IFontDisp; {*}
// *********************************************************************//
// Interface: IEditX
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {334DB4A6-B2C9-4B40-92A6-08A630AF1899}
// *********************************************************************//
IEditX = interface(IDispatch)
['{334DB4A6-B2C9-4B40-92A6-08A630AF1899}']
function Get_AutoSelect: WordBool; safecall;
procedure Set_AutoSelect(Value: WordBool); safecall;
function Get_AutoSize: WordBool; safecall;
procedure Set_AutoSize(Value: WordBool); safecall;
function Get_BevelInner: TxBevelCut; safecall;
procedure Set_BevelInner(Value: TxBevelCut); safecall;
function Get_BevelKind: TxBevelKind; safecall;
procedure Set_BevelKind(Value: TxBevelKind); safecall;
function Get_BevelOuter: TxBevelCut; safecall;
procedure Set_BevelOuter(Value: TxBevelCut); safecall;
function Get_BorderStyle: TxBorderStyle; safecall;
procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
function Get_CharCase: TxEditCharCase; safecall;
procedure Set_CharCase(Value: TxEditCharCase); safecall;
function Get_Color: OLE_COLOR; safecall;
procedure Set_Color(Value: OLE_COLOR); safecall;
function Get_Ctl3D: WordBool; safecall;
procedure Set_Ctl3D(Value: WordBool); safecall;
function Get_DragCursor: Smallint; safecall;
procedure Set_DragCursor(Value: Smallint); safecall;
function Get_DragMode: TxDragMode; safecall;
procedure Set_DragMode(Value: TxDragMode); safecall;
function Get_Enabled: WordBool; safecall;
procedure Set_Enabled(Value: WordBool); safecall;
function Get_Font: IFontDisp; safecall;
procedure Set_Font(const Value: IFontDisp); safecall;
procedure _Set_Font(var Value: IFontDisp); safecall;
function Get_HideSelection: WordBool; safecall;
procedure Set_HideSelection(Value: WordBool); safecall;
function Get_ImeMode: TxImeMode; safecall;
procedure Set_ImeMode(Value: TxImeMode); safecall;
function Get_ImeName: WideString; safecall;
procedure Set_ImeName(const Value: WideString); safecall;
function Get_MaxLength: Integer; safecall;
procedure Set_MaxLength(Value: Integer); safecall;
function Get_OEMConvert: WordBool; safecall;
procedure Set_OEMConvert(Value: WordBool); safecall;
function Get_ParentColor: WordBool; safecall;
procedure Set_ParentCol
上一篇：
ActiveFormProj1_TLB.pas
下一篇：
那些令你为之触动的好句子，感慨万分
2013-9-1
