mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0002072] Wrong panel scrolling when using drag and drop inside double commander #1

Browse source
This commit is contained in:
Alexander Koblov 2018-07-21 10:28:47 +00:00
commit 0ed3ec74b1
1 changed files with 33 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

53
src/fileviews/ucolumnsfileview.pas
View file

@ -40,6 +40,7 @@ type
procedure SetGridVertLine(const AValue: Boolean);
protected
procedure DoMouseMoveScroll(X, Y: Integer);
{$IF lcl_fullversion < 1080003}
function SelectCell(aCol, aRow: Integer): Boolean; override;
{$ENDIF}
@ -47,6 +48,8 @@ type
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
procedure DragOver(Source: TObject; X,Y: Integer; State: TDragState;
var Accept: Boolean); override;
procedure InitializeWnd; override;
procedure FinalizeWnd; override;
@ -1932,6 +1935,12 @@ begin
end;
end;
procedure TDrawGridEx.DragOver(Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
inherited DragOver(Source, X, Y, State, Accept);
DoMouseMoveScroll(X, Y);
end;
procedure TDrawGridEx.MouseDown(Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
if ColumnsView.IsLoadingFileList then Exit;
@ -1949,28 +1958,9 @@ begin
end;
procedure TDrawGridEx.MouseMove(Shift: TShiftState; X, Y: Integer);
procedure Scroll(ScrollCode: SmallInt);
var
Msg: TLMVScroll;
begin
Msg.Msg := LM_VSCROLL;
Msg.ScrollCode := ScrollCode;
Msg.SmallPos := 1; // How many lines scroll
Msg.ScrollBar := Handle;
Dispatch(Msg);
end;
begin
inherited MouseMove(Shift, X, Y);
if DragManager.IsDragging or ColumnsView.IsMouseSelecting then
begin
if Y < DefaultRowHeight then
Scroll(SB_LINEUP)
else if (Y > ClientHeight - DefaultRowHeight) and (Y - 1 > FMouseDownY) then
begin
FMouseDownY := -1;
Scroll(SB_LINEDOWN);
end;
end;
if ColumnsView.IsMouseSelecting then DoMouseMoveScroll(X, Y);
end;
function TDrawGridEx.MouseOnGrid(X, Y: LongInt): Boolean;
@ -2069,6 +2059,29 @@ begin
Result:= (Top<=aRow)and(aRow<=Bottom);
end;
procedure TDrawGridEx.DoMouseMoveScroll(X, Y: Integer);
procedure Scroll(ScrollCode: SmallInt);
var
Msg: TLMVScroll;
begin
Msg.Msg := LM_VSCROLL;
Msg.ScrollCode := ScrollCode;
Msg.SmallPos := 1; // How many lines scroll
Msg.ScrollBar := Handle;
Dispatch(Msg);
end;
begin
if Y < DefaultRowHeight then
Scroll(SB_LINEUP)
else if (Y > ClientHeight - DefaultRowHeight) and (Y - 1 > FMouseDownY) then
begin
FMouseDownY := -1;
Scroll(SB_LINEDOWN);
end;
end;
procedure TDrawGridEx.KeyDown(var Key: Word; Shift: TShiftState);
var
SavedKey: Word;