You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

250 lines
6.0 KiB
Plaintext

object clipform: Tclipform
Left = 399
Top = 182
Caption = #1054#1090#1087#1088#1072#1074#1082#1072' '#1080#1079' '#1073#1091#1092#1077#1088#1072' '#1086#1073#1084#1077#1085#1072
ClientHeight = 370
ClientWidth = 657
Color = clBtnFace
Constraints.MinHeight = 300
Constraints.MinWidth = 500
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
DesignSize = (
657
370)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 13
Top = 324
Width = 204
Height = 43
Anchors = [akLeft, akBottom]
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 224
Top = 324
Width = 52
Height = 13
Anchors = [akLeft, akBottom]
Caption = #1050#1072#1095#1077#1089#1090#1074#1086':'
end
object TabSet1: TTabSet
Left = -2
Top = 299
Width = 278
Height = 21
Anchors = [akLeft, akBottom]
AutoScroll = False
BackgroundColor = 14474460
DitherBackground = False
DoubleBuffered = True
EndMargin = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBackground = True
ParentDoubleBuffered = False
SelectedColor = clWindow
SoftTop = True
Style = tsModernPopout
Tabs.Strings = (
' JPEG'
' PNG 24-bit'
' PNG 8-bit'
' PNG 4-bit')
TabIndex = 0
UnselectedColor = clBtnFace
OnChange = TabSet1Change
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 657
Height = 300
Align = alTop
Anchors = [akLeft, akTop, akRight, akBottom]
BevelEdges = []
BevelOuter = bvNone
Ctl3D = False
DoubleBuffered = True
ParentCtl3D = False
ParentDoubleBuffered = False
TabOrder = 1
OnResize = Panel1Resize
object Panel2: TPanel
Left = 0
Top = 0
Width = 321
Height = 300
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object Panel3: TPanel
Left = 0
Top = 0
Width = 321
Height = 41
Align = alTop
BevelOuter = bvNone
Caption = #1044#1083#1103' '#1086#1090#1087#1088#1072#1074#1082#1080
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentDoubleBuffered = False
ParentFont = False
TabOrder = 0
end
object ScrollBox1: TScrollBox
AlignWithMargins = True
Left = 3
Top = 44
Width = 315
Height = 256
Margins.Bottom = 0
HorzScrollBar.Smooth = True
HorzScrollBar.Tracking = True
HorzScrollBar.Visible = False
VertScrollBar.Smooth = True
VertScrollBar.Tracking = True
VertScrollBar.Visible = False
Align = alClient
DoubleBuffered = True
Ctl3D = False
ParentCtl3D = False
ParentDoubleBuffered = False
TabOrder = 1
object img: TImage
Left = 0
Top = 0
Width = 30
Height = 30
Cursor = crSizeAll
AutoSize = True
DragCursor = crSizeAll
OnMouseDown = imgMouseDown
OnMouseMove = imgMouseMove
end
end
end
object Panel4: TPanel
Left = 359
Top = 0
Width = 298
Height = 300
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object ScrollBox2: TScrollBox
AlignWithMargins = True
Left = 3
Top = 44
Width = 292
Height = 256
Margins.Bottom = 0
HorzScrollBar.Smooth = True
HorzScrollBar.Tracking = True
HorzScrollBar.Visible = False
VertScrollBar.Smooth = True
VertScrollBar.Tracking = True
VertScrollBar.Visible = False
Align = alClient
BevelOuter = bvNone
BevelKind = bkFlat
DoubleBuffered = True
Ctl3D = False
ParentCtl3D = False
ParentDoubleBuffered = False
TabOrder = 0
object imgtmp: TImage
Left = 0
Top = 0
Width = 30
Height = 30
Cursor = crSizeAll
AutoSize = True
DragCursor = crSizeAll
OnMouseDown = imgMouseDown
OnMouseMove = imgMouseMove
end
end
object Panel5: TPanel
Left = 0
Top = 0
Width = 298
Height = 41
Align = alTop
BevelOuter = bvNone
Caption = #1054#1088#1080#1075#1080#1085#1072#1083
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentDoubleBuffered = False
ParentFont = False
TabOrder = 1
end
end
end
object ComboBox1: TComboBox
Left = 223
Top = 340
Width = 53
Height = 21
Style = csDropDownList
Anchors = [akLeft, akBottom]
Color = clBtnFace
Ctl3D = False
DoubleBuffered = True
ItemIndex = 5
ParentCtl3D = False
ParentDoubleBuffered = False
TabOrder = 2
Text = '75%'
OnChange = ComboBox1Change
Items.Strings = (
'50%'
'55%'
'60%'
'65%'
'70%'
'75%'
'80%'
'85%'
'90%'
'95%'
'100%')
end
object SendBtn: TButton
Left = 514
Top = 339
Width = 140
Height = 27
Caption = #1054#1090#1087#1088#1072#1074#1080#1090#1100
TabOrder = 3
OnClick = SendBtnClick
end
end