ADD: Some fixes for bug [ 1870552 ] Раздражающий Alt

This commit is contained in:
Alexander Koblov 2008-02-02 18:23:54 +00:00
commit 838919cd8c
14 changed files with 3446 additions and 3090 deletions

103
fmain.lfm
View file

@ -1,15 +1,15 @@
object frmMain: TfrmMain
Left = 263
Height = 695
Top = 96
Width = 1013
HorzScrollBar.Page = 1012
VertScrollBar.Page = 668
Left = 256
Height = 398
Top = 166
Width = 676
HorzScrollBar.Page = 675
VertScrollBar.Page = 377
VertScrollBar.Range = 79
ActiveControl = nbRight
Caption = 'Double Commander'
ClientHeight = 669
ClientWidth = 1013
ClientHeight = 378
ClientWidth = 676
Font.Color = clBlack
Font.Height = 13
Font.Name = 'Helvetica'
@ -30,15 +30,15 @@ object frmMain: TfrmMain
object pnlSyncSize: TPanel
Height = 26
Top = 24
Width = 1013
Width = 676
Align = alTop
BevelOuter = bvNone
ClientHeight = 26
ClientWidth = 1013
ClientWidth = 676
FullRepaint = False
TabOrder = 0
object pnlDisk: TPanel
Left = 488
Left = 151
Height = 26
Width = 525
Align = alRight
@ -81,34 +81,34 @@ object frmMain: TfrmMain
end
end
object pnlNotebooks: TPanel
Height = 527
Height = 236
Top = 50
Width = 1013
Width = 676
Align = alClient
ClientHeight = 527
ClientWidth = 1013
ClientHeight = 236
ClientWidth = 676
FullRepaint = False
TabOrder = 1
TabStop = True
object MainSplitter: TSplitter
Left = 171
Height = 487
Height = 196
Top = 1
Width = 4
ResizeStyle = rsLine
end
object pnlLeft: TPanel
Left = 1
Height = 487
Height = 196
Top = 1
Width = 170
Align = alLeft
BevelOuter = bvNone
ClientHeight = 487
ClientHeight = 196
ClientWidth = 170
TabOrder = 0
object nbLeft: TNotebook
Height = 463
Height = 172
Top = 24
Width = 170
Align = alClient
@ -176,18 +176,18 @@ object frmMain: TfrmMain
end
object pnlRight: TPanel
Left = 175
Height = 487
Height = 196
Top = 1
Width = 837
Width = 500
Align = alClient
BevelOuter = bvNone
ClientHeight = 487
ClientWidth = 837
ClientHeight = 196
ClientWidth = 500
TabOrder = 1
object nbRight: TNotebook
Height = 463
Height = 172
Top = 24
Width = 837
Width = 500
Align = alClient
OnCloseTabClicked = NoteBookCloseTabClicked
OnPageChanged = nbPageChanged
@ -196,11 +196,11 @@ object frmMain: TfrmMain
end
object pnlRightTools: TPanel
Height = 24
Width = 837
Width = 500
Align = alTop
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 837
ClientWidth = 500
TabOrder = 1
object btnRightDrive: TSpeedButton
Height = 24
@ -211,7 +211,7 @@ object frmMain: TfrmMain
NumGlyphs = 0
end
object btnRightHome: TSpeedButton
Left = 814
Left = 477
Height = 24
Width = 23
Align = alRight
@ -221,7 +221,7 @@ object frmMain: TfrmMain
OnClick = btnRightClick
end
object btnRightUp: TSpeedButton
Left = 791
Left = 454
Height = 24
Width = 23
Align = alRight
@ -231,7 +231,7 @@ object frmMain: TfrmMain
OnClick = btnRightClick
end
object btnRightRoot: TSpeedButton
Left = 768
Left = 431
Height = 24
Width = 23
Align = alRight
@ -243,7 +243,7 @@ object frmMain: TfrmMain
object lblRightDriveInfo: TLabel
Left = 48
Height = 24
Width = 720
Width = 383
Align = alClient
Alignment = taCenter
ParentColor = False
@ -254,13 +254,13 @@ object frmMain: TfrmMain
object pnlCommand: TPanel
Left = 1
Height = 38
Top = 488
Width = 1011
Top = 197
Width = 674
Align = alBottom
Anchors = [akLeft, akRight]
BevelOuter = bvLowered
ClientHeight = 38
ClientWidth = 1011
ClientWidth = 674
FullRepaint = False
ParentColor = False
TabOrder = 2
@ -268,9 +268,9 @@ object frmMain: TfrmMain
AnchorSideTop.Control = edtCommand
AnchorSideTop.Side = asrCenter
Left = 1
Height = 13
Top = 12
Width = 33
Height = 14
Top = 11
Width = 23
Alignment = taRightJustify
Caption = 'Path'
ParentColor = False
@ -280,10 +280,11 @@ object frmMain: TfrmMain
Left = 56
Height = 21
Top = 8
Width = 944
Width = 607
TabStop = False
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
ParentCtl3D = False
TabOrder = 0
@ -292,7 +293,7 @@ object frmMain: TfrmMain
end
object MainToolBar: TKAStoolBar
Height = 24
Width = 1013
Width = 676
Align = alTop
TabOrder = 2
OnMouseUp = MainToolBarMouseUp
@ -304,13 +305,13 @@ object frmMain: TfrmMain
end
object pnlKeys: TPanel
Height = 27
Top = 642
Width = 1013
Top = 351
Width = 676
Align = alBottom
Anchors = [akLeft, akRight]
BevelOuter = bvLowered
ClientHeight = 27
ClientWidth = 1013
ClientWidth = 676
FullRepaint = False
TabOrder = 3
OnResize = pnlKeysResize
@ -397,15 +398,13 @@ object frmMain: TfrmMain
end
object seLogWindow: TSynEdit
Height = 61
Top = 581
Width = 1013
Top = 290
Width = 676
Align = alBottom
Font.Height = -16
Font.Name = 'courier'
ParentColor = False
TabOrder = 4
BookMarkOptions.OnChange = nil
Gutter.OnChange = nil
Gutter.CodeFoldingWidth = 14
Keystrokes = <
item
@ -731,14 +730,13 @@ object frmMain: TfrmMain
ReadOnly = True
RightEdge = 0
ScrollBars = ssVertical
SelectedColor.OnChange = nil
OnSpecialLineColors = seLogWindowSpecialLineColors
end
object LogSplitter: TSplitter
Cursor = crVSplit
Height = 4
Top = 577
Width = 1013
Top = 286
Width = 676
Align = alBottom
ResizeStyle = rsLine
ResizeAnchor = akBottom
@ -1323,6 +1321,13 @@ object frmMain: TfrmMain
DisableIfNoHandler = True
OnExecute = actShowButtonMenuExecute
end
object actQuickSearch: TAction
Category = 'Commands'
Caption = 'Quick search'
DisableIfNoHandler = True
OnExecute = actQuickSearchExecute
ShortCut = 16467
end
end
object pmHotList: TPopupMenu
left = 152

View file

@ -77,5 +77,6 @@ TFRMMAIN.ACTTRANSFERRIGHT.CAPTION=Transfer dir under cursor to right window
TFRMMAIN.ACTCONTEXTMENU.CAPTION=Show context menu
TFRMMAIN.ACTOPENARCHIVE.CAPTION=Try open archive
TFRMMAIN.ACTSHOWBUTTONMENU.CAPTION=actShowButtonMenu
TFRMMAIN.ACTQUICKSEARCH.CAPTION=Quick search
TFRMMAIN.TBEDIT.CAPTION=Edit
TFRMMAIN.TBDELETE.CAPTION=Delete

6065
fmain.pas

File diff suppressed because it is too large Load diff

View file

@ -134,7 +134,7 @@ object frmOptions: TfrmOptions
Width = 464
Align = alClient
OnPageChanged = nbNotebookPageChanged
PageIndex = 12
PageIndex = 13
ShowTabs = False
TabOrder = 0
object pgLng: TPage
@ -1814,6 +1814,90 @@ object frmOptions: TfrmOptions
end
end
end
object pgQuickSearch: TPage
ClientWidth = 456
ClientHeight = 347
object gbQuickSearch: TGroupBox
Left = 6
Height = 154
Top = 4
Width = 433
Caption = 'Quick search (current dir)'
ClientHeight = 136
ClientWidth = 429
TabOrder = 0
object rbCtrlAltLetterQS: TRadioButton
Left = 10
Height = 19
Top = 6
Width = 97
Caption = '&Ctrl+Alt+Letters'
TabOrder = 0
end
object rbAltLetterQS: TRadioButton
AnchorSideTop.Control = rbCtrlAltLetterQS
AnchorSideTop.Side = asrBottom
Left = 10
Height = 19
Top = 31
Width = 76
BorderSpacing.Top = 6
Caption = 'Al&t+Letters'
TabOrder = 1
end
object rbLetterQS: TRadioButton
AnchorSideTop.Control = rbAltLetterQS
AnchorSideTop.Side = asrBottom
Left = 10
Height = 19
Top = 56
Width = 75
BorderSpacing.Top = 6
Caption = 'L&etter only'
TabOrder = 2
end
object rbNoneQS: TRadioButton
AnchorSideTop.Control = rbLetterQS
AnchorSideTop.Side = asrBottom
Left = 10
Height = 19
Top = 81
Width = 67
BorderSpacing.Top = 6
Caption = 'Di&sabled'
TabOrder = 3
end
end
object gbExactNameMatch: TGroupBox
AnchorSideTop.Control = gbQuickSearch
AnchorSideTop.Side = asrBottom
Left = 6
Height = 88
Top = 164
Width = 433
BorderSpacing.Top = 6
Caption = 'Exact &name match:'
ClientHeight = 70
ClientWidth = 429
TabOrder = 1
object cbExactBeginning: TCheckBox
Left = 10
Height = 19
Top = 6
Width = 274
Caption = '&Beginning (name must start with first typed character)'
TabOrder = 0
end
object cbExactEnding: TCheckBox
Left = 10
Height = 19
Top = 32
Width = 284
Caption = 'En&ding (last character before a typed dot . must match)'
TabOrder = 1
end
end
end
end
object pnlCaption: TPanel
Left = 1

View file

@ -109,3 +109,11 @@ TFRMOPTIONS.GBSAVEONEXIT.CAPTION=Save on exit
TFRMOPTIONS.CBDIRHISTORY.CAPTION=Directory history
TFRMOPTIONS.CBCMDLINEHISTORY.CAPTION=Command line history
TFRMOPTIONS.CBFILEMASKHISTORY.CAPTION=File mask history
TFRMOPTIONS.GBQUICKSEARCH.CAPTION=Quick search (current dir)
TFRMOPTIONS.RBCTRLALTLETTERQS.CAPTION=&Ctrl+Alt+Letters
TFRMOPTIONS.RBALTLETTERQS.CAPTION=Al&t+Letters
TFRMOPTIONS.RBLETTERQS.CAPTION=L&etter only
TFRMOPTIONS.RBNONEQS.CAPTION=Di&sabled
TFRMOPTIONS.GBEXACTNAMEMATCH.CAPTION=Exact &name match:
TFRMOPTIONS.CBEXACTBEGINNING.CAPTION=&Beginning (name must start with first typed character)
TFRMOPTIONS.CBEXACTENDING.CAPTION=En&ding (last character before a typed dot . must match)

View file

@ -116,6 +116,7 @@ type
edtTest3: TEdit;
edtViewerSize: TSpinEdit;
cbLogFile: TCheckBox;
gbExactNameMatch: TGroupBox;
fneLogFileName: TFileNameEdit;
gbLogFile: TGroupBox;
gbLogFileOp: TGroupBox;
@ -146,6 +147,12 @@ type
gbFileSearch: TGroupBox;
gbLocConfigFiles: TGroupBox;
gbSaveOnExit: TGroupBox;
rbCtrlAltLetterQS: TRadioButton;
rbAltLetterQS: TRadioButton;
rbNoneQS: TRadioButton;
cbExactBeginning: TCheckBox;
cbExactEnding: TCheckBox;
rbLetterQS: TRadioButton;
ilTreeView: TImageList;
lblChar: TLabel;
lblDateTimeExample: TLabel;
@ -183,6 +190,7 @@ type
nbNotebook: TNotebook;
odOpenDialog: TOpenDialog;
optColorDialog: TColorDialog;
pgQuickSearch: TPage;
pgConfigStorage: TPage;
pgLogFile: TPage;
pgTabs: TPage;
@ -204,6 +212,7 @@ type
pgHotKey: TPage;
pgLng: TPage;
pgTools: TPage;
gbQuickSearch: TGroupBox;
rbProgramDir: TRadioButton;
rbUserHomeDir: TRadioButton;
rbUseMmapInSearch: TRadioButton;
@ -396,7 +405,21 @@ begin
cbDirHistory.Checked := gSaveDirHistory;
cbCmdLineHistory.Checked := gSaveCmdLineHistory;
cbFileMaskHistory.Checked := gSaveFileMaskHistory;
{ Quick Search page}
if gQuickSearch then
begin
if (gQuickSearchMode = [ssCtrl, ssAlt]) then
rbCtrlAltLetterQS.Checked := True
else if (gQuickSearchMode = [ssAlt]) then
rbAltLetterQS.Checked := True
else if gQuickSearchMode = [] then
rbLetterQS.Checked := True;
end
else
rbNoneQS.Checked := True;
cbExactBeginning.Checked := gQuickSearchMatchBeginning;
{ Icons sizes in file panels }
cbIconsSize.Text := IntToStr(gIconsSize) + 'x' + IntToStr(gIconsSize);
@ -656,7 +679,19 @@ begin
gSaveDirHistory := cbDirHistory.Checked;
gSaveCmdLineHistory := cbCmdLineHistory.Checked;
gSaveFileMaskHistory := cbFileMaskHistory.Checked;
{ Quick Search page}
gQuickSearch := not rbNoneQS.Checked;
if rbCtrlAltLetterQS.Checked then
gQuickSearchMode := [ssCtrl, ssAlt];
if rbAltLetterQS.Checked then
gQuickSearchMode := [ssAlt];
if rbLetterQS.Checked then
gQuickSearchMode := [];
gQuickSearchMatchBeginning := cbExactBeginning.Checked;
frmMain.UpdateWindowView;
frmMain.Repaint; // for panels repaint
frmMain.SaveShortCuts;

View file

@ -90,7 +90,7 @@ type
procedure Init;
procedure ClearCmdLine;
procedure CloseAltPanel;
procedure ShowAltPanel;
procedure ShowAltPanel(Char : Char = #0);
procedure UnMarkAll;
procedure UpDatelblInfo;
Function GetActiveDir:String;
@ -294,14 +294,21 @@ end;
procedure TFrameFilePanel.edSearchChange(Sender: TObject);
var
i:Integer;
I:Integer;
Result : Boolean;
begin
if edtSearch.Text='' then Exit;
// DebugLn('edSearchChange:'+ edSearch.Text);
for i:=1 to dgPanel.RowCount-1 do // first is header
begin
if pos(lowercase(edtSearch.Text), lowercase(pnlFile.GetReferenceItemPtr(i-1)^.sName))=1 then
if gQuickSearchMatchBeginning then
Result := (Pos(lowercase(edtSearch.Text), lowercase(pnlFile.GetReferenceItemPtr(i-1)^.sName)) = 1)
else
Result := (Pos(lowercase(edtSearch.Text), lowercase(pnlFile.GetReferenceItemPtr(i-1)^.sName)) > 0);
if Result then
begin
dgPanel.Row:=i;
MakeVisible(i);
@ -316,13 +323,14 @@ begin
edtSearch.Text:='';
end;
procedure TFrameFilePanel.ShowAltPanel;
procedure TFrameFilePanel.ShowAltPanel(Char : Char);
begin
pnAltSearch.Top:=dgPanel.Top+dgPanel.Height;
pnAltSearch.Left:=dgPanel.Left;
pnAltSearch.Visible:=True;
edtSearch.Text:='';
pnAltSearch.Top := dgPanel.Top + dgPanel.Height;
pnAltSearch.Left := dgPanel.Left;
pnAltSearch.Visible := True;
edtSearch.SetFocus;
edtSearch.Text := Char;
edtSearch.SelStart := Length(edtSearch.Text) + 1;
end;
procedure TFrameFilePanel.UnMarkAll;

View file

@ -31,6 +31,10 @@ msgstr "添加(&A)"
msgid "&Associate with:"
msgstr "关联(&A)"
#: TFRMOPTIONS.CBEXACTBEGINNING.CAPTION
msgid "&Beginning (name must start with first typed character)"
msgstr ""
#: TFRMEDITORCONF.CBBOLD.CAPTION
msgid "&Bold"
msgstr "粗体(&B)"
@ -71,6 +75,10 @@ msgstr "配置(&C)"
msgid "&Create a log file:"
msgstr ""
#: TFRMOPTIONS.RBCTRLALTLETTERQS.CAPTION
msgid "&Ctrl+Alt+Letters"
msgstr ""
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgid "&Delete"
msgstr "删除(&D)"
@ -315,6 +323,10 @@ msgstr "添加子栏"
msgid "Advanced"
msgstr "高级"
#: TFRMOPTIONS.RBALTLETTERQS.CAPTION
msgid "Al&t+Letters"
msgstr ""
#: TFRMOPTIONS.LBLEXT.CAPTION
msgid "All files with e&xtension (ending with):"
msgstr "所有扩展名是:"
@ -635,6 +647,10 @@ msgstr "删除文件"
msgid "Delete selected \"\%s\"?"
msgstr "删除选中的 \"\%s\"?"
#: TFRMOPTIONS.RBNONEQS.CAPTION
msgid "Di&sabled"
msgstr ""
#: ulng.rspropsfolder
msgid "Directory"
msgstr "目录"
@ -711,6 +727,10 @@ msgstr "编辑器配置"
msgid "Editor font"
msgstr "编辑器字体"
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr ""
#: TFRMPACKDLG.CBENCRYPT.CAPTION
msgid "Encr&ypt"
msgstr "加密(&Y)"
@ -743,6 +763,10 @@ msgstr ""
msgid "Estimated"
msgstr "估计"
#: TFRMOPTIONS.GBEXACTNAMEMATCH.CAPTION
msgid "Exact &name match:"
msgstr ""
#: TFRMOPTIONS.GBEXAMPLE.CAPTION
msgid "Example"
msgstr "例如"
@ -1047,6 +1071,10 @@ msgstr "Kbyte"
msgid "Keep scrolling"
msgstr "保持滚动"
#: TFRMOPTIONS.RBLETTERQS.CAPTION
msgid "L&etter only"
msgstr ""
#: ulng.rsoptlanguage
msgid "Language"
msgstr "语言"
@ -1371,6 +1399,10 @@ msgstr ""
msgid "Properties"
msgstr "属性"
#: TFRMOPTIONS.GBQUICKSEARCH.CAPTION
msgid "Quick search (current dir)"
msgstr ""
#: TFRMFILEPROPERTIES.LBLREAD.CAPTION
msgid "Read"
msgstr "读"

View file

@ -31,6 +31,10 @@ msgstr "An&fügen"
msgid "&Associate with:"
msgstr "Verknüpfen mit..."
#: TFRMOPTIONS.CBEXACTBEGINNING.CAPTION
msgid "&Beginning (name must start with first typed character)"
msgstr ""
#: TFRMEDITORCONF.CBBOLD.CAPTION
msgid "&Bold"
msgstr "Fett"
@ -71,6 +75,10 @@ msgstr "&Konfigurieren"
msgid "&Create a log file:"
msgstr ""
#: TFRMOPTIONS.RBCTRLALTLETTERQS.CAPTION
msgid "&Ctrl+Alt+Letters"
msgstr ""
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgid "&Delete"
msgstr "L&öschen"
@ -315,6 +323,10 @@ msgstr "Unter&leiste einfügen"
msgid "Advanced"
msgstr "Fortgeschritten"
#: TFRMOPTIONS.RBALTLETTERQS.CAPTION
msgid "Al&t+Letters"
msgstr ""
#: TFRMOPTIONS.LBLEXT.CAPTION
msgid "All files with e&xtension (ending with):"
msgstr "Alle Dateien mit der Endung:"
@ -635,6 +647,10 @@ msgstr "Datei(en) löschen"
msgid "Delete selected \"\%s\"?"
msgstr "Markierte \"\%s\ löschen"?"
#: TFRMOPTIONS.RBNONEQS.CAPTION
msgid "Di&sabled"
msgstr ""
#: ulng.rspropsfolder
msgid "Directory"
msgstr "Ordner"
@ -711,6 +727,10 @@ msgstr "Editor konfigurieren"
msgid "Editor font"
msgstr "Schrift für Editor"
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr ""
#: TFRMPACKDLG.CBENCRYPT.CAPTION
msgid "Encr&ypt"
msgstr "Verschl&üsseln"
@ -743,6 +763,10 @@ msgstr ""
msgid "Estimated"
msgstr "Geschätzt"
#: TFRMOPTIONS.GBEXACTNAMEMATCH.CAPTION
msgid "Exact &name match:"
msgstr ""
#: TFRMOPTIONS.GBEXAMPLE.CAPTION
msgid "Example"
msgstr "Beispiel"
@ -1047,6 +1071,10 @@ msgstr "kByte"
msgid "Keep scrolling"
msgstr "Scrollen fortsetzen"
#: TFRMOPTIONS.RBLETTERQS.CAPTION
msgid "L&etter only"
msgstr ""
#: ulng.rsoptlanguage
msgid "Language"
msgstr "Sprache"
@ -1371,6 +1399,10 @@ msgstr ""
msgid "Properties"
msgstr "Eigenschaften"
#: TFRMOPTIONS.GBQUICKSEARCH.CAPTION
msgid "Quick search (current dir)"
msgstr ""
#: TFRMFILEPROPERTIES.LBLREAD.CAPTION
msgid "Read"
msgstr "Lesen"

View file

@ -31,6 +31,10 @@ msgstr "&Añadir"
msgid "&Associate with:"
msgstr "&Asociar con:"
#: TFRMOPTIONS.CBEXACTBEGINNING.CAPTION
msgid "&Beginning (name must start with first typed character)"
msgstr ""
#: TFRMEDITORCONF.CBBOLD.CAPTION
msgid "&Bold"
msgstr "&Negrita"
@ -71,6 +75,10 @@ msgstr "&Configurar"
msgid "&Create a log file:"
msgstr ""
#: TFRMOPTIONS.RBCTRLALTLETTERQS.CAPTION
msgid "&Ctrl+Alt+Letters"
msgstr ""
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgid "&Delete"
msgstr "&Borrar"
@ -315,6 +323,10 @@ msgstr "Añadir S&ubbarra >>"
msgid "Advanced"
msgstr "Avanzado"
#: TFRMOPTIONS.RBALTLETTERQS.CAPTION
msgid "Al&t+Letters"
msgstr ""
#: TFRMOPTIONS.LBLEXT.CAPTION
msgid "All files with e&xtension (ending with):"
msgstr "Ficheros con e&xtensión (acabados en):"
@ -635,6 +647,10 @@ msgstr "Borrar fichero(s)"
msgid "Delete selected \"\%s\"?"
msgstr "Borrar el seleccionado \"\%s\"?"
#: TFRMOPTIONS.RBNONEQS.CAPTION
msgid "Di&sabled"
msgstr ""
#: ulng.rspropsfolder
msgid "Directory"
msgstr "Directorio"
@ -711,6 +727,10 @@ msgstr "Configuración del editor"
msgid "Editor font"
msgstr "Fuente del editor"
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr ""
#: TFRMPACKDLG.CBENCRYPT.CAPTION
msgid "Encr&ypt"
msgstr "Encr&iptar"
@ -743,6 +763,10 @@ msgstr ""
msgid "Estimated"
msgstr "Estimado"
#: TFRMOPTIONS.GBEXACTNAMEMATCH.CAPTION
msgid "Exact &name match:"
msgstr ""
#: TFRMOPTIONS.GBEXAMPLE.CAPTION
msgid "Example"
msgstr "Ejemplo"
@ -1047,6 +1071,10 @@ msgstr "Kbyte"
msgid "Keep scrolling"
msgstr "Continuar scroll"
#: TFRMOPTIONS.RBLETTERQS.CAPTION
msgid "L&etter only"
msgstr ""
#: ulng.rsoptlanguage
msgid "Language"
msgstr "Idioma"
@ -1371,6 +1399,10 @@ msgstr ""
msgid "Properties"
msgstr "Propiedades"
#: TFRMOPTIONS.GBQUICKSEARCH.CAPTION
msgid "Quick search (current dir)"
msgstr ""
#: TFRMFILEPROPERTIES.LBLREAD.CAPTION
msgid "Read"
msgstr "Lectura"

View file

@ -31,6 +31,10 @@ msgstr "Voeg toe"
msgid "&Associate with:"
msgstr "&Associëer met:"
#: TFRMOPTIONS.CBEXACTBEGINNING.CAPTION
msgid "&Beginning (name must start with first typed character)"
msgstr ""
#: TFRMEDITORCONF.CBBOLD.CAPTION
msgid "&Bold"
msgstr "Vet"
@ -71,6 +75,10 @@ msgstr "&Configureer"
msgid "&Create a log file:"
msgstr ""
#: TFRMOPTIONS.RBCTRLALTLETTERQS.CAPTION
msgid "&Ctrl+Alt+Letters"
msgstr ""
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgid "&Delete"
msgstr "Verwijder"
@ -315,6 +323,10 @@ msgstr "Voeg S&ubbalk toe >>"
msgid "Advanced"
msgstr "Uitgebreid"
#: TFRMOPTIONS.RBALTLETTERQS.CAPTION
msgid "Al&t+Letters"
msgstr ""
#: TFRMOPTIONS.LBLEXT.CAPTION
msgid "All files with e&xtension (ending with):"
msgstr "Alle bestanden met e&xtenties (eindigende op):"
@ -635,6 +647,10 @@ msgstr "Verwijder bestand(en)"
msgid "Delete selected \"\%s\"?"
msgstr "Verwijder geselecteerde \"\%s\"?"
#: TFRMOPTIONS.RBNONEQS.CAPTION
msgid "Di&sabled"
msgstr ""
#: ulng.rspropsfolder
msgid "Directory"
msgstr "Directory"
@ -711,6 +727,10 @@ msgstr "Editor configuratie"
msgid "Editor font"
msgstr "Editor lettertype"
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr ""
#: TFRMPACKDLG.CBENCRYPT.CAPTION
msgid "Encr&ypt"
msgstr "Versleutel"
@ -743,6 +763,10 @@ msgstr ""
msgid "Estimated"
msgstr "Geschat"
#: TFRMOPTIONS.GBEXACTNAMEMATCH.CAPTION
msgid "Exact &name match:"
msgstr ""
#: TFRMOPTIONS.GBEXAMPLE.CAPTION
msgid "Example"
msgstr "Voorbeeld"
@ -1047,6 +1071,10 @@ msgstr "kByte"
msgid "Keep scrolling"
msgstr "Blijf scrollen"
#: TFRMOPTIONS.RBLETTERQS.CAPTION
msgid "L&etter only"
msgstr ""
#: ulng.rsoptlanguage
msgid "Language"
msgstr "Taal"
@ -1371,6 +1399,10 @@ msgstr ""
msgid "Properties"
msgstr "Eigenschappen"
#: TFRMOPTIONS.GBQUICKSEARCH.CAPTION
msgid "Quick search (current dir)"
msgstr ""
#: TFRMFILEPROPERTIES.LBLREAD.CAPTION
msgid "Read"
msgstr "Lees"

View file

@ -1935,3 +1935,35 @@ msgstr ""
msgid "File mask history"
msgstr ""
#: TFRMOPTIONS.GBQUICKSEARCH.CAPTION
msgid "Quick search (current dir)"
msgstr ""
#: TFRMOPTIONS.RBCTRLALTLETTERQS.CAPTION
msgid "&Ctrl+Alt+Letters"
msgstr ""
#: TFRMOPTIONS.RBALTLETTERQS.CAPTION
msgid "Al&t+Letters"
msgstr ""
#: TFRMOPTIONS.RBLETTERQS.CAPTION
msgid "L&etter only"
msgstr ""
#: TFRMOPTIONS.RBNONEQS.CAPTION
msgid "Di&sabled"
msgstr ""
#: TFRMOPTIONS.GBEXACTNAMEMATCH.CAPTION
msgid "Exact &name match:"
msgstr ""
#: TFRMOPTIONS.CBEXACTBEGINNING.CAPTION
msgid "&Beginning (name must start with first typed character)"
msgstr ""
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr ""

View file

@ -30,6 +30,10 @@ msgstr "Добавить"
msgid "&Associate with:"
msgstr "Открывать &с помощью:"
#: TFRMOPTIONS.CBEXACTBEGINNING.CAPTION
msgid "&Beginning (name must start with first typed character)"
msgstr "Начало (имя должно начинаться с набранных символов)"
#: TFRMEDITORCONF.CBBOLD.CAPTION
msgid "&Bold"
msgstr "&Жирный"
@ -70,6 +74,10 @@ msgstr "&Настроить"
msgid "&Create a log file:"
msgstr "Создать файл отчета:"
#: TFRMOPTIONS.RBCTRLALTLETTERQS.CAPTION
msgid "&Ctrl+Alt+Letters"
msgstr "&Ctrl+Alt+Буква"
#: TFRMCONFIGTOOLBAR.BTNDELETEBUTTON.CAPTION
msgid "&Delete"
msgstr "Удалить"
@ -314,6 +322,10 @@ msgstr "Добавить панель..."
msgid "Advanced"
msgstr "Расширенный"
#: TFRMOPTIONS.RBALTLETTERQS.CAPTION
msgid "Al&t+Letters"
msgstr "Al&t+Буква"
#: TFRMOPTIONS.LBLEXT.CAPTION
msgid "All files with e&xtension (ending with):"
msgstr "&Файлы с расширением:"
@ -634,6 +646,10 @@ msgstr "Удалить файл(ы)"
msgid "Delete selected \"\%s\"?"
msgstr "Удалить выбранный "%s"?"
#: TFRMOPTIONS.RBNONEQS.CAPTION
msgid "Di&sabled"
msgstr "Отключен"
#: ulng.rspropsfolder
msgid "Directory"
msgstr "Каталог"
@ -710,6 +726,10 @@ msgstr "Настройки редактора"
msgid "Editor font"
msgstr "Редактора"
#: TFRMOPTIONS.CBEXACTENDING.CAPTION
msgid "En&ding (last character before a typed dot . must match)"
msgstr "Конец (последние символы до набранной точки '.' должны совпадать)"
#: TFRMPACKDLG.CBENCRYPT.CAPTION
msgid "Encr&ypt"
msgstr "&Шифровать"
@ -742,6 +762,10 @@ msgstr "Ошибка: "
msgid "Estimated"
msgstr "Осталось"
#: TFRMOPTIONS.GBEXACTNAMEMATCH.CAPTION
msgid "Exact &name match:"
msgstr "Точное соответствие имени:"
#: TFRMOPTIONS.GBEXAMPLE.CAPTION
msgid "Example"
msgstr "Пример"
@ -1046,6 +1070,10 @@ msgstr "Килобайт"
msgid "Keep scrolling"
msgstr "Одновременная прокрутка"
#: TFRMOPTIONS.RBLETTERQS.CAPTION
msgid "L&etter only"
msgstr "Только буква"
#: ulng.rsoptlanguage
msgid "Language"
msgstr "Язык"
@ -1370,6 +1398,10 @@ msgstr "Каталог программы (portable version)"
msgid "Properties"
msgstr "Свойства"
#: TFRMOPTIONS.GBQUICKSEARCH.CAPTION
msgid "Quick search (current dir)"
msgstr "Поиск в текущем каталоге"
#: TFRMFILEPROPERTIES.LBLREAD.CAPTION
msgid "Read"
msgstr "Чтение"

View file

@ -34,6 +34,7 @@ type
{ Log options }
TLogOptions = set of (log_cp_mv_ln, log_delete, log_dir_op, log_arc_op,
log_vfs_op, log_success, log_errors, log_info);
var
{ For localization }
gPOFileName : String;
@ -72,7 +73,7 @@ var
gSeparateExt:Boolean=False; // draw filename and extension separate
gDateTimeFormat : String;
{ Tools page }
gUseExtEdit:Boolean=False;
@ -132,6 +133,11 @@ var
gSaveCmdLineHistory,
gSaveFileMaskHistory : Boolean;
{ Quick Search page}
gQuickSearch : Boolean;
gQuickSearchMode : TShiftState = [ssCtrl, ssAlt];
gQuickSearchMatchBeginning : Boolean;
const
{ Tabs options }
tb_always_visible = 1;
@ -337,7 +343,11 @@ begin
gSaveDirHistory := gIni.ReadBool('Configuration', 'SaveDirHistory', True);
gSaveCmdLineHistory := gIni.ReadBool('Configuration', 'SaveCmdLineHistory', True);
gSaveFileMaskHistory := gIni.ReadBool('Configuration', 'SaveFileMaskHistory', True);
{ Quick Search page}
gQuickSearch := gIni.ReadBool('Configuration', 'QuickSearch', True);
gQuickSearchMode := TShiftState(gIni.ReadInteger('Configuration', 'QuickSearchMode', Integer(gQuickSearchMode)));
gQuickSearchMatchBeginning := gIni.ReadBool('Configuration', 'QuickSearchMatchBeginning', True);
gShowIcons := gIni.ReadBool('Configuration', 'ShowIcons', True);
gIconsSize := gIni.ReadInteger('Configuration', 'IconsSize', 16);
@ -467,7 +477,11 @@ begin
gIni.WriteBool('Configuration', 'SaveDirHistory', gSaveDirHistory);
gIni.WriteBool('Configuration', 'SaveCmdLineHistory', gSaveCmdLineHistory);
gIni.WriteBool('Configuration', 'SaveFileMaskHistory', gSaveFileMaskHistory);
{ Quick Search page}
gIni.WriteBool('Configuration', 'QuickSearch', gQuickSearch);
gIni.WriteInteger('Configuration', 'QuickSearchMode', Integer(gQuickSearchMode));
gIni.WriteBool('Configuration', 'QuickSearchMatchBeginning', gQuickSearchMatchBeginning);
gIni.WriteBool('Configuration', 'ShowIcons', gShowIcons);
gIni.WriteInteger('Configuration', 'IconsSize', gIconsSize);