BSOne.SFC/EM.Lib/ImageEn_SRC/Demos/FullApps/ImageEnPainter/uResize.dfm

346 lines
7.2 KiB
Plaintext

object frmResize: TfrmResize
Left = 345
Top = 295
ActiveControl = Edit1
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Resize'
ClientHeight = 318
ClientWidth = 751
Color = clWindow
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
OldCreateOrder = True
Position = poOwnerFormCenter
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 15
object OriginalWidth1: TLabel
Left = 8
Top = 22
Width = 80
Height = 15
Caption = 'Original Width:'
end
object OriginalHeight1: TLabel
Left = 8
Top = 43
Width = 84
Height = 15
Caption = 'Original Height:'
end
object NewHeight1: TLabel
Left = 279
Top = 43
Width = 66
Height = 15
Caption = 'New Height:'
end
object NewWidth1: TLabel
Left = 279
Top = 22
Width = 62
Height = 15
Caption = 'New Width:'
end
object Label4: TLabel
Left = 279
Top = 64
Width = 64
Height = 15
Caption = 'Background'
end
object GroupBox2: TGroupBox
Left = 211
Top = 192
Width = 183
Height = 63
Caption = 'Filter'
TabOrder = 0
object Label3: TLabel
Left = 12
Top = 27
Width = 26
Height = 15
Caption = 'Filter'
end
object ComboBox1: TComboBox
Left = 45
Top = 23
Width = 124
Height = 23
Style = csDropDownList
ItemHeight = 15
ItemIndex = 0
TabOrder = 0
Text = 'None'
Items.Strings = (
'None'
'Triangle'
'Hermite'
'Bell'
'BSpline'
'Lanczos3'
'Mitchell')
end
end
object GroupBox3: TGroupBox
Left = 8
Top = 114
Width = 197
Height = 155
Caption = 'Size'
TabOrder = 1
object Label1: TLabel
Left = 12
Top = 20
Width = 72
Height = 15
Caption = 'Width (pixels)'
end
object Label2: TLabel
Left = 12
Top = 68
Width = 76
Height = 15
Caption = 'Height (pixels)'
end
object Bevel1: TBevel
Left = 174
Top = 26
Width = 12
Height = 50
Shape = bsRightLine
end
object Bevel2: TBevel
Left = 134
Top = 26
Width = 50
Height = 21
Shape = bsTopLine
end
object Bevel3: TBevel
Left = 136
Top = 58
Width = 49
Height = 19
Shape = bsBottomLine
end
object SpeedButtonLockPreview: TSpeedButton
Left = 12
Top = 116
Width = 30
Height = 30
Hint = 'Lock Preview'
AllowAllUp = True
GroupIndex = 1
Down = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
333333333F777773FF333333008888800333333377333F3773F3333077870787
7033333733337F33373F3308888707888803337F33337F33337F330777880887
7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
033333337F73FF737F33B33B778000877333333373F777337333333B30888880
33333333373FFFF73333333B3300000333333333337777733333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButtonLockPreviewClick
end
object Edit1: TEdit
Left = 94
Top = 16
Width = 63
Height = 23
TabOrder = 0
Text = '1'
OnChange = Edit1Change
OnKeyUp = Edit1KeyUp
end
object Edit2: TEdit
Left = 94
Top = 64
Width = 63
Height = 23
TabOrder = 1
Text = '1'
OnChange = Edit2Change
OnKeyUp = Edit2KeyUp
end
object UpDown1: TUpDown
Left = 157
Top = 16
Width = 15
Height = 23
Associate = Edit1
Min = 1
Max = 32767
Increment = 10
Position = 1
TabOrder = 2
end
object UpDown2: TUpDown
Left = 157
Top = 64
Width = 15
Height = 23
Associate = Edit2
Min = 1
Max = 32767
Increment = 10
Position = 1
TabOrder = 3
end
object ResetBtn: TButton
Left = 120
Top = 100
Width = 65
Height = 25
Caption = 'Reset'
TabOrder = 4
OnClick = ResetBtnClick
end
object PeviewButton: TButton
Left = 121
Top = 125
Width = 65
Height = 23
Caption = 'Preview'
TabOrder = 5
OnClick = PeviewButtonClick
end
object CheckBox1: TCheckBox
Left = 100
Top = 41
Width = 92
Height = 17
Alignment = taLeftJustify
Caption = 'Aspect ratio'
TabOrder = 6
end
object LockPreview1: TCheckBox
Left = 12
Top = 96
Width = 89
Height = 17
Alignment = taLeftJustify
Caption = 'Lock Preview'
Checked = True
State = cbChecked
TabOrder = 7
OnClick = LockPreview1Click
end
end
object ImageEnView1: TImageEnView
Left = 441
Top = 22
Width = 296
Height = 244
Background = clWhite
Ctl3D = False
ParentCtl3D = False
LegacyBitmap = False
BackgroundStyle = iebsChessboard
EnableInteractionHints = True
TabOrder = 2
OnMouseDown = ImageEnView1MouseDown
end
object Panel1: TPanel
Left = 0
Top = 277
Width = 751
Height = 41
Align = alBottom
ParentBackground = False
TabOrder = 3
object Button1: TButton
Left = 12
Top = 8
Width = 75
Height = 25
Caption = 'OK'
ModalResult = 1
TabOrder = 0
end
object Button2: TButton
Left = 93
Top = 8
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
end
object EnableAlphChannel1: TCheckBox
Left = 8
Top = 64
Width = 140
Height = 17
Alignment = taLeftJustify
Caption = 'Enable Alpha Channel'
Checked = True
State = cbChecked
TabOrder = 4
OnClick = EnableAlphChannel1Click
end
object Background1: TComboBox
Left = 279
Top = 82
Width = 145
Height = 23
Style = csDropDownList
ItemHeight = 15
ItemIndex = 7
TabOrder = 5
Text = 'Chessboard'
OnChange = Background1Change
Items.Strings = (
'Solid'
'Horizontal'
'Vertical'
'Foreward Diagonal'
'Backward Diagonal'
'Cross'
'Diagonal Cross'
'Chessboard'
'Diagonals'
'Cropped'
'CropShadow '
'Gradient'
'Soft Shadow'
'Photo Like ')
end
object RadioGroup1: TRadioGroup
Left = 211
Top = 114
Width = 213
Height = 72
Caption = 'Other'
Columns = 3
Items.Strings = (
'16 x 16'
'24 x 24'
'28 x 28'
'32 x 32'
'64 x 64'
'640 x 480'
'800 x 600'
'1024 x 768')
TabOrder = 6
OnClick = RadioGroup1Click
end
end