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 [ 2496645 ] sort files

Browse source
This commit is contained in:
Alexander Koblov 2009-01-11 10:47:05 +00:00
commit fa8843cd9d
3 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
doc/changelog.txt
View file

@ -1,4 +1,5 @@
05.01.2009 FIX: Bug [ 2403796 ] removing tabs
11.01.2009 FIX: Bug [ 2496645 ] sort files
05.01.2009 FIX: Bug [ 2403796 ] removing tabs
25.12.2008 FIX: Bug [ 2434007 ] translate mistakes
23.12.2008 FIX: Bug [ 2433957 ] hidden column
13.12.2008 FIX: Bug [ 2421650 ] colors submenu

3
framepanel.pas
View file

@ -426,7 +426,8 @@ procedure TFrameFilePanel.dgPanelHeaderClick(Sender: TObject;
IsColumn: Boolean; Index: Integer);
begin
if not IsColumn then Exit;
pnlFile.SortDirection:= not pnlFile.SortDirection;
if pnlFile.SortColumn = Index then
pnlFile.SortDirection:= not pnlFile.SortDirection;
pnlFile.SortByCol(Index);
dgPanel.Invalidate;
end;

10
uacts.pas
View file

@ -1368,6 +1368,8 @@ begin
inherited;
with frmMain.ActiveFrame do
begin
if pnlFile.SortColumn = 0 then
pnlFile.SortDirection:= not pnlFile.SortDirection;
pnlFile.SortByCol(0);
RefreshPanel;
end;
@ -1378,6 +1380,8 @@ begin
inherited;
with frmMain.ActiveFrame do
begin
if pnlFile.SortColumn = 1 then
pnlFile.SortDirection:= not pnlFile.SortDirection;
pnlFile.SortByCol(1);
RefreshPanel;
end;
@ -1388,6 +1392,8 @@ begin
inherited;
with frmMain.ActiveFrame do
begin
if pnlFile.SortColumn = 2 then
pnlFile.SortDirection:= not pnlFile.SortDirection;
pnlFile.SortByCol(2);
RefreshPanel;
end;
@ -1398,6 +1404,8 @@ begin
inherited;
with frmMain.ActiveFrame do
begin
if pnlFile.SortColumn = 3 then
pnlFile.SortDirection:= not pnlFile.SortDirection;
pnlFile.SortByCol(3);
RefreshPanel;
end;
@ -1408,6 +1416,8 @@ begin
inherited;
with frmMain.ActiveFrame do
begin
if pnlFile.SortColumn = 4 then
pnlFile.SortDirection:= not pnlFile.SortDirection;
pnlFile.SortByCol(4);
RefreshPanel;
end;