mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
UPD: Localize string from fviewoperations form
UPD: Interface alignment of fviewoperations form
This commit is contained in:
Alexander Koblov
parent
1b53ab2ace
commit
9ea19b3ca4
4 changed files with 374 additions and 306 deletions
|
|
@ -1,111 +1,104 @@
|
|||
object frmViewOperations: TfrmViewOperations
|
||||
Left = 531
|
||||
Height = 333
|
||||
Top = 160
|
||||
Width = 559
|
||||
Left = 304
|
||||
Height = 366
|
||||
Top = 146
|
||||
Width = 563
|
||||
Caption = 'File operations'
|
||||
ClientHeight = 333
|
||||
ClientWidth = 559
|
||||
ClientHeight = 366
|
||||
ClientWidth = 563
|
||||
FormStyle = fsStayOnTop
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
LCLVersion = '0.9.31'
|
||||
object sboxOperations: TScrollBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 277
|
||||
Top = 56
|
||||
Width = 559
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 0
|
||||
OnDblClick = sboxOperationsDblClick
|
||||
OnMouseDown = sboxOperationsMouseDown
|
||||
OnPaint = sboxOperationsPaint
|
||||
end
|
||||
object VOMainPanel: TPanel
|
||||
LCLVersion = '0.9.29'
|
||||
object pnlHeader: TPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 56
|
||||
Top = 0
|
||||
Width = 559
|
||||
Width = 563
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ClientHeight = 56
|
||||
ClientWidth = 559
|
||||
ClientWidth = 563
|
||||
TabOrder = 1
|
||||
object lblCount: TLabel
|
||||
AnchorSideTop.Control = lblOperationsCount
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 128
|
||||
Height = 14
|
||||
Top = 24
|
||||
Width = 48
|
||||
Caption = 'lblCount'
|
||||
Top = 21
|
||||
Width = 7
|
||||
Caption = '0'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblOperationsCount: TLabel
|
||||
AnchorSideTop.Control = pnlHeader
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 24
|
||||
Height = 14
|
||||
Top = 24
|
||||
Width = 105
|
||||
Top = 21
|
||||
Width = 89
|
||||
Caption = 'Active operations:'
|
||||
ParentColor = False
|
||||
end
|
||||
object CurrentOperationPanel: TPanel
|
||||
AnchorSideLeft.Control = lblCount
|
||||
object pnlCurrentOperation: TPanel
|
||||
AnchorSideLeft.Control = Bevel3
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = VOMainPanel
|
||||
AnchorSideRight.Control = VOMainPanel
|
||||
AnchorSideTop.Control = pnlHeader
|
||||
AnchorSideRight.Control = pnlHeader
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = VOMainPanel
|
||||
AnchorSideBottom.Control = pnlHeader
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 186
|
||||
Height = 56
|
||||
Top = 0
|
||||
Width = 373
|
||||
Left = 149
|
||||
Height = 54
|
||||
Top = 1
|
||||
Width = 413
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 10
|
||||
ClientHeight = 56
|
||||
ClientWidth = 373
|
||||
BorderSpacing.Left = 6
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 54
|
||||
ClientWidth = 413
|
||||
TabOrder = 0
|
||||
object CancelCurOp: TSpeedButton
|
||||
AnchorSideRight.Control = CurrentOperationPanel
|
||||
object btnCancelCurOp: TSpeedButton
|
||||
AnchorSideRight.Control = pnlCurrentOperation
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = CurrentOperationPanel
|
||||
AnchorSideBottom.Control = pnlCurrentOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 319
|
||||
Height = 21
|
||||
Top = 32
|
||||
Left = 359
|
||||
Height = 22
|
||||
Top = 29
|
||||
Width = 54
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Bottom = 3
|
||||
Caption = 'Cancel'
|
||||
NumGlyphs = 0
|
||||
OnClick = CancelCurOpClick
|
||||
OnClick = btnCancelCurOpClick
|
||||
end
|
||||
object StartPauseCurOp: TSpeedButton
|
||||
AnchorSideLeft.Control = CurrentOperationPanel
|
||||
AnchorSideBottom.Control = CurrentOperationPanel
|
||||
object btnStartPauseCurOp: TSpeedButton
|
||||
AnchorSideLeft.Control = pnlCurrentOperation
|
||||
AnchorSideBottom.Control = pnlCurrentOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 3
|
||||
Height = 21
|
||||
Top = 32
|
||||
Height = 22
|
||||
Top = 29
|
||||
Width = 45
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Bottom = 3
|
||||
Caption = 'Start'
|
||||
NumGlyphs = 0
|
||||
OnClick = StartPauseCurOpClick
|
||||
OnClick = btnStartPauseCurOpClick
|
||||
end
|
||||
object DnCurOp: TSpeedButton
|
||||
AnchorSideLeft.Control = UpCurOp
|
||||
object btnDnCurOp: TSpeedButton
|
||||
AnchorSideLeft.Control = btnUpCurOp
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = CancelCurOp
|
||||
AnchorSideBottom.Control = CurrentOperationPanel
|
||||
AnchorSideRight.Control = btnCancelCurOp
|
||||
AnchorSideBottom.Control = pnlCurrentOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 279
|
||||
Height = 21
|
||||
Top = 32
|
||||
Left = 319
|
||||
Height = 22
|
||||
Top = 29
|
||||
Width = 38
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Left = 2
|
||||
|
|
@ -113,59 +106,59 @@ object frmViewOperations: TfrmViewOperations
|
|||
BorderSpacing.Bottom = 3
|
||||
Caption = 'Down'
|
||||
NumGlyphs = 0
|
||||
OnClick = DnCurOpClick
|
||||
OnClick = btnDnCurOpClick
|
||||
end
|
||||
object UpCurOp: TSpeedButton
|
||||
AnchorSideLeft.Control = CurrentOperationPanel
|
||||
AnchorSideRight.Control = DnCurOp
|
||||
AnchorSideBottom.Control = CurrentOperationPanel
|
||||
object btnUpCurOp: TSpeedButton
|
||||
AnchorSideLeft.Control = pnlCurrentOperation
|
||||
AnchorSideRight.Control = btnDnCurOp
|
||||
AnchorSideBottom.Control = pnlCurrentOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 237
|
||||
Height = 21
|
||||
Top = 32
|
||||
Left = 277
|
||||
Height = 22
|
||||
Top = 29
|
||||
Width = 40
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Right = 2
|
||||
BorderSpacing.Bottom = 3
|
||||
Caption = 'Up'
|
||||
NumGlyphs = 0
|
||||
OnClick = UpCurOpClick
|
||||
OnClick = btnUpCurOpClick
|
||||
end
|
||||
object CurrentOperationLabel: TLabel
|
||||
AnchorSideLeft.Control = StartPauseCurOp
|
||||
object lblCurrentOperation: TLabel
|
||||
AnchorSideLeft.Control = btnStartPauseCurOp
|
||||
Left = 5
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 131
|
||||
Width = 87
|
||||
BorderSpacing.Left = 2
|
||||
Caption = 'CurrentOperationLabel'
|
||||
Caption = 'Current operation'
|
||||
ParentColor = False
|
||||
end
|
||||
object CurOpQueueInOut: TSpeedButton
|
||||
AnchorSideLeft.Control = Queue
|
||||
object btnCurOpQueueInOut: TSpeedButton
|
||||
AnchorSideLeft.Control = lblQueue
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideBottom.Control = CurrentOperationPanel
|
||||
AnchorSideBottom.Control = pnlCurrentOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 103
|
||||
Height = 21
|
||||
Top = 32
|
||||
Left = 97
|
||||
Height = 22
|
||||
Top = 29
|
||||
Width = 34
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Bottom = 3
|
||||
Caption = 'In'
|
||||
NumGlyphs = 0
|
||||
OnClick = CurOpQueueInOutClick
|
||||
OnClick = btnCurOpQueueInOutClick
|
||||
end
|
||||
object Queue: TLabel
|
||||
AnchorSideLeft.Control = StartPauseCurOp
|
||||
object lblQueue: TLabel
|
||||
AnchorSideLeft.Control = btnStartPauseCurOp
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideBottom.Control = CurrentOperationPanel
|
||||
AnchorSideBottom.Control = pnlCurrentOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 58
|
||||
Height = 14
|
||||
Top = 35
|
||||
Width = 43
|
||||
Top = 33
|
||||
Width = 37
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 10
|
||||
BorderSpacing.Bottom = 7
|
||||
|
|
@ -173,195 +166,257 @@ object frmViewOperations: TfrmViewOperations
|
|||
ParentColor = False
|
||||
end
|
||||
end
|
||||
object Bevel3: TBevel
|
||||
AnchorSideLeft.Control = lblCount
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pnlHeader
|
||||
AnchorSideBottom.Control = pnlHeader
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 141
|
||||
Height = 50
|
||||
Top = 3
|
||||
Width = 2
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Bottom = 2
|
||||
end
|
||||
end
|
||||
object AllOperationPanel: TPanel
|
||||
object sboxOperations: TScrollBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = VOMainPanel
|
||||
AnchorSideTop.Control = pnlHeader
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 214
|
||||
Top = 56
|
||||
Width = 563
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
TabOrder = 0
|
||||
OnDblClick = sboxOperationsDblClick
|
||||
OnMouseDown = sboxOperationsMouseDown
|
||||
OnPaint = sboxOperationsPaint
|
||||
end
|
||||
object grpAllOperation: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 90
|
||||
Top = 243
|
||||
Left = 2
|
||||
Height = 100
|
||||
Top = 264
|
||||
Width = 559
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 220
|
||||
ClientHeight = 90
|
||||
ClientWidth = 559
|
||||
BorderSpacing.Right = 2
|
||||
BorderSpacing.Bottom = 2
|
||||
Caption = 'Operations control'
|
||||
ClientHeight = 82
|
||||
ClientWidth = 555
|
||||
TabOrder = 2
|
||||
object AllProgressLabel: TLabel
|
||||
AnchorSideLeft.Control = AllProgressBar
|
||||
AnchorSideRight.Control = AllOperationPanel
|
||||
object lblAllProgress: TLabel
|
||||
AnchorSideLeft.Control = pbrAllProgress
|
||||
AnchorSideTop.Control = grpAllOperation
|
||||
AnchorSideRight.Control = grpAllOperation
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 241
|
||||
Left = 300
|
||||
Height = 14
|
||||
Top = 16
|
||||
Width = 95
|
||||
Caption = 'AllProgressLabel'
|
||||
Top = 4
|
||||
Width = 43
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Progress'
|
||||
ParentColor = False
|
||||
end
|
||||
object AllProgressBar: TProgressBar
|
||||
AnchorSideLeft.Control = AllCancel
|
||||
object pbrAllProgress: TProgressBar
|
||||
AnchorSideLeft.Control = btnAllCancel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = AllOperationPanel
|
||||
AnchorSideTop.Control = lblAllProgress
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = grpAllOperation
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 241
|
||||
Left = 300
|
||||
Height = 18
|
||||
Top = 40
|
||||
Width = 309
|
||||
Top = 24
|
||||
Width = 246
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 30
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 9
|
||||
Smooth = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object AllCancel: TSpeedButton
|
||||
AnchorSideLeft.Control = AllPause
|
||||
object btnAllCancel: TSpeedButton
|
||||
AnchorSideLeft.Control = btnAllPause
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 155
|
||||
Height = 20
|
||||
Top = 40
|
||||
AnchorSideTop.Control = btnAllStart
|
||||
Left = 214
|
||||
Height = 22
|
||||
Top = 26
|
||||
Width = 56
|
||||
BorderSpacing.Left = 2
|
||||
Caption = 'Cancel All'
|
||||
Caption = 'Cancel'
|
||||
NumGlyphs = 0
|
||||
OnClick = AllCancelClick
|
||||
OnClick = btnAllCancelClick
|
||||
end
|
||||
object AllButtonsLable: TLabel
|
||||
AnchorSideLeft.Control = AllOperationPanel
|
||||
Left = 27
|
||||
Height = 14
|
||||
Top = 0
|
||||
Width = 106
|
||||
BorderSpacing.Left = 27
|
||||
Caption = 'Operations control'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = AllPause
|
||||
object lblAll: TLabel
|
||||
AnchorSideLeft.Control = btnAllPause
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
Left = 125
|
||||
AnchorSideTop.Control = grpAllOperation
|
||||
Left = 170
|
||||
Height = 14
|
||||
Top = 16
|
||||
Width = 34
|
||||
Top = 4
|
||||
Width = 28
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'for all'
|
||||
ParentColor = False
|
||||
end
|
||||
object Cntr_running: TPanel
|
||||
AnchorSideLeft.Control = AllOperationPanel
|
||||
AnchorSideTop.Control = AllButtonsLable
|
||||
object lblRunning: TLabel
|
||||
AnchorSideLeft.Control = grpAllOperation
|
||||
AnchorSideTop.Control = grpAllOperation
|
||||
Left = 12
|
||||
Height = 14
|
||||
Top = 4
|
||||
Width = 54
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'for running'
|
||||
ParentColor = False
|
||||
end
|
||||
object btnRunAllPause: TSpeedButton
|
||||
AnchorSideLeft.Control = lblRunning
|
||||
AnchorSideTop.Control = btnRunAllStart
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = AllStart
|
||||
AnchorSideBottom.Control = AllOperationPanel
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 74
|
||||
Top = 16
|
||||
Width = 77
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 2
|
||||
ClientHeight = 74
|
||||
ClientWidth = 77
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = Cntr_running
|
||||
Left = 13
|
||||
Height = 14
|
||||
Top = 0
|
||||
Width = 64
|
||||
BorderSpacing.Left = 13
|
||||
Caption = 'for running'
|
||||
ParentColor = False
|
||||
end
|
||||
object RunAllPause: TSpeedButton
|
||||
Left = 7
|
||||
Height = 20
|
||||
Top = 45
|
||||
Width = 60
|
||||
Anchors = [akTop]
|
||||
Caption = '||'
|
||||
NumGlyphs = 0
|
||||
OnClick = RunAllPauseClick
|
||||
end
|
||||
object RunAllStart: TSpeedButton
|
||||
Left = 7
|
||||
Height = 22
|
||||
Top = 21
|
||||
Width = 60
|
||||
Caption = 'Start'
|
||||
NumGlyphs = 0
|
||||
OnClick = RunAllStartClick
|
||||
end
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 52
|
||||
Width = 60
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Pause'
|
||||
NumGlyphs = 0
|
||||
OnClick = btnRunAllPauseClick
|
||||
end
|
||||
object AllPause: TSpeedButton
|
||||
AnchorSideLeft.Control = AllStart
|
||||
object btnRunAllStart: TSpeedButton
|
||||
AnchorSideLeft.Control = lblRunning
|
||||
AnchorSideTop.Control = lblRunning
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 22
|
||||
Top = 26
|
||||
Width = 60
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Start'
|
||||
NumGlyphs = 0
|
||||
OnClick = btnRunAllStartClick
|
||||
end
|
||||
object btnAllPause: TSpeedButton
|
||||
AnchorSideLeft.Control = btnAllStart
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 131
|
||||
Height = 20
|
||||
Top = 40
|
||||
Width = 22
|
||||
AnchorSideTop.Control = btnAllStart
|
||||
Left = 156
|
||||
Height = 22
|
||||
Top = 26
|
||||
Width = 56
|
||||
BorderSpacing.Left = 2
|
||||
Caption = '||'
|
||||
Caption = 'Pause'
|
||||
NumGlyphs = 0
|
||||
OnClick = AllPauseClick
|
||||
OnClick = btnAllPauseClick
|
||||
end
|
||||
object AllStart: TSpeedButton
|
||||
AnchorSideLeft.Control = Cntr_running
|
||||
object btnAllStart: TSpeedButton
|
||||
AnchorSideLeft.Control = Bevel2
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 82
|
||||
Height = 20
|
||||
Top = 40
|
||||
Width = 47
|
||||
BorderSpacing.Left = 5
|
||||
Caption = 'Start All'
|
||||
AnchorSideTop.Control = lblAll
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 98
|
||||
Height = 22
|
||||
Top = 26
|
||||
Width = 56
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Start'
|
||||
NumGlyphs = 0
|
||||
OnClick = AllStartClick
|
||||
OnClick = btnAllStartClick
|
||||
end
|
||||
object CheckQueueBox: TCheckBox
|
||||
AnchorSideLeft.Control = AllProgressBar
|
||||
AnchorSideRight.Control = AllProgressBar
|
||||
object chkQueue: TCheckBox
|
||||
AnchorSideLeft.Control = pbrAllProgress
|
||||
AnchorSideTop.Control = pbrAllProgress
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pbrAllProgress
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 241
|
||||
Left = 300
|
||||
Height = 17
|
||||
Top = 65
|
||||
Width = 95
|
||||
Top = 50
|
||||
Width = 83
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Enable queue'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 2
|
||||
TabOrder = 1
|
||||
end
|
||||
object AllInQueue: TSpeedButton
|
||||
AnchorSideLeft.Control = AllStart
|
||||
Left = 82
|
||||
Height = 18
|
||||
Top = 64
|
||||
Width = 46
|
||||
Caption = 'All In'
|
||||
object btnAllInQueue: TSpeedButton
|
||||
AnchorSideLeft.Control = btnAllStart
|
||||
AnchorSideTop.Control = btnAllStart
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 98
|
||||
Height = 22
|
||||
Top = 52
|
||||
Width = 56
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Queue In'
|
||||
NumGlyphs = 0
|
||||
OnClick = AllInQueueClick
|
||||
OnClick = btnAllInQueueClick
|
||||
end
|
||||
object StartQueue: TSpeedButton
|
||||
AnchorSideLeft.Control = AllInQueue
|
||||
object btnStartQueue: TSpeedButton
|
||||
AnchorSideLeft.Control = btnAllInQueue
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = AllCancel
|
||||
AnchorSideTop.Control = btnAllInQueue
|
||||
AnchorSideRight.Control = btnAllCancel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 130
|
||||
Height = 18
|
||||
Top = 64
|
||||
Width = 81
|
||||
Left = 156
|
||||
Height = 22
|
||||
Top = 52
|
||||
Width = 114
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 2
|
||||
Caption = 'Start queue'
|
||||
NumGlyphs = 0
|
||||
OnClick = StartQueueClick
|
||||
OnClick = btnStartQueueClick
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
AnchorSideLeft.Control = btnAllCancel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = grpAllOperation
|
||||
AnchorSideBottom.Control = grpAllOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 282
|
||||
Height = 80
|
||||
Top = 0
|
||||
Width = 2
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Bottom = 2
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
AnchorSideLeft.Control = btnRunAllStart
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = grpAllOperation
|
||||
AnchorSideBottom.Control = grpAllOperation
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 84
|
||||
Height = 80
|
||||
Top = 0
|
||||
Width = 2
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Bottom = 2
|
||||
end
|
||||
end
|
||||
object UpdateTimer: TTimer
|
||||
Interval = 100
|
||||
OnTimer = OnUpdateTimer
|
||||
left = 8
|
||||
top = 176
|
||||
left = 112
|
||||
top = 136
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -1,22 +1,22 @@
|
|||
TFRMVIEWOPERATIONS.CAPTION=File operations
|
||||
TFRMVIEWOPERATIONS.LBLCOUNT.CAPTION=lblCount
|
||||
TFRMVIEWOPERATIONS.FRMVIEWOPERATIONS.CAPTION=File operations
|
||||
TFRMVIEWOPERATIONS.LBLCOUNT.CAPTION=0
|
||||
TFRMVIEWOPERATIONS.LBLOPERATIONSCOUNT.CAPTION=Active operations:
|
||||
TFRMVIEWOPERATIONS.CANCELCUROP.CAPTION=Cancel
|
||||
TFRMVIEWOPERATIONS.STARTPAUSECUROP.CAPTION=Start
|
||||
TFRMVIEWOPERATIONS.DNCUROP.CAPTION=Down
|
||||
TFRMVIEWOPERATIONS.UPCUROP.CAPTION=Up
|
||||
TFRMVIEWOPERATIONS.CURRENTOPERATIONLABEL.CAPTION=CurrentOperationLabel
|
||||
TFRMVIEWOPERATIONS.CUROPQUEUEINOUT.CAPTION=In
|
||||
TFRMVIEWOPERATIONS.QUEUE.CAPTION=Queue:
|
||||
TFRMVIEWOPERATIONS.ALLPROGRESSLABEL.CAPTION=AllProgressLabel
|
||||
TFRMVIEWOPERATIONS.ALLCANCEL.CAPTION=Cancel All
|
||||
TFRMVIEWOPERATIONS.ALLBUTTONSLABLE.CAPTION=Operations control
|
||||
TFRMVIEWOPERATIONS.LABEL2.CAPTION=for all
|
||||
TFRMVIEWOPERATIONS.LABEL1.CAPTION=for running
|
||||
TFRMVIEWOPERATIONS.RUNALLPAUSE.CAPTION=||
|
||||
TFRMVIEWOPERATIONS.RUNALLSTART.CAPTION=Start
|
||||
TFRMVIEWOPERATIONS.ALLPAUSE.CAPTION=||
|
||||
TFRMVIEWOPERATIONS.ALLSTART.CAPTION=Start All
|
||||
TFRMVIEWOPERATIONS.CHECKQUEUEBOX.CAPTION=Enable queue
|
||||
TFRMVIEWOPERATIONS.ALLINQUEUE.CAPTION=All In
|
||||
TFRMVIEWOPERATIONS.STARTQUEUE.CAPTION=Start queue
|
||||
TFRMVIEWOPERATIONS.BTNCANCELCUROP.CAPTION=Cancel
|
||||
TFRMVIEWOPERATIONS.BTNSTARTPAUSECUROP.CAPTION=Start
|
||||
TFRMVIEWOPERATIONS.BTNDNCUROP.CAPTION=Down
|
||||
TFRMVIEWOPERATIONS.BTNUPCUROP.CAPTION=Up
|
||||
TFRMVIEWOPERATIONS.LBLCURRENTOPERATION.CAPTION=Current operation
|
||||
TFRMVIEWOPERATIONS.BTNCUROPQUEUEINOUT.CAPTION=In
|
||||
TFRMVIEWOPERATIONS.LBLQUEUE.CAPTION=Queue:
|
||||
TFRMVIEWOPERATIONS.GRPALLOPERATION.CAPTION=Operations control
|
||||
TFRMVIEWOPERATIONS.LBLALLPROGRESS.CAPTION=Progress
|
||||
TFRMVIEWOPERATIONS.BTNALLCANCEL.CAPTION=Cancel
|
||||
TFRMVIEWOPERATIONS.LBLALL.CAPTION=for all
|
||||
TFRMVIEWOPERATIONS.LBLRUNNING.CAPTION=for running
|
||||
TFRMVIEWOPERATIONS.BTNRUNALLPAUSE.CAPTION=Pause
|
||||
TFRMVIEWOPERATIONS.BTNRUNALLSTART.CAPTION=Start
|
||||
TFRMVIEWOPERATIONS.BTNALLPAUSE.CAPTION=Pause
|
||||
TFRMVIEWOPERATIONS.BTNALLSTART.CAPTION=Start
|
||||
TFRMVIEWOPERATIONS.CHKQUEUE.CAPTION=Enable queue
|
||||
TFRMVIEWOPERATIONS.BTNALLINQUEUE.CAPTION=Queue In
|
||||
TFRMVIEWOPERATIONS.BTNSTARTQUEUE.CAPTION=Start queue
|
||||
|
|
|
|||
|
|
@ -13,53 +13,55 @@ type
|
|||
{ TfrmViewOperations }
|
||||
|
||||
TfrmViewOperations = class(TForm)
|
||||
AllProgressLabel: TLabel;
|
||||
CheckQueueBox: TCheckBox;
|
||||
CurrentOperationPanel: TPanel;
|
||||
CurrentOperationLabel: TLabel;
|
||||
Queue: TLabel;
|
||||
AllButtonsLable: TLabel;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Bevel3: TBevel;
|
||||
lblAllProgress: TLabel;
|
||||
Bevel1: TBevel;
|
||||
Bevel2: TBevel;
|
||||
chkQueue: TCheckBox;
|
||||
pnlCurrentOperation: TPanel;
|
||||
lblCurrentOperation: TLabel;
|
||||
lblQueue: TLabel;
|
||||
lblRunning: TLabel;
|
||||
lblAll: TLabel;
|
||||
lblCount: TLabel;
|
||||
lblOperationsCount: TLabel;
|
||||
AllProgressBar: TProgressBar;
|
||||
AllOperationPanel: TPanel;
|
||||
pbrAllProgress: TProgressBar;
|
||||
grpAllOperation: TGroupBox;
|
||||
Cntr_running: TPanel;
|
||||
AllPause: TSpeedButton;
|
||||
AllStart: TSpeedButton;
|
||||
CurOpQueueInOut: TSpeedButton;
|
||||
AllInQueue: TSpeedButton;
|
||||
RunAllStart: TSpeedButton;
|
||||
StartQueue: TSpeedButton;
|
||||
UpCurOp: TSpeedButton;
|
||||
DnCurOp: TSpeedButton;
|
||||
StartPauseCurOp: TSpeedButton;
|
||||
CancelCurOp: TSpeedButton;
|
||||
VOMainPanel: TPanel;
|
||||
btnAllPause: TSpeedButton;
|
||||
btnAllStart: TSpeedButton;
|
||||
btnCurOpQueueInOut: TSpeedButton;
|
||||
btnAllInQueue: TSpeedButton;
|
||||
btnRunAllStart: TSpeedButton;
|
||||
btnStartQueue: TSpeedButton;
|
||||
btnUpCurOp: TSpeedButton;
|
||||
btnDnCurOp: TSpeedButton;
|
||||
btnStartPauseCurOp: TSpeedButton;
|
||||
btnCancelCurOp: TSpeedButton;
|
||||
pnlHeader: TPanel;
|
||||
sboxOperations: TScrollBox;
|
||||
RunAllPause: TSpeedButton;
|
||||
AllCancel: TSpeedButton;
|
||||
btnRunAllPause: TSpeedButton;
|
||||
btnAllCancel: TSpeedButton;
|
||||
UpdateTimer: TTimer;
|
||||
|
||||
procedure AllInQueueClick(Sender: TObject);
|
||||
procedure AllPauseClick(Sender: TObject);
|
||||
procedure AllStartClick(Sender: TObject);
|
||||
procedure CancelCurOpClick(Sender: TObject);
|
||||
procedure DnCurOpClick(Sender: TObject);
|
||||
procedure RunAllPauseClick(Sender: TObject);
|
||||
procedure AllCancelClick(Sender: TObject);
|
||||
procedure RunAllStartClick(Sender: TObject);
|
||||
procedure btnAllInQueueClick(Sender: TObject);
|
||||
procedure btnAllPauseClick(Sender: TObject);
|
||||
procedure btnAllStartClick(Sender: TObject);
|
||||
procedure btnCancelCurOpClick(Sender: TObject);
|
||||
procedure btnDnCurOpClick(Sender: TObject);
|
||||
procedure btnRunAllPauseClick(Sender: TObject);
|
||||
procedure btnAllCancelClick(Sender: TObject);
|
||||
procedure btnRunAllStartClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure OnUpdateTimer(Sender: TObject);
|
||||
procedure sboxOperationsDblClick(Sender: TObject);
|
||||
procedure sboxOperationsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure sboxOperationsPaint(Sender: TObject);
|
||||
procedure CurOpQueueInOutClick(Sender: TObject);
|
||||
procedure StartPauseCurOpClick(Sender: TObject);
|
||||
procedure StartQueueClick(Sender: TObject);
|
||||
procedure UpCurOpClick(Sender: TObject);
|
||||
procedure btnCurOpQueueInOutClick(Sender: TObject);
|
||||
procedure btnStartPauseCurOpClick(Sender: TObject);
|
||||
procedure btnStartQueueClick(Sender: TObject);
|
||||
procedure btnUpCurOpClick(Sender: TObject);
|
||||
|
||||
private
|
||||
procedure UpdateView(Operation: TFileSourceOperation; Event: TOperationManagerEvent);
|
||||
|
|
@ -76,7 +78,7 @@ implementation
|
|||
|
||||
uses
|
||||
uFileSourceOperationTypes,
|
||||
uLng, fFileOpDlg;
|
||||
uLng, fFileOpDlg, uGlobs;
|
||||
|
||||
const
|
||||
aRowHeight = 50;
|
||||
|
|
@ -85,7 +87,7 @@ const
|
|||
|
||||
procedure TfrmViewOperations.FormCreate(Sender: TObject);
|
||||
begin
|
||||
|
||||
InitPropStorage(Self);
|
||||
lblCount.Caption := '0';
|
||||
indexFocus := 1;
|
||||
sboxOperations.AutoScroll := True;
|
||||
|
|
@ -97,17 +99,17 @@ begin
|
|||
sboxOperations.Invalidate; // force redraw
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.RunAllPauseClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnRunAllPauseClick(Sender: TObject);
|
||||
begin
|
||||
OperationsManager.PauseRunning;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.AllPauseClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnAllPauseClick(Sender: TObject);
|
||||
begin
|
||||
OperationsManager.PauseAll;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.AllInQueueClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnAllInQueueClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
|
|
@ -115,17 +117,17 @@ begin
|
|||
OperationsManager.InQueue (OperationsManager.GetHandleById(i), true);
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.AllStartClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnAllStartClick(Sender: TObject);
|
||||
begin
|
||||
OperationsManager.StartAll;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.CancelCurOpClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnCancelCurOpClick(Sender: TObject);
|
||||
begin
|
||||
OperationsManager.GetOperationByIndex(indexFocus).Stop;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.DnCurOpClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnDnCurOpClick(Sender: TObject);
|
||||
begin
|
||||
if indexFocus < OperationsManager.OperationsCount-1 then
|
||||
begin
|
||||
|
|
@ -134,12 +136,12 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.AllCancelClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnAllCancelClick(Sender: TObject);
|
||||
begin
|
||||
OperationsManager.CancelAll;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.RunAllStartClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnRunAllStartClick(Sender: TObject);
|
||||
begin
|
||||
OperationsManager.StartRunning;
|
||||
end;
|
||||
|
|
@ -159,21 +161,21 @@ begin
|
|||
|
||||
if OperationsManager.OperationsCount=0 then
|
||||
begin
|
||||
CurrentOperationPanel.Enabled:=false;
|
||||
AllOperationPanel.Enabled:=false;
|
||||
pnlCurrentOperation.Enabled:=false;
|
||||
grpAllOperation.Enabled:=false;
|
||||
end
|
||||
else
|
||||
begin
|
||||
CurrentOperationPanel.Enabled:=true;
|
||||
AllOperationPanel.Enabled:=true;
|
||||
pnlCurrentOperation.Enabled:=true;
|
||||
grpAllOperation.Enabled:=true;
|
||||
end;
|
||||
|
||||
AllProgressBar.Position:= OperationsManager.AllProgressPoint;
|
||||
pbrAllProgress.Position:= OperationsManager.AllProgressPoint;
|
||||
|
||||
if AllProgressBar.Position <> 0 then
|
||||
AllProgressLabel.Caption:= 'Progress all operation '+ IntToStr(AllProgressBar.Position)+' %'
|
||||
if pbrAllProgress.Position <> 0 then
|
||||
lblAllProgress.Caption:= Format(rsDlgAllOpProgress, [pbrAllProgress.Position])
|
||||
else
|
||||
AllProgressLabel.Caption:= 'All operation complete';
|
||||
lblAllProgress.Caption:= rsDlgAllOpComplete;
|
||||
|
||||
for i := 0 to OperationsManager.OperationsCount - 1 do
|
||||
begin
|
||||
|
|
@ -278,7 +280,7 @@ begin
|
|||
fsoCalcChecksum:
|
||||
OutString := rsDlgCheckSumCalc;
|
||||
else
|
||||
OutString := 'Unknown operation';
|
||||
OutString := rsDlgUnknownOperation;
|
||||
end;
|
||||
|
||||
OutString := IntToStr(OperationHandle) + ': '
|
||||
|
|
@ -298,13 +300,17 @@ begin
|
|||
if i<> indexFocus then sboxOperations.Canvas.Brush.Color := clMenu else
|
||||
begin
|
||||
sboxOperations.Canvas.Brush.Color := clHighlight; // èçìåíåíèå öâåòà ïîëîñêè åñëè íà íåé ôîêóñ
|
||||
CurrentOperationLabel.Caption:=OutString; // çàãàëîâîê äëÿ òåêóùåé îïåðàöèè â CurrentOperation panel îïðåäåëÿåòñÿ èíäåêñîì
|
||||
lblCurrentOperation.Caption:=OutString; // çàãàëîâîê äëÿ òåêóùåé îïåðàöèè â CurrentOperation panel îïðåäåëÿåòñÿ èíäåêñîì
|
||||
|
||||
if (StartingState in [ossQueueFirst, ossQueueLast, ossQueueIn]) then
|
||||
CurOpQueueInOut.Caption:='Out' else CurOpQueueInOut.Caption:='In';
|
||||
if Operation.State=fsosRunning then
|
||||
StartPauseCurOp.Caption:='||' else StartPauseCurOp.Caption:='Start';
|
||||
btnCurOpQueueInOut.Caption:= rsDlgQueueOut
|
||||
else
|
||||
btnCurOpQueueInOut.Caption:= rsDlgQueueIn;
|
||||
|
||||
if Operation.State = fsosRunning then
|
||||
btnStartPauseCurOp.Caption:= rsDlgOpPause
|
||||
else
|
||||
btnStartPauseCurOp.Caption:= rsDlgOpStart;
|
||||
end;
|
||||
|
||||
sboxOperations.Canvas.FillRect(
|
||||
|
|
@ -319,47 +325,47 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.CurOpQueueInOutClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnCurOpQueueInOutClick(Sender: TObject);
|
||||
begin
|
||||
if (OperationsManager.GetStartingState(OperationsManager.GetHandleById(indexFocus)) in [ossQueueFirst, ossQueueLast, ossQueueIn]) then
|
||||
begin
|
||||
OperationsManager.InQueue(OperationsManager.GetHandleById(indexFocus), false);
|
||||
CurOpQueueInOut.Caption:= 'In';
|
||||
btnCurOpQueueInOut.Caption:= rsDlgQueueIn;
|
||||
end
|
||||
else
|
||||
begin
|
||||
OperationsManager.InQueue(OperationsManager.GetHandleById(indexFocus), true);
|
||||
CurOpQueueInOut.Caption:= 'Out';
|
||||
btnCurOpQueueInOut.Caption:= rsDlgQueueOut;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.StartPauseCurOpClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnStartPauseCurOpClick(Sender: TObject);
|
||||
begin
|
||||
if OperationsManager.GetOperationByIndex(indexFocus).State=fsosRunning then
|
||||
begin
|
||||
OperationsManager.GetOperationByIndex(indexFocus).pause;
|
||||
StartPauseCurOp.Caption:= 'Start';
|
||||
btnStartPauseCurOp.Caption:= rsDlgOpStart;
|
||||
OperationsManager.CheckQueuedOperations;
|
||||
end
|
||||
else
|
||||
begin
|
||||
OperationsManager.GetOperationByIndex(indexFocus).Start;
|
||||
OperationsManager.SetPauseRunning(OperationsManager.GetHandleById(indexFocus), False);
|
||||
StartPauseCurOp.Caption:= '||';
|
||||
btnStartPauseCurOp.Caption:= rsDlgOpPause;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.StartQueueClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnStartQueueClick(Sender: TObject);
|
||||
begin
|
||||
OperationsManager.CheckQueuedOperations;
|
||||
end;
|
||||
|
||||
procedure TfrmViewOperations.UpCurOpClick(Sender: TObject);
|
||||
procedure TfrmViewOperations.btnUpCurOpClick(Sender: TObject);
|
||||
begin
|
||||
if indexFocus>0 then
|
||||
begin
|
||||
OperationsManager.MoveOperation(indexFocus, indexFocus - 1);
|
||||
indexFocus:= indexFocus-1;
|
||||
indexFocus:= indexFocus - 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -367,11 +373,10 @@ end;
|
|||
procedure TfrmViewOperations.UpdateView(Operation: TFileSourceOperation;
|
||||
Event: TOperationManagerEvent);
|
||||
begin
|
||||
|
||||
if OperationsManager.OperationsCount=0 then
|
||||
if OperationsManager.OperationsCount = 0 then
|
||||
begin
|
||||
indexFocus:=-1; //ñáðîñ èíäåêñà è
|
||||
CurrentOperationLabel.Caption:='Caption of operation'; // çàãîëîâêà, åñëè íåò îïåðàöèé â ôîíå
|
||||
indexFocus:= -1; //ñáðîñ èíäåêñà è
|
||||
lblCurrentOperation.Caption:= rsDlgOpCaption; // çàãîëîâêà, åñëè íåò îïåðàöèé â ôîíå
|
||||
end;
|
||||
lblCount.Caption := IntToStr(OperationsManager.OperationsCount);
|
||||
sboxOperations.Invalidate; // force redraw
|
||||
|
|
|
|||
|
|
@ -186,6 +186,14 @@ resourcestring
|
|||
rsDlgDeleting = 'Deleting';
|
||||
rsDlgCheckSumCalc = 'Calculate check sum...';
|
||||
rsDlgCheckSumVerify = 'Verify check sum...';
|
||||
rsDlgAllOpProgress = 'Progress of all operations %d %';
|
||||
rsDlgAllOpComplete = 'All operations is complete';
|
||||
rsDlgUnknownOperation = 'Unknown operation';
|
||||
rsDlgOpStart = 'Start';
|
||||
rsDlgOpPause = 'Pause';
|
||||
rsDlgQueueIn = 'In';
|
||||
rsDlgQueueOut = 'Out';
|
||||
rsDlgOpCaption = 'Caption of operation';
|
||||
// Viewer
|
||||
rsViewAboutText = 'Internal Viewer of Double Commander.';
|
||||
rsViewNotFound = '%s not found!';
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue