aceimg.hpp

suite component ace report

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

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

#ifndef AceImgHPP
#define AceImgHPP

#pragma delphiheader begin
#pragma option push -w-
#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 Aceimg
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAceImage;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAceImage : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TAceImage(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TAceImage(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma option push -b-
enum TAceBitmapType { abtNone, abtWindows, abtPresMan };
#pragma option pop

class DELPHICLASS TAceBitmap;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAceBitmap : public TAceImage 
{
	typedef TAceImage inherited;
	
private:
	HBITMAP FPalette;
	void *FDIBBits;
	bool FMonochrome;
	TAceBitmapType FBitmapType;
	tagBITMAPFILEHEADER FBitmapFileHeader;
	Classes::TMemoryStream* FBitmapStream;
	tagBITMAPCOREHEADER FCoreHeader;
	tagBITMAPINFOHEADER FInfoHeader;
	Word FColorSize;
	int FBitsSize;
	tagBITMAPINFO *FBitmapInfo;
	tagBITMAPCOREINFO *FBitmapCoreInfo;
	unsigned FDC;
	int FWidth;
	int FHeight;
	int FPixelsPerInch;
	void __fastcall InitBitmap(void);
	void __fastcall MakePalette(void);
	void __fastcall CreateWinPalette(void);
	void __fastcall CreatePMPalette(void);
	void __fastcall CreateBitmapInfo(void);
	
protected:
	int __fastcall GetHeight(unsigned Handle);
	int __fastcall GetWidth(unsigned Handle);
	
public:
	__fastcall virtual TAceBitmap(void);
	__fastcall virtual ~TAceBitmap(void);
	void __fastcall Clear(void);
	void __fastcall LoadFromStream(Classes::TStream* Stream);
	void __fastcall StretchDraw(unsigned hnd, const Windows::TRect &Rect);
	void __fastcall Draw(unsigned hnd, int x, int y);
	__property int Width = {read=FWidth, write=FWidth, nodefault};
	__property int Height = {read=FHeight, write=FHeight, nodefault};
	__property int PixelsPerInch = {read=FPixelsPerInch, write=FPixelsPerInch, nodefault};
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Graphics::TGraphic* __fastcall AceGetGraphic(Classes::TStream* Stream);
extern PACKAGE bool __fastcall AceIsBlob(Classes::TStream* Stream);
extern PACKAGE bool __fastcall AceIsIcon(Classes::TStream* Stream);
extern PACKAGE bool __fastcall AceIsBitmap(Classes::TStream* Stream);
extern PACKAGE bool __fastcall AceIsEMF(Classes::TStream* Stream);
extern PACKAGE bool __fastcall AceIsPlaceWMF(Classes::TStream* Stream);

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

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