scolinsp.hpp

Object Inspector for Delphi (3-7,2005) and C++ Builder (5,6)

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SColInsp.pas' rev: 6.00

#ifndef SColInspHPP
#define SColInspHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <InspCtrl.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Scolinsp
{
//-- type declarations -------------------------------------------------------
#pragma pack(push, 4)
struct TColorData
{
	int ColorID;
	System::ShortString ColorName;
} ;
#pragma pack(pop)

class DELPHICLASS TCustomSystemColorsInspector;
class PASCALIMPLEMENTATION TCustomSystemColorsInspector : public Inspctrl::TCustomInspector 
{
	typedef Inspctrl::TCustomInspector inherited;
	
private:
	AnsiString __fastcall StdColorToName(Graphics::TColor C);
	bool __fastcall StdNameToColor(AnsiString S, Graphics::TColor &C);
	
protected:
	virtual int __fastcall GetPopupItemWidth(Stdctrls::TListBox* ListBox, int TheIndex);
	virtual void __fastcall DrawPopupItem(Stdctrls::TListBox* ListBox, int ListItemIndex, const Types::TRect &R, int TheIndex);
	virtual void __fastcall DrawPropertyValue(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	virtual AnsiString __fastcall GetName(int TheIndex);
	virtual AnsiString __fastcall GetValue(int TheIndex);
	virtual void __fastcall SetValue(int TheIndex, const AnsiString Value);
	virtual int __fastcall GetIndent(void);
	virtual void __fastcall GetValuesList(int TheIndex, const Classes::TStrings* Strings);
	virtual AnsiString __fastcall GetSelectedValue(int TheIndex);
	virtual Inspctrl::TButtonType __fastcall GetButtonType(int TheIndex);
	virtual bool __fastcall GetEnableExternalEditor(int TheIndex);
	virtual bool __fastcall CallEditor(int TheIndex);
	
public:
	__fastcall virtual TCustomSystemColorsInspector(Classes::TComponent* AOwner);
public:
	#pragma option push -w-inl
	/* TCustomInspector.Destroy */ inline __fastcall virtual ~TCustomSystemColorsInspector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomSystemColorsInspector(HWND ParentWindow) : Inspctrl::TCustomInspector(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TSystemColorsInspector;
class PASCALIMPLEMENTATION TSystemColorsInspector : public TCustomSystemColorsInspector 
{
	typedef TCustomSystemColorsInspector inherited;
	
__published:
	__property Anchors  = {default=3};
	__property Constraints ;
	__property Align  = {default=0};
	__property BorderStyle  = {default=1};
	__property Color  = {default=-2147483643};
	__property Ctl3D ;
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property IntegralHeight  = {default=0};
	__property ParentColor  = {default=0};
	__property ParentCtl3D  = {default=1};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property Sorted  = {default=0};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property Visible  = {default=1};
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnStartDrag ;
	__property PaintStyle  = {default=0};
	__property Splitter  = {default=100};
	__property OnUpdate ;
	__property OnValidateChar ;
	__property OnChangeValue ;
	__property OnDrawName ;
	__property OnDrawValue ;
	__property OnGetName ;
	__property OnGetValue ;
	__property OnGetNextValue ;
	__property OnSetValue ;
	__property OnGetButtonType ;
	__property OnGetInplaceEditorType ;
	__property OnGetMaxLength ;
	__property OnGetEditMask ;
	__property OnGetEnableExternalEditor ;
	__property OnGetReadOnly ;
	__property OnGetExpandState ;
	__property OnGetLevel ;
	__property OnGetValuesList ;
	__property OnGetSortValuesList ;
	__property OnGetSelectedValue ;
	__property OnGetAutoApply ;
	__property OnGetNameFont ;
	__property OnGetNameColor ;
	__property OnGetValueFont ;
	__property OnGetValueColor ;
	__property OnCallEditor ;
	__property OnSelectItem ;
	__property OnDeselectItem ;
	__property OnValueDoubleClick ;
public:
	#pragma option push -w-inl
	/* TCustomSystemColorsInspector.Create */ inline __fastcall virtual TSystemColorsInspector(Classes::TComponent* AOwner) : TCustomSystemColorsInspector(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomInspector.Destroy */ inline __fastcall virtual ~TSystemColorsInspector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSystemColorsInspector(HWND ParentWindow) : TCustomSystemColorsInspector(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint COLOR_GRADIENTACTIVECAPTION = 0x1b;
static const Shortint COLOR_GRADIENTINACTIVECAPTION = 0x1c;
static const Graphics::TColor clMoneyGreen = 0xc0dcc0;
static const Graphics::TColor clSkyBlue = 0xf0caa6;
static const Graphics::TColor clCream = 0xf0fbff;
static const Graphics::TColor clMedGray = 0xa4a0a0;
#define STR_COLOR_3DDKSHADOW "3D dark shadow"
#define STR_COLOR_3DFACE "3D face"
#define STR_COLOR_3DHILIGHT "3D highlight"
#define STR_COLOR_3DLIGHT "3D light"
#define STR_COLOR_3DSHADOW "3D shadow"
#define STR_COLOR_ACTIVEBORDER "Active window border"
#define STR_COLOR_ACTIVECAPTION "Active window caption"
#define STR_COLOR_GRADIENTACTIVECAPTION "Active window caption gradient"
#define STR_COLOR_APPWORKSPACE "MDI background color"
#define STR_COLOR_DESKTOP "Desktop"
#define STR_COLOR_BTNTEXT "Text on push buttons"
#define STR_COLOR_CAPTIONTEXT "Active window caption text"
#define STR_COLOR_GRAYTEXT "Grayed text"
#define STR_COLOR_HIGHLIGHT "Selected item"
#define STR_COLOR_HIGHLIGHTTEXT "Text of selected item"
#define STR_COLOR_INACTIVEBORDER "Inactive window border"
#define STR_COLOR_INACTIVECAPTION "Inactive window caption"
#define STR_COLOR_GRADIENTINACTIVECAPTION "Inactive window caption gradient"
#define STR_COLOR_INACTIVECAPTIONTEXT "Inactive window caption text"
#define STR_COLOR_INFOBK "Tooltip background"
#define STR_COLOR_INFOTEXT "Tooltip text"
#define STR_COLOR_MENU "Menu background"
#define STR_COLOR_MENUTEXT "Menu text"
#define STR_COLOR_SCROLLBAR "Scroll bar background"
#define STR_COLOR_WINDOW "Window background"
#define STR_COLOR_WINDOWFRAME "Window frame"
#define STR_COLOR_WINDOWTEXT "Window text"
#define strWhite "White"
#define strBlack "Black"
#define strSilver "Silver"
#define strGray "Gray"
#define strRed "Red"
#define strMaroon "Maroon"
#define strYellow "Yellow"
#define strOlive "Olive"
#define strLime "Lime"
#define strGreen "Green"
#define strAqua "Aqua"
#define strTeal "Teal"
#define strBlue "Blue"
#define strNavy "Navy"
#define strFuchsia "Fuchsia"
#define strPurple "Purple"
#define strMoneyGreen "Money Green"
#define strSkyBlue "Sky Blue"
#define strCream "Cream"
#define strMedGray "Medium Gray"
static const Shortint ColorCount = 0x1b;
extern PACKAGE TColorData ColorsData[27];
static const Shortint StdColorCount = 0x14;
extern PACKAGE TColorData StdColorsData[20];

}	/* namespace Scolinsp */
using namespace Scolinsp;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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