paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:19:22 +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: branches/fixes_2_0@60197 -
This commit is contained in:
mattias 2019-01-24 09:49:35 +00:00
parent 1a43728757
commit bba73073f1
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; FHackTop: Integer;
FHackWidth: Integer; FHackWidth: Integer;
FHackHeight: Integer; FHackHeight: Integer;
private
FOnChangeHackedBounds: TNotifyEvent; FOnChangeHackedBounds: TNotifyEvent;
procedure SetOnChangeHackedBounds(const AValue: TNotifyEvent);
function GetOnChangeHackedBounds: TNotifyEvent;
function PositionDelta: TPoint;
protected protected
FForm: TCustomForm; FForm: TCustomForm;
FUpdate: boolean; FUpdate: boolean;
protected procedure SetOnChangeHackedBounds(const AValue: TNotifyEvent);
function GetOnChangeHackedBounds: TNotifyEvent;
function PositionDelta: TPoint;
function GetRealBounds(AIndex: Integer): Integer; virtual; function GetRealBounds(AIndex: Integer): Integer; virtual;
procedure SetRealBounds(AIndex: Integer; AValue: Integer); virtual; procedure SetRealBounds(AIndex: Integer; AValue: Integer); virtual;
function GetPublishedBounds(AIndex: Integer): Integer; virtual; function GetPublishedBounds(AIndex: Integer): Integer; virtual;
@ -56,7 +53,7 @@ type
function GetForm: TCustomForm; virtual; function GetForm: TCustomForm; virtual;
function GetUpdate: Boolean; virtual; function GetUpdate: Boolean; virtual;
protected
procedure DoChangeHackedBounds; virtual; procedure DoChangeHackedBounds; virtual;
function GetLogicalClientRect(ALogicalClientRect: TRect): TRect; virtual; function GetLogicalClientRect(ALogicalClientRect: TRect): TRect; virtual;