advoutlooklist.hpp

TMS component pack v4.2 for delphi

class DELPHICLASS TURLSettings;
class PASCALIMPLEMENTATION TURLSettings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TNotifyEvent FOnChange;
	Graphics::TColor FColor;
	Graphics::TFontStyles FFontStyle;
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetFontStyle(const Graphics::TFontStyles Value);
	
protected:
	void __fastcall Change(void);
	
public:
	__fastcall TURLSettings(void);
	__fastcall virtual ~TURLSettings(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor Color = {read=FColor, write=SetColor, default=16711680};
	__property Graphics::TFontStyles FontStyle = {read=FFontStyle, write=SetFontStyle, default=0};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


typedef void __fastcall (__closure *TDrawItemEvent)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item, int Column, AnsiString Value, Graphics::TCanvas* ItemCanvas, const Types::TRect &ItemRect);

typedef void __fastcall (__closure *TDrawItemPropEvent)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item, int Column, AnsiString AValue, Graphics::TBrush* ABrush, Graphics::TFont* AFont);

typedef void __fastcall (__closure *TDrawItemValueEvent)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item, int Column, AnsiString &Value);

class DELPHICLASS TProgressAppearance;
#pragma option push -b-
enum TProgressStyle { psXP, psClassic };
#pragma option pop

class PASCALIMPLEMENTATION TProgressAppearance : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor FUnCompleteFontColor;
	Graphics::TColor FCompleteColor;
	Graphics::TColor FUnCompleteColor;
	Graphics::TColor FCompleteFontColor;
	Classes::TNotifyEvent FOnChange;
	bool FStacked;
	bool FShowPercentage;
	bool FShowBorder;
	bool FCompletionSmooth;
	bool FShowGradient;
	int FLevel2Perc;
	int FLevel1Perc;
	int FSteps;
	Graphics::TColor FLevel3Color;
	Graphics::TColor FLevel1Color;
	Graphics::TColor FLevel0Color;
	Graphics::TColor FLevel3ColorTo;
	Graphics::TColor FLevel2ColorTo;
	Graphics::TColor FLevel0ColorTo;
	Graphics::TColor FLevel1ColorTo;
	Graphics::TColor FBorderColor;
	Graphics::TColor FLevel2Color;
	TProgressStyle FStyle;
	void __fastcall SetCompleteColor(const Graphics::TColor Value);
	void __fastcall SetCompleteFontColor(const Graphics::TColor Value);
	void __fastcall SetUnCompleteColor(const Graphics::TColor Value);
	void __fastcall SetUnCompleteFontColor(const Graphics::TColor Value);
	void __fastcall SetBorderColor(const Graphics::TColor Value);
	void __fastcall SetCompletionSmooth(const bool Value);
	void __fastcall SetLevel0Color(const Graphics::TColor Value);
	void __fastcall SetLevel0ColorTo(const Graphics::TColor Value);
	void __fastcall SetLevel1Color(const Graphics::TColor Value);
	void __fastcall SetLevel1ColorTo(const Graphics::TColor Value);
	void __fastcall SetLevel1Perc(const int Value);
	void __fastcall SetLevel2Color(const Graphics::TColor Value);
	void __fastcall SetLevel2ColorTo(const Graphics::TColor Value);
	void __fastcall SetLevel2Perc(const int Value);
	void __fastcall SetLevel3Color(const Graphics::TColor Value);
	void __fastcall SetLevel3ColorTo(const Graphics::TColor Value);
	void __fastcall SetShowBorder(const bool Value);
	void __fastcall SetShowGradient(const bool Value);
	void __fastcall SetShowPercentage(const bool Value);
	void __fastcall SetStacked(const bool Value);
	void __fastcall SetSteps(const int Value);
	void __fastcall SetStyle(const TProgressStyle Value);
	
protected:
	void __fastcall Changed(void);
	
public:
	__fastcall TProgressAppearance(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor CompleteColor = {read=FCompleteColor, write=SetCompleteColor, default=255};
	__property Graphics::TColor CompleteFontColor = {read=FCompleteFontColor, write=SetCompleteFontColor, default=16711680};
	__property Graphics::TColor UnCompleteColor = {read=FUnCompleteColor, write=SetUnCompleteColor, default=536870911};
	__property Graphics::TColor UnCompleteFontColor = {read=FUnCompleteFontColor, write=SetUnCompleteFontColor, default=-16777208};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property Graphics::TColor Level0Color = {read=FLevel0Color, write=SetLevel0Color, default=65280};
	__property Graphics::TColor Level0ColorTo = {read=FLevel0ColorTo, write=SetLevel0ColorTo, default=14811105};
	__property Graphics::TColor Level1Color = {read=FLevel1Color, write=SetLevel1Color, default=65535};
	__property Graphics::TColor Level1ColorTo = {read=FLevel1ColorTo, write=SetLevel1ColorTo, default=13303807};
	__property Graphics::TColor Level2Color = {read=FLevel2Color, write=SetLevel2Color, default=5483007};
	__property Graphics::TColor Level2ColorTo = {read=FLevel2ColorTo, write=SetLevel2ColorTo, default=11064319};
	__property Graphics::TColor Level3Color = {read=FLevel3Color, write=SetLevel3Color, default=255};
	__property Graphics::TColor Level3ColorTo = {read=FLevel3ColorTo, write=SetLevel3ColorTo, default=13290239};
	__property int Level1Perc = {read=FLevel1Perc, write=SetLevel1Perc, default=70};
	__property int Level2Perc = {read=FLevel2Perc, write=SetLevel2Perc, default=90};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, default=0};
	__property bool ShowBorder = {read=FShowBorder, write=SetShowBorder, default=0};
	__property bool Stacked = {read=FStacked, write=SetStacked, default=0};
	__property TProgressStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property bool ShowPercentage = {read=FShowPercentage, write=SetShowPercentage, default=1};
	__property bool CompletionSmooth = {read=FCompletionSmooth, write=SetCompletionSmooth, default=1};
	__property bool ShowGradient = {read=FShowGradient, write=SetShowGradient, default=1};
	__property int Steps = {read=FSteps, write=SetSteps, default=11};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TProgressAppearance(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TURLClickEvent)(System::TObject* sender, Outlookgroupedlist::POGLItem item, int columnIndex, AnsiString URL, bool &Default);

class DELPHICLASS TPreviewSetting;
class PASCALIMPLEMENTATION TPreviewSetting : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FActive;
	int FColumn;
	Classes::TNotifyEvent FOnChange;
	int FHeight;
	Graphics::TFont* FFont;
	void __fastcall SetActive(const bool Value);
	void __fastcall SetColumn(const int Value);
	void __fastcall SetHeight(const int Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall OnFontChange(System::TObject* Sender);
	
protected:
	void __fastcall Changed(void);
	__property int Height = {read=FHeight, write=SetHeight, default=40};
	
public:
	__fastcall TPreviewSetting(void);
	__fastcall virtual ~TPreviewSetting(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool Active = {read=FActive, write=SetActive, default=0};
	__property int Column = {read=FColumn, write=SetColumn, default=-1};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


typedef void __fastcall (__closure *TAOLItemClickEvent)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item, int Column);

typedef void __fastcall (__closure *TAOLItemEvent)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item);

typedef void __fastcall (__closure *TAOLHeaderClickEvent)(System::TObject* Sender, int Column);

class DELPHICLASS TSortSettings;
class PASCALIMPLEMENTATION TSortSettings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TNotifyEvent FOnChange;
	int FColumn;
	Graphics::TBitmap* FGlyphDown;
	Graphics::TBitmap* FGlyphUp;
	TSortDirection FDirection;
	bool FEnabled;
	bool FSortGroups;
	void __fastcall OnGlyphChange(System::TObject* Sender);
	void __fastcall SetColumn(const int Value);
	void __fastcall SetDirection(const TSortDirection Value);
	void __fastcall SetGlyphDown(const Graphics::TBitmap* Value);
	void __fastcall SetGlyphUp(const Graphics::TBitmap* Value);
	void __fastcall SetSortGroups(const bool Value);
	
protected:
	void __fastcall Change(void);
	
public:
	__fastcall TSortSettings(void);
	__fastcall virtual ~TSortSettings(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property int Column = {read=FColumn, write=SetColumn, default=-1};
	__property TSortDirection Direction = {read=FDirection, write=SetDirection, default=0};
	__property bool Enabled = {read=FEnabled, write=FEnabled, default=1};
	__property Graphics::TBitmap* GlyphUp = {read=FGlyphUp, write=SetGlyphUp};
	__property Graphics::TBitmap* GlyphDown = {read=FGlyphDown, write=SetGlyphDown};
	__property bool SortGroups = {read=FSortGroups, write=SetSortGroups, nodefault};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


typedef void __fastcall (__closure *TAnchorClick)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item, int Column, AnsiString Anchor);

typedef void __fastcall (__closure *TCheckBoxClickEvent)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item, int Column, bool NewValue);

typedef void __fastcall (__closure *TOnHeaderDragDropEvent)(System::TObject* Sender, int FromCol, int ToCol);

typedef void __fastcall (__closure *THeaderResizedEvent)(System::TObject* Sender, int SectionIndex, int NewWidth);

typedef void __fastcall (__closure *TAOLDragAllowedEvent)(TAdvOutlookList* Sender, Outlookgroupedlist::POGLItem Item, bool &Allowed);

typedef void __fastcall (__closure *TAOLDragOverEvent)(TAdvOutlookList* Sender, const _di_IDataObject DataObject, Classes::TShiftState Shift, const Types::TPoint &Pt, Controls::TDragState State, int &Effect, bool &Accept);

typedef void __fastcall (__closure *TAOLDropEvent)(TAdvOutlookList* Sender, const _di_IDataObject DataObject, Classes::TShiftState Shift, const Types::TPoint &Pt, Outlookgroupedlist::TClipFormatArray Formats, int &Effect);

typedef void __fastcall (__closure *TAOLGetClipboardFormatsEvent)(TAdvOutlookList* Sender, Outlookgroupedlist::TFormatEtcArray &Formats);

typedef void __fastcall (__closure *TAOLGetDataEvent)(TAdvOutlookList* Sender, const tagFORMATETC &FormatEtcIn, /* out */ tagSTGMEDIUM &Medium, HRESULT &Result);

typedef void __fastcall (__closure *TAOLGetCaptionEvent)(TAdvOutlookList* Sender, Outlookgroupedlist::POGLItem Item, AnsiString &Caption);

typedef void __fastcall (__closure *TOLEItemData)(TAdvOutlookList* Sender, Classes::TStrings* Data);

typedef void __fastcall (__closure *TOnCustomCompareEvent)(System::TObject* Sender, Outlookgroupedlist::POGLItem Item1, Outlookgroupedlist::POGLItem Item2, int Column, AnsiString Value1, AnsiString Value2, int &SortResult);

typedef void __fastcall (__closure *TOnSortedEvent)(System::TObject* Sender, int ColumnIndex);

class DELPHICLASS TLookUpSettings;
class PASCALIMPLEMENTATION TLookUpSettings : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TNotifyEvent FOnChange;
	int FColumn;
	TLookUpMethod FMethod;
	void __fastcall SetColumn(const int Value);
	void __fastcall SetMethod(const TLookUpMethod Value);
	
protected:
	void __fastcall Change(void);