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

ADD: Some interface changes

Browse source 
Last commit before first alpha release
This commit is contained in:
Alexander Koblov 2007-12-25 21:39:57 +00:00
commit 288aa42396
9 changed files with 242 additions and 236 deletions
Download patch file Download diff file Expand all files Collapse all files

2
doublecmd.lpr
View file

@ -74,7 +74,7 @@ begin
Application.Title:='Double Commander';
Application.Initialize;
ThousandSeparator:=' ';
DebugLn('Double commander 0.2 alpha - Free Pascal');
DebugLn('Double commander 0.3 alpha - Free Pascal');
DebugLn('Build: ' + buildDate);
DebugLn('This program is free software released under terms of GNU GPL 2');
DebugLn('(C)opyright 2006-7 Koblov Alexander (Alexx2000@mail.ru)');

22
fAbout.lfm
View file

@ -21,20 +21,20 @@ object frmAbout: TfrmAbout
AnchorSideTop.Control = lblTitle
AnchorSideTop.Side = asrBottom
Left = 8
Height = 14
Top = 30
Width = 84
Height = 26
Top = 42
Width = 97
BorderSpacing.Top = 8
Caption = 'Version 0.2 alpha'
Caption = 'Version 0.3 alpha'
ParentColor = False
end
object lblBuild: TLabel
AnchorSideTop.Control = lblVersion
AnchorSideTop.Side = asrBottom
Left = 8
Height = 14
Top = 52
Width = 30
Height = 26
Top = 76
Width = 35
BorderSpacing.Top = 8
Caption = 'Build: '
ParentColor = False
@ -43,16 +43,16 @@ object frmAbout: TfrmAbout
AnchorSideTop.Control = lblBuild
AnchorSideTop.Side = asrBottom
Left = 8
Height = 14
Top = 74
Width = 41
Height = 26
Top = 110
Width = 48
BorderSpacing.Top = 8
Caption = 'Lazarus '
ParentColor = False
end
object lblTitle: TLabel
Left = 8
Height = 14
Height = 26
Top = 8
Width = 112
Caption = 'Double Commander'

12
fAbout.lrt
View file

@ -1,6 +1,6 @@
TFRMABOUT.CAPTION=About
TFRMABOUT.LBLVERSION.CAPTION=Version 0.2 alpha
TFRMABOUT.LBLBUILD.CAPTION=Build:
TFRMABOUT.LBLLAZARUSVER.CAPTION=Lazarus
TFRMABOUT.LBLTITLE.CAPTION=Double Commander
TFRMABOUT.OKBUTTON.CAPTION=OK
TFRMABOUT.CAPTION=About
TFRMABOUT.LBLVERSION.CAPTION=Version 0.3 alpha
TFRMABOUT.LBLBUILD.CAPTION=Build:
TFRMABOUT.LBLLAZARUSVER.CAPTION=Lazarus
TFRMABOUT.LBLTITLE.CAPTION=Double Commander
TFRMABOUT.OKBUTTON.CAPTION=OK

165
fFindDlg.lfm
View file

@ -2,14 +2,14 @@ object frmFindDlg: TfrmFindDlg
Left = 268
Height = 476
Top = 180
Width = 659
HorzScrollBar.Page = 658
Width = 621
HorzScrollBar.Page = 620
VertScrollBar.Page = 475
VertScrollBar.Range = 316
ActiveControl = cmbFindFileMask
Caption = 'Find files'
ClientHeight = 476
ClientWidth = 659
ClientWidth = 621
KeyPreview = True
OnClose = frmFindDlgClose
OnCloseQuery = FormCloseQuery
@ -21,44 +21,46 @@ object frmFindDlg: TfrmFindDlg
object Splitter1: TSplitter
Cursor = crVSplit
Height = 1
Top = 295
Width = 659
Top = 298
Width = 621
Align = alTop
ResizeAnchor = akTop
end
object Panel2: TPanel
Height = 295
Width = 659
Height = 298
Width = 621
Align = alTop
BevelOuter = bvNone
ClientHeight = 295
ClientWidth = 659
ClientHeight = 298
ClientWidth = 621
FullRepaint = False
TabOrder = 0
object pgcSearch: TPageControl
Height = 296
Width = 564
Height = 298
Width = 503
ActivePage = tsStandard
Anchors = [akTop, akLeft, akRight]
TabIndex = 0
TabOrder = 0
object tsStandard: TTabSheet
Caption = 'Standard'
ClientHeight = 270
ClientWidth = 556
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 265
ClientWidth = 499
object lblFindPathStart: TLabel
Left = 8
Height = 14
Height = 26
Top = 50
Width = 30
Width = 37
Caption = 'FileDir'
ParentColor = False
end
object lblFindFileMask: TLabel
Left = 8
Height = 14
Height = 26
Top = 4
Width = 41
Width = 50
Caption = 'FileMask'
ParentColor = False
end
@ -67,9 +69,7 @@ object frmFindDlg: TfrmFindDlg
Height = 21
Top = 25
Width = 362
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
ParentCtl3D = False
TabOrder = 0
@ -79,19 +79,18 @@ object frmFindDlg: TfrmFindDlg
Left = 8
Height = 145
Top = 119
Width = 418
Anchors = [akTop, akLeft, akRight]
Width = 374
Caption = 'Find Data'
ClientHeight = 127
ClientWidth = 414
ClientHeight = 124
ClientWidth = 370
Enabled = False
ParentCtl3D = False
TabOrder = 1
object cbCaseSens: TCheckBox
Left = 18
Height = 19
Height = 23
Top = 97
Width = 94
Width = 102
Caption = 'Case sensitive'
TabOrder = 0
end
@ -99,23 +98,23 @@ object frmFindDlg: TfrmFindDlg
Left = 16
Height = 24
Top = 9
Width = 234
Width = 346
Anchors = [akTop, akLeft, akRight]
TabOrder = 1
end
object cbNoThisText: TCheckBox
Left = 154
Height = 19
Height = 23
Top = 97
Width = 183
Width = 201
Caption = 'Find files NOT containing the text'
TabOrder = 2
end
object cbReplaceText: TCheckBox
Left = 16
Height = 19
Height = 23
Top = 41
Width = 86
Width = 90
Caption = 'Replace text'
OnChange = cbReplaceTextChange
TabOrder = 4
@ -125,15 +124,16 @@ object frmFindDlg: TfrmFindDlg
Height = 23
Top = 65
Width = 346
Anchors = [akTop, akLeft, akRight]
Enabled = False
TabOrder = 3
end
end
object cbFindInFile: TCheckBox
Left = 12
Height = 19
Height = 23
Top = 98
Width = 73
Width = 78
Caption = 'Find in file'
OnClick = cbFindInFileClick
TabOrder = 2
@ -151,6 +151,8 @@ object frmFindDlg: TfrmFindDlg
end
object tsAdvanced: TTabSheet
Caption = 'Advanced'
ClientHeight = 265
ClientWidth = 499
ImageIndex = 1
object deDateFrom: TDateEdit
Left = 4
@ -224,18 +226,18 @@ object frmFindDlg: TfrmFindDlg
end
object cbDateFrom: TCheckBox
Left = 4
Height = 13
Height = 23
Top = 22
Width = 72
Width = 82
Caption = 'Date From:'
OnChange = cbDateFromChange
TabOrder = 2
end
object cbNotOlderThan: TCheckBox
Left = 4
Height = 13
Height = 23
Top = 136
Width = 90
Width = 102
Caption = 'Not older than:'
OnChange = cbNotOlderThanChange
TabOrder = 3
@ -255,7 +257,6 @@ object frmFindDlg: TfrmFindDlg
Width = 110
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Enabled = False
ItemHeight = 13
ItemIndex = 2
Items.Strings = (
'Minute(s)'
@ -271,27 +272,27 @@ object frmFindDlg: TfrmFindDlg
end
object cbFileSizeFrom: TCheckBox
Left = 4
Height = 13
Height = 23
Top = 193
Width = 88
Width = 103
Caption = 'File Size From:'
OnChange = cbFileSizeFromChange
TabOrder = 6
end
object cbDateTo: TCheckBox
Left = 164
Height = 13
Height = 23
Top = 22
Width = 62
Width = 68
Caption = 'Date To:'
OnChange = cbDateToChange
TabOrder = 7
end
object cbFileSizeTo: TCheckBox
Left = 164
Height = 13
Height = 23
Top = 193
Width = 78
Width = 89
Caption = 'File Size To:'
OnChange = cbFileSizeToChange
TabOrder = 8
@ -319,7 +320,6 @@ object frmFindDlg: TfrmFindDlg
Width = 72
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Enabled = False
ItemHeight = 13
ItemIndex = 1
Items.Strings = (
'Byte'
@ -334,18 +334,18 @@ object frmFindDlg: TfrmFindDlg
end
object cbTimeFrom: TCheckBox
Left = 4
Height = 13
Height = 23
Top = 73
Width = 69
Width = 79
Caption = 'Time from:'
OnChange = cbTimeFromChange
TabOrder = 12
end
object cbTimeTo: TCheckBox
Left = 164
Height = 13
Height = 23
Top = 73
Width = 58
Width = 65
Caption = 'Time to:'
OnChange = cbTimeToChange
TabOrder = 13
@ -372,24 +372,24 @@ object frmFindDlg: TfrmFindDlg
Left = 280
Height = 165
Top = 41
Width = 270
ClientHeight = 165
ClientWidth = 270
Width = 214
ClientHeight = 144
ClientWidth = 210
Enabled = False
TabOrder = 16
object lblInfo: TLabel
Left = 10
Height = 27
Height = 56
Top = 110
Width = 172
Width = 184
Caption = 'Windows: ''rahs'' Unix: ''rwxrwxrwx'''#13#10'Use ''-'' to off attribute and ''?'' to any'
ParentColor = False
end
object cbDirectory: TCheckBox
Left = 10
Height = 13
Height = 23
Top = 2
Width = 62
Width = 71
AllowGrayed = True
Caption = 'Directory'
OnChange = cbDirectoryChange
@ -398,9 +398,9 @@ object frmFindDlg: TfrmFindDlg
end
object cbSymLink: TCheckBox
Left = 10
Height = 13
Height = 23
Top = 30
Width = 60
Width = 69
AllowGrayed = True
Caption = 'SymLink'
OnChange = cbSymLinkChange
@ -409,9 +409,9 @@ object frmFindDlg: TfrmFindDlg
end
object cbMore: TCheckBox
Left = 10
Height = 13
Height = 23
Top = 58
Width = 44
Width = 50
Caption = 'More'
OnChange = cbMoreChange
TabOrder = 2
@ -427,9 +427,9 @@ object frmFindDlg: TfrmFindDlg
end
object cbAttrib: TCheckBox
Left = 284
Height = 13
Height = 23
Top = 22
Width = 64
Width = 73
Caption = 'Attributes'
OnChange = cbAttribChange
TabOrder = 17
@ -439,7 +439,7 @@ object frmFindDlg: TfrmFindDlg
object btnClose: TButton
AnchorSideTop.Control = btnStart
AnchorSideTop.Side = asrBottom
Left = 572
Left = 534
Height = 32
Top = 77
Width = 75
@ -453,7 +453,7 @@ object frmFindDlg: TfrmFindDlg
object btnStop: TButton
AnchorSideTop.Control = btnClose
AnchorSideTop.Side = asrBottom
Left = 572
Left = 534
Height = 32
Top = 115
Width = 75
@ -467,7 +467,7 @@ object frmFindDlg: TfrmFindDlg
TabOrder = 1
end
object btnStart: TButton
Left = 572
Left = 534
Height = 32
Top = 39
Width = 75
@ -480,30 +480,30 @@ object frmFindDlg: TfrmFindDlg
end
end
object Panel1: TPanel
Height = 180
Top = 296
Width = 659
Height = 177
Top = 299
Width = 621
Align = alClient
BevelOuter = bvNone
ClientHeight = 180
ClientWidth = 659
ClientHeight = 177
ClientWidth = 621
FullRepaint = False
TabOrder = 1
object Panel3: TPanel
Height = 54
Width = 659
Width = 621
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 54
ClientWidth = 659
ClientWidth = 621
FullRepaint = False
TabOrder = 0
object lblStatus: TLabel
Left = 8
Height = 13
Height = 28
Top = 30
Width = 32
Width = 56
Caption = 'Status'
Font.Color = clBlack
Font.Height = 13
@ -514,9 +514,9 @@ object frmFindDlg: TfrmFindDlg
end
object lblCurrent: TLabel
Left = 8
Height = 13
Height = 28
Top = 12
Width = 37
Width = 66
Caption = 'Current'
Font.Color = clBlack
Font.Height = 13
@ -527,22 +527,23 @@ object frmFindDlg: TfrmFindDlg
end
end
object lsFoundedFiles: TListBox
Height = 68
Height = 65
Top = 54
Width = 659
Width = 621
Align = alClient
MultiSelect = True
OnDblClick = lsFoundedFilesDblClick
PopupMenu = PopupMenuFind
TabOrder = 1
TopIndex = -1
end
object Panel4: TPanel
Height = 58
Top = 122
Width = 659
Top = 119
Width = 621
Align = alBottom
ClientHeight = 58
ClientWidth = 659
ClientWidth = 621
TabOrder = 2
object btnView: TButton
Left = 24
@ -565,7 +566,7 @@ object frmFindDlg: TfrmFindDlg
TabOrder = 1
end
object btnGoToPath: TButton
Left = 398
Left = 360
Height = 32
Top = 14
Width = 104
@ -576,7 +577,7 @@ object frmFindDlg: TfrmFindDlg
TabOrder = 2
end
object btnWorkWithFound: TButton
Left = 526
Left = 488
Height = 32
Top = 14
Width = 104

45
fcomparefiles.lfm
View file

@ -1,7 +1,7 @@
object frmCompareFiles: TfrmCompareFiles
Left = 314
Left = 229
Height = 530
Top = 440
Top = 168
Width = 783
HorzScrollBar.Page = 782
HorzScrollBar.Range = 365
@ -61,12 +61,10 @@ object frmCompareFiles: TfrmCompareFiles
ParentCtl3D = False
TabOrder = 1
BookMarkOptions.Xoffset = -18
BookMarkOptions.OnChange = nil
Gutter.DigitCount = 2
Gutter.LeftOffset = 0
Gutter.Visible = False
Gutter.Width = 15
Gutter.OnChange = nil
Gutter.CodeFoldingWidth = 14
Keystrokes = <
item
@ -390,7 +388,6 @@ object frmCompareFiles: TfrmCompareFiles
ShortCut = 24642
end>
ReadOnly = True
SelectedColor.OnChange = nil
OnSpecialLineColors = lstLeftSpecialLineColors
OnStatusChange = lstLeftStatusChange
end
@ -438,9 +435,7 @@ object frmCompareFiles: TfrmCompareFiles
ParentCtl3D = False
TabOrder = 1
BookMarkOptions.Xoffset = -18
BookMarkOptions.OnChange = nil
Gutter.Visible = False
Gutter.OnChange = nil
Gutter.CodeFoldingWidth = 14
Keystrokes = <
item
@ -764,7 +759,6 @@ object frmCompareFiles: TfrmCompareFiles
ShortCut = 24642
end>
ReadOnly = True
SelectedColor.OnChange = nil
OnSpecialLineColors = lstRightSpecialLineColors
OnStatusChange = lstRightStatusChange
end
@ -789,45 +783,54 @@ object frmCompareFiles: TfrmCompareFiles
FullRepaint = False
TabOrder = 2
object btnCompare: TButton
Left = 5
Left = 6
Height = 32
Top = 8
Width = 96
Width = 110
BorderSpacing.InnerBorder = 4
Caption = 'Compare files'
OnClick = btnCompareClick
TabOrder = 0
end
object btnNextDiff: TButton
AnchorSideLeft.Control = btnCompare
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnCompare
AnchorSideTop.Side = asrCenter
Left = 120
Left = 122
Height = 32
Top = 8
Width = 122
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = 'Next difference'
TabOrder = 1
end
object btnPrevDiff: TButton
AnchorSideLeft.Control = btnNextDiff
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnNextDiff
AnchorSideTop.Side = asrCenter
Left = 256
Left = 250
Height = 32
Top = 8
Width = 147
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4
Caption = 'Previous difference'
TabOrder = 2
end
object chbBinMode: TCheckBox
AnchorSideLeft.Control = btnPrevDiff
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrevDiff
AnchorSideTop.Side = asrCenter
Left = 424
Height = 19
Top = 15
Width = 84
Left = 403
Height = 23
Top = 13
Width = 91
AllowGrayed = True
BorderSpacing.Left = 6
Caption = 'Binary mode'
TabOrder = 3
end
@ -836,7 +839,7 @@ object frmCompareFiles: TfrmCompareFiles
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrevDiff
AnchorSideTop.Side = asrCenter
Left = 612
Left = 606
Height = 32
Top = 8
Width = 96
@ -851,10 +854,10 @@ object frmCompareFiles: TfrmCompareFiles
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrevDiff
AnchorSideTop.Side = asrCenter
Left = 514
Height = 19
Top = 15
Width = 92
Left = 500
Height = 23
Top = 13
Width = 100
AllowGrayed = True
BorderSpacing.Left = 6
Caption = 'Keep scrolling'

224
foptions.lfm
View file

@ -85,7 +85,7 @@ object frmOptions: TfrmOptions
Height = 372
Width = 150
Align = alLeft
DefaultItemHeight = 16
DefaultItemHeight = 21
Images = ilTreeView
ScrollBars = ssNone
TabOrder = 1
@ -124,29 +124,30 @@ object frmOptions: TfrmOptions
Width = 464
Align = alClient
OnPageChanged = nbNotebookPageChanged
PageIndex = 10
PageIndex = 5
ShowTabs = False
TabOrder = 0
object pgLng: TPage
ClientWidth = 446
ClientHeight = 321
ClientWidth = 460
ClientHeight = 314
object lngList: TListBox
Height = 321
Width = 446
Height = 314
Width = 460
Align = alClient
TabOrder = 0
TopIndex = -1
end
end
object pgBehav: TPage
ClientWidth = 446
ClientHeight = 321
ClientWidth = 460
ClientHeight = 343
object lblTerm: TLabel
AnchorSideTop.Control = edtTerm
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 13
Width = 45
Height = 26
Top = 7
Width = 52
Caption = 'Terminal:'
ParentColor = False
end
@ -154,14 +155,14 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = edtRunTerm
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 43
Width = 65
Height = 26
Top = 37
Width = 74
Caption = 'Run terminal:'
ParentColor = False
end
object edtTerm: TEdit
Left = 96
Left = 110
Height = 24
Top = 8
Width = 313
@ -171,7 +172,7 @@ object frmOptions: TfrmOptions
object edtRunTerm: TEdit
AnchorSideTop.Control = edtTerm
AnchorSideTop.Side = asrBottom
Left = 96
Left = 110
Height = 24
Top = 38
Width = 313
@ -187,51 +188,51 @@ object frmOptions: TfrmOptions
Top = 68
Width = 202
BorderSpacing.Top = 6
ClientHeight = 138
ClientHeight = 152
ClientWidth = 198
ParentCtl3D = False
TabOrder = 2
object cbDirSelect: TCheckBox
Left = 8
Height = 19
Height = 23
Top = -3
Width = 159
Width = 174
AllowGrayed = True
Caption = 'Select directory with keypad'
TabOrder = 0
end
object cbCaseSensitiveSort: TCheckBox
Left = 8
Height = 19
Height = 23
Top = 55
Width = 128
Width = 142
AllowGrayed = True
Caption = 'Case sensitive sorting'
TabOrder = 1
end
object cbLynxLike: TCheckBox
Left = 8
Height = 19
Height = 23
Top = 26
Width = 119
Width = 130
AllowGrayed = True
Caption = 'Lynx like movement'
TabOrder = 2
end
object cbShortFileSizeFormat: TCheckBox
Left = 8
Height = 19
Height = 23
Top = 82
Width = 120
Width = 133
AllowGrayed = True
Caption = 'Short Filesize format'
TabOrder = 3
end
object cbSeparateExt: TCheckBox
Left = 8
Height = 19
Height = 23
Top = 113
Width = 117
Width = 128
AllowGrayed = True
Caption = 'Separate extension'
TabOrder = 4
@ -240,19 +241,22 @@ object frmOptions: TfrmOptions
object gbMisc: TGroupBox
AnchorSideTop.Control = edtRunTerm
AnchorSideTop.Side = asrBottom
Left = 218
AnchorSideRight.Control = edtRunTerm
AnchorSideRight.Side = asrBottom
Left = 235
Height = 156
Top = 68
Width = 188
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
ClientHeight = 138
ClientHeight = 152
ClientWidth = 184
TabOrder = 3
object lblIconsSize: TLabel
Left = 14
Height = 14
Height = 26
Top = 118
Width = 53
Width = 60
Caption = 'Icons Size:'
ParentColor = False
end
@ -263,7 +267,6 @@ object frmOptions: TfrmOptions
Width = 91
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Enabled = False
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'16x16'
@ -277,9 +280,9 @@ object frmOptions: TfrmOptions
end
object cbShowIcons: TCheckBox
Left = 14
Height = 19
Height = 23
Top = 82
Width = 81
Width = 85
Caption = 'Show icons'
OnChange = cbShowIconsChange
TabOrder = 1
@ -289,7 +292,7 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = gb
AnchorSideTop.Side = asrBottom
Left = 10
Height = 94
Height = 110
Top = 230
Width = 200
AutoSize = True
@ -297,14 +300,14 @@ object frmOptions: TfrmOptions
Caption = 'Date and time'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 76
ClientHeight = 89
ClientWidth = 196
TabOrder = 4
object lblDateTimeFormat: TLabel
Left = 6
Height = 14
Height = 26
Top = 6
Width = 107
Width = 117
Caption = 'Date and time format:'
ParentColor = False
end
@ -312,9 +315,9 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbDateTimeFormat
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 53
Width = 99
Height = 18
Top = 65
Width = 100
BorderSpacing.Top = 6
Font.Style = [fsBold]
ParentColor = False
@ -324,25 +327,25 @@ object frmOptions: TfrmOptions
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 26
Top = 38
Width = 184
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 6
ItemHeight = 13
Items.Strings = (
'dd.mm.yyyy hh:mm:ss'
'dd.mm.yy hh:mm'
'dd.mm.yyyy'
'dd.mm.yy'
)
MaxLength = 0
OnChange = cbDateTimeFormatChange
TabOrder = 0
end
end
end
object pgTools: TPage
ClientWidth = 446
ClientHeight = 321
ClientWidth = 460
ClientHeight = 314
object cbExtEditor: TCheckBox
Left = 3
Height = 19
@ -356,7 +359,7 @@ object frmOptions: TfrmOptions
Left = 2
Height = 24
Top = 33
Width = 434
Width = 448
Anchors = [akTop, akLeft, akRight]
TabOrder = 1
Text = 'gEdit "%s"'
@ -374,7 +377,7 @@ object frmOptions: TfrmOptions
Left = 2
Height = 24
Top = 98
Width = 436
Width = 450
Anchors = [akTop, akLeft, akRight]
TabOrder = 3
Text = 'gtk-diff "%s" "%s"'
@ -392,15 +395,15 @@ object frmOptions: TfrmOptions
Left = 2
Height = 24
Top = 163
Width = 436
Width = 450
Anchors = [akTop, akLeft, akRight]
TabOrder = 5
Text = 'emacs "%s"'
end
end
object pgFonts: TPage
ClientWidth = 446
ClientHeight = 321
ClientWidth = 460
ClientHeight = 314
object lblMainFont: TLabel
Left = 6
Height = 14
@ -429,17 +432,16 @@ object frmOptions: TfrmOptions
Left = 6
Height = 21
Top = 26
Width = 360
Width = 374
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
OnChange = cbMainFontChange
ParentCtl3D = False
TabOrder = 0
end
object btnSelMainFnt: TButton
Left = 375
Left = 389
Height = 23
Top = 24
Width = 23
@ -450,7 +452,7 @@ object frmOptions: TfrmOptions
TabOrder = 1
end
object edtMainSize: TSpinEdit
Left = 375
Left = 389
Height = 23
Top = 54
Width = 55
@ -465,7 +467,7 @@ object frmOptions: TfrmOptions
Left = 6
Height = 24
Top = 53
Width = 359
Width = 373
Anchors = [akTop, akLeft, akRight]
TabOrder = 3
end
@ -473,17 +475,16 @@ object frmOptions: TfrmOptions
Left = 6
Height = 21
Top = 108
Width = 359
Width = 373
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
OnChange = cbEditorFontChange
ParentCtl3D = False
TabOrder = 4
end
object btnSelEditFnt: TButton
Left = 375
Left = 389
Height = 23
Top = 106
Width = 23
@ -497,12 +498,12 @@ object frmOptions: TfrmOptions
Left = 6
Height = 24
Top = 133
Width = 359
Width = 373
Anchors = [akTop, akLeft, akRight]
TabOrder = 6
end
object edtEditorSize: TSpinEdit
Left = 375
Left = 389
Height = 23
Top = 133
Width = 55
@ -517,17 +518,16 @@ object frmOptions: TfrmOptions
Left = 6
Height = 21
Top = 188
Width = 359
Width = 373
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
OnChange = cbViewerFontChange
ParentCtl3D = False
TabOrder = 8
end
object btnSelViewFnt: TButton
Left = 374
Left = 388
Height = 23
Top = 186
Width = 23
@ -541,12 +541,12 @@ object frmOptions: TfrmOptions
Left = 6
Height = 24
Top = 212
Width = 359
Width = 373
Anchors = [akTop, akLeft, akRight]
TabOrder = 10
end
object edtViewerSize: TSpinEdit
Left = 374
Left = 388
Height = 23
Top = 213
Width = 56
@ -559,8 +559,8 @@ object frmOptions: TfrmOptions
end
end
object pgColor: TPage
ClientWidth = 446
ClientHeight = 321
ClientWidth = 460
ClientHeight = 314
object cTextLabel: TLabel
AnchorSideTop.Control = cbTextColor
AnchorSideTop.Side = asrCenter
@ -924,7 +924,7 @@ object frmOptions: TfrmOptions
Top = 26
Width = 185
Caption = 'Example'
ClientHeight = 154
ClientHeight = 151
ClientWidth = 181
TabOrder = 12
object pbExample: TPaintBox
@ -937,21 +937,21 @@ object frmOptions: TfrmOptions
end
end
object pgHotKey: TPage
ClientWidth = 456
ClientHeight = 339
ClientWidth = 460
ClientHeight = 343
object lblActions: TLabel
Left = 6
Height = 14
Height = 26
Top = 13
Width = 36
Width = 41
Caption = 'Actions'
ParentColor = False
end
object lblHotKey: TLabel
Left = 6
Height = 14
Height = 26
Top = 68
Width = 39
Width = 44
Caption = 'Hot Key'
ParentColor = False
end
@ -959,10 +959,9 @@ object frmOptions: TfrmOptions
Left = 4
Height = 21
Top = 33
Width = 312
Width = 316
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
Sorted = True
Style = csDropDownList
@ -972,12 +971,14 @@ object frmOptions: TfrmOptions
Left = 6
Height = 23
Top = 88
Width = 310
Width = 314
Anchors = [akTop, akLeft, akRight]
OnKeyDown = edHotKeyKeyDown
TabOrder = 1
end
object btSetHotKey: TButton
AnchorSideRight.Control = btClearHotKey
AnchorSideRight.Side = asrBottom
Left = 326
Height = 32
Top = 84
@ -1001,19 +1002,19 @@ object frmOptions: TfrmOptions
end
end
object pgPlugins: TPage
ClientWidth = 456
ClientHeight = 339
ClientWidth = 460
ClientHeight = 314
object pcPluginsTypes: TPageControl
Height = 339
Width = 456
Height = 314
Width = 460
ActivePage = tsWCX
Align = alClient
TabIndex = 0
TabOrder = 0
object tsWCX: TTabSheet
Caption = 'Packer plugins (.WCX)'
ClientHeight = 313
ClientWidth = 448
ClientHeight = 310
ClientWidth = 456
OnShow = tsWCXShow
object lblAbout: TLabel
Left = 14
@ -1045,7 +1046,6 @@ object frmOptions: TfrmOptions
Top = 46
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
OnChange = cbExtChange
TabOrder = 0
@ -1056,7 +1056,6 @@ object frmOptions: TfrmOptions
Top = 98
Width = 200
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
TabOrder = 1
end
@ -1096,13 +1095,14 @@ object frmOptions: TfrmOptions
Width = 200
OnClick = clbWCXListClick
TabOrder = 5
TopIndex = -1
end
end
object tsWFX: TTabSheet
Caption = 'File system plugins (.WFX)'
ChildSizing.LeftRightSpacing = 239
ClientHeight = 313
ClientWidth = 448
ClientHeight = 306
ClientWidth = 452
OnShow = tsWFXShow
object lblInstalledPlugins: TLabel
Left = 21
@ -1118,6 +1118,7 @@ object frmOptions: TfrmOptions
Top = 30
Width = 424
TabOrder = 0
TopIndex = -1
end
object bbtnWFXAdd: TBitBtn
AnchorSideLeft.Control = clbWFXList
@ -1173,15 +1174,15 @@ object frmOptions: TfrmOptions
end
end
object pgFileTypesColors: TPage
ClientWidth = 456
ClientHeight = 339
ClientWidth = 460
ClientHeight = 314
object gbFileTypesColors: TGroupBox
Left = 10
Height = 274
Top = 2
Width = 425
Caption = 'File types colors'
ClientHeight = 256
ClientHeight = 253
ClientWidth = 421
TabOrder = 0
object lblCategoryName: TLabel
@ -1323,6 +1324,7 @@ object frmOptions: TfrmOptions
Width = 398
OnClick = lbCategoriesClick
TabOrder = 6
TopIndex = -1
end
object bbtnApplyCategory: TBitBtn
AnchorSideTop.Control = cbCategoryColor
@ -1343,15 +1345,15 @@ object frmOptions: TfrmOptions
end
end
object pgLayout: TPage
ClientWidth = 446
ClientHeight = 321
ClientWidth = 460
ClientHeight = 314
object gbScreenLayout: TGroupBox
Left = 11
Height = 304
Top = 4
Width = 389
Caption = ' Screen layout '
ClientHeight = 286
ClientHeight = 283
ClientWidth = 385
TabOrder = 0
object cbShowMainToolBar: TCheckBox
@ -1464,15 +1466,15 @@ object frmOptions: TfrmOptions
end
end
object pgFileOp: TPage
ClientWidth = 446
ClientHeight = 321
ClientWidth = 460
ClientHeight = 314
object gbCopyBufferSize: TGroupBox
Left = 10
Height = 100
Top = 6
Width = 424
Caption = '&Buffer size for files:'
ClientHeight = 82
ClientHeight = 79
ClientWidth = 420
TabOrder = 0
object lblCopyBufferSize: TLabel
@ -1505,7 +1507,7 @@ object frmOptions: TfrmOptions
Width = 424
BorderSpacing.Top = 6
Caption = 'General options'
ClientHeight = 82
ClientHeight = 79
ClientWidth = 420
TabOrder = 1
object cbDropReadOnlyFlag: TCheckBox
@ -1526,7 +1528,7 @@ object frmOptions: TfrmOptions
Width = 424
BorderSpacing.Top = 6
Caption = 'File search'
ClientHeight = 82
ClientHeight = 79
ClientWidth = 420
TabOrder = 2
object rbUseMmapInSearch: TRadioButton
@ -1553,15 +1555,15 @@ object frmOptions: TfrmOptions
end
end
object pgTabs: TPage
ClientWidth = 456
ClientHeight = 339
ClientWidth = 460
ClientHeight = 343
object gbTabs: TGroupBox
Left = 12
Height = 304
Top = 6
Width = 422
Caption = 'Folder tabs headers'
ClientHeight = 286
ClientHeight = 283
ClientWidth = 418
TabOrder = 0
object lblChar: TLabel
@ -1570,34 +1572,34 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = edtTabsLimitLength
AnchorSideTop.Side = asrCenter
Left = 341
Height = 14
Top = 58
Width = 52
Height = 26
Top = 54
Width = 58
BorderSpacing.Left = 6
Caption = 'characters'
ParentColor = False
end
object cbTabsAlwaysVisible: TCheckBox
Left = 12
Height = 19
Height = 23
Top = 6
Width = 256
Width = 287
Caption = '&Show tab header also when there is only one tab'
TabOrder = 0
end
object cbTabsMultiLines: TCheckBox
Left = 12
Height = 19
Height = 23
Top = 31
Width = 127
Width = 141
Caption = '&Tabs on multiple lines'
TabOrder = 1
end
object cbTabsLimitOption: TCheckBox
Left = 12
Height = 19
Height = 23
Top = 56
Width = 131
Width = 143
Caption = '&Limit tab title length to:'
TabOrder = 2
end
@ -1606,7 +1608,7 @@ object frmOptions: TfrmOptions
AnchorSideTop.Side = asrCenter
Left = 294
Height = 23
Top = 54
Top = 56
Width = 41
TabOrder = 3
end

2
language/doublecmd.po
View file

@ -1291,7 +1291,7 @@ msgid "About"
msgstr ""
#: TFRMABOUT.LBLVERSION.CAPTION
msgid "Version 0.2 alpha"
msgid "Version 0.3 alpha"
msgstr ""
#: TFRMABOUT.LBLBUILD.CAPTION

2
language/doublecmd.ru.po
View file

@ -1291,7 +1291,7 @@ msgid "About"
msgstr "О программе..."
#: TFRMABOUT.LBLVERSION.CAPTION
msgid "Version 0.2 alpha"
msgid "Version 0.3 alpha"
msgstr ""
#: TFRMABOUT.LBLBUILD.CAPTION

4
uGlobsPaths.pas
View file

@ -17,12 +17,12 @@ uses
function GetAppName : String;
begin
Result := '.doublecmd'; // hidden directory
Result := 'doublecmd';
end;
procedure LoadPaths;
begin
OnGetApplicationName := @GetAppName; // for add a dot in directory name
OnGetApplicationName := @GetAppName;
gpIniDir := GetAppConfigDir(False);
if not DirectoryExists(gpIniDir) then
ForceDirectories(gpIniDir);