forked from zertovitch/lea
-
Notifications
You must be signed in to change notification settings - Fork 0
/
lea_gwin-sliding_panels.ads
36 lines (25 loc) · 1.09 KB
/
lea_gwin-sliding_panels.ads
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
with LEA_GWin.Messages;
with GWindows.Common_Controls,
GWindows.Panels,
GWindows.Windows.MDI;
with GWin_Util;
package LEA_GWin.Sliding_Panels is
type LEA_splitter is new GWin_Util.Splitter_with_dashes with record
MDI_Main : GWindows.Windows.MDI.Pointer_To_MDI_Main_Window_Class;
end record;
overriding procedure On_Bar_Moved (Splitter : in out LEA_splitter);
type Project_Panel_Type is new GWindows.Panels.Panel_Type with record
Project_Tree : GWindows.Common_Controls.Tree_View_Control_Type;
Splitter : LEA_splitter;
end record;
overriding procedure On_Create (Window : in out Project_Panel_Type);
type Message_Panel_Type is new GWindows.Panels.Panel_Type with record
Message_List : LEA_GWin.Messages.Message_List_Type;
Splitter : LEA_splitter;
end record;
overriding procedure On_Create (Window : in out Message_Panel_Type);
type Subprogram_Panel_Type is new GWindows.Panels.Panel_Type with record
Subprogram_Tree : GWindows.Common_Controls.Tree_View_Control_Type;
Splitter : LEA_splitter;
end record;
end LEA_GWin.Sliding_Panels;