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; ChildrenOnly: Boolean): PVirtualNode; overload;
procedure CopyToClipBoard; virtual; procedure CopyToClipBoard; virtual;
procedure CutToClipBoard; virtual; procedure CutToClipBoard; virtual;
procedure DefaultHandler(var AMessage); override;
procedure DeleteChildren(Node: PVirtualNode; ResetHasChildren: Boolean = False); procedure DeleteChildren(Node: PVirtualNode; ResetHasChildren: Boolean = False);
procedure DeleteNode(Node: PVirtualNode; Reindex: Boolean = True); procedure DeleteNode(Node: PVirtualNode; Reindex: Boolean = True);
procedure DeleteSelectedNodes; virtual; procedure DeleteSelectedNodes; virtual;
@ -15421,10 +15422,7 @@ begin
Logger.EnterMethod([lcScroll],'CMMouseWheel'); Logger.EnterMethod([lcScroll],'CMMouseWheel');
StopWheelPanning; StopWheelPanning;
//todo: inherited WMMouseWheel(Message);
//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);
if Message.Result = 0 then if Message.Result = 0 then
begin 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); procedure TBaseVirtualTree.DeleteChildren(Node: PVirtualNode; ResetHasChildren: Boolean = False);
// Removes all children and their children from memory without changing the vsHasChildren style by default. // 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"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
@ -9,7 +9,7 @@
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
</General> </General>
<VersionInfo> <VersionInfo>
@ -23,7 +23,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <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> </local>
</RunParams> </RunParams>
<RequiredPackages Count="4"> <RequiredPackages Count="4">
@ -109,6 +109,7 @@
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>