paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Published tablecolumns property in tableproducer

Browse Source
This commit is contained in:
michael 2003-10-03 22:43:17 +00:00
parent d319f4f226
commit 3fa722c72d
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/db/dbwhtml.pp
View File

@ -71,6 +71,7 @@ Type
Private Private
FTableColumns : TTableColumns; FTableColumns : TTableColumns;
FBorder : Boolean; FBorder : Boolean;
Procedure SetTableColumns(Value : TTableColumns);
Protected Protected
Procedure BindColumns; Procedure BindColumns;
Procedure CreateTableColumns; Virtual; Procedure CreateTableColumns; Virtual;
@ -91,6 +92,7 @@ Type
Procedure CreateContent; override; Procedure CreateContent; override;
Published Published
Property Border : Boolean Read FBorder Write FBorder; Property Border : Boolean Read FBorder Write FBorder;
Property TableColumns : TTableColumns Read FTableColumns Write SetTableColumns;
end; end;
TComboBoxProducer = Class(THTMLProducer) TComboBoxProducer = Class(THTMLProducer)
@ -338,6 +340,12 @@ begin
CreateTable; CreateTable;
end; end;
Procedure TTableProducer.SetTableColumns(Value : TTableColumns);
begin
FTableColumns.Assign(Value);
end;
{ TComboBoxProducer } { TComboBoxProducer }
@ -496,7 +504,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.3 2003-10-03 08:42:22 michael Revision 1.4 2003-10-03 22:43:17 michael
+ Published tablecolumns property in tableproducer
Revision 1.3 2003/10/03 08:42:22 michael
+ Form support. + Form support.
Revision 1.2 2003/10/01 21:07:48 michael Revision 1.2 2003/10/01 21:07:48 michael