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

lcl: splitter: make MoveSplitter virtual

Browse Source 
git-svn-id: trunk@51098 -
This commit is contained in:
ondrej 2015-12-31 14:25:07 +00:00
parent bb21c80552
commit 824ea1274e
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);
property ResizeControl: TControl read GetResizeControl write SetResizeControl;
function GetOtherResizeControl: TControl;
procedure MoveSplitter(Offset: integer);
procedure MoveSplitter(Offset: integer); virtual;
procedure SetSplitterPosition(NewPosition: integer);
function GetSplitterPosition: integer;
public