Lab13/Execute.LensEffect.hpp - master - MikeLight/Lab

Lab13/Execute.LensEffect.hpp
74 строки2 KB
MikeLight
upload files
18 дек 2025, 14:45
18 дек 2025, 14:45385fc10
// CodeGear C++Builder
// Copyright (c) 1995, 2022 by Embarcadero Technologies, Inc.
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Execute.LensEffect.pas' rev: 36.00 (Windows)

#ifndef Execute_LenseffectHPP
#define Execute_LenseffectHPP

#pragma delphiheader begin
#pragma option push
#if defined(__BORLANDC__) && !defined(__clang__)
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member 
#endif
#pragma pack(push,8)
#include <System.hpp>
#include <SysInit.hpp>
#include <System.Types.hpp>
#include <System.UITypes.hpp>
#include <System.SysUtils.hpp>
#include <System.Math.hpp>
#include <System.Math.Vectors.hpp>
#include <System.RTLConsts.hpp>
#include <FMX.Types3D.hpp>
#include <FMX.Materials.hpp>

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

namespace Execute
{
namespace Lenseffect
{
//-- forward type declarations -----------------------------------------------
class DELPHICLASS TLensEffect;
//-- type declarations -------------------------------------------------------
#pragma pack(push,4)
class PASCALIMPLEMENTATION TLensEffect : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	Fmx::Types3d::TTexture* FTexture;
	Fmx::Types3d::TContext3D* FContext;
	int FDivisions;
	Fmx::Types3d::TVertexBuffer* FVer;
	Fmx::Types3d::TIndexBuffer* FIdx;
	Fmx::Materials::TTextureMaterial* FMat;
	
public:
	__fastcall TLensEffect(int Divisions);
	__fastcall virtual ~TLensEffect();
	void __fastcall SetSize(int Width, int Height, float Scale);
	void __fastcall Render(Fmx::Types3d::TTexture* Texture);
	__property Fmx::Types3d::TContext3D* Context = {read=FContext};
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
}	/* namespace Lenseffect */
}	/* namespace Execute */
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_EXECUTE_LENSEFFECT)
using namespace Execute::Lenseffect;
#endif
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_EXECUTE)
using namespace Execute;
#endif
#pragma pack(pop)
#pragma option pop

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