BSOne.SFC/EM.Lib/ImageEn_SRC/Demos/FullApps/ConvertTo/frmresres.dfm

266 lines
5.8 KiB
Plaintext

object fResize: TfResize
Left = 121
Top = 143
ActiveControl = UpDown1
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Resize'
ClientHeight = 334
ClientWidth = 642
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True
Position = poMainFormCenter
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 16
Top = 12
Width = 36
Height = 13
Caption = 'Original'
end
object Label5: TLabel
Left = 290
Top = 10
Width = 30
Height = 13
Caption = 'Result'
end
object SpeedButtonLockPreview: TSpeedButton
Left = 562
Top = 118
Width = 23
Height = 22
Hint = 'Lock Preview'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
333333333F777773FF333333008888800333333377333F3773F3333077870787
7033333733337F33373F3308888707888803337F33337F33337F330777880887
7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
033333337F73FF737F33B33B778000877333333373F777337333333B30888880
33333333373FFFF73333333B3300000333333333337777733333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
end
object Button1: TButton
Left = 562
Top = 28
Width = 69
Height = 25
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 0
end
object Button2: TButton
Left = 562
Top = 58
Width = 69
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
object GroupBox2: TGroupBox
Left = 288
Top = 232
Width = 165
Height = 67
Caption = 'Filter'
TabOrder = 2
object Label3: TLabel
Left = 10
Top = 19
Width = 24
Height = 13
Caption = 'Filter'
end
object ComboBox1: TComboBox
Left = 9
Top = 33
Width = 146
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = ComboBox1Change
Items.Strings = (
'None'
'Triangle'
'Hermite'
'Bell'
'BSpline'
'Lanczos3'
'Mitchell')
end
end
object GroupBox3: TGroupBox
Left = 14
Top = 232
Width = 265
Height = 89
Caption = 'Size'
TabOrder = 3
object Label1: TLabel
Left = 12
Top = 20
Width = 66
Height = 13
Caption = 'Width (pixels)'
end
object Label2: TLabel
Left = 12
Top = 46
Width = 69
Height = 13
Caption = 'Height (pixels)'
end
object Edit1: TEdit
Left = 94
Top = 16
Width = 63
Height = 21
TabOrder = 0
Text = '1'
OnChange = Edit1Change
end
object Edit2: TEdit
Left = 94
Top = 42
Width = 63
Height = 21
TabOrder = 1
Text = '1'
OnChange = Edit2Change
end
object UpDown1: TUpDown
Left = 157
Top = 16
Width = 15
Height = 22
Associate = Edit1
Min = 1
Max = 32767
Increment = 10
Position = 1
TabOrder = 2
OnMouseUp = UpDown1MouseUp
end
object UpDown2: TUpDown
Left = 157
Top = 42
Width = 15
Height = 22
Associate = Edit2
Min = 1
Max = 32767
Increment = 10
Position = 1
TabOrder = 3
OnMouseUp = UpDown2MouseUp
end
object ResetBtn: TButton
Left = 184
Top = 14
Width = 65
Height = 25
Caption = 'Reset'
TabOrder = 4
OnClick = ResetBtnClick
end
object CheckBox1: TCheckBox
Left = 10
Top = 69
Width = 145
Height = 17
Caption = 'Maintain aspect ratio'
Checked = True
State = cbChecked
TabOrder = 5
end
end
object ImageEnView1: TImageEnView
Left = 14
Top = 28
Width = 263
Height = 200
Background = clWhite
ParentCtl3D = False
ScrollBars = ssNone
AutoFit = True
BackgroundStyle = iebsChessboard
OnZoomIn = ImageEnView1ZoomIn
OnZoomOut = ImageEnView1ZoomOut
ImageEnVersion = '4.0.0'
EnableInteractionHints = True
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnMouseDown = ImageEnView1MouseDown
OnMouseMove = ImageEnView1MouseMove
end
object ImageEnView2: TImageEnView
Left = 290
Top = 28
Width = 263
Height = 200
Background = clWhite
ParentCtl3D = False
ScrollBars = ssNone
AutoFit = True
BackgroundStyle = iebsChessboard
OnZoomIn = ImageEnView2ZoomIn
OnZoomOut = ImageEnView2ZoomOut
ImageEnVersion = '4.0.0'
EnableInteractionHints = True
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnMouseDown = ImageEnView2MouseDown
OnMouseMove = ImageEnView2MouseMove
end
object PeviewButton: TButton
Left = 562
Top = 88
Width = 69
Height = 25
Caption = 'Preview'
TabOrder = 6
OnClick = PeviewButtonClick
end
object ViewRadioGroup: TRadioGroup
Left = 462
Top = 233
Width = 141
Height = 53
Hint = 'View'
Caption = 'View'
ItemIndex = 1
Items.Strings = (
'Zoom'
'Auto Fit')
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = ViewRadioGroupClick
end
end