flexalpha.hpp

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

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

// (DO NOT EDIT: machine generated header) 'FlexAlpha.pas' rev: 5.00

#ifndef FlexAlphaHPP
#define FlexAlphaHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Graphics.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 Flexalpha
{
//-- type declarations -------------------------------------------------------
typedef tagRGBQUAD TAlphaLine[536870911];

typedef tagRGBQUAD *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;
	Windows::TRect FPaintRect;
	int FPaintWidth;
	int FPaintHeight;
	int FWidth;
	int FHeight;
	tagRGBQUAD *FBits;
	int FBytesPerLine;
	#pragma pack(push, 1)
	tagBITMAPINFO FInfo;
	#pragma pack(pop)
	
	HBITMAP FHandle;
	bool FStored;
	
protected:
	void __fastcall ResetCanvas(bool DeleteDIB);
	void __fastcall RecreateDIB(int AWidth, int AHeight, bool ForceRecreate, unsigned FillColor);
	
public:
	__fastcall TAlphaBuffer(TAlphaBuffer* AParent);
	__fastcall virtual ~TAlphaBuffer(void);
	virtual bool __fastcall BeginPaint(HDC ASourceDC, const Windows::TRect &APaintRect);
	virtual bool __fastcall EndPaint(int Transparency);
	bool __fastcall StoreFromGraphic(Graphics::TGraphic* Graphic, TStoreDrawEvent OnDraw);
	bool __fastcall PaintStored(TAlphaBuffer* Dest, const Windows::TRect &APaintRect, const Windows::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 */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Flexalpha;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

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