outlookgroupedlist.hpp

TMS component pack v4.2 for delphi

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

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

#ifndef OutlookgroupedlistHPP
#define OutlookgroupedlistHPP

#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 <Classes.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Activex.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------
 
#pragma link "msimg32.lib"
 

namespace Outlookgroupedlist
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TOGLItemState { nsGroup, nsClearing, nsExpanding, nsCollapsing, nsExpanded, nsSelected };
#pragma option pop

typedef Set<TOGLItemState, nsGroup, nsSelected>  TOGLItemStates;

#pragma option push -b-
enum TOGLAutoOption { toAutoExpandOnCreate, toAutoExpandOnFocus, toAutoExpandOnDrop, toAutoScrollOnExpand, toAutoSort, toAutoDeleteMovedItems };
#pragma option pop

typedef Set<TOGLAutoOption, toAutoExpandOnCreate, toAutoDeleteMovedItems>  TOGLAutoOptions;

#pragma option push -b-
enum TOGLDragType { dtOLE, dtVCL };
#pragma option pop

#pragma option push -b-
enum TOGLDragOption { doOLEAcceptDrop, doOLEAllowDrag, doOLEShowDragImage };
#pragma option pop

typedef Set<TOGLDragOption, doOLEAcceptDrop, doOLEShowDragImage>  TOGLDragOptions;

#pragma option push -b-
enum TOGLSelectionOption { soMultiSelect, soRightClickSelect };
#pragma option pop

typedef Set<TOGLSelectionOption, soMultiSelect, soRightClickSelect>  TOGLSelectionOptions;

#pragma option push -b-
enum TOGLDragOperation { doCopy, doMove, doLink };
#pragma option pop

typedef Set<TOGLDragOperation, doCopy, doLink>  TOGLDragOperations;

typedef TMetaClass* TOutlookGroupedListClass;

struct TOGLItem;
typedef TOGLItem *POGLItem;

#pragma pack(push,1)
struct OutlookGroupedList__1
{
	
} ;
#pragma pack(pop)

#pragma pack(push,1)
struct TOGLItem
{
	
public:
	unsigned Index;
	unsigned ChildCount;
	unsigned ChildSelectedCount;
	unsigned ChildHeight;
	unsigned TotalCount;
	Byte Dummy;
	TOGLItemStates States;
	TOGLItem *Parent;
	TOGLItem *PrevSibling;
	TOGLItem *NextSibling;
	TOGLItem *FirstChild;
	TOGLItem *LastChild;
	System::TObject* ItemObject;
	int Tag;
	System::TObject* GroupObject;
	#pragma pack(push,1)
	OutlookGroupedList__1 Data;
	#pragma pack(pop)
} ;
#pragma pack(pop)

typedef DynamicArray<POGLItem >  TOGLItemArray;

#pragma option push -b-
enum TOGLItemHitTest { htInClientArea, htOnExpandButton, htOnItem, htOnItemLabel };
#pragma option pop

#pragma pack(push,1)
struct TOGLItemHitInfo
{
	
public:
	TOGLItem *GroupItem;
	TOGLItem *HitItem;
	TOGLItemHitTest HitTest;
} ;
#pragma pack(pop)

class DELPHICLASS TOGLThumbnailOptions;
class DELPHICLASS TOutlookGroupedList;
class DELPHICLASS TOGLHintOptions;
class PASCALIMPLEMENTATION TOGLHintOptions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FAlphaBlend;
	Byte FAlphaBlendValue;
	
public:
	__fastcall TOGLHintOptions(void);
	
__published:
	__property bool AlphaBlend = {read=FAlphaBlend, write=FAlphaBlend, default=1};
	__property Byte AlphaBlendValue = {read=FAlphaBlendValue, write=FAlphaBlendValue, default=240};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TOGLHintOptions(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum OutlookGroupedList__8 { lsHintShowed, lsMouseSelecting, lsMouseSelected, lsToggleFocusedSelection, lsLeftButtonDown, lsRightButtonDown, lsSelectionClearing, lsSearchPending, lsOLEDragging, lsOLEDragPending, lsVCLDragging, lsVCLDragPending };
#pragma option pop

typedef Set<OutlookGroupedList__8, lsHintShowed, lsVCLDragPending>  TOGLStates;

typedef int TOGLSortColumn;

#pragma option push -b-
enum TOGLSortDirection { sdAscending, sdDescending, sdDefault };
#pragma option pop

#pragma option push -b-
enum TOGLSearchType { stNone, stAll, stChildOnly };
#pragma option pop

#pragma option push -b-
enum TOGLViewStyle { vsList, vsThumbnails };
#pragma option pop

#pragma pack(push,1)
struct TOGLHintData
{
	
public:
	TOutlookGroupedList* OutlookGroupedList;
	#pragma pack(push,1)
	TOGLItemHitInfo HitInfo;
	#pragma pack(pop)
} ;
#pragma pack(pop)

#pragma option push -b-
enum TOGLDrawSelectionMode { dsmDottedRectangle, dsmBlendedRectangle, dsmThemeAware };
#pragma option pop

__interface IOGLDragEngine;
typedef System::DelphiInterface<IOGLDragEngine> _di_IOGLDragEngine;
__interface  INTERFACE_UUID("{39DE72C5-56D8-4E40-BABC-CBBCFA7B0D0A}") IOGLDragEngine  : public IInterface 
{
	
public:
	virtual void __stdcall ForceDragLeave(void) = 0 ;
	virtual _di_IDataObject __stdcall GetDataObject(void) = 0 ;
	virtual bool __stdcall GetDropActive(void) = 0 ;
	__property _di_IDataObject DataObject = {read=GetDataObject};
	__property bool DropActive = {read=GetDropActive};
};

typedef void __fastcall (__closure *TOGLItemEvent)(TOutlookGroupedList* Sender, POGLItem Item);

typedef void __fastcall (__closure *TOGLDrawItemEvent)(TOutlookGroupedList* Sender, Graphics::TCanvas* ItemCanvas, const Types::TRect &ItemRect, POGLItem Item);

typedef void __fastcall (__closure *TOGLDrawHintEvent)(TOutlookGroupedList* Sender, Graphics::TCanvas* HintCanvas, const Types::TRect &HintRect, POGLItem Item);

typedef void __fastcall (__closure *TOGLGetCaptionEvent)(TOutlookGroupedList* Sender, POGLItem Item, AnsiString &Caption);

typedef void __fastcall (__closure *TOGLGetHintEvent)(TOutlookGroupedList* Sender, POGLItem Item, AnsiString &HintText);

typedef void __fastcall (__closure *TOGLGetHintSizeEvent)(TOutlookGroupedList* Sender, POGLItem Item, Types::TRect &HintRect);

typedef void __fastcall (__closure *TOGLGetImageIndexEvent)(TOutlookGroupedList* Sender, POGLItem Item, int &ImageIndex);

typedef void __fastcall (__closure *TOGLGetChildItemHeightEvent)(TOutlookGroupedList* Sender, const Graphics::TCanvas* OGLCanvas, Word &ItemHeight);

typedef void __fastcall (__closure *TOGLCompareItemsEvent)(TOutlookGroupedList* Sender, POGLItem Item1, POGLItem Item2, TOGLSortColumn Column, int &Result);

typedef void __fastcall (__closure *TOGLSearchItemEvent)(TOutlookGroupedList* Sender, POGLItem Item, const WideString SearchText, int &Result);

typedef void __fastcall (__closure *TOGLGetDataObjectEvent)(TOutlookGroupedList* Sender, /* out */ _di_IDataObject &IDataObject);

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

typedef DynamicArray<Word >  TClipFormatArray;

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

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

typedef DynamicArray<tagFORMATETC >  TFormatEtcArray;

typedef void __fastcall (__closure *TOGLGetClipboardFormatsEvent)(TOutlookGroupedList* Sender, TFormatEtcArray &Formats);

typedef void __fastcall (__closure *TOGLDragAllowedEvent)(TOutlookGroupedList* Sender, POGLItem Item, bool &Allowed);

typedef void __fastcall (__closure *TOGLMouseButtonEvent)(TOutlookGroupedList* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y, const TOGLItemHitInfo &HitInfo);

#pragma option push -b-
enum TDragDropMode { ddmNormal, ddmCopy };
#pragma option pop

#pragma option push -b-
enum TOGLMoveFocusDirection { mfdHome, mfdPageUp, mfdUp, mfdLeft, mfdRight, mfdDown, mfdPageDown, mfdEnd, mfdUnknown };
#pragma option pop

class PASCALIMPLEMENTATION TOutlookGroupedList : public Forms::TScrollingWinControl 
{
	typedef Forms::TScrollingWinControl inherited;
	
private:
	Forms::TFormBorderStyle FBorderStyle;
	TOGLAutoOptions FAutoOptions;
	TOGLHintOptions* FHintOptions;
	TOGLThumbnailOptions* FThumbnailOptions;
	TOGLSelectionOptions FSelectionOptions;
	Imglist::TCustomImageList* FImages;
	Imglist::TChangeLink* FImageChangeLink;
	TOGLStates FStates;
	TOGLSortColumn FSortColumn;
	TOGLSortDirection FSortDirection;
	TOGLSearchType FSearchType;
	TOGLViewStyle FViewStyle;
	int FUpdateCount;
	int FOGLItemColumn;
	unsigned FTotalItemsHeight;
	int FItemDataSize;
	TOGLItem *FRootItem;
	TOGLItem *FFocusedItem;
	TOGLItem *FSelectedAnchorItem;
	#pragma pack(push,1)
	TOGLHintData FHintData;
	#pragma pack(pop)