pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Enabled calling of inherited WMMouseWheel

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@199 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-06-30 01:22:18 +00:00
parent 6ca7b4a51d
commit dbf7549b0d
2 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -2510,6 +2510,7 @@ TBaseVirtualTree = class(TCustomControl)
ChildrenOnly: Boolean): PVirtualNode; overload;
procedure CopyToClipBoard; virtual;
procedure CutToClipBoard; virtual;
procedure DefaultHandler(var AMessage); override;
procedure DeleteChildren(Node: PVirtualNode; ResetHasChildren: Boolean = False);
procedure DeleteNode(Node: PVirtualNode; Reindex: Boolean = True);
procedure DeleteSelectedNodes; virtual;
@ -15421,10 +15422,7 @@ begin
Logger.EnterMethod([lcScroll],'CMMouseWheel');
StopWheelPanning;
//todo:
//The only thing that inherited WMMouseWheel does is to call DoMouseWheel
//in the other hand it call a DefaultHandler that causes bug here. So skip it
//inherited WMMouseWheel(Message);
inherited WMMouseWheel(Message);
if Message.Result = 0 then
begin
@ -24405,6 +24403,12 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TBaseVirtualTree.DefaultHandler(var AMessage);
begin
//used to avoid default handler of LM_MOUSEWHEEL
end;
procedure TBaseVirtualTree.DeleteChildren(Node: PVirtualNode; ResetHasChildren: Boolean = False);
// Removes all children and their children from memory without changing the vsHasChildren style by default.

7
components/virtualtreeview-unstable/demos/vtbasic/vtbasic.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
@ -9,7 +9,7 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<IconPath Value=".\"/>
<TargetFileExt Value=".exe"/>
</General>
<VersionInfo>
@ -23,7 +23,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="4">
@ -109,6 +109,7 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>