| Class TTabDefaultsForm (unit TableDefaults) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure OKButClick(Sender: TObject);
function SetDefaults: boolean;
procedure SetTable(Table: TTable);
procedure DefChange(Sender: TObject);
procedure Fill_Combo(cb: TComboBox; f: TField);
function HasDefault(const FieldName: string): boolean;
procedure SetComboID(cb: TDefComboBox; ID: integer);| Properties |
| Events |
| Variables |
BotPanel : TPanel;
CancelBut : TBitBtn;
OKBut : TBitBtn;
ScrollBox1 : TScrollBox;
CurTable : TTable;
Defaults : TStringList;| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure OKButClick(Sender: TObject);
function SetDefaults: boolean;Num := Num + 1; if Num > MAX_COMBO_ITEMS then break;
procedure SetTable(Table: TTable);
procedure DefChange(Sender: TObject);
procedure Fill_Combo(cb: TComboBox; f: TField);
function HasDefault(const FieldName: string): boolean;
procedure SetComboID(cb: TDefComboBox; ID: integer);| Properties |
| Events |
| Variables |
BotPanel : TPanel;
CancelBut : TBitBtn;
OKBut : TBitBtn;
ScrollBox1 : TScrollBox;
CurTable : TTable;
Defaults : TStringList;