fcoutlooklist.hpp

一套及时通讯的原码

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'fcOutlookList.pas' rev: 5.00

#ifndef fcOutlookListHPP
#define fcOutlookListHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <ImgList.hpp>	// Pascal unit
#include <ActnList.hpp>	// Pascal unit
#include <fcImager.hpp>	// Pascal unit
#include <fcClearPanel.hpp>	// Pascal unit
#include <fcCollection.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <CommCtrl.hpp>	// Pascal unit
#include <fcCommon.hpp>	// Pascal unit
#include <fccustomdraw.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Fcoutlooklist
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TfcScrollButtonStyle { sbNone, sbUp, sbDown };
#pragma option pop

class DELPHICLASS TfcOutlookPanel;
class PASCALIMPLEMENTATION TfcOutlookPanel : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	bool FAnimating;
	bool FTransparent;
	bool FInEraseBkGnd;
	Classes::TPersistent* FOutlookPage;
	void __fastcall SetTransparent(bool Value);
	HIDESBASE MESSAGE void __fastcall CMControlListChange(Controls::TCMControlListChange &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	
protected:
	virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
	virtual void __fastcall Paint(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	
public:
	bool FPreventUpdate;
	__fastcall virtual TfcOutlookPanel(Classes::TComponent* AOwner);
	__fastcall virtual ~TfcOutlookPanel(void);
	__property bool Animating = {read=FAnimating, write=FAnimating, nodefault};
	__property Classes::TPersistent* OutlookPage = {read=FOutlookPage, write=FOutlookPage};
	__property bool Transparent = {read=FTransparent, write=SetTransparent, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfcOutlookPanel(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfcCustomOutlookList;
class DELPHICLASS TfcOutlookListItem;
typedef void __fastcall (__closure *TfcCustomOutlookListItemEvent)(TfcCustomOutlookList* OutlookList, TfcOutlookListItem* Item);

typedef void __fastcall (__closure *TfcOutlookListDrawItemEvent)(TfcCustomOutlookList* OutlookList, TfcOutlookListItem* Item, Types::TPoint &GlyphPos, Types::TPoint &TextPos, bool &DefaultDrawing);

class DELPHICLASS TfcOutlookItemActionLink;
class PASCALIMPLEMENTATION TfcOutlookItemActionLink : public Actnlist::TActionLink 
{
	typedef Actnlist::TActionLink inherited;
	
protected:
	TfcOutlookListItem* FItem;
	virtual void __fastcall AssignClient(System::TObject* AClient);
	virtual bool __fastcall IsCaptionLinked(void);
	virtual bool __fastcall IsEnabledLinked(void);
	virtual bool __fastcall IsHintLinked(void);
	virtual bool __fastcall IsVisibleLinked(void);
	virtual bool __fastcall IsOnExecuteLinked(void);
	virtual void __fastcall SetCaption(const AnsiString Value);
	virtual void __fastcall SetEnabled(bool Value);
	virtual void __fastcall SetHint(const AnsiString Value);
	virtual void __fastcall SetVisible(bool Value);
public:
	#pragma option push -w-inl
	/* TBasicActionLink.Create */ inline __fastcall virtual TfcOutlookItemActionLink(System::TObject* AClient) : Actnlist::TActionLink(AClient) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBasicActionLink.Destroy */ inline __fastcall virtual ~TfcOutlookItemActionLink(void) { }
	#pragma option pop
	
};


typedef TMetaClass*TfcOutlookItemActionLinkClass;

class PASCALIMPLEMENTATION TfcOutlookListItem : public Fccollection::TfcCollectionItem 
{
	typedef Fccollection::TfcCollectionItem inherited;
	
private:
	TfcOutlookItemActionLink* FActionLink;
	#pragma pack(push, 1)
	Types::TRect FButtonRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect FItemRect;
	#pragma pack(pop)
	
	int FImageIndex;
	bool FMouseDownOnItem;
	bool FMouseOnItem;
	bool FSelected;
	int FSeparation;
	AnsiString FText;
	Classes::TAlignment FTextAlignment;
	int FGlyphOffset;
	TfcCustomOutlookListItemEvent FOnClick;
	bool FEnabled;
	bool FVisible;
	AnsiString FHint;
	bool __fastcall GetSelected(void);
	TfcCustomOutlookList* __fastcall GetOutlookList(void);
	void __fastcall SetImageIndex(int Value);
	void __fastcall SetMouseDownOnItem(bool Value);
	void __fastcall SetMouseOnItem(bool Value);
	void __fastcall SetSeparation(int Value);
	void __fastcall SetSelected(bool Value);
	void __fastcall SetText(AnsiString Value);
	void __fastcall SetGlyphOffset(int Value);
	void __fastcall SetTextAlignment(Classes::TAlignment Value);
	Classes::TBasicAction* __fastcall GetAction(void);
	void __fastcall SetAction(Classes::TBasicAction* Value);
	void __fastcall DoActionChange(System::TObject* Sender);
	void __fastcall SetEnabled(bool Value);
	void __fastcall SetVisible(bool Value);
	void __fastcall SetHint(AnsiString Value);
	
protected:
	tagSIZE __fastcall GetItemSize(bool IncludePadding);
	virtual bool __fastcall IsVisible(bool Completely);
	virtual int __fastcall SpacingSize(void);
	virtual void __fastcall Paint(void);
	virtual void __fastcall PaintButton(const Types::TRect &IconRect);
	virtual AnsiString __fastcall GetDisplayName();
	__property Types::TRect ButtonRect = {read=FButtonRect};
	__property TfcOutlookItemActionLink* ActionLink = {read=FActionLink, write=FActionLink};
	DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
	
public:
	__fastcall virtual TfcOutlookListItem(Classes::TCollection* Collection);
	__fastcall virtual ~TfcOutlookListItem(void);
	Types::TRect __fastcall DisplayRect(Comctrls::TDisplayCode Code, int AStartPos);
	virtual bool __fastcall IsDown(void);
	virtual void __fastcall Invalidate(bool Erase);
	__property Types::TRect ItemRect = {read=FItemRect};
	__property bool MouseDownOnItem = {read=FMouseDownOnItem, write=SetMouseDownOnItem, nodefault};
	__property bool MouseOnItem = {read=FMouseOnItem, write=SetMouseOnItem, nodefault};
	__property TfcCustomOutlookList* OutlookList = {read=GetOutlookList};
	
__published:
	__property Classes::TBasicAction* Action = {read=GetAction, write=SetAction};
	__property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
	__property bool Selected = {read=GetSelected, write=SetSelected, nodefault};
	__property int Separation = {read=FSeparation, write=SetSeparation, nodefault};
	__property Tag ;
	__property AnsiString Text = {read=FText, write=SetText};
	__property TfcCustomOutlookListItemEvent OnClick = {read=FOnClick, write=FOnClick};
	__property Classes::TAlignment TextAlignment = {read=FTextAlignment, write=SetTextAlignment, default=2};
	__property int GlyphOffset = {read=FGlyphOffset, write=SetGlyphOffset, default=0};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
	__property AnsiString Hint = {read=FHint, write=SetHint};
};


typedef TMetaClass*TfcOutlookListItemClass;

class DELPHICLASS TfcOutlookListItems;
class PASCALIMPLEMENTATION TfcOutlookListItems : public Fccollection::TfcCollection 
{
	typedef Fccollection::TfcCollection inherited;
	
private:
	TfcCustomOutlookList* FOutlookList;
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	HIDESBASE TfcOutlookListItem* __fastcall GetItems(int Index);
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	__fastcall virtual TfcOutlookListItems(TfcCustomOutlookList* AOutlookList, TMetaClass* ACollectionItemClass);
	HIDESBASE TfcOutlookListItem* __fastcall Add(void);
	virtual Fccollection::TfcCollectionItem* __fastcall AddItem(void);
	__property TfcCustomOutlookList* OutlookList = {read=FOutlookList};
	__property TfcOutlookListItem* Items[int Index] = {read=GetItems/*, default*/};
public:
	#pragma option push -w-inl