flexalpha.hpp

FlexGraphics是一套创建矢量图形的VCL组件

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

// (DO NOT EDIT: machine generated header) 'Flexalpha.pas' rev: 10.00

#ifndef FlexalphaHPP
#define FlexalphaHPP

#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 <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit

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

namespace Flexalpha
{
//-- type declarations -------------------------------------------------------
typedef tagRGBQUAD TAlphaLine[536870911];

typedef TAlphaLine *PAlphaLine;

typedef void __fastcall (__closure *TStoreDrawEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, Graphics::TGraphic* Graphic);

class DELPHICLASS TAlphaBuffer;
class PASCALIMPLEMENTATION TAlphaBuffer : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TAlphaBuffer* FParent;
	HDC FSourceDC;
	Graphics::TCanvas* FCanvas;
	HDC FCanvasDC;
	HBITMAP FCanvasDCBitmap;
	#pragma pack(push,1)
	Types::TRect FPaintRect;
	#pragma pack(pop)
	int FPaintWidth;
	int FPaintHeight;
	int FWidth;
	int FHeight;
	TAlphaLine *FBits;
	int FBytesPerLine;
	#pragma pack(push,1)
	tagBITMAPINFO FInfo;
	#pragma pack(pop)
	HBITMAP FHandle;
	bool FStored;
	
protected:
	void __fastcall ResetCanvas(bool DeleteDIB = false);
	void __fastcall RecreateDIB(int AWidth, int AHeight, bool ForceRecreate = false, unsigned FillColor = (unsigned)(0xff000000));
	
public:
	__fastcall TAlphaBuffer(TAlphaBuffer* AParent);
	__fastcall virtual ~TAlphaBuffer(void);
	virtual bool __fastcall BeginPaint(HDC ASourceDC, const Types::TRect &APaintRect);
	virtual bool __fastcall EndPaint(int Transparency);
	bool __fastcall StoreFromGraphic(Graphics::TGraphic* Graphic, TStoreDrawEvent OnDraw = 0x0);
	bool __fastcall PaintStored(TAlphaBuffer* Dest, const Types::TRect &APaintRect, const Types::TRect &ASrcRect);
	__property Graphics::TCanvas* Canvas = {read=FCanvas};
	__property HDC SourceDC = {read=FSourceDC, nodefault};
	__property HBITMAP Handle = {read=FHandle, nodefault};
	__property int Width = {read=FWidth, nodefault};
	__property int Height = {read=FHeight, nodefault};
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Flexalpha */
using namespace Flexalpha;
#pragma pack(pop)
#pragma option pop

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