mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-21 21:42:31 +02:00
57 lines
1.7 KiB
ObjectPascal
57 lines
1.7 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
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.
|
|
|