📄 rflistproj1_tlb.pas
字号:
unit rfListProj1_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 2006-1-12 15:56:31 from Type Library described below.
// ************************************************************************ //
// Type Lib: F:\project\avcSDK\test\rfListProj1.tlb (1)
// LIBID: {52D62B36-D664-4ACC-9526-16B94A631AE1}
// LCID: 0
// Helpfile:
// HelpString: rfListProj1 Library
// DepndLst:
// (1) v2.0 stdole, (C:\WINNT\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
rfListProj1MajorVersion = 1;
rfListProj1MinorVersion = 0;
LIBID_rfListProj1: TGUID = '{52D62B36-D664-4ACC-9526-16B94A631AE1}';
IID_IrfList: TGUID = '{D1E747FC-F8D0-43CA-B080-E32ADEAB4C32}';
DIID_IrfListEvents: TGUID = '{9F61AEA6-4FFA-48C1-84F8-3EA4858D9474}';
CLASS_rfList: TGUID = '{9DB0A288-39DE-4F09-B537-BBA2767FBC64}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum TxActiveFormBorderStyle
type
TxActiveFormBorderStyle = TOleEnum;
const
afbNone = $00000000;
afbSingle = $00000001;
afbSunken = $00000002;
afbRaised = $00000003;
// Constants for enum TxPrintScale
type
TxPrintScale = TOleEnum;
const
poNone = $00000000;
poProportional = $00000001;
poPrintToFit = $00000002;
// Constants for enum TxMouseButton
type
TxMouseButton = TOleEnum;
const
mbLeft = $00000000;
mbRight = $00000001;
mbMiddle = $00000002;
// Constants for enum TxListType
type
TxListType = TOleEnum;
const
ltUserList = $00000000;
ltMicOrderList = $00000001;
ltMngList = $00000002;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IrfList = interface;
IrfListDisp = dispinterface;
IrfListEvents = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
rfList = IrfList;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PPUserType1 = ^IFontDisp; {*}
// *********************************************************************//
// Interface: IrfList
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {D1E747FC-F8D0-43CA-B080-E32ADEAB4C32}
// *********************************************************************//
IrfList = interface(IDispatch)
['{D1E747FC-F8D0-43CA-B080-E32ADEAB4C32}']
function Get_Visible: WordBool; safecall;
procedure Set_Visible(Value: WordBool); safecall;
function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
function Get_Font: IFontDisp; safecall;
procedure Set_Font(const Value: IFontDisp); safecall;
procedure _Set_Font(var Value: IFontDisp); safecall;
function Get_Active: WordBool; safecall;
function Get_AlignDisabled: WordBool; safecall;
function Get_VisibleDockClientCount: Integer; safecall;
function Get_Enabled: WordBool; safecall;
procedure Set_Enabled(Value: WordBool); safecall;
procedure SetMsg(const Msg: WideString); safecall;
procedure Clear; safecall;
procedure SetSkin(const ASkinFileName: WideString); safecall;
function Get_Count: Integer; safecall;
function Get_ItemIndex: Integer; safecall;
procedure Set_ItemIndex(Value: Integer); safecall;
procedure Init; safecall;
procedure SetListType(AType: TxListType); safecall;
function GetUserInfo(AUserID: LongWord; var ANickName: WideString): WideString; safecall;
property Visible: WordBool read Get_Visible write Set_Visible;
property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle;
property Font: IFontDisp read Get_Font write Set_Font;
property Active: WordBool read Get_Active;
property AlignDisabled: WordBool read Get_AlignDisabled;
property VisibleDockClientCount: Integer read Get_VisibleDockClientCount;
property Enabled: WordBool read Get_Enabled write Set_Enabled;
property Count: Integer read Get_Count;
property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
end;
// *********************************************************************//
// DispIntf: IrfListDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {D1E747FC-F8D0-43CA-B080-E32ADEAB4C32}
// *********************************************************************//
IrfListDisp = dispinterface
['{D1E747FC-F8D0-43CA-B080-E32ADEAB4C32}']
property Visible: WordBool dispid 201;
property AxBorderStyle: TxActiveFormBorderStyle dispid 204;
property Font: IFontDisp dispid -512;
property Active: WordBool readonly dispid 209;
property AlignDisabled: WordBool readonly dispid 215;
property VisibleDockClientCount: Integer readonly dispid 216;
property Enabled: WordBool dispid -514;
procedure SetMsg(const Msg: WideString); dispid 202;
procedure Clear; dispid 203;
procedure SetSkin(const ASkinFileName: WideString); dispid 205;
property Count: Integer readonly dispid 206;
property ItemIndex: Integer dispid 207;
procedure Init; dispid 208;
procedure SetListType(AType: TxListType); dispid 210;
function GetUserInfo(AUserID: LongWord; var ANickName: WideString): WideString; dispid 211;
end;
// *********************************************************************//
// DispIntf: IrfListEvents
// Flags: (4096) Dispatchable
// GUID: {9F61AEA6-4FFA-48C1-84F8-3EA4858D9474}
// *********************************************************************//
IrfListEvents = dispinterface
['{9F61AEA6-4FFA-48C1-84F8-3EA4858D9474}']
procedure OnActivate; dispid 201;
procedure OnClick; dispid 202;
procedure OnCreate; dispid 203;
procedure OnDblClick; dispid 204;
procedure OnDestroy; dispid 205;
procedure OnDeactivate; dispid 206;
procedure OnKeyPress(var Key: Smallint); dispid 207;
procedure OnPaint; dispid 208;
procedure OnListClick(AUserID: Integer; const ANickName: WideString;
const AUserInfoStr: WideString); dispid 209;
procedure OnListDblClick(AUserID: Integer; const ANickName: WideString;
const AUserInfoStr: WideString); dispid 210;
procedure OnMouseDown(AButton: TxMouseButton; AUserID: LongWord; const ANickName: WideString;
const AUserInfoStr: WideString); dispid 211;
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TrfList
// Help String : rfList Control
// Default Interface: IrfList
// Def. Intf. DISP? : No
// Event Interface: IrfListEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TrfListOnKeyPress = procedure(ASender: TObject; var Key: Smallint) of object;
TrfListOnListClick = procedure(ASender: TObject; AUserID: Integer; const ANickName: WideString;
const AUserInfoStr: WideString) of object;
TrfListOnListDblClick = procedure(ASender: TObject; AUserID: Integer;
const ANickName: WideString;
const AUserInfoStr: WideString) of object;
TrfListOnMouseDown = procedure(ASender: TObject; AButton: TxMouseButton; AUserID: LongWord;
const ANickName: WideString;
const AUserInfoStr: WideString) of object;
TrfList = class(TOleControl)
private
FOnActivate: TNotifyEvent;
FOnClick: TNotifyEvent;
FOnCreate: TNotifyEvent;
FOnDblClick: TNotifyEvent;
FOnDestroy: TNotifyEvent;
FOnDeactivate: TNotifyEvent;
FOnKeyPress: TrfListOnKeyPress;
FOnPaint: TNotifyEvent;
FOnListClick: TrfListOnListClick;
FOnListDblClick: TrfListOnListDblClick;
FOnMouseDown: TrfListOnMouseDown;
FIntf: IrfList;
function GetControlInterface: IrfList;
protected
procedure CreateControl;
procedure InitControlData; override;
public
procedure SetMsg(const Msg: WideString);
procedure Clear;
procedure SetSkin(const ASkinFileName: WideString);
procedure Init;
procedure SetListType(AType: TxListType);
function GetUserInfo(AUserID: LongWord; var ANickName: WideString): WideString;
property ControlInterface: IrfList read GetControlInterface;
property DefaultInterface: IrfList read GetControlInterface;
property Visible: WordBool index 201 read GetWordBoolProp write SetWordBoolProp;
property Active: WordBool index 209 read GetWordBoolProp;
property AlignDisabled: WordBool index 215 read GetWordBoolProp;
property VisibleDockClientCount: Integer index 216 read GetIntegerProp;
property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp;
property Count: Integer index 206 read GetIntegerProp;
published
property Anchors;
property ParentFont;
property Align;
property DragCursor;
property DragMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property AxBorderStyle: TOleEnum index 204 read GetTOleEnumProp write SetTOleEnumProp stored False;
property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
property ItemIndex: Integer index 207 read GetIntegerProp write SetIntegerProp stored False;
property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;
property OnKeyPress: TrfListOnKeyPress read FOnKeyPress write FOnKeyPress;
property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
property OnListClick: TrfListOnListClick read FOnListClick write FOnListClick;
property OnListDblClick: TrfListOnListDblClick read FOnListDblClick write FOnListDblClick;
property OnMouseDown: TrfListOnMouseDown read FOnMouseDown write FOnMouseDown;
end;
procedure Register;
resourcestring
dtlServerPage = 'Servers';
dtlOcxPage = 'ActiveX';
implementation
uses ComObj;
procedure TrfList.InitControlData;
const
CEventDispIDs: array [0..10] of DWORD = (
$000000C9, $000000CA, $000000CB, $000000CC, $000000CD, $000000CE,
$000000CF, $000000D0, $000000D1, $000000D2, $000000D3);
CTFontIDs: array [0..0] of DWORD = (
$FFFFFE00);
CControlData: TControlData2 = (
ClassID: '{9DB0A288-39DE-4F09-B537-BBA2767FBC64}';
EventIID: '{9F61AEA6-4FFA-48C1-84F8-3EA4858D9474}';
EventCount: 11;
EventDispIDs: @CEventDispIDs;
LicenseKey: nil (*HR:$00000000*);
Flags: $0000000C;
Version: 401;
FontCount: 1;
FontIDs: @CTFontIDs);
begin
ControlData := @CControlData;
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivate) - Cardinal(Self);
end;
procedure TrfList.CreateControl;
procedure DoCreate;
begin
FIntf := IUnknown(OleObject) as IrfList;
end;
begin
if FIntf = nil then DoCreate;
end;
function TrfList.GetControlInterface: IrfList;
begin
CreateControl;
Result := FIntf;
end;
procedure TrfList.SetMsg(const Msg: WideString);
begin
DefaultInterface.SetMsg(Msg);
end;
procedure TrfList.Clear;
begin
DefaultInterface.Clear;
end;
procedure TrfList.SetSkin(const ASkinFileName: WideString);
begin
DefaultInterface.SetSkin(ASkinFileName);
end;
procedure TrfList.Init;
begin
DefaultInterface.Init;
end;
procedure TrfList.SetListType(AType: TxListType);
begin
DefaultInterface.SetListType(AType);
end;
function TrfList.GetUserInfo(AUserID: LongWord; var ANickName: WideString): WideString;
begin
Result := DefaultInterface.GetUserInfo(AUserID, ANickName);
end;
procedure Register;
begin
RegisterComponents(dtlOcxPage, [TrfList]);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -