ADD: Option that specifies where to put updated files in the file list, similar as the option for new files.

This commit is contained in:
cobines 2012-03-17 20:44:58 +00:00
commit d3bd4b6fc4
6 changed files with 109 additions and 37 deletions

View file

@ -9,7 +9,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 166
Height = 200
Top = 6
Width = 622
Anchors = [akTop, akLeft, akRight]
@ -21,7 +21,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
ChildSizing.HorizontalSpacing = 6
ChildSizing.VerticalSpacing = 12
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 144
ClientHeight = 178
ClientWidth = 618
TabOrder = 0
object lblSortMethod: TLabel
@ -29,7 +29,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
Left = 12
Height = 22
Top = 8
Width = 127
Width = 130
Caption = 'Sort &method:'
ParentColor = False
end
@ -40,10 +40,10 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbSorting
AnchorSideRight.Side = asrBottom
Left = 149
Left = 152
Height = 29
Top = 5
Width = 457
Width = 454
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
ItemHeight = 21
@ -58,7 +58,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
Left = 12
Height = 22
Top = 42
Width = 127
Width = 130
Caption = 'Case sensitivity:'
ParentColor = False
end
@ -69,10 +69,10 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbSorting
AnchorSideRight.Side = asrBottom
Left = 149
Left = 152
Height = 29
Top = 39
Width = 457
Width = 454
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
ItemHeight = 21
@ -88,7 +88,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
Left = 12
Height = 22
Top = 76
Width = 127
Width = 130
Caption = 'Sorting directories:'
ParentColor = False
end
@ -99,10 +99,10 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbSorting
AnchorSideRight.Side = asrBottom
Left = 149
Left = 152
Height = 29
Top = 73
Width = 457
Width = 454
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
ItemHeight = 21
@ -118,7 +118,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
Left = 12
Height = 22
Top = 110
Width = 127
Width = 130
Caption = 'Insert new files'
ParentColor = False
end
@ -129,16 +129,41 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbSorting
AnchorSideRight.Side = asrBottom
Left = 149
Left = 152
Height = 29
Top = 107
Width = 457
Width = 454
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
ItemHeight = 21
Style = csDropDownList
TabOrder = 3
end
object lblUpdatedFilesPosition: TLabel
Left = 12
Height = 22
Top = 144
Width = 130
Caption = 'Move updated files'
ParentColor = False
end
object cbUpdatedFilesPosition: TComboBox
AnchorSideLeft.Control = lblUpdatedFilesPosition
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblUpdatedFilesPosition
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbSorting
AnchorSideRight.Side = asrBottom
Left = 152
Height = 29
Top = 141
Width = 454
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
ItemHeight = 21
Style = csDropDownList
TabOrder = 4
end
end
object gbMisc: TGroupBox[1]
AnchorSideLeft.Control = Owner
@ -148,7 +173,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
AnchorSideRight.Side = asrBottom
Left = 6
Height = 216
Top = 283
Top = 317
Width = 622
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -218,7 +243,7 @@ inherited frmOptionsFilesViews: TfrmOptionsFilesViews
AnchorSideRight.Side = asrBottom
Left = 6
Height = 99
Top = 178
Top = 212
Width = 622
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6

View file

@ -3,6 +3,7 @@ TFRMOPTIONSFILESVIEWS.LBLSORTMETHOD.CAPTION=Sort &method:
TFRMOPTIONSFILESVIEWS.LBLCASESENSITIVITY.CAPTION=Case sensitivity:
TFRMOPTIONSFILESVIEWS.LBLSORTFOLDERMODE.CAPTION=Sorting directories:
TFRMOPTIONSFILESVIEWS.LBLNEWFILESPOSITION.CAPTION=Insert new files
TFRMOPTIONSFILESVIEWS.LBLUPDATEDFILESPOSITION.CAPTION=Move updated files
TFRMOPTIONSFILESVIEWS.CBSPACEMOVESDOWN.CAPTION=When selecting files with <SPACEBAR>, move down to next file (as with <INSERT>)
TFRMOPTIONSFILESVIEWS.CBDIRBRACKETS.CAPTION=Show square brackets around directories
TFRMOPTIONSFILESVIEWS.CBSHOWSYSTEMFILES.CAPTION=Show system and hidden files

View file

@ -40,6 +40,7 @@ type
cbListFilesInThread: TCheckBox;
cbLoadIconsSeparately: TCheckBox;
cbDelayLoadingTabs: TCheckBox;
cbUpdatedFilesPosition: TComboBox;
cbShortFileSizeFormat: TCheckBox;
cbShowSystemFiles: TCheckBox;
cbNewFilesPosition: TComboBox;
@ -50,6 +51,7 @@ type
gbFormatting: TGroupBox;
gbSorting: TGroupBox;
gbMisc: TGroupBox;
lblUpdatedFilesPosition: TLabel;
lblSortFolderMode: TLabel;
lblCaseSensitivity: TLabel;
lblDateTimeExample: TLabel;
@ -86,6 +88,7 @@ begin
ParseLineToList(rsOptSortCaseSens, cbCaseSensitivity.Items);
ParseLineToList(rsOptSortFolderMode, cbSortFolderMode.Items);
ParseLineToList(rsOptNewFilesPosition, cbNewFilesPosition.Items);
ParseLineToList(rsOptUpdatedFilesPosition, cbUpdatedFilesPosition.Items);
end;
procedure TfrmOptionsFilesViews.Load;
@ -110,6 +113,11 @@ begin
nfpSortedPosition: cbNewFilesPosition.ItemIndex := 2;
nfpBottom: cbNewFilesPosition.ItemIndex := 3;
end;
case gUpdatedFilesPosition of
ufpNoChange: cbUpdatedFilesPosition.ItemIndex := 0;
ufpSameAsNewFiles: cbUpdatedFilesPosition.ItemIndex := 1;
ufpSortedPosition: cbUpdatedFilesPosition.ItemIndex := 2;
end;
cbShortFileSizeFormat.Checked :=gShortFileSizeFormat;
cbDateTimeFormat.Text := gDateTimeFormat;
lblDateTimeExample.Caption:= FormatDateTime(cbDateTimeFormat.Text, Now);
@ -140,6 +148,11 @@ begin
2: gNewFilesPosition := nfpSortedPosition;
3: gNewFilesPosition := nfpBottom;
end;
case cbUpdatedFilesPosition.ItemIndex of
0: gUpdatedFilesPosition := ufpNoChange;
1: gUpdatedFilesPosition := ufpSameAsNewFiles;
2: gUpdatedFilesPosition := ufpSortedPosition;
end;
gShortFileSizeFormat := cbShortFileSizeFormat.Checked;
gDateTimeFormat := cbDateTimeFormat.Text;
gSpaceMovesDown := cbSpaceMovesDown.Checked;