Context Navigation

UCDManagerRegionsPopup.pas

Last change on this file was 73, checked in by chronos, 12 years ago
Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
File size: 1.2 KB

Line
1	unit UCDManagerRegionsPopup;
2
3	{$mode Delphi}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, UCDManagerRegions, UCDCommon, Controls;
9
10	type
11
12	{ TCDManagerPopupRegionsItem }
13
14	TCDManagerPopupRegionsItem = class(TCDManagerRegionsItem)
15	private
16	FAutoHide: Boolean;
17	function GetAutoHideEnabled: Boolean;
18	procedure SetAutoHide(const AValue: Boolean);
19	procedure SetAutoHideEnabled(const AValue: Boolean);
20	public
21	property AutoHideEnabled: Boolean read GetAutoHideEnabled
22	write SetAutoHideEnabled;
23	end;
24
25	{ TCDManagerPopupRegions }
26
27	TCDManagerPopupRegions = class(TCDManagerRegions)
28	constructor Create(ADockSite: TWinControl);
29	end;
30
31
32	implementation
33
34	uses
35	UCDClient;
36
37	{ TCDManagerPopupRegionsItem }
38
39	function TCDManagerPopupRegionsItem.GetAutoHideEnabled: Boolean;
40	begin
41
42	end;
43
44	procedure TCDManagerPopupRegionsItem.SetAutoHide(const AValue: Boolean);
45	begin
46
47	end;
48
49	procedure TCDManagerPopupRegionsItem.SetAutoHideEnabled(const AValue: Boolean);
50	begin
51
52	end;
53
54	{ TCDManagerPopupRegions }
55
56	constructor TCDManagerPopupRegions.Create(ADockSite: TWinControl);
57	begin
58	inherited;
59	FDockStyle := dsPopupList;
60	end;
61
62	end.
63

Note: See TracBrowser for help on using the repository browser.