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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
{
*****************************************************************************
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
Author: Maciej Izak
DaThoX 2004-2015
FreeSparta.com
}
unit sparta_Resizer;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
// LCL
Controls,
// IdeIntf
FormEditingIntf,
// Sparta
sparta_InterfacesMDI, SpartaAPI, sparta_BasicResizeFrame, sparta_BasicResizer;
type
{ TResizer }
TResizer = class(TBasicResizer, IResizer)
protected
FMainDTU: ISTAMainDesignTimeUtil;
FEDTU: TList;
class var
FStarter, FProfessional: TNotifyEvent;
procedure SetDesignedForm(const AValue: IDesignedForm); override;
public
property MainDTU: ISTAMainDesignTimeUtil read FMainDTU;
constructor Create(AParent: TWinControl; AResizerFrameClass: TResizerFrameClass); override;
destructor Destroy; override;
end;
implementation
{ TResizer }
procedure TResizer.SetDesignedForm(const AValue: IDesignedForm);
var
LLookupRoot: TComponent;
begin
inherited SetDesignedForm(AValue);
if AValue <> nil then
begin
// in this place DesignedForm should be initialized by current editor (+ "sizer")
// TODO some interfaces for utils (Design Time Utils - DTU) ?
LLookupRoot := LookupRoot(DesignedForm.Form);
if FMainDTU <> nil then
FMainDTU.Root := LLookupRoot;
end
else
begin
if FMainDTU <> nil then
FMainDTU.Root := nil;
end;
end;
constructor TResizer.Create(AParent: TWinControl;
AResizerFrameClass: TResizerFrameClass);
begin
inherited Create(AParent, AResizerFrameClass);
FEDTU := TList.Create;
if DTUManager <> nil then
begin
FMainDTU := DTUManager.CreateMainDTU(pMainDTU, pAddons);
end;
if Assigned(FStarter) then
FStarter(Self);
end;
destructor TResizer.Destroy;
begin
FEDTU.Free;
Pointer(FMainDTU) := nil; // released by owner
inherited Destroy;
end;
end.
|
