sctutil.hpp

suite component ace report

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

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

#ifndef SctUtilHPP
#define SctUtilHPP

#pragma delphiheader begin
#pragma option push -w-
#include <Controls.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Sctutil
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TSctUnits { unitInches, unitMiliMeters, unitCentiMeters };
#pragma option pop

class DELPHICLASS TSctUnitMaster;
#pragma pack(push, 4)
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:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TSctUnitMaster(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TSctUnitMaster(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctRuler;
#pragma pack(push, 4)
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:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctRuler(HWND ParentWindow) : Extctrls::TCustomPanel(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TSctRulerContainer;
#pragma pack(push, 4)
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:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctRulerContainer(HWND ParentWindow) : Extctrls::TCustomPanel(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

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

}	/* namespace Sctutil */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sctutil;
#endif
#pragma option pop	// -w-

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