1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
unit InstanceSections;
interface
uses
Classes, Forms, Controls, ExtCtrls, Types, Graphics, Messages, ComCtrls,
Sections, MySQLConnection, TntComCtrls;
type
// All individual Forms (which are triggered by the SidebarSections)
// descend from this class so they can be docked to a TSectionPanel from the
// MainForm more easily
TInstanceSectionForm = class(TSectionForm)
public
MySQLConn: TMySQLConn;
constructor Create(AOwner: TComponent; MySQLConn: TMySQLConn; StatusBar: TTntStatusBar = nil); reintroduce;
end;
TInstanceSectionForm2 = class(TSectionForm2) // for MA 2.0
constructor Create(AOwner: TComponent; Data: Pointer;
StatusBar: TTntStatusBar = nil); reintroduce;
private
StatusBar: TTntStatusBar;
protected
ConnectionData: Pointer;
public
end;
//----------------------------------------------------------------------------------------------------------------------
implementation
//----------------------------------------------------------------------------------------------------------------------
constructor TInstanceSectionForm.Create(AOwner: TComponent; MySQLConn: TMySQLConn; StatusBar: TTntStatusBar);
begin
inherited Create(AOwner, StatusBar);
self.MySQLConn:=MySQLConn;
self.StatusBar:=StatusBar;
end;
//----------------------------------------------------------------------------------------------------------------------
constructor TInstanceSectionForm2.Create(AOwner: TComponent; Data: Pointer; StatusBar: TTntStatusBar);
begin
inherited Create(AOwner, StatusBar);
ConnectionData:=Data;
self.StatusBar:=StatusBar;
end;
//----------------------------------------------------------------------------------------------------------------------
end.
|
