68 lines
2.5 KiB
C++
68 lines
2.5 KiB
C++
// Borland C++ Builder
|
|
// Copyright (c) 1995, 2005 by Borland Software Corporation
|
|
// All rights reserved
|
|
|
|
// (DO NOT EDIT: machine generated header) 'Jvstringlisttohtml.pas' rev: 10.00
|
|
|
|
#ifndef JvstringlisttohtmlHPP
|
|
#define JvstringlisttohtmlHPP
|
|
|
|
#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 Jvstringlisttohtml
|
|
{
|
|
//-- type declarations -------------------------------------------------------
|
|
class DELPHICLASS TJvStringListToHtml;
|
|
class PASCALIMPLEMENTATION TJvStringListToHtml : public Jvcomponentbase::TJvComponent
|
|
{
|
|
typedef Jvcomponentbase::TJvComponent inherited;
|
|
|
|
private:
|
|
Classes::TStringList* FStrings;
|
|
Classes::TStringList* FHTML;
|
|
AnsiString FHTMLTitle;
|
|
AnsiString FHTMLLineBreak;
|
|
bool FIncludeHeader;
|
|
Classes::TStrings* __fastcall GetHTML(void);
|
|
Classes::TStrings* __fastcall GetStrings(void);
|
|
void __fastcall SetStrings(const Classes::TStrings* Value);
|
|
void __fastcall DoStringsChange(System::TObject* Sender);
|
|
void __fastcall SetHTML(const Classes::TStrings* Value);
|
|
|
|
public:
|
|
__fastcall virtual TJvStringListToHtml(Classes::TComponent* AOwner);
|
|
__fastcall virtual ~TJvStringListToHtml(void);
|
|
void __fastcall ConvertToHTML(Classes::TStrings* Source, const AnsiString FileName);
|
|
void __fastcall ConvertToHTMLStrings(Classes::TStrings* Source, Classes::TStrings* Destination);
|
|
|
|
__published:
|
|
__property Classes::TStrings* HTML = {read=GetHTML, write=SetHTML, stored=false};
|
|
__property Classes::TStrings* Strings = {read=GetStrings, write=SetStrings};
|
|
__property AnsiString HTMLLineBreak = {read=FHTMLLineBreak, write=FHTMLLineBreak};
|
|
__property AnsiString HTMLTitle = {read=FHTMLTitle, write=FHTMLTitle};
|
|
__property bool IncludeHeader = {read=FIncludeHeader, write=FIncludeHeader, default=1};
|
|
};
|
|
|
|
|
|
//-- var, const, procedure ---------------------------------------------------
|
|
|
|
} /* namespace Jvstringlisttohtml */
|
|
using namespace Jvstringlisttohtml;
|
|
#pragma pack(pop)
|
|
#pragma option pop
|
|
|
|
#pragma delphiheader end.
|
|
//-- end unit ----------------------------------------------------------------
|
|
#endif // Jvstringlisttohtml
|