paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 12:38:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed compilation of EasyDockMgrDsgn package from Sven Barth (issue #18262)

Browse Source 
git-svn-id: trunk@28792 -
This commit is contained in:
vincents 2010-12-20 13:04:39 +00:00
parent 91122360f5
commit f79ad4f80c
5 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/anchordocking/design/registeranchordocking.pas
View File

@ -77,7 +77,7 @@ type
public
constructor Create;
destructor Destroy; override;
procedure MakeIDEWindowDockSite(AForm: TCustomForm); override;
procedure MakeIDEWindowDockSite(AForm: TCustomForm; ASides: TDockSides = [alBottom]); override;
procedure MakeIDEWindowDockable(AControl: TWinControl); override;
function AddableInWindowMenu(AForm: TCustomForm): boolean; override;
function GetDefaultLayoutFilename: string;
@ -225,7 +225,8 @@ begin
inherited Destroy;
end;
procedure TIDEAnchorDockMaster.MakeIDEWindowDockSite(AForm: TCustomForm);
procedure TIDEAnchorDockMaster.MakeIDEWindowDockSite(AForm: TCustomForm;
ASides: TDockSides);
var
aManager: TAnchorDockManager;
begin

2
examples/dockmanager/design/easydockmgrdsgn.pas
View File

@ -2,7 +2,7 @@
This source is only used to compile and install the package.
}
unit easydockmgrdsgn;
unit EasyDockMgrDsgn;
interface

3
examples/dockmanager/design/registereasydockmgr.pas
View File

@ -32,7 +32,7 @@ unit RegisterEasyDockMgr;
{$mode objfpc}{$H+}
{.$DEFINE DockMaster} //must match IDE setting
{$DEFINE DockMaster} //must match IDE setting
interface
@ -44,7 +44,6 @@ uses
const
DefaultConfigFileName = 'easydocklayout.lyt';
type
TDockSides = set of TAlign;
{ TIDEEasyDockMaster }

4
examples/dockmanager/package/easydockmgr.pas
View File

@ -1,8 +1,8 @@
{ This file was automatically created by Lazarus. do not edit!
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit easydockmgr;
unit EasyDockMgr;
interface

4
ideintf/idewindowintf.pas
View File

@ -337,12 +337,14 @@ var
type
TDockSides = set of TAlign;
{ TIDEDockMaster }
TIDEDockMaster = class
public
procedure MakeIDEWindowDockable(AControl: TWinControl); virtual; abstract; // make AControl dockable, it can be docked and other dockable windows can be docked to it, this does not make it visible
procedure MakeIDEWindowDockSite(AForm: TCustomForm); virtual; abstract; // make AForm a dock site, AForm can not be docked, its Parent must be kept nil, this does not make it visible
procedure MakeIDEWindowDockSite(AForm: TCustomForm; ASides: TDockSides = [alBottom]); virtual; abstract; // make AForm a dock site, AForm can not be docked, its Parent must be kept nil, this does not make it visible
procedure ShowForm(AForm: TCustomForm; BringToFront: boolean); virtual; abstract; // make a form visible, set BringToFront=true if form should be shown on active screen and on front of other windows, normally this focus the form
function AddableInWindowMenu(AForm: TCustomForm): boolean; virtual;
procedure CloseAll; virtual; // close all forms, called after IDE has saved all and shuts down