66 lines
2.1 KiB
C++
66 lines
2.1 KiB
C++
// Borland C++ Builder
|
|
// Copyright (c) 1995, 2005 by Borland Software Corporation
|
|
// All rights reserved
|
|
|
|
// (DO NOT EDIT: machine generated header) 'Jvstrtohtml.pas' rev: 10.00
|
|
|
|
#ifndef JvstrtohtmlHPP
|
|
#define JvstrtohtmlHPP
|
|
|
|
#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 <Jvcomponentbase.hpp> // Pascal unit
|
|
|
|
//-- user supplied -----------------------------------------------------------
|
|
|
|
namespace Jvstrtohtml
|
|
{
|
|
//-- type declarations -------------------------------------------------------
|
|
class DELPHICLASS TJvStrToHtml;
|
|
class PASCALIMPLEMENTATION TJvStrToHtml : public Jvcomponentbase::TJvComponent
|
|
{
|
|
typedef Jvcomponentbase::TJvComponent inherited;
|
|
|
|
private:
|
|
AnsiString FHtml;
|
|
AnsiString FValue;
|
|
void __fastcall SetHtml(const AnsiString Value);
|
|
void __fastcall SetValue(const AnsiString Value);
|
|
|
|
public:
|
|
__fastcall virtual TJvStrToHtml(Classes::TComponent* AOwner);
|
|
AnsiString __fastcall TextToHtml(const AnsiString Text);
|
|
AnsiString __fastcall HtmlToText(const AnsiString Text);
|
|
|
|
__published:
|
|
__property AnsiString Text = {read=FValue, write=SetValue};
|
|
__property AnsiString Html = {read=FHtml, write=SetHtml};
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TComponent.Destroy */ inline __fastcall virtual ~TJvStrToHtml(void) { }
|
|
#pragma option pop
|
|
|
|
};
|
|
|
|
|
|
//-- var, const, procedure ---------------------------------------------------
|
|
extern PACKAGE AnsiString __fastcall StringToHtml(const AnsiString Value);
|
|
extern PACKAGE AnsiString __fastcall HtmlToString(const AnsiString Value);
|
|
extern PACKAGE AnsiString __fastcall CharToHtml(char Ch);
|
|
|
|
} /* namespace Jvstrtohtml */
|
|
using namespace Jvstrtohtml;
|
|
#pragma pack(pop)
|
|
#pragma option pop
|
|
|
|
#pragma delphiheader end.
|
|
//-- end unit ----------------------------------------------------------------
|
|
#endif // Jvstrtohtml
|