forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove old trick to access member

This commit is contained in:
Basile Burg 2018-01-11 03:45:59 +01:00
parent e815013bd9
commit 34d2d4e172
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_main.pas
View File

@ -26,11 +26,6 @@ type
TCEApplicationOptions = class; TCEApplicationOptions = class;
TAnchorDockSplitterEx = class(TAnchorDockSplitter)
public
property OnMouseWheel;
end;
TAsyncWait = (awNo, awYes, awCustom); TAsyncWait = (awNo, awYes, awCustom);
TRunnableToFolderCondition = ( TRunnableToFolderCondition = (
@ -1379,7 +1374,6 @@ begin
accept := GetKeyShiftState = [ssCtrl]; accept := GetKeyShiftState = [ssCtrl];
end; end;
//TODO-cdocking: remove the usage of TAnchorDockSplitterEx from Laz 1.8 (OnMouseWheel public)
procedure TCEMainForm.DockSplitterMw(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); procedure TCEMainForm.DockSplitterMw(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var var
offs: integer; offs: integer;
@ -1415,10 +1409,10 @@ begin
if site is TAnchorDockHostSite then if site is TAnchorDockHostSite then
begin begin
if TAnchorDockHostSite(site).BoundSplitter.isNotNil then if TAnchorDockHostSite(site).BoundSplitter.isNotNil then
TAnchorDockSplitterEx(TAnchorDockHostSite(site).BoundSplitter).OnMouseWheel:=@DockSplitterMw; TAnchorDockHostSite(site).BoundSplitter.OnMouseWheel:= @DockSplitterMw;
end end
else if site is TAnchorDockSplitter then else if site is TAnchorDockSplitter then
TAnchorDockSplitterEx(TAnchorDockSplitter(site)).OnMouseWheel:=@DockSplitterMw; TAnchorDockSplitter(site).OnMouseWheel:= @DockSplitterMw;
end; end;
end; end;
end; end;