paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 00:20:08 +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 public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
procedure MakeIDEWindowDockSite(AForm: TCustomForm); override; procedure MakeIDEWindowDockSite(AForm: TCustomForm; ASides: TDockSides = [alBottom]); override;
procedure MakeIDEWindowDockable(AControl: TWinControl); override; procedure MakeIDEWindowDockable(AControl: TWinControl); override;
function AddableInWindowMenu(AForm: TCustomForm): boolean; override; function AddableInWindowMenu(AForm: TCustomForm): boolean; override;
function GetDefaultLayoutFilename: string; function GetDefaultLayoutFilename: string;
@ -225,7 +225,8 @@ begin
inherited Destroy; inherited Destroy;
end; end;
procedure TIDEAnchorDockMaster.MakeIDEWindowDockSite(AForm: TCustomForm); procedure TIDEAnchorDockMaster.MakeIDEWindowDockSite(AForm: TCustomForm;
ASides: TDockSides);
var var
aManager: TAnchorDockManager; aManager: TAnchorDockManager;
begin begin

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

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

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

@ -32,7 +32,7 @@ unit RegisterEasyDockMgr;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{.$DEFINE DockMaster} //must match IDE setting {$DEFINE DockMaster} //must match IDE setting
interface interface
@ -44,7 +44,6 @@ uses
const const
DefaultConfigFileName = 'easydocklayout.lyt'; DefaultConfigFileName = 'easydocklayout.lyt';
type type
TDockSides = set of TAlign;
{ TIDEEasyDockMaster } { 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. This source is only used to compile and install the package.
} }
unit easydockmgr; unit EasyDockMgr;
interface interface

4
ideintf/idewindowintf.pas
View File

@ -337,12 +337,14 @@ var
type type
TDockSides = set of TAlign;
{ TIDEDockMaster } { TIDEDockMaster }
TIDEDockMaster = class TIDEDockMaster = class
public 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 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 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; function AddableInWindowMenu(AForm: TCustomForm): boolean; virtual;
procedure CloseAll; virtual; // close all forms, called after IDE has saved all and shuts down procedure CloseAll; virtual; // close all forms, called after IDE has saved all and shuts down