Archivado/Componentes.Terceros.Mustangpeak
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
778b05bf9f
Componentes.Terceros.Mustan.../official/1.7.0/Common Library/Source/MPCommonObjects.hpp
david 778b05bf9f Importación inicial 
- Mustangpeak Common Library - 1.7.0
  - EasyListview - 1.7.0

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.Mustangpeak@2 60b41242-d4b9-2247-b156-4ccd40706241
2007-09-11 08:33:06 +00:00

455 lines
17 KiB
C++
Raw Blame History

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved
// (DO NOT EDIT: machine generated header) 'Mpcommonobjects.pas' rev: 11.00
#ifndef MpcommonobjectsHPP
#define MpcommonobjectsHPP
#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 <Controls.hpp> // Pascal unit
#include <Graphics.hpp> // Pascal unit
#include <Sysutils.hpp> // Pascal unit
#include <Activex.hpp> // Pascal unit
#include <Rtlconsts.hpp> // Pascal unit
#include <Themes.hpp> // Pascal unit
#include <Uxtheme.hpp> // Pascal unit
#include <Shlobj.hpp> // Pascal unit
#include <Shellapi.hpp> // Pascal unit
#include <Imglist.hpp> // Pascal unit
#include <Typinfo.hpp> // Pascal unit
#include <Mpshelltypes.hpp> // Pascal unit
#include <Mpresources.hpp> // Pascal unit
//-- user supplied -----------------------------------------------------------
namespace Mpcommonobjects
{
//-- type declarations -------------------------------------------------------
typedef BOOL __stdcall (*TILIsParent)(Shlobj::PItemIDList PIDL1, Shlobj::PItemIDList PIDL2, BOOL ImmediateParent);
typedef BOOL __stdcall (*TILIsEqual)(Shlobj::PItemIDList PIDL1, Shlobj::PItemIDList PIDL2);
typedef int TCommonImageIndexInteger;
class DELPHICLASS TStringListEx;
class PASCALIMPLEMENTATION TStringListEx : public Classes::TStringList
{
typedef Classes::TStringList inherited;
public:
#pragma option push -w-inl
/* TStringList.Destroy */ inline __fastcall virtual ~TStringListEx(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TStringListEx(void) : Classes::TStringList() { }
#pragma option pop
};
typedef DynamicArray<Shlobj::PItemIDList > TPIDLArray;
typedef DynamicArray<Shlobj::PItemIDList > TRelativePIDLArray;
typedef DynamicArray<Shlobj::PItemIDList > TAbsolutePIDLArray;
__interface ICommonExtractObj;
typedef System::DelphiInterface<ICommonExtractObj> _di_ICommonExtractObj;
__interface INTERFACE_UUID("{7F667930-E47B-4474-BA62-B100D7DBDA70}") ICommonExtractObj : public IInterface
{
public:
virtual System::TObject* __fastcall GetObj(void) = 0 ;
__property System::TObject* Obj = {read=GetObj};
};
#pragma option push -b-
enum TCommonShellContextMenuAction { cmaCopy, cmaCut, cmaPaste, cmaDelete, cmaRename, cmaProperties, cmaShortCut };
#pragma option pop
typedef Set<TCommonShellContextMenuAction, cmaCopy, cmaShortCut> TCommonShellContextMenuActions;
#pragma option push -b-
enum TCommonShellContextMenuExtension { cmeAllFilesystemObjects, cmeDirectory, cmeDirBackground, cmeFolder, cmeAsterik, cmeShellDefault, cmeFileSystemAssociations, cmePerceivedType };
#pragma option pop
typedef Set<TCommonShellContextMenuExtension, cmeAllFilesystemObjects, cmePerceivedType> TCommonShellContextMenuExtensions;
class DELPHICLASS TCommonThemeManager;
class PASCALIMPLEMENTATION TCommonThemeManager : public System::TObject
{
typedef System::TObject inherited;
private:
unsigned FButtonTheme;
unsigned FComboBoxTheme;
unsigned FEditTheme;
unsigned FExplorerBarTheme;
unsigned FHeaderTheme;
unsigned FListviewTheme;
bool FLoaded;
Controls::TWinControl* FOwner;
unsigned FProgressTheme;
unsigned FRebarTheme;
unsigned FScrollbarTheme;
unsigned FTaskBandTheme;
unsigned FTaskBarTheme;
unsigned FTreeviewTheme;
unsigned FWindowTheme;
public:
__fastcall TCommonThemeManager(Controls::TWinControl* AnOwner);
__fastcall virtual ~TCommonThemeManager(void);
DYNAMIC void __fastcall ThemesFree(void);
DYNAMIC void __fastcall ThemesLoad(void);
__property unsigned ButtonTheme = {read=FButtonTheme, write=FButtonTheme, nodefault};
__property unsigned ComboBoxTheme = {read=FComboBoxTheme, write=FComboBoxTheme, nodefault};
__property unsigned EditThemeTheme = {read=FEditTheme, write=FEditTheme, nodefault};
__property unsigned ExplorerBarTheme = {read=FExplorerBarTheme, write=FExplorerBarTheme, nodefault};
__property unsigned HeaderTheme = {read=FHeaderTheme, write=FHeaderTheme, nodefault};
__property unsigned ListviewTheme = {read=FListviewTheme, write=FListviewTheme, nodefault};
__property bool Loaded = {read=FLoaded, nodefault};
__property Controls::TWinControl* Owner = {read=FOwner};
__property unsigned ProgressTheme = {read=FProgressTheme, write=FProgressTheme, nodefault};
__property unsigned RebarTheme = {read=FRebarTheme, write=FRebarTheme, nodefault};
__property unsigned ScrollbarTheme = {read=FScrollbarTheme, write=FScrollbarTheme, nodefault};
__property unsigned TaskBandTheme = {read=FTaskBandTheme, write=FTaskBandTheme, nodefault};
__property unsigned TaskBarTheme = {read=FTaskBarTheme, write=FTaskBarTheme, nodefault};
__property unsigned TreeviewTheme = {read=FTreeviewTheme, write=FTreeviewTheme, nodefault};
__property unsigned WindowTheme = {read=FWindowTheme, write=FWindowTheme, nodefault};
};
class DELPHICLASS TCommonCanvasControl;
class PASCALIMPLEMENTATION TCommonCanvasControl : public Controls::TCustomControl
{
typedef Controls::TCustomControl inherited;
private:
Controls::TControlCanvas* FCanvas;
Controls::TImageList* FImagesExtraLarge;
Controls::TImageList* FImagesLarge;
Controls::TImageList* FImagesSmall;
Classes::TNotifyEvent FOnEndUpdate;
bool FThemed;
TCommonThemeManager* FThemes;
Controls::TControlCanvas* __fastcall GetCanvas(void);
bool __fastcall GetThemed(void);
void __fastcall SetThemed(const bool Value);
protected:
int FUpdateCount;
virtual void __fastcall CreateWnd(void);
void __fastcall DoEndUpdate(void);
virtual void __fastcall DoUpdate(void);
bool __fastcall DrawWithThemes(void);
virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
HIDESBASE MESSAGE void __fastcall WMDestroy(Messages::TMessage &Msg);
MESSAGE void __fastcall WMThemeChanged(Messages::TMessage &Message);
__property Classes::TNotifyEvent OnEndUpdate = {read=FOnEndUpdate, write=FOnEndUpdate};
__property bool Themed = {read=GetThemed, write=SetThemed, default=1};
public:
__fastcall virtual TCommonCanvasControl(Classes::TComponent* AOwner);
__fastcall virtual ~TCommonCanvasControl(void);
virtual void __fastcall BeginUpdate(void);
virtual void __fastcall EndUpdate(bool Invalidate = true);
void __fastcall SafeInvalidateRect(Types::PRect ARect, bool ImmediateUpdate);
__property Controls::TControlCanvas* Canvas = {read=GetCanvas, write=FCanvas};
__property Color = {default=-16777211};
__property DragCursor = {default=-12};
__property DragMode = {default=0};
__property TCommonThemeManager* Themes = {read=FThemes};
__property int UpdateCount = {read=FUpdateCount, nodefault};
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TCommonCanvasControl(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
#pragma option pop
};
class DELPHICLASS TCommonDefaultCanvasState;
class PASCALIMPLEMENTATION TCommonDefaultCanvasState : public System::TObject
{
typedef System::TObject inherited;
private:
unsigned FBkMode;
Graphics::TFont* FFont;
Graphics::TBrush* FBrush;
Graphics::TPen* FPen;
bool FCanvasStored;
int FCopyMode;
Types::TPoint FPenPos;
int FTextFlags;
Graphics::TBrush* __fastcall GetBrush(void);
Graphics::TFont* __fastcall GetFont(void);
Graphics::TPen* __fastcall GetPen(void);
public:
__fastcall virtual ~TCommonDefaultCanvasState(void);
void __fastcall StoreCanvas(Graphics::TCanvas* ACanvas);
void __fastcall RestoreCanvas(Graphics::TCanvas* ACanvas);
__property unsigned BkMode = {read=FBkMode, nodefault};
__property bool CanvasStored = {read=FCanvasStored, nodefault};
__property int CopyMode = {read=FCopyMode, nodefault};
__property Graphics::TFont* Font = {read=GetFont};
__property Graphics::TBrush* Brush = {read=GetBrush};
__property Graphics::TPen* Pen = {read=GetPen};
__property Types::TPoint PenPos = {read=FPenPos};
__property int TextFlags = {read=FTextFlags, nodefault};
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TCommonDefaultCanvasState(void) : System::TObject() { }
#pragma option pop
};
class DELPHICLASS TCommonPIDLList;
typedef TCommonPIDLList* *PCommonPIDLList;
class DELPHICLASS TCommonPIDLManager;
class PASCALIMPLEMENTATION TCommonPIDLManager : public System::TObject
{
typedef System::TObject inherited;
protected:
_di_IMalloc FMalloc;
public:
__fastcall TCommonPIDLManager(void);
__fastcall virtual ~TCommonPIDLManager(void);
WideChar * __fastcall AllocStrGlobal(WideString SourceStr);
Shlobj::PItemIDList __fastcall AppendPIDL(Shlobj::PItemIDList DestPIDL, Shlobj::PItemIDList SrcPIDL);
bool __fastcall BindToParent(Shlobj::PItemIDList AbsolutePIDL, _di_IShellFolder &Folder);
Shlobj::PItemIDList __fastcall CopyPIDL(Shlobj::PItemIDList APIDL);
bool __fastcall EqualPIDL(Shlobj::PItemIDList PIDL1, Shlobj::PItemIDList PIDL2);
void __fastcall FreeAndNilPIDL(Shlobj::PItemIDList &PIDL);
void __fastcall FreeOLEStr(WideChar * OLEStr);
void __fastcall FreePIDL(Shlobj::PItemIDList PIDL);
Shlobj::PItemIDList __fastcall CopyLastID(Shlobj::PItemIDList IDList);
Shlobj::PItemIDList __fastcall GetPointerToLastID(Shlobj::PItemIDList IDList);
int __fastcall IDCount(Shlobj::PItemIDList APIDL);
bool __fastcall IsDesktopFolder(Shlobj::PItemIDList APIDL);
bool __fastcall IsSubPIDL(Shlobj::PItemIDList FullPIDL, Shlobj::PItemIDList SubPIDL);
Shlobj::PItemIDList __fastcall NextID(Shlobj::PItemIDList APIDL);
int __fastcall PIDLSize(Shlobj::PItemIDList APIDL);
Shlobj::PItemIDList __fastcall LoadFromStream(Classes::TStream* Stream);
void __fastcall ParsePIDL(Shlobj::PItemIDList AbsolutePIDL, TCommonPIDLList* &PIDLList, bool AllAbsolutePIDLs);
Shlobj::PItemIDList __fastcall StringToPIDL(AnsiString PIDLStr);
Shlobj::PItemIDList __fastcall StripLastID(Shlobj::PItemIDList IDList)/* overload */;
Shlobj::PItemIDList __fastcall StripLastID(Shlobj::PItemIDList IDList, Word &Last_CB, Shlobj::PItemIDList &LastID)/* overload */;
void __fastcall SaveToStream(Classes::TStream* Stream, Shlobj::PItemIDList PIDL);
__property _di_IMalloc Malloc = {read=FMalloc};
};
class PASCALIMPLEMENTATION TCommonPIDLList : public Classes::TList
{
typedef Classes::TList inherited;
private:
TCommonPIDLManager* FLocalPIDLMgr;
bool FOwnsPIDLMgr;
bool FSharePIDLs;
bool FDestroying;
TCommonPIDLManager* __fastcall GetLocalPIDLMgr(void);
Shlobj::PItemIDList __fastcall GetPIDL(int Index);
void __fastcall SetLocalPIDLMgr(const TCommonPIDLManager* Value);
protected:
__property bool Destroying = {read=FDestroying, nodefault};
__property bool OwnsPIDLMgr = {read=FOwnsPIDLMgr, write=FOwnsPIDLMgr, nodefault};
public:
__fastcall TCommonPIDLList(void);
__fastcall virtual ~TCommonPIDLList(void);
virtual void __fastcall Clear(void);
void __fastcall CloneList(TCommonPIDLList* PIDLList);
int __fastcall CopyAdd(Shlobj::PItemIDList PIDL);
int __fastcall FindPIDL(Shlobj::PItemIDList TestPIDL);
virtual bool __fastcall LoadFromStream(Classes::TStream* Stream);
virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
__property TCommonPIDLManager* LocalPIDLMgr = {read=GetLocalPIDLMgr, write=SetLocalPIDLMgr};
__property bool SharePIDLs = {read=FSharePIDLs, write=FSharePIDLs, nodefault};
};
class DELPHICLASS TCommonMemoryStreamHelper;
class PASCALIMPLEMENTATION TCommonMemoryStreamHelper : public System::TObject
{
typedef System::TObject inherited;
public:
bool __fastcall ReadBoolean(Classes::TStream* S);
Graphics::TColor __fastcall ReadColor(Classes::TStream* S);
__int64 __fastcall ReadInt64(Classes::TStream* S);
int __fastcall ReadInteger(Classes::TStream* S);
AnsiString __fastcall ReadString(Classes::TStream* S);
WideString __fastcall ReadWideString(Classes::TStream* S);
Extended __fastcall ReadExtended(Classes::TStream* S);
void __fastcall ReadStream(Classes::TStream* SourceStream, Classes::TStream* TargetStream);
void __fastcall WriteBoolean(Classes::TStream* S, bool Value);
void __fastcall WriteColor(Classes::TStream* S, Graphics::TColor Value);
void __fastcall WriteExtended(Classes::TStream* S, Extended Value);
void __fastcall WriteInt64(Classes::TStream* S, __int64 Value);
void __fastcall WriteInteger(Classes::TStream* S, int Value);
void __fastcall WriteStream(Classes::TStream* SourceStream, Classes::TStream* TargetStream);
void __fastcall WriteString(Classes::TStream* S, AnsiString Value);
void __fastcall WriteWideString(Classes::TStream* S, WideString Value);
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TCommonMemoryStreamHelper(void) : System::TObject() { }
#pragma option pop
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~TCommonMemoryStreamHelper(void) { }
#pragma option pop
};
class DELPHICLASS TCommonStream;
class PASCALIMPLEMENTATION TCommonStream : public Classes::TMemoryStream
{
typedef Classes::TMemoryStream inherited;
public:
bool __fastcall ReadBoolean(void);
Byte __fastcall ReadByte(void);
int __fastcall ReadInteger(void);
AnsiString __fastcall ReadString();
Classes::TStringList* __fastcall ReadStringList(void);
WideString __fastcall ReadWideString();
void __fastcall WriteBoolean(bool Value);
void __fastcall WriteByte(Byte Value);
void __fastcall WriteInteger(int Value);
void __fastcall WriteString(const AnsiString Value);
void __fastcall WriteStringList(Classes::TStringList* Value);
void __fastcall WriteWideString(const WideString Value);
public:
#pragma option push -w-inl
/* TMemoryStream.Destroy */ inline __fastcall virtual ~TCommonStream(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TCommonStream(void) : Classes::TMemoryStream() { }
#pragma option pop
};
class DELPHICLASS TCommonCheckBound;
class PASCALIMPLEMENTATION TCommonCheckBound : public System::TObject
{
typedef System::TObject inherited;
private:
Types::TRect FBounds;
int FSize;
public:
__property int Size = {read=FSize, write=FSize, nodefault};
__property Types::TRect Bounds = {read=FBounds, write=FBounds};
public:
#pragma option push -w-inl
/* TObject.Create */ inline __fastcall TCommonCheckBound(void) : System::TObject() { }
#pragma option pop
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~TCommonCheckBound(void) { }
#pragma option pop
};
class DELPHICLASS TCommonCheckBoundManager;
class PASCALIMPLEMENTATION TCommonCheckBoundManager : public System::TObject
{
typedef System::TObject inherited;
private:
Classes::TList* FList;
Types::TRect __fastcall GetBound(int Size);
TCommonCheckBound* __fastcall GetCheckBound(int Index);
protected:
void __fastcall Clear(void);
TCommonCheckBound* __fastcall Find(int Size);
__property Classes::TList* List = {read=FList, write=FList};
__property TCommonCheckBound* CheckBound[int Index] = {read=GetCheckBound};
public:
__fastcall TCommonCheckBoundManager(void);
__fastcall virtual ~TCommonCheckBoundManager(void);
__property Types::TRect Bound[int Size] = {read=GetBound};
};
#pragma option push -b-
enum TSysImageListSize { sisSmall, sisLarge, sisExtraLarge };
#pragma option pop
class DELPHICLASS TCommonSysImages;
class PASCALIMPLEMENTATION TCommonSysImages : public Controls::TImageList
{
typedef Controls::TImageList inherited;
private:
TSysImageListSize FImageSize;
Mpshelltypes::_di_IImageList FJumboImages;
void __fastcall SetImageSize(const TSysImageListSize Value);
protected:
void __fastcall RecreateHandle(void);
void __fastcall Flush(void);
__property Mpshelltypes::_di_IImageList JumboImages = {read=FJumboImages};
public:
__fastcall virtual TCommonSysImages(Classes::TComponent* AOwner);
__fastcall virtual ~TCommonSysImages(void);
__property TSysImageListSize ImageSize = {read=FImageSize, write=SetImageSize, nodefault};
public:
#pragma option push -w-inl
/* TCustomImageList.CreateSize */ inline __fastcall TCommonSysImages(int AWidth, int AHeight) : Controls::TImageList(AWidth, AHeight) { }
#pragma option pop
};
//-- var, const, procedure ---------------------------------------------------
#define IID_ICommonExtractObj "{7F667930-E47B-4474-BA62-B100D7DBDA70}"
extern PACKAGE TCommonMemoryStreamHelper* StreamHelper;
extern PACKAGE TILIsParent ILIsParent;
extern PACKAGE TILIsEqual ILIsEqual;
extern PACKAGE TCommonCheckBoundManager* Checks;
extern PACKAGE Graphics::TFont* MarlettFont;
extern PACKAGE void __fastcall FlushImageLists(void);
extern PACKAGE TCommonSysImages* __fastcall ExtraLargeSysImages(void);
extern PACKAGE TCommonSysImages* __fastcall LargeSysImages(void);
extern PACKAGE TCommonSysImages* __fastcall SmallSysImages(void);
extern PACKAGE void __fastcall CreateFullyQualifiedShellDataObject(TPIDLArray AbsolutePIDLs, _di_IDataObject &ADataObject);
} /* namespace Mpcommonobjects */
using namespace Mpcommonobjects;
#pragma pack(pop)
#pragma option pop
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // Mpcommonobjects
Reference in New Issue View Git Blame Copy Permalink