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

Sparta docked formeditor: Change visibility of methods so it compiles with FPC trunk. Issue #34816.

Browse Source 
git-svn-id: trunk@60119 -
This commit is contained in:
juha 2019-01-20 10:34:39 +00:00
parent 87bfc99a1c
commit 76ffb9c721
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/sparta/mdi/source/sparta_basicfakecustom.pas
View File

@ -19,17 +19,14 @@ type
FHackTop: Integer;
FHackWidth: Integer;
FHackHeight: Integer;
private
FOnChangeHackedBounds: TNotifyEvent;
procedure SetOnChangeHackedBounds(const AValue: TNotifyEvent);
function GetOnChangeHackedBounds: TNotifyEvent;
function PositionDelta: TPoint;
protected
FForm: TCustomForm;
FUpdate: boolean;
protected
procedure SetOnChangeHackedBounds(const AValue: TNotifyEvent);
function GetOnChangeHackedBounds: TNotifyEvent;
function PositionDelta: TPoint;
function GetRealBounds(AIndex: Integer): Integer; virtual;
procedure SetRealBounds(AIndex: Integer; AValue: Integer); virtual;
function GetPublishedBounds(AIndex: Integer): Integer; virtual;
@ -56,7 +53,7 @@ type
function GetForm: TCustomForm; virtual;
function GetUpdate: Boolean; virtual;
protected
procedure DoChangeHackedBounds; virtual;
function GetLogicalClientRect(ALogicalClientRect: TRect): TRect; virtual;