toolctrlseh.hpp

最新的 DBGRIDEH4.0

// CodeGear C++ Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Toolctrlseh.pas' rev: 11.00

#ifndef ToolctrlsehHPP
#define ToolctrlsehHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit
#include <Actnlist.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Ehlibvcl.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Dbctrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Commctrl.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Toolctrlseh
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TLocateTextOptionEh { ltoCaseInsensitiveEh, ltoAllFieldsEh, ltoMatchFormatEh, ltoIgnoteCurrentPosEh, ltoStopOnEscape };
#pragma option pop

typedef Set<TLocateTextOptionEh, ltoCaseInsensitiveEh, ltoStopOnEscape>  TLocateTextOptionsEh;

#pragma option push -b-
enum TLocateTextDirectionEh { ltdUpEh, ltdDownEh, ltdAllEh };
#pragma option pop

#pragma option push -b-
enum TLocateTextMatchingEh { ltmAnyPartEh, ltmWholeEh, ltmFromBegingEh };
#pragma option pop

#pragma option push -b-
enum TLocateTextTreeFindRangeEh { lttInAllNodesEh, lttInExpandedNodesEh, lttInCurrentLevelEh, lttInCurrentNodeEh };
#pragma option pop

__interface IMemTableDataFieldValueListEh;
typedef System::DelphiInterface<IMemTableDataFieldValueListEh> _di_IMemTableDataFieldValueListEh;
__interface  INTERFACE_UUID("{28F8194C-5FF3-42C4-87A6-8B3E06210FA6}") IMemTableDataFieldValueListEh  : public IInterface 
{
	
public:
	virtual Classes::TStrings* __fastcall GetValues(void) = 0 ;
};

__interface IMemTableEh;
typedef System::DelphiInterface<IMemTableEh> _di_IMemTableEh;
__interface  INTERFACE_UUID("{A8C3C87A-E556-4BDB-B8A7-5B33497D1624}") IMemTableEh  : public IInterface 
{
	
public:
	virtual int __fastcall FetchRecords(int Count) = 0 ;
	virtual int __fastcall GetInstantReadCurRowNum(void) = 0 ;
	virtual bool __fastcall GetTreeNodeExpanded(int RowNum) = 0 /* overload */;
	virtual bool __fastcall GetTreeNodeExpanded(void) = 0 /* overload */;
	virtual bool __fastcall GetTreeNodeHasChields(void) = 0 ;
	virtual int __fastcall GetTreeNodeLevel(void) = 0 ;
	virtual int __fastcall GetPrevVisibleTreeNodeLevel(void) = 0 ;
	virtual int __fastcall GetNextVisibleTreeNodeLevel(void) = 0 ;
	virtual System::TObject* __fastcall GetRecObject(void) = 0 ;
	virtual int __fastcall InstantReadIndexOfBookmark(AnsiString Bookmark) = 0 ;
	virtual int __fastcall InstantReadRowCount(void) = 0 ;
	virtual bool __fastcall MemTableIsTreeList(void) = 0 ;
	virtual bool __fastcall ParentHasNextSibling(int ParenLevel) = 0 ;
	virtual bool __fastcall SetToRec(System::TObject* Rec) = 0 ;
	virtual int __fastcall SetTreeNodeExpanded(int RowNum, bool Value) = 0 ;
	virtual _di_IMemTableDataFieldValueListEh __fastcall GetFieldValueList(AnsiString FieldName) = 0 ;
	virtual bool __fastcall MoveRecords(Classes::TStrings* BookmarkList, int ToRecNo, int TreeLevel, bool CheckOnly) = 0 ;
	virtual void __fastcall InstantReadEnter(int RowNum) = 0 ;
	virtual void __fastcall InstantReadLeave(void) = 0 ;
	__property int InstantReadCurRowNum = {read=GetInstantReadCurRowNum};
};

__interface IComboEditEh;
typedef System::DelphiInterface<IComboEditEh> _di_IComboEditEh;
__interface  INTERFACE_UUID("{B64255B5-386A-4524-8BC7-7F49DDB410F4}") IComboEditEh  : public IInterface 
{
	
public:
	virtual void __fastcall CloseUp(bool Accept) = 0 ;
};

typedef DynamicArray<Db::TField* >  TFieldsArrEh;

typedef void __fastcall (__closure *TButtonClickEventEh)(System::TObject* Sender, bool &Handled);

typedef void __fastcall (__closure *TButtonDownEventEh)(System::TObject* Sender, bool TopButton, bool &AutoRepeat, bool &Handled);

typedef void __fastcall (__closure *TCloseUpEventEh)(System::TObject* Sender, bool Accept);

typedef void __fastcall (__closure *TAcceptEventEh)(System::TObject* Sender, bool &Accept);

typedef void __fastcall (__closure *TNotInListEventEh)(System::TObject* Sender, AnsiString NewText, bool &RecheckInList);

typedef void __fastcall (__closure *TUpdateDataEventEh)(System::TObject* Sender, bool &Handled);

class DELPHICLASS TBMListEh;
class PASCALIMPLEMENTATION TBMListEh : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	AnsiString operator[](int Index) { return Items[Index]; }
	
private:
	AnsiString FCache;
	bool FCacheFind;
	int FCacheIndex;
	bool FLinkActive;
	int __fastcall GetCount(void);
	bool __fastcall GetCurrentRowSelected(void);
	AnsiString __fastcall GetItem(int Index);
	
protected:
	Classes::TStringList* FList;
	int __fastcall Compare(const AnsiString Item1, const AnsiString Item2);
	AnsiString __fastcall CurrentRow();
	virtual Db::TDataSet* __fastcall GetDataSet(void) = 0 ;
	virtual void __fastcall Invalidate(void);
	void __fastcall LinkActive(bool Value);
	virtual void __fastcall RaiseBMListError(const AnsiString S);
	virtual void __fastcall SetCurrentRowSelected(bool Value);
	virtual void __fastcall StringsChanged(System::TObject* Sender);
	virtual void __fastcall UpdateState(void);
	
public:
	__fastcall TBMListEh(void);
	__fastcall virtual ~TBMListEh(void);
	bool __fastcall Find(const AnsiString Item, int &Index);
	int __fastcall IndexOf(const AnsiString Item);
	bool __fastcall Refresh(void);
	virtual void __fastcall Clear(void);
	void __fastcall Delete(void);
	void __fastcall SelectAll(void);
	__property int Count = {read=GetCount, nodefault};
	__property bool CurrentRowSelected = {read=GetCurrentRowSelected, write=SetCurrentRowSelected, nodefault};
	__property Db::TDataSet* DataSet = {read=GetDataSet};
	__property AnsiString Items[int Index] = {read=GetItem/*, default*/};
};


#pragma option push -b-
enum TEditButtonStyleEh { ebsDropDownEh, ebsEllipsisEh, ebsGlyphEh, ebsUpDownEh, ebsPlusEh, ebsMinusEh };
#pragma option pop

class DELPHICLASS TEditButtonControlEh;
class PASCALIMPLEMENTATION TEditButtonControlEh : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
private:
	bool FActive;
	bool FAlwaysDown;
	int FButtonNum;
	bool FNoDoClick;
	TButtonDownEventEh FOnDown;
	TEditButtonStyleEh FStyle;
	Extctrls::TTimer* FTimer;
	Extctrls::TTimer* __fastcall GetTimer(void);
	void __fastcall ResetTimer(unsigned Interval);
	void __fastcall SetActive(const bool Value);
	void __fastcall SetAlwaysDown(const bool Value);
	void __fastcall SetStyle(const TEditButtonStyleEh Value);
	void __fastcall TimerEvent(System::TObject* Sender);
	void __fastcall UpdateDownButtonNum(int X, int Y);
	
protected:
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Paint(void);
	__property Extctrls::TTimer* Timer = {read=GetTimer};
	
public:
	DYNAMIC void __fastcall Click(void);
	void __fastcall EditButtonDown(bool TopButton, bool &AutoRepeat);
	void __fastcall SetState(Buttons::TButtonState NewState, bool IsActive, int ButtonNum);
	void __fastcall SetWidthNoNotify(int AWidth);
	__property bool Active = {read=FActive, write=SetActive, nodefault};
	__property bool AlwaysDown = {read=FAlwaysDown, write=SetAlwaysDown, nodefault};
	__property TEditButtonStyleEh Style = {read=FStyle, write=SetStyle, default=0};
	__property TButtonDownEventEh OnDown = {read=FOnDown, write=FOnDown};
public:
	#pragma option push -w-inl
	/* TSpeedButton.Create */ inline __fastcall virtual TEditButtonControlEh(Classes::TComponent* AOwner) : Buttons::TSpeedButton(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSpeedButton.Destroy */ inline __fastcall virtual ~TEditButtonControlEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSpeedButtonEh;
class PASCALIMPLEMENTATION TSpeedButtonEh : public TEditButtonControlEh 
{
	typedef TEditButtonControlEh inherited;
	
__published:
	__property Active ;
	__property Style  = {default=0};
public:
	#pragma option push -w-inl
	/* TSpeedButton.Create */ inline __fastcall virtual TSpeedButtonEh(Classes::TComponent* AOwner) : TEditButtonControlEh(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSpeedButton.Destroy */ inline __fastcall virtual ~TSpeedButtonEh(void) { }
	#pragma option pop
	
};


struct TEditButtonControlLineRec
{
	
public:
	Extctrls::TShape* ButtonLine;
	TEditButtonControlEh* EditButtonControl;
} ;

typedef DynamicArray<TEditButtonControlLineRec >  TEditButtonControlList;

class DELPHICLASS TEditButtonActionLinkEh;
class DELPHICLASS TEditButtonEh;
typedef TMetaClass* TEditButtonActionLinkEhClass;

class PASCALIMPLEMENTATION TEditButtonEh : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	TEditButtonActionLinkEh* FActionLink;
	Menus::TPopupMenu* FDropdownMenu;
	Controls::TWinControl* FEditControl;
	bool FEnabled;
	Graphics::TBitmap* FGlyph;
	AnsiString FHint;
	int FNumGlyphs;
	TButtonClickEventEh FOnButtonClick;
	TButtonDownEventEh FOnButtonDown;
	Classes::TNotifyEvent FOnChanged;
	Classes::TShortCut FShortCut;
	TEditButtonStyleEh FStyle;
	bool FVisible;
	int FWidth;
	Classes::TBasicAction* __fastcall GetAction(void);
	Graphics::TBitmap* __fastcall GetGlyph(void);
	bool __fastcall IsEnabledStored(void);
	bool __fastcall IsHintStored(void);
	bool __fastcall IsShortCutStored(void);
	bool __fastcall IsVisibleStored(void);
	void __fastcall DoActionChange(System::TObject* Sender);
	void __fastcall SetAction(const Classes::TBasicAction* Value);
	void __fastcall SetEnabled(const bool Value);
	void __fastcall SetGlyph(const Graphics::TBitmap* Value);
	void __fastcall SetHint(const AnsiString Value);
	void __fastcall SetNumGlyphs(int Value);
	void __fastcall SetStyle(const TEditButtonStyleEh Value);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetWidth(const int Value);
	
protected:
	virtual TEditButtonControlEh* __fastcall CreateEditButtonControl(void);
	DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
	HIDESBASE void __fastcall Changed(void)/* overload */;
	__property TEditButtonActionLinkEh* ActionLink = {read=FActionLink, write=FActionLink};
	
public:
	__fastcall virtual TEditButtonEh(Classes::TCollection* Collection)/* overload */;
	__fastcall TEditButtonEh(Controls::TWinControl* EditControl)/* overload */;
	__fastcall virtual ~TEditButtonEh(void);