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
doublecmd/src/fmodview.lfm
Alexander Koblov d330afa81f UPUPD: Use clForm as default form color
2010-05-03 18:13:30 +00:00

489 lines
12 KiB
Text
Raw Blame History

object frmModView: TfrmModView
Left = 476
Height = 185
Top = 103
Width = 488
AutoSize = True
Caption = 'New Size'
ClientHeight = 185
ClientWidth = 488
Color = clForm
OnKeyPress = FormKeyPress
OnShow = FormShow
Position = poOwnerFormCenter
LCLVersion = '0.9.29'
object pnlSize: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
Left = 0
Height = 139
Top = 0
Width = 190
Anchors = [akTop, akLeft, akBottom]
ClientHeight = 139
ClientWidth = 190
TabOrder = 0
object lblHeight: TLabel
Left = 1
Height = 14
Top = 33
Width = 39
Caption = 'Height :'
ParentColor = False
end
object lblWidth: TLabel
Left = 4
Height = 14
Top = 8
Width = 36
Caption = 'Width :'
ParentColor = False
end
object teWidth: TEdit
Left = 44
Height = 21
Top = 1
Width = 82
OnKeyPress = teWidthKeyPress
OnKeyUp = teWidthKeyUp
TabOrder = 0
Text = 'Width'
end
object teHeight: TEdit
Left = 44
Height = 21
Top = 26
Width = 82
OnKeyPress = teHeightKeyPress
OnKeyUp = teHeightKeyUp
TabOrder = 1
Text = 'Height'
end
object btnProportion: TSpeedButton
Left = 132
Height = 32
Top = 9
Width = 26
Caption = 'Pr'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnProportionClick
end
end
object pnlQuality: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = pnlSize
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
Left = 0
Height = 139
Top = 0
Width = 190
Anchors = [akTop, akLeft, akBottom]
ClientHeight = 139
ClientWidth = 190
TabOrder = 1
object tbQuality: TTrackBar
Left = 0
Height = 22
Top = 17
Width = 140
Max = 100
Min = 1
Position = 80
OnMouseMove = tbQualityMouseMove
TabOrder = 0
end
object Label1: TLabel
Left = 32
Height = 14
Top = 1
Width = 129
Caption = 'Quality of compress to Jpg'
ParentColor = False
end
object teQuality: TEdit
Left = 144
Height = 21
Top = 18
Width = 43
OnKeyPress = teQualityKeyPress
OnKeyUp = teQualityKeyUp
TabOrder = 1
Text = '80'
end
end
object pnlCopyMoveFile: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
Left = 0
Height = 139
Top = 0
Width = 488
Anchors = [akTop, akLeft, akRight, akBottom]
ClientHeight = 139
ClientWidth = 488
TabOrder = 2
object tePath1: TEdit
AnchorSideLeft.Control = rbPath1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlCopyMoveFile
AnchorSideRight.Control = btnPath1
Left = 32
Height = 21
Top = 5
Width = 424
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 5
BorderSpacing.Right = 6
TabOrder = 0
end
object tePath2: TEdit
AnchorSideLeft.Control = tePath1
AnchorSideTop.Control = tePath1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tePath1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 32
Height = 21
Top = 32
Width = 424
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
TabOrder = 1
end
object tePath3: TEdit
AnchorSideLeft.Control = tePath1
AnchorSideTop.Control = tePath2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tePath1
AnchorSideRight.Side = asrBottom
Left = 32
Height = 21
Top = 59
Width = 424
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
TabOrder = 2
end
object btnPath1: TSpeedButton
AnchorSideTop.Control = tePath1
AnchorSideRight.Control = pnlCopyMoveFile
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tePath1
AnchorSideBottom.Side = asrBottom
Left = 462
Height = 21
Top = 5
Width = 21
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 5
Caption = '...'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnPathClick
end
object tePath4: TEdit
AnchorSideLeft.Control = tePath1
AnchorSideTop.Control = tePath3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tePath1
AnchorSideRight.Side = asrBottom
Left = 32
Height = 21
Top = 86
Width = 424
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
TabOrder = 3
end
object tePath5: TEdit
AnchorSideLeft.Control = tePath1
AnchorSideTop.Control = tePath4
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tePath1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 32
Height = 21
Top = 113
Width = 424
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 10
TabOrder = 4
end
object rbPath1: TRadioButton
AnchorSideTop.Control = tePath1
AnchorSideBottom.Control = tePath1
AnchorSideBottom.Side = asrBottom
Left = 14
Height = 21
Top = 5
Width = 18
Anchors = [akTop, akLeft, akBottom]
Checked = True
OnKeyPress = rbPath1KeyPress
ParentBidiMode = False
State = cbChecked
TabOrder = 5
end
object rbPath2: TRadioButton
AnchorSideTop.Control = tePath2
AnchorSideBottom.Control = tePath2
AnchorSideBottom.Side = asrBottom
Left = 14
Height = 21
Top = 32
Width = 18
Anchors = [akTop, akLeft, akBottom]
TabOrder = 6
TabStop = False
end
object rbPath3: TRadioButton
AnchorSideTop.Control = tePath3
AnchorSideBottom.Control = tePath3
AnchorSideBottom.Side = asrBottom
Left = 14
Height = 21
Top = 59
Width = 18
Anchors = [akTop, akLeft, akBottom]
TabOrder = 7
TabStop = False
end
object rbPath4: TRadioButton
AnchorSideTop.Control = tePath4
AnchorSideBottom.Control = tePath4
AnchorSideBottom.Side = asrBottom
Left = 14
Height = 21
Top = 86
Width = 18
Anchors = [akTop, akLeft, akBottom]
TabOrder = 8
TabStop = False
end
object rbPath5: TRadioButton
AnchorSideTop.Control = tePath5
AnchorSideBottom.Control = tePath5
AnchorSideBottom.Side = asrBottom
Left = 14
Height = 21
Top = 113
Width = 18
Anchors = [akTop, akLeft, akBottom]
TabOrder = 9
TabStop = False
end
object btnPath2: TSpeedButton
AnchorSideLeft.Control = btnPath1
AnchorSideTop.Control = tePath2
AnchorSideRight.Control = btnPath1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tePath2
AnchorSideBottom.Side = asrBottom
Left = 462
Height = 21
Top = 32
Width = 21
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = '...'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnPathClick
end
object btnPath3: TSpeedButton
AnchorSideLeft.Control = btnPath1
AnchorSideTop.Control = tePath3
AnchorSideRight.Control = btnPath1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tePath3
AnchorSideBottom.Side = asrBottom
Left = 462
Height = 21
Top = 59
Width = 21
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = '...'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnPathClick
end
object btnPath4: TSpeedButton
AnchorSideLeft.Control = btnPath1
AnchorSideTop.Control = tePath4
AnchorSideRight.Control = btnPath1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tePath4
AnchorSideBottom.Side = asrBottom
Left = 462
Height = 21
Top = 86
Width = 21
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = '...'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnPathClick
end
object btnPath5: TSpeedButton
AnchorSideLeft.Control = btnPath1
AnchorSideTop.Control = tePath5
AnchorSideRight.Control = btnPath1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tePath5
AnchorSideBottom.Side = asrBottom
Left = 462
Height = 21
Top = 113
Width = 21
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = '...'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnPathClick
end
object lblPath1: TLabel
AnchorSideTop.Control = rbPath1
AnchorSideBottom.Control = rbPath1
AnchorSideBottom.Side = asrBottom
Left = 1
Height = 18
Top = 6
Width = 7
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Top = 1
BorderSpacing.Bottom = 2
Caption = '1'
ParentColor = False
end
object lblPath2: TLabel
AnchorSideTop.Control = rbPath2
AnchorSideBottom.Control = rbPath2
AnchorSideBottom.Side = asrBottom
Left = 1
Height = 18
Top = 33
Width = 7
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Top = 1
BorderSpacing.Bottom = 2
Caption = '2'
ParentColor = False
end
object lblPath3: TLabel
AnchorSideTop.Control = rbPath3
AnchorSideBottom.Control = rbPath3
AnchorSideBottom.Side = asrBottom
Left = 1
Height = 18
Top = 60
Width = 7
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Top = 1
BorderSpacing.Bottom = 2
Caption = '3'
ParentColor = False
end
object lblPath4: TLabel
AnchorSideTop.Control = rbPath4
AnchorSideBottom.Control = rbPath4
AnchorSideBottom.Side = asrBottom
Left = 1
Height = 18
Top = 87
Width = 7
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Top = 1
BorderSpacing.Bottom = 2
Caption = '4'
ParentColor = False
end
object lblPath5: TLabel
AnchorSideTop.Control = rbPath5
AnchorSideBottom.Control = rbPath5
AnchorSideBottom.Side = asrBottom
Left = 1
Height = 18
Top = 114
Width = 7
Alignment = taCenter
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Top = 1
BorderSpacing.Bottom = 2
Caption = '5'
ParentColor = False
end
end
object pnlButtons: TPanel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 46
Top = 139
Width = 488
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
ClientHeight = 46
ClientWidth = 488
TabOrder = 3
object btnCancel: TSpeedButton
AnchorSideTop.Control = btnOk
AnchorSideRight.Control = btnOk
AnchorSideBottom.Control = btnOk
AnchorSideBottom.Side = asrBottom
Left = 365
Height = 30
Top = 8
Width = 64
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 3
Caption = 'Cancel'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnCancelClick
end
object btnOk: TSpeedButton
AnchorSideTop.Control = pnlButtons
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom
Left = 432
Height = 30
Top = 8
Width = 50
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 3
BorderSpacing.Top = 8
BorderSpacing.Right = 6
BorderSpacing.Bottom = 8
Caption = 'Ok'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnOkClick
end
end
object sddCopyMoveFile: TSelectDirectoryDialog
left = 48
top = 48
end
end
Reference in a new issue View git blame Copy permalink