mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Scroll mode option

Browse source
This commit is contained in:
Alexander Koblov 2008-02-28 13:09:21 +00:00
commit 276932864f
2 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

42
framepanel.pas
View file

@ -18,7 +18,7 @@ unit framePanel;
interface
uses
SysUtils, Classes, Graphics, Controls, Forms,
SysUtils, Classes, Graphics, Controls, Forms, LMessages,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, uFilePanel, Grids, uTypes,
Buttons, uColumns, lcltype;
@ -287,29 +287,29 @@ end;
procedure TFrameFilePanel.dgPanelMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if dgPanel.TopRow > 0 then
begin
if dgPanel.TopRow <= 2 then
dgPanel.TopRow := 1
else
dgPanel.TopRow:=dgPanel.TopRow - 3;
THackDrawGrid(dgPanel).MoveExtend(true, 0, -2{dgPanel.VisibleRowCount});
end
else
inherited;
Handled:= True;
case gScrollMode of
1:
dgPanel.Perform(LM_VSCROLL, SB_LINEUP, 0);
2:
dgPanel.Perform(LM_VSCROLL, SB_PAGEUP, 0);
else
Handled:= False;
end;
end;
procedure TFrameFilePanel.dgPanelMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if dgPanel.TopRow < dgPanel.RowCount - dgPanel.VisibleRowCount - 2 then
begin
THackDrawGrid(dgPanel).MoveExtend(true, 0, 2{dgPanel.VisibleRowCount});
dgPanel.TopRow:=dgPanel.TopRow + 3;
end
else
inherited;
Handled:= True;
case gScrollMode of
1:
dgPanel.Perform(LM_VSCROLL, SB_LINEDOWN, 0);
2:
dgPanel.Perform(LM_VSCROLL, SB_PAGEDOWN, 0);
else
Handled:= False;
end;
end;
procedure TFrameFilePanel.edSearchKeyPress(Sender: TObject; var Key: Char);
@ -930,8 +930,8 @@ begin
dgPanel.OnHeaderClick:=@dgPanelHeaderClick;
dgPanel.OnPrepareCanvas:=@dgPanelPrepareCanvas;
{Alexx2000}
//dgPanel.OnMouseWheelUp := @dgPanelMouseWheelUp;
//dgPanel.OnMouseWheelDown := @dgPanelMouseWheelDown;
dgPanel.OnMouseWheelUp := @dgPanelMouseWheelUp;
dgPanel.OnMouseWheelDown := @dgPanelMouseWheelDown;
{/Alexx2000}
edtSearch.OnChange:=@edSearchChange;
edtSearch.OnKeyPress:=@edSearchKeyPress;

3
uglobs.pas
View file

@ -72,6 +72,7 @@ var
glsDirHistory:TStringList;
glsMaskHistory : TStringList;
gCutTextToColWidth : Boolean;
gScrollMode: Integer;
gShortFileSizeFormat:Boolean=True;
gSeparateExt:Boolean=False; // draw filename and extension separate
@ -310,6 +311,7 @@ begin
gDirSelect := gIni.ReadBool('Configuration', 'DirSelect', True);
glsHotDir.CommaText := gIni.ReadString('Configuration', 'HotDir', '');
gShortFileSizeFormat := gIni.ReadBool('Configuration', 'ShortFileSizeFormat', True);
gScrollMode := gIni.ReadInteger('Configuration', 'ScrollMode', 0);
gDateTimeFormat := gIni.ReadString('Configuration', 'DateTimeFormat', 'dd.mm.yy');
gDirTabOptions := gIni.ReadInteger('Configuration', 'DirTabOptions', 0);
@ -442,6 +444,7 @@ begin
gIni.WriteBool('Configuration', 'DirSelect', gDirSelect);
gIni.WriteString('Configuration', 'HotDir', glsHotDir.CommaText);
gIni.WriteBool('Configuration', 'ShortFileSizeFormat', gShortFileSizeFormat);
gIni.WriteInteger('Configuration', 'ScrollMode', gScrollMode);
gIni.WriteString('Configuration', 'DateTimeFormat', gDateTimeFormat);
gIni.WriteInteger('Configuration', 'DirTabOptions', gDirTabOptions);