64 lines
2.0 KiB
C++
64 lines
2.0 KiB
C++
// Borland C++ Builder
|
|
// Copyright (c) 1995, 2005 by Borland Software Corporation
|
|
// All rights reserved
|
|
|
|
// (DO NOT EDIT: machine generated header) 'Jvrgbtohtml.pas' rev: 10.00
|
|
|
|
#ifndef JvrgbtohtmlHPP
|
|
#define JvrgbtohtmlHPP
|
|
|
|
#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 <Sysutils.hpp> // Pascal unit
|
|
#include <Classes.hpp> // Pascal unit
|
|
#include <Windows.hpp> // Pascal unit
|
|
#include <Graphics.hpp> // Pascal unit
|
|
#include <Jvcomponentbase.hpp> // Pascal unit
|
|
|
|
//-- user supplied -----------------------------------------------------------
|
|
|
|
namespace Jvrgbtohtml
|
|
{
|
|
//-- type declarations -------------------------------------------------------
|
|
class DELPHICLASS TJvRGBToHTML;
|
|
class PASCALIMPLEMENTATION TJvRGBToHTML : public Jvcomponentbase::TJvComponent
|
|
{
|
|
typedef Jvcomponentbase::TJvComponent inherited;
|
|
|
|
private:
|
|
AnsiString FHTMLColor;
|
|
Graphics::TColor FRGBColor;
|
|
void __fastcall SetRGBColor(const Graphics::TColor Value);
|
|
void __fastcall SetHTMLColor(const AnsiString Value);
|
|
|
|
public:
|
|
__fastcall virtual TJvRGBToHTML(Classes::TComponent* AOwner);
|
|
|
|
__published:
|
|
__property Graphics::TColor RGBColor = {read=FRGBColor, write=SetRGBColor, default=0};
|
|
__property AnsiString HTMLColor = {read=FHTMLColor, write=SetHTMLColor};
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TComponent.Destroy */ inline __fastcall virtual ~TJvRGBToHTML(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
//-- var, const, procedure ---------------------------------------------------
|
|
extern PACKAGE AnsiString __fastcall RgbToHtml(Graphics::TColor Value);
|
|
|
|
} /* namespace Jvrgbtohtml */
|
|
using namespace Jvrgbtohtml;
|
|
#pragma pack(pop)
|
|
#pragma option pop
|
|
|
|
#pragma delphiheader end.
|
|
//-- end unit ----------------------------------------------------------------
|
|
#endif // Jvrgbtohtml
|