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

* Cleanup WndProc

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2612 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-12-31 14:06:40 +00:00
parent 5cb0efece9
commit d83eb2450c
1 changed files with 3 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -23830,11 +23830,10 @@ begin
if not (csDesigning in ComponentState) and
((Message.Msg = LM_LBUTTONDOWN) or (Message.Msg = LM_LBUTTONDBLCLK)) then
begin
if (DragMode = dmAutomatic) and (DragKind = dkDrag) then
Handled := (DragMode = dmAutomatic) and (DragKind = dkDrag);
if Handled then
begin
if IsControlMouseMsg(TLMMouse(Message)) then
Handled := True;
if not Handled then
if not IsControlMouseMsg(TLMMouse(Message)) then
begin
//lclheader
//let the header handle the message here
@ -23842,7 +23841,6 @@ begin
FHeader.HandleMessage(Message);
ControlState := ControlState + [csLButtonDown];
Dispatch(Message); // overrides TControl's BeginDrag
Handled := True;
end;
end;
end;
@ -23851,12 +23849,7 @@ begin
Handled := FHeader.HandleMessage(Message);
if not Handled then
begin
//lcl: probably not necessary
//if (Message.Msg in [WM_NCLBUTTONDOWN, WM_NCRBUTTONDOWN, WM_NCMBUTTONDOWN]) and not Focused and CanFocus then
// SetFocus;
inherited;
end;
end;
end;