mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
ADD: Capability to select and copy text in the packed file properties dialog
This commit is contained in:
Alexander Koblov
parent
1f7d3e0067
commit
98a5fec412
2 changed files with 136 additions and 113 deletions
|
|
@ -3,6 +3,7 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
Height = 400
|
||||
Top = 83
|
||||
Width = 284
|
||||
ActiveControl = btnClose
|
||||
AutoSize = True
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsDialog
|
||||
|
|
@ -10,7 +11,7 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
ClientHeight = 400
|
||||
ClientWidth = 284
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.1'
|
||||
LCLVersion = '2.0.8.0'
|
||||
object pnlInfo: TPanel
|
||||
Left = 0
|
||||
Height = 313
|
||||
|
|
@ -113,136 +114,160 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
ChildSizing.ShrinkVertical = crsHomogenousChildResize
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 179
|
||||
ClientHeight = 155
|
||||
ClientWidth = 254
|
||||
TabOrder = 0
|
||||
object lblPacker: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 173
|
||||
Width = 162
|
||||
Caption = 'Packer:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedPacker: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
object lblPackedPacker: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object lblOriginalSize: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 23
|
||||
Width = 173
|
||||
Height = 15
|
||||
Top = 20
|
||||
Width = 162
|
||||
Caption = 'Original size:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedOrgSize: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
Top = 23
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
object lblPackedOrgSize: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 20
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object lblPackedSize: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 46
|
||||
Width = 173
|
||||
Height = 15
|
||||
Top = 40
|
||||
Width = 162
|
||||
Caption = 'Packed size:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedPackedSize: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
Top = 46
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
object lblPackedPackedSize: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 40
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object lblCompressionRatio: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 69
|
||||
Width = 173
|
||||
Height = 15
|
||||
Top = 60
|
||||
Width = 162
|
||||
Caption = 'Compression ratio:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedCompression: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
Top = 69
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
object lblPackedCompression: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 60
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object lblMethod: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 92
|
||||
Width = 173
|
||||
Height = 15
|
||||
Top = 80
|
||||
Width = 162
|
||||
Caption = 'Method:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedMethod: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
Top = 92
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
object lblPackedMethod: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 80
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object lblDate: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 115
|
||||
Width = 173
|
||||
Height = 15
|
||||
Top = 100
|
||||
Width = 162
|
||||
Caption = 'Date:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedDate: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
Top = 115
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
object lblPackedDate: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 100
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object lblTime: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 138
|
||||
Width = 173
|
||||
Height = 15
|
||||
Top = 120
|
||||
Width = 162
|
||||
Caption = 'Time:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedTime: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
Top = 138
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
object lblPackedTime: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 120
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object lblAttributes: TLabel
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 161
|
||||
Width = 173
|
||||
Height = 15
|
||||
Top = 140
|
||||
Width = 162
|
||||
Caption = 'Attributes:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblPackedAttr: TLabel
|
||||
Left = 203
|
||||
Height = 18
|
||||
Top = 161
|
||||
Width = 51
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
object lblPackedAttr: TKASCDEdit
|
||||
Cursor = crIBeam
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 140
|
||||
Width = 62
|
||||
Color = clForm
|
||||
DrawStyle = dsExtra1
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
AnchorSideLeft.Control = pnlInfoProperties
|
||||
|
|
@ -251,7 +276,7 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
AnchorSideBottom.Control = lblDate
|
||||
Left = 0
|
||||
Height = 4
|
||||
Top = 106
|
||||
Top = 91
|
||||
Width = 254
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
BorderSpacing.Bottom = 4
|
||||
|
|
@ -261,14 +286,14 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
end
|
||||
object pnlButtons: TPanel
|
||||
Left = 0
|
||||
Height = 72
|
||||
Top = 328
|
||||
Height = 60
|
||||
Top = 340
|
||||
Width = 284
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 15
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 72
|
||||
ClientHeight = 60
|
||||
ClientWidth = 284
|
||||
TabOrder = 1
|
||||
object btnClose: TButton
|
||||
|
|
@ -277,9 +302,9 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
AnchorSideBottom.Control = btnUnpackAndExec
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 10
|
||||
Height = 31
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 48
|
||||
Width = 55
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 10
|
||||
|
|
@ -296,10 +321,10 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = btnUnpackAllAndExec
|
||||
Left = 62
|
||||
Height = 31
|
||||
Left = 69
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 212
|
||||
Width = 205
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
|
|
@ -316,8 +341,8 @@ object frmPackInfoDlg: TfrmPackInfoDlg
|
|||
AnchorSideBottom.Control = pnlButtons
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 10
|
||||
Height = 31
|
||||
Top = 35
|
||||
Height = 25
|
||||
Top = 29
|
||||
Width = 264
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
|
|
|
|||
|
|
@ -3,22 +3,20 @@
|
|||
-------------------------------------------------------------------------
|
||||
Packed file information window
|
||||
|
||||
Copyright (C) 2008-2010 Koblov Alexander (Alexx2000@mail.ru)
|
||||
Copyright (C) 2008-2020 Alexander Koblov (alexx2000@mail.ru)
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
This program is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU General Public License as
|
||||
published by the Free Software Foundation; either version 2 of the
|
||||
License, or (at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
This program is distributed in the hope that it will be useful, but
|
||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
}
|
||||
|
||||
unit fPackInfoDlg;
|
||||
|
|
@ -29,7 +27,7 @@ interface
|
|||
|
||||
uses
|
||||
SysUtils, Classes, Forms, StdCtrls, ExtCtrls, Controls,
|
||||
uFile, uArchiveFileSource, uFileSourceExecuteOperation;
|
||||
uFile, KASCDEdit, uArchiveFileSource, uFileSourceExecuteOperation;
|
||||
|
||||
type
|
||||
|
||||
|
|
@ -50,15 +48,15 @@ type
|
|||
lblPackedSize: TLabel;
|
||||
lblPacker: TLabel;
|
||||
lblTime: TLabel;
|
||||
lblPackedAttr: TLabel;
|
||||
lblPackedCompression: TLabel;
|
||||
lblPackedDate: TLabel;
|
||||
lblPackedAttr: TKASCDEdit;
|
||||
lblPackedCompression: TKASCDEdit;
|
||||
lblPackedDate: TKASCDEdit;
|
||||
edtPackedFile: TEdit;
|
||||
lblPackedMethod: TLabel;
|
||||
lblPackedOrgSize: TLabel;
|
||||
lblPackedPackedSize: TLabel;
|
||||
lblPackedPacker: TLabel;
|
||||
lblPackedTime: TLabel;
|
||||
lblPackedMethod: TKASCDEdit;
|
||||
lblPackedOrgSize: TKASCDEdit;
|
||||
lblPackedPackedSize: TKASCDEdit;
|
||||
lblPackedPacker: TKASCDEdit;
|
||||
lblPackedTime: TKASCDEdit;
|
||||
pnlInfoProperties: TPanel;
|
||||
pnlInfoFile: TPanel;
|
||||
pnlInfo: TPanel;
|
||||
|
|
@ -177,4 +175,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue