fcoutlooklist.hpp

一套及时通讯的原码

#pragma option push -b-
enum TfcOutlookHotTrackStyle { hsIconHilite, hsItemHilite };
#pragma option pop

#pragma option push -b-
enum TfcCustomOutlookListClickStyle { csClick, csSelect };
#pragma option pop

class PASCALIMPLEMENTATION TfcCustomOutlookList : public TfcOutlookPanel 
{
	typedef TfcOutlookPanel inherited;
	
private:
	Forms::TFormBorderStyle FBorderStyle;
	TfcCustomOutlookListClickStyle FClickStyle;
	TfcOutlookHotTrackStyle FHotTrackStyle;
	Graphics::TColor FHotTrackTextColor;
	Graphics::TColor FItemDisabledTextColor;
	Imglist::TCustomImageList* FImageList;
	Buttons::TButtonLayout FItemLayout;
	Graphics::TColor FItemHighlightColor;
	Graphics::TColor FItemHotTrackColor;
	Graphics::TColor FItemShadowColor;
	TfcOutlookListItems* FItems;
	int FItemSpacing;
	int FItemsWidth;
	Fccommon::TfcLayout FLayout;
	Graphics::TBitmap* FPaintBitmap;
	int FScrollInterval;
	TfcCustomOutlookListItemEvent FOnItemClick;
	TfcCustomOutlookListItemEvent FOnItemChange;
	TfcOutlookListDrawItemEvent FOnDrawItem;
	TfcOutlookListItem* FTopItem;
	Windows::TRect FUpButtonRect;
	Windows::TRect FDownButtonRect;
	TfcScrollButtonStyle FScrollButtonDown;
	bool FScrollButtonsVisible;
	TfcScrollButtonStyle FMouseInScrollButton;
	Imglist::TChangeLink* FChangeLink;
	HWND FOldCapture;
	Classes::TPersistent* FOutlookPage;
	Graphics::TColor FItemSelectedDitherColor;
	Controls::THintWindow* HintWindow;
	int HintTimerCount;
	Extctrls::TTimer* HintTimer;
	void __fastcall HintTimerEvent(System::TObject* Sender);
	void __fastcall FreeHintWindow(void);
	TfcOutlookListItem* __fastcall GetListItems(int Index);
	TfcOutlookListItem* __fastcall GetBottomItem(void);
	Graphics::TCanvas* __fastcall GetPaintCanvas(void);
	TfcOutlookListItem* __fastcall GetSelected(void);
	TfcOutlookListItem* __fastcall GetTopItem(void);
	void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
	void __fastcall SetClickStyle(TfcCustomOutlookListClickStyle Value);
	void __fastcall SetImageList(Imglist::TCustomImageList* Value);
	void __fastcall SetItemHighlightColor(Graphics::TColor Value);
	void __fastcall SetItemDisabledTextColor(Graphics::TColor Value);
	void __fastcall SetItemLayout(Buttons::TButtonLayout Value);
	void __fastcall SetItemShadowColor(Graphics::TColor Value);
	void __fastcall SetItems(TfcOutlookListItems* Value);
	void __fastcall SetItemSpacing(int Value);
	void __fastcall SetItemsWidth(int Value);
	void __fastcall SetLayout(Fccommon::TfcLayout Value);
	void __fastcall SetMouseInScrollButton(TfcScrollButtonStyle Value);
	void __fastcall SetScrollButtonsVisible(bool Value);
	void __fastcall SetTopItem(TfcOutlookListItem* Value);
	Fcimager::TfcCustomImager* __fastcall GetImager(void);
	bool __fastcall IsEffectiveItemHilite(void);
	HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
	HIDESBASE MESSAGE void __fastcall CNChar(Messages::TWMKey &Message);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall Loaded(void);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
		int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
		Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
		);
	virtual void __fastcall Paint(void);
	virtual void __fastcall UpdateButtonRects(void);
	DYNAMIC void __fastcall ValidateInsert(Classes::TComponent* AComponent);
	virtual bool __fastcall ScrollButtonVisible(TfcScrollButtonStyle Button);
	virtual void __fastcall DoDrawItem(TfcOutlookListItem* Item, Windows::TPoint &GlyphPos, Windows::TPoint 
		&TextPos, bool &DefaultDrawing);
	virtual void __fastcall ImageListChange(System::TObject* Sender);
	virtual void __fastcall InvalidateScrollButton(TfcScrollButtonStyle Button);
	virtual void __fastcall ItemClick(TfcOutlookListItem* Item);
	virtual void __fastcall ScrollButtonClick(void);
	virtual void __fastcall UpdateMouseOnItem(void);
	virtual void __fastcall UpdateScrollButtonsRect(void);
	__property TfcScrollButtonStyle MouseInScrollButton = {read=FMouseInScrollButton, write=SetMouseInScrollButton
		, nodefault};
	
public:
	Variant Patch;
	__fastcall virtual TfcCustomOutlookList(Classes::TComponent* AOwner);
	__fastcall virtual ~TfcCustomOutlookList(void);
	TfcOutlookListItem* __fastcall GetPriorVisibleItem(TfcOutlookListItem* item);
	TfcOutlookListItem* __fastcall GetNextVisibleItem(TfcOutlookListItem* item);
	virtual TfcOutlookListItem* __fastcall GetItemAt(int x, int y);
	virtual void __fastcall PaintScrollButton(TfcScrollButtonStyle Button);
	virtual TfcOutlookListItem* __fastcall GetFirstVisibleItem(void);
	__property TfcOutlookListItem* ListItems[int Index] = {read=GetListItems};
	__property TfcOutlookListItem* BottomItem = {read=GetBottomItem};
	__property TfcOutlookListItem* Selected = {read=GetSelected};
	__property TfcOutlookListItem* TopItem = {read=GetTopItem, write=SetTopItem};
	__property Graphics::TCanvas* PaintCanvas = {read=GetPaintCanvas};
	__property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, nodefault};
	__property TfcCustomOutlookListClickStyle ClickStyle = {read=FClickStyle, write=SetClickStyle, nodefault
		};
	__property TfcOutlookHotTrackStyle HotTrackStyle = {read=FHotTrackStyle, write=FHotTrackStyle, nodefault
		};
	__property Graphics::TColor HotTrackTextColor = {read=FHotTrackTextColor, write=FHotTrackTextColor, 
		nodefault};
	__property Graphics::TColor ItemDisabledTextColor = {read=FItemDisabledTextColor, write=SetItemDisabledTextColor
		, default=-2147483633};
	__property Imglist::TCustomImageList* Images = {read=FImageList, write=SetImageList};
	__property Graphics::TColor ItemHighlightColor = {read=FItemHighlightColor, write=SetItemHighlightColor
		, nodefault};
	__property Graphics::TColor ItemHotTrackColor = {read=FItemHotTrackColor, write=FItemHotTrackColor, 
		nodefault};
	__property Buttons::TButtonLayout ItemLayout = {read=FItemLayout, write=SetItemLayout, nodefault};
	__property Graphics::TColor ItemShadowColor = {read=FItemShadowColor, write=SetItemShadowColor, nodefault
		};
	__property TfcOutlookListItems* Items = {read=FItems, write=SetItems};
	__property int ItemSpacing = {read=FItemSpacing, write=SetItemSpacing, nodefault};
	__property int ItemsWidth = {read=FItemsWidth, write=SetItemsWidth, nodefault};
	__property Fccommon::TfcLayout Layout = {read=FLayout, write=SetLayout, nodefault};
	__property Classes::TPersistent* OutlookPage = {read=FOutlookPage, write=FOutlookPage};
	__property bool ScrollButtonsVisible = {read=FScrollButtonsVisible, write=SetScrollButtonsVisible, 
		nodefault};
	__property int ScrollInterval = {read=FScrollInterval, write=FScrollInterval, nodefault};
	__property Graphics::TColor ItemSelectedDitherColor = {read=FItemSelectedDitherColor, write=FItemSelectedDitherColor
		, nodefault};
	__property TfcOutlookListDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
	__property TfcCustomOutlookListItemEvent OnItemClick = {read=FOnItemClick, write=FOnItemClick};
	__property TfcCustomOutlookListItemEvent OnItemChange = {read=FOnItemChange, write=FOnItemChange};
public:
		
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfcCustomOutlookList(HWND ParentWindow) : TfcOutlookPanel(
		ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfcOutlookList;
class PASCALIMPLEMENTATION TfcOutlookList : public TfcCustomOutlookList 
{
	typedef TfcCustomOutlookList inherited;
	
__published:
	__property Align ;
	__property BorderStyle ;
	__property ClickStyle ;
	__property Color ;
	__property DragCursor ;
	__property DragMode ;
	__property Font ;
	__property HotTrackStyle ;
	__property Images ;
	__property ItemDisabledTextColor ;
	__property ItemHighlightColor ;
	__property ItemHotTrackColor ;
	__property ItemLayout ;
	__property ItemShadowColor ;
	__property ItemSelectedDitherColor ;
	__property Items ;
	__property ItemSpacing ;
	__property ItemsWidth ;
	__property Layout ;
	__property PopupMenu ;
	__property ScrollButtonsVisible ;
	__property ScrollInterval ;
	__property ShowHint ;
	__property Transparent ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnDrawItem ;
	__property OnEndDrag ;
	__property OnItemClick ;
	__property OnItemChange ;
	__property OnMouseDown ;
	__property OnMouseUp ;
	__property OnMouseMove ;
	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TfcCustomOutlookList.Create */ inline __fastcall virtual TfcOutlookList(Classes::TComponent* AOwner
		) : TfcCustomOutlookList(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TfcCustomOutlookList.Destroy */ inline __fastcall virtual ~TfcOutlookList(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfcOutlookList(HWND ParentWindow) : TfcCustomOutlookList(
		ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Fcoutlooklist */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Fcoutlooklist;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// fcOutlookList