📄 toolctrlseh.hpp
字号:
private:
int FBorderWidth;
Imglist::TCustomImageList* FImageList;
#pragma pack(push,1)
Types::TPoint FMousePos;
#pragma pack(pop)
int FRowCount;
AnsiString FSearchText;
int FSearchTickCount;
TSizeGripEh* FSizeGrip;
bool FSizeGripResized;
TListGetImageIndexEventEh FOnGetImageIndex;
Classes::TStrings* FExtItems;
HIDESBASE bool __fastcall CheckNewSize(int &NewWidth, int &NewHeight);
int __fastcall GetBorderSize(void);
Classes::TStrings* __fastcall GetExtItems(void);
HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
MESSAGE void __fastcall CMSetSizeGripChangePosition(Messages::TMessage &Message);
HIDESBASE MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
void __fastcall SetExtItems(Classes::TStrings* Value);
void __fastcall SetImageList(const Imglist::TCustomImageList* Value);
void __fastcall SetRowCount(int Value);
HIDESBASE MESSAGE void __fastcall WMNCCalcSize(Messages::TWMNCCalcSize &Message);
HIDESBASE MESSAGE void __fastcall WMNCPaint(Messages::TWMNCPaint &Message);
HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
HIDESBASE MESSAGE void __fastcall WMWindowPosChanging(Messages::TWMWindowPosMsg &Message);
protected:
DYNAMIC bool __fastcall DoMouseWheelDown(Classes::TShiftState Shift, const Types::TPoint &MousePos);
DYNAMIC bool __fastcall DoMouseWheelUp(Classes::TShiftState Shift, const Types::TPoint &MousePos);
virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
virtual void __fastcall CreateWnd(void);
virtual void __fastcall DrawBorder(void);
virtual void __fastcall DrawItem(int Index, const Types::TRect &ARect, Windows::TOwnerDrawState State);
DYNAMIC void __fastcall KeyPress(char &Key);
DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
void __fastcall UpdateBorderWidth(void);
virtual void __fastcall SelfOnGetData(Controls::TWinControl* Control, int Index, AnsiString &Data);
public:
__fastcall virtual TPopupListboxEh(Classes::TComponent* Owner);
virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
DYNAMIC bool __fastcall CanFocus(void);
int __fastcall GetTextHeight(void);
__property Color = {default=-16777211};
__property Ctl3D ;
__property Font ;
__property Imglist::TCustomImageList* ImageList = {read=FImageList, write=SetImageList};
__property IntegralHeight = {default=0};
__property ItemHeight ;
__property int RowCount = {read=FRowCount, write=SetRowCount, nodefault};
__property Classes::TStrings* ExtItems = {read=GetExtItems, write=SetExtItems};
__property TSizeGripEh* SizeGrip = {read=FSizeGrip};
__property bool SizeGripResized = {read=FSizeGripResized, write=FSizeGripResized, nodefault};
__property OnMouseUp ;
__property TListGetImageIndexEventEh OnGetImageIndex = {read=FOnGetImageIndex, write=FOnGetImageIndex};
public:
#pragma option push -w-inl
/* TCustomListBox.Destroy */ inline __fastcall virtual ~TPopupListboxEh(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TPopupListboxEh(HWND ParentWindow) : Stdctrls::TCustomListBox(ParentWindow) { }
#pragma option pop
};
typedef void __fastcall (__closure *TFilterMRUItemEventEh)(System::TObject* Sender, bool &Accept);
typedef void __fastcall (__closure *TSetDropDownEventEh)(System::TObject* Sender);
typedef void __fastcall (__closure *TSetCloseUpEventEh)(System::TObject* Sender, bool Accept);
class DELPHICLASS TMRUListEh;
class PASCALIMPLEMENTATION TMRUListEh : public Classes::TPersistent
{
typedef Classes::TPersistent inherited;
private:
bool FActive;
bool FAutoAdd;
bool FCaseSensitive;
Classes::TStrings* FItems;
int FLimit;
Classes::TNotifyEvent FOnActiveChanged;
TFilterMRUItemEventEh FOnFilterItem;
TSetCloseUpEventEh FOnSetCloseUpEvent;
TSetDropDownEventEh FOnSetDropDown;
Classes::TPersistent* FOwner;
int FRows;
int FWidth;
bool FCancelIfKeyInQueue;
void __fastcall SetActive(const bool Value);
void __fastcall SetItems(const Classes::TStrings* Value);
void __fastcall SetLimit(const int Value);
void __fastcall SetRows(const int Value);
protected:
bool FDroppedDown;
void __fastcall UpdateLimit(void);
public:
__fastcall TMRUListEh(Classes::TPersistent* AOwner);
__fastcall virtual ~TMRUListEh(void);
void __fastcall Add(AnsiString s);
virtual void __fastcall Assign(Classes::TPersistent* Source);
virtual void __fastcall CloseUp(bool Accept);
virtual void __fastcall DropDown(void);
bool __fastcall FilterItemsTo(Classes::TStrings* FilteredItems, AnsiString MaskText);
__property bool DroppedDown = {read=FDroppedDown, write=FDroppedDown, nodefault};
__property int Width = {read=FWidth, write=FWidth, nodefault};
__property Classes::TNotifyEvent OnActiveChanged = {read=FOnActiveChanged, write=FOnActiveChanged};
__property TSetCloseUpEventEh OnSetCloseUp = {read=FOnSetCloseUpEvent, write=FOnSetCloseUpEvent};
__property TSetDropDownEventEh OnSetDropDown = {read=FOnSetDropDown, write=FOnSetDropDown};
__property TFilterMRUItemEventEh OnFilterItem = {read=FOnFilterItem, write=FOnFilterItem};
__property bool CancelIfKeyInQueue = {read=FCancelIfKeyInQueue, write=FCancelIfKeyInQueue, default=1};
__published:
__property bool AutoAdd = {read=FAutoAdd, write=FAutoAdd, default=1};
__property bool Active = {read=FActive, write=SetActive, default=0};
__property bool CaseSensitive = {read=FCaseSensitive, write=FCaseSensitive, default=0};
__property Classes::TStrings* Items = {read=FItems, write=SetItems};
__property int Limit = {read=FLimit, write=SetLimit, default=100};
__property int Rows = {read=FRows, write=SetRows, default=7};
};
class DELPHICLASS TMRUListboxEh;
class PASCALIMPLEMENTATION TMRUListboxEh : public TPopupListboxEh
{
typedef TPopupListboxEh inherited;
private:
Stdctrls::TScrollBar* FScrollBar;
bool FScrollBarLockMove;
HIDESBASE MESSAGE void __fastcall CMChanged(Controls::TCMChanged &Message);
HIDESBASE MESSAGE void __fastcall CMMouseWheel(Controls::TCMMouseWheel &Message);
HIDESBASE MESSAGE void __fastcall CMSetSizeGripChangePosition(Messages::TMessage &Message);
HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
protected:
virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
void __fastcall ScrollBarScrolled(System::TObject* Sender, Stdctrls::TScrollCode ScrollCode, int &ScrollPos);
void __fastcall ScrollBarWindowProc(Messages::TMessage &Message);
public:
__fastcall virtual TMRUListboxEh(Classes::TComponent* Owner);
void __fastcall UpdateScrollBar(void);
void __fastcall UpdateScrollBarPos(void);
__property ParentCtl3D = {default=1};
__property Stdctrls::TScrollBar* ScrollBar = {read=FScrollBar};
__property Sorted = {default=0};
__property OnMouseUp ;
public:
#pragma option push -w-inl
/* TCustomListBox.Destroy */ inline __fastcall virtual ~TMRUListboxEh(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TMRUListboxEh(HWND ParentWindow) : TPopupListboxEh(ParentWindow) { }
#pragma option pop
};
class DELPHICLASS TStringListEh;
class PASCALIMPLEMENTATION TStringListEh : public Classes::TStringList
{
typedef Classes::TStringList inherited;
public:
#pragma option push -w-inl
/* TStringList.Destroy */ inline __fastcall virtual ~TStringListEh(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TStringListEh(void) : Classes::TStringList() { }
#pragma option pop
};
typedef void __fastcall (__closure *TDataEventEh)(Db::TDataEvent Event, int Info);
class DELPHICLASS TDataLinkEh;
class PASCALIMPLEMENTATION TDataLinkEh : public Db::TDataLink
{
typedef Db::TDataLink inherited;
private:
TDataEventEh FOnDataEvent;
protected:
virtual void __fastcall DataEvent(Db::TDataEvent Event, int Info);
public:
__property TDataEventEh OnDataEvent = {read=FOnDataEvent, write=FOnDataEvent};
public:
#pragma option push -w-inl
/* TDataLink.Create */ inline __fastcall TDataLinkEh(void) : Db::TDataLink() { }
#pragma option pop
#pragma option push -w-inl
/* TDataLink.Destroy */ inline __fastcall virtual ~TDataLinkEh(void) { }
#pragma option pop
};
class DELPHICLASS TDatasetFieldValueListEh;
class PASCALIMPLEMENTATION TDatasetFieldValueListEh : public System::TInterfacedObject
{
typedef System::TInterfacedObject inherited;
private:
Classes::TStringList* FValues;
bool FDataObsoleted;
AnsiString FFieldName;
TDataLinkEh* FDataLink;
Db::TDataSource* FDataSource;
Classes::TStrings* __fastcall GetValues(void);
void __fastcall SetFieldName(const AnsiString Value);
void __fastcall SetDataSet(const Db::TDataSet* Value);
Db::TDataSet* __fastcall GetDataSet(void);
protected:
void __fastcall RefreshValues(void);
virtual void __fastcall DataSetEvent(Db::TDataEvent Event, int Info);
public:
__fastcall TDatasetFieldValueListEh(void);
__fastcall virtual ~TDatasetFieldValueListEh(void);
__property AnsiString FieldName = {read=FFieldName, write=SetFieldName};
__property Db::TDataSet* DataSet = {read=GetDataSet, write=SetDataSet};
__property Classes::TStrings* Values = {read=GetValues};
private:
void *__IMemTableDataFieldValueListEh; /* Toolctrlseh::IMemTableDataFieldValueListEh */
public:
operator IMemTableDataFieldValueListEh*(void) { return (IMemTableDataFieldValueListEh*)&__IMemTableDataFieldValueListEh; }
};
typedef bool __fastcall (__closure *TLocateTextEventEh)(System::TObject* Sender, const AnsiString FieldName, const AnsiString Text, TLocateTextOptionsEh Options, TLocateTextDirectionEh Direction, TLocateTextMatchingEh Matching, TLocateTextTreeFindRangeEh TreeFindRange);
#pragma option push -b-
enum TDrawButtonControlStyleEh { bcsDropDownEh, bcsEllipsisEh, bcsUpDownEh, bcsCheckboxEh, bcsPlusEh, bcsMinusEh };
#pragma option pop
#pragma option push -b-
enum TTreeElementEh { tehMinusUpDown, tehMinusUp, tehMinusDown, tehPlusUpDown, tehPlusUp, tehPlusDown, tehCrossUpDown, tehCrossUp, tehCrossDown, tehVLine };
#pragma option pop
typedef Set<Db::TFieldType, ftUnknown, ftOraInterval> TFieldTypes;
//-- var, const, procedure ---------------------------------------------------
static const Word CM_IGNOREEDITDOWN = 0x466;
static const Word cm_SetSizeGripChangePosition = 0x464;
static const Word CM_CLOSEUPEH = 0x465;
extern PACKAGE int FlatButtonWidth;
extern PACKAGE TFieldTypes ftNumberFieldTypes;
extern PACKAGE bool UseButtonsBitmapCache;
extern PACKAGE int DefaultCheckBoxWidth;
extern PACKAGE int DefaultCheckBoxHeight;
extern PACKAGE bool __fastcall IsDoubleClickMessage(const Types::TPoint &OldPos, const Types::TPoint &NewPos, int Interval);
extern PACKAGE Types::TRect __fastcall AdjustCheckBoxRect(const Types::TRect &ClientRect, Classes::TAlignment Alignment, Stdctrls::TTextLayout Layout);
extern PACKAGE void __fastcall ClearButtonsBitmapCache(void);
extern PACKAGE void __fastcall PaintButtonControlEh(HDC DC, const Types::TRect &ARect, Graphics::TColor ParentColor, TDrawButtonControlStyleEh Style, int DownButton, bool Flat, bool Active, bool Enabled, Stdctrls::TCheckBoxState State);
extern PACKAGE int __fastcall GetDefaultFlatButtonWidth(void);
extern PACKAGE int __fastcall DefaultEditButtonHeight(int EditButtonWidth, bool Flat);
extern PACKAGE bool __fastcall VarEquals(const Variant &V1, const Variant &V2);
extern PACKAGE Variants::TVariantRelationship __fastcall DBVarCompareValue(const Variant &A, const Variant &B);
extern PACKAGE void __fastcall DrawImage(HDC DC, const Types::TRect &ARect, Imglist::TCustomImageList* Images, int ImageIndex, bool Selected);
extern PACKAGE Types::TPoint __fastcall AlignDropDownWindowRect(const Types::TRect &MasterAbsRect, Controls::TWinControl* DropDownWin, Dbctrls::TDropDownAlign Align);
extern PACKAGE Types::TPoint __fastcall AlignDropDownWindow(Controls::TWinControl* MasterWin, Controls::TWinControl* DropDownWin, Dbctrls::TDropDownAlign Align);
extern PACKAGE void __fastcall DrawTreeElement(Graphics::TCanvas* Canvas, const Types::TRect &ARect, TTreeElementEh TreeElement, bool BackDot, double ScaleX, double ScaleY, bool RightToLeft);
extern PACKAGE void __fastcall GetFieldsProperty(Classes::TList* List, Db::TDataSet* DataSet, Classes::TComponent* Control, const AnsiString FieldNames)/* overload */;
extern PACKAGE TFieldsArrEh __fastcall GetFieldsProperty(Db::TDataSet* DataSet, Classes::TComponent* Control, const AnsiString FieldNames)/* overload */;
extern PACKAGE void __fastcall DataSetSetFieldValues(Db::TDataSet* DataSet, AnsiString Fields, const Variant &Value);
extern PACKAGE bool __fastcall KillMouseUp(Controls::TControl* Control, const Types::TRect &Area)/* overload */;
extern PACKAGE bool __fastcall KillMouseUp(Controls::TControl* Control)/* overload */;
} /* namespace Toolctrlseh */
using namespace Toolctrlseh;
#pragma pack(pop)
#pragma option pop
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // Toolctrlseh
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -