sctutil.hpp

suite component ace report

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

// (DO NOT EDIT: machine generated header) 'SctUtil.pas' rev: 3.00

#ifndef SctUtilHPP
#define SctUtilHPP
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Windows.hpp>
#include <SysInit.hpp>
#include <System.hpp>

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

namespace Sctutil
{
//-- type declarations -------------------------------------------------------
enum TSctUnits { unitInches, unitMiliMeters, unitCentiMeters };

class DELPHICLASS TSctUnitMaster;
class PASCALIMPLEMENTATION TSctUnitMaster : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	double __fastcall UnitToUnit(double Value, TSctUnits From, TSctUnits UTo);
	virtual double __fastcall ToIn(double Value, TSctUnits from);
	virtual double __fastcall ToMM(double Value, TSctUnits from);
	virtual double __fastcall ToCM(double Value, TSctUnits from);
	virtual double __fastcall InTo(double Value, TSctUnits uto);
	virtual double __fastcall MMTo(double Value, TSctUnits uto);
	virtual double __fastcall CMTo(double Value, TSctUnits uto);
public:
	/* TObject.Create */ __fastcall TSctUnitMaster(void) : System::TObject() { }
	/* TObject.Destroy */ __fastcall virtual ~TSctUnitMaster(void) { }
	
};

class DELPHICLASS TSctRuler;
class PASCALIMPLEMENTATION TSctRuler : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	bool FVertical;
	int FPixelsPerInch;
	TSctUnits FUnits;
	TSctUnitMaster* FUM;
	int FStartPixels;
	bool FShowCrossHair;
	int FCrossHairPosition;
	
protected:
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall ChangeScale(int M, int D);
	
public:
	__fastcall virtual TSctRuler(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctRuler(void);
	__property bool Vertical = {read=FVertical, write=FVertical, nodefault};
	__property int PixelsPerInch = {read=FPixelsPerInch, write=FPixelsPerInch, nodefault};
	__property TSctUnits Units = {read=FUnits, write=FUnits, nodefault};
	__property TSctUnitMaster* Um = {read=FUM, write=FUM};
	__property int StartPixels = {read=FStartPixels, write=FStartPixels, nodefault};
	__property bool ShowCrossHair = {read=FShowCrossHair, write=FShowCrossHair, nodefault};
	__property int CrossHairPosition = {read=FCrossHairPosition, write=FCrossHairPosition, nodefault};
	void __fastcall UpdateHair(int Position);
public:
	/* TWinControl.CreateParented */ __fastcall TSctRuler(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow
		) { }
	
};

class DELPHICLASS TSctRulerContainer;
class PASCALIMPLEMENTATION TSctRulerContainer : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	Classes::TList* FRulers;
	bool FShowCrossHair;
	int FCrossHairPosition;
	
protected:
	DYNAMIC void __fastcall ChangeScale(int M, int D);
	Classes::TComponent* __fastcall GetPage(void);
	__property Classes::TComponent* Page = {read=GetPage};
	void __fastcall SetPixelsPerInch(int ppi);
	void __fastcall SetUnits(TSctUnits u);
	
public:
	__fastcall virtual TSctRulerContainer(Classes::TComponent* AOwner);
	__fastcall virtual ~TSctRulerContainer(void);
	void __fastcall UpdateRulers(void);
	__property int PixelsPerInch = {write=SetPixelsPerInch, nodefault};
	__property TSctUnits Units = {write=SetUnits, nodefault};
	__property bool ShowCrossHair = {read=FShowCrossHair, write=FShowCrossHair, nodefault};
	__property int CrossHairPosition = {read=FCrossHairPosition, write=FCrossHairPosition, nodefault};
	void __fastcall UpdateHair(int Position);
public:
	/* TWinControl.CreateParented */ __fastcall TSctRulerContainer(HWND ParentWindow) : Extctrls::TCustomPanel(
		ParentWindow) { }
	
};

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE bool __fastcall AceBandCheck(System::TObject* Page, bool SubBand, bool Creating);
extern PACKAGE System::AnsiString __fastcall SctStripFirst(const System::AnsiString Str);
extern PACKAGE System::AnsiString __fastcall SctMakeValidIDent(const System::AnsiString Str, bool StripLeading
	);
extern PACKAGE bool __fastcall SctAutoSetComponentName(Classes::TComponent* comp, const System::AnsiString 
	nm, bool StripLeading);
extern PACKAGE bool __fastcall SctSetComponentName(Classes::TComponent* comp, const System::AnsiString 
	nm);
extern PACKAGE bool __fastcall SctEmpty(const System::AnsiString S);
extern PACKAGE System::AnsiString __fastcall SctRightTrim(const System::AnsiString S);

}	/* namespace Sctutil */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sctutil;
#endif
//-- end unit ----------------------------------------------------------------
#endif	// SctUtil