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

merge r51098: lcl: splitter: make MoveSplitter virtual (needed for r51099 #47649a5b56)

Browse Source 
git-svn-id: branches/fixes_1_6@51102 -
This commit is contained in:
ondrej 2016-01-01 08:15:24 +00:00
parent ddbb0da02e
commit 466e7d8df9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/extctrls.pp
View File

@ -373,7 +373,7 @@ type
procedure AnchorSplitter(Kind: TAnchorKind; AControl: TControl); procedure AnchorSplitter(Kind: TAnchorKind; AControl: TControl);
property ResizeControl: TControl read GetResizeControl write SetResizeControl; property ResizeControl: TControl read GetResizeControl write SetResizeControl;
function GetOtherResizeControl: TControl; function GetOtherResizeControl: TControl;
procedure MoveSplitter(Offset: integer); procedure MoveSplitter(Offset: integer); virtual;
procedure SetSplitterPosition(NewPosition: integer); procedure SetSplitterPosition(NewPosition: integer);
function GetSplitterPosition: integer; function GetSplitterPosition: integer;
public public