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
|
{
*****************************************************************************
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_DesignedForm;
{$mode objfpc}{$H+}
interface
uses
Controls, Forms, SrcEditorIntf, sparta_InterfacesMDI;
type
IDesignedFormIDE = interface(IDesignedForm)
['{DFA6C1D8-FA74-443D-B702-82E447F9A111}']
// for last active window
function GetLastActiveSourceWindow: TSourceEditorWindowInterface;
procedure SetLastActiveSourceWindow(AValue: TSourceEditorWindowInterface);
property LastActiveSourceWindow: TSourceEditorWindowInterface read GetLastActiveSourceWindow write SetLastActiveSourceWindow;
end;
IDesignedFakeControl = interface
['{31708772-D9FF-42D8-88AD-D27663393177}']
end;
IDesignedFakeForm = interface
['{A887F50D-13A3-4048-AFFD-F07816FDD08A}']
// other hacked values
procedure SetFormBorderStyle(ANewStyle: TFormBorderStyle);
procedure SetBorderIcons(AVal: TBorderIcons);
procedure SetFormStyle(AValue : TFormStyle);
procedure SetCaption(const AValue: string);
function GetBorderStyle: TFormBorderStyle;
function GetBorderIcons: TBorderIcons;
function GetFormStyle: TFormStyle;
function GetCaption: string;
property BorderIcons: TBorderIcons read GetBorderIcons write SetBorderIcons;
property BorderStyle: TFormBorderStyle read GetBorderStyle write SetFormBorderStyle;
property FormStyle: TFormStyle read GetFormStyle write SetFormStyle;
property Caption: string read GetCaption write SetCaption;
end;
implementation
end.
|
