| Class TfrmTables (unit tables) |
TForm
| Constructors |
| Functions |
procedure BitBtn2Click(Sender: TObject);
procedure btnPrintAllStructClick(Sender: TObject);
procedure btnPrintThisStructClick(Sender: TObject);
procedure chkOnTopClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lstTablesClick(Sender: TObject);
function GetFieldType(fld: TField): string;
procedure SetupFields(printing: boolean);
function BooltoStr(valin: boolean): string;
procedure GetFieldsNew(tbl: TTable; printing: boolean);| Properties |
| Events |
| Variables |
BitBtn2 : TBitBtn;
btnPrintAllStruct : TBitBtn;
btnPrintThisStruct : TBitBtn;
chkOnTop : TCheckBox;
dlgPrinterSetup : TPrinterSetupDialog;
ImageList1 : TImageList;
lstTables : TListBox;
lvDetail : TListView;
Panel1 : TPanel;
Panel2 : TPanel;
panTables : TPanel;
Splitter1 : TSplitter;
tblInfo : TTable;| Constructors |
| Functions |
procedure BitBtn2Click(Sender: TObject);
procedure btnPrintAllStructClick(Sender: TObject);
procedure btnPrintThisStructClick(Sender: TObject);
procedure chkOnTopClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lstTablesClick(Sender: TObject);ftUnkown: Result := 'Unknown';
function GetFieldType(fld: TField): string;
procedure SetupFields(printing: boolean);Public declarations
function BooltoStr(valin: boolean): string;Private declarations
procedure GetFieldsNew(tbl: TTable; printing: boolean);GetFields(tblInfo);
| Properties |
| Events |
| Variables |
BitBtn2 : TBitBtn;
btnPrintAllStruct : TBitBtn;
btnPrintThisStruct : TBitBtn;
chkOnTop : TCheckBox;
dlgPrinterSetup : TPrinterSetupDialog;
ImageList1 : TImageList;
lstTables : TListBox;
lvDetail : TListView;
Panel1 : TPanel;
Panel2 : TPanel;
panTables : TPanel;
Splitter1 : TSplitter;
tblInfo : TTable;