331 lines
6.8 KiB
Plaintext
331 lines
6.8 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 236
|
|
Top = 202
|
|
Caption = 'Brush Demo - www.ImageEn.com'
|
|
ClientHeight = 711
|
|
ClientWidth = 984
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 984
|
|
Height = 56
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 122
|
|
Top = 11
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Zoom'
|
|
end
|
|
object ScrollBar1: TScrollBar
|
|
Left = 156
|
|
Top = 9
|
|
Width = 166
|
|
Height = 17
|
|
Max = 8000
|
|
Min = 1
|
|
PageSize = 0
|
|
Position = 100
|
|
TabOrder = 0
|
|
OnChange = ScrollBar1Change
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 120
|
|
Top = 30
|
|
Width = 48
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Grid'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 1
|
|
OnClick = CheckBox1Click
|
|
end
|
|
object Button1: TButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Open'
|
|
TabOrder = 2
|
|
OnClick = Button1Click
|
|
end
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 0
|
|
Top = 56
|
|
Width = 794
|
|
Height = 655
|
|
Background = clBtnFace
|
|
LegacyBitmap = True
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
OnMouseDown = ImageEnView1MouseDown
|
|
OnMouseMove = ImageEnView1MouseMove
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 794
|
|
Top = 56
|
|
Width = 190
|
|
Height = 655
|
|
ActivePage = BrushTab
|
|
Align = alRight
|
|
TabOrder = 2
|
|
OnChange = PageControl1Change
|
|
object BrushTab: TTabSheet
|
|
Caption = 'Brush'
|
|
object RectangleButton: TSpeedButton
|
|
Left = 12
|
|
Top = 16
|
|
Width = 65
|
|
Height = 25
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Rectangle'
|
|
OnClick = CreateBrush
|
|
end
|
|
object CircleButton: TSpeedButton
|
|
Left = 12
|
|
Top = 40
|
|
Width = 65
|
|
Height = 25
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Circle'
|
|
OnClick = CreateBrush
|
|
end
|
|
object PointsButton: TSpeedButton
|
|
Left = 12
|
|
Top = 64
|
|
Width = 65
|
|
Height = 25
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Points'
|
|
OnClick = CreateBrush
|
|
end
|
|
object Label2: TLabel
|
|
Left = 12
|
|
Top = 108
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'Size:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 12
|
|
Top = 144
|
|
Width = 29
|
|
Height = 13
|
|
Caption = 'Color:'
|
|
end
|
|
object lblBrushTrans: TLabel
|
|
Left = 12
|
|
Top = 179
|
|
Width = 70
|
|
Height = 13
|
|
Caption = 'Transparency:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 14
|
|
Top = 243
|
|
Width = 52
|
|
Height = 13
|
|
Caption = 'Operation:'
|
|
end
|
|
object BrushColor: TShape
|
|
Left = 49
|
|
Top = 138
|
|
Width = 44
|
|
Height = 25
|
|
Brush.Color = clRed
|
|
OnMouseDown = BrushColorMouseDown
|
|
end
|
|
object BrushSize: TEdit
|
|
Left = 41
|
|
Top = 104
|
|
Width = 41
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '50'
|
|
OnChange = CreateBrush
|
|
end
|
|
object edtBrushTrans: TEdit
|
|
Left = 89
|
|
Top = 175
|
|
Width = 42
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = '255'
|
|
OnChange = CreateBrush
|
|
end
|
|
object chkAntialias: TCheckBox
|
|
Left = 12
|
|
Top = 210
|
|
Width = 66
|
|
Height = 17
|
|
Caption = 'Anti-alias'
|
|
TabOrder = 3
|
|
OnClick = CreateBrush
|
|
end
|
|
object Operation: TComboBox
|
|
Left = 68
|
|
Top = 239
|
|
Width = 111
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
OnChange = CreateBrush
|
|
Items.Strings = (
|
|
'Normal'
|
|
'Add'
|
|
'Sub'
|
|
'Div'
|
|
'Mul'
|
|
'OR'
|
|
'AND'
|
|
'XOR'
|
|
'MAX'
|
|
'MIN'
|
|
'Average'
|
|
'Screen'
|
|
'Negation'
|
|
'Exclusion'
|
|
'Overlay'
|
|
'HardLight'
|
|
'SoftLight'
|
|
'XFader'
|
|
'ColorEdge'
|
|
'ColorBurn'
|
|
'InverseColorDodge'
|
|
'InverseColorBurn'
|
|
'SoftDodge'
|
|
'SoftBurn'
|
|
'Reflect'
|
|
'Glow'
|
|
'Freeze'
|
|
'Eat'
|
|
'Subtractive'
|
|
'Interpolation'
|
|
'Stamp'
|
|
'Red'
|
|
'Green'
|
|
'Blue'
|
|
'Hue'
|
|
'Saturation'
|
|
'Color'
|
|
'Luminosity')
|
|
end
|
|
object UpDown1: TUpDown
|
|
Left = 82
|
|
Top = 104
|
|
Width = 16
|
|
Height = 21
|
|
Associate = BrushSize
|
|
Min = 1
|
|
Max = 1000
|
|
Position = 50
|
|
TabOrder = 4
|
|
end
|
|
object updBrushTrans: TUpDown
|
|
Left = 131
|
|
Top = 175
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtBrushTrans
|
|
Min = 1
|
|
Max = 255
|
|
Position = 255
|
|
TabOrder = 5
|
|
end
|
|
end
|
|
object PaintTab: TTabSheet
|
|
Caption = 'Paint'
|
|
object PaintPoint: TSpeedButton
|
|
Left = 12
|
|
Top = 16
|
|
Width = 65
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'Point'
|
|
end
|
|
object PaintLine: TSpeedButton
|
|
Left = 12
|
|
Top = 40
|
|
Width = 65
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'Line'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 12
|
|
Top = 120
|
|
Width = 29
|
|
Height = 13
|
|
Caption = 'Color:'
|
|
end
|
|
object PaintEllipse: TSpeedButton
|
|
Left = 12
|
|
Top = 64
|
|
Width = 65
|
|
Height = 25
|
|
GroupIndex = 1
|
|
Caption = 'Ellipse'
|
|
end
|
|
object PaintColor: TShape
|
|
Left = 47
|
|
Top = 114
|
|
Width = 44
|
|
Height = 25
|
|
Brush.Color = clRed
|
|
OnMouseDown = PaintColorMouseDown
|
|
end
|
|
object lbllblPaintTrans: TLabel
|
|
Left = 12
|
|
Top = 159
|
|
Width = 70
|
|
Height = 13
|
|
Caption = 'Transparency:'
|
|
end
|
|
object edtPaintTrans: TEdit
|
|
Left = 88
|
|
Top = 155
|
|
Width = 42
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '255'
|
|
end
|
|
object updPaintTrans: TUpDown
|
|
Left = 130
|
|
Top = 155
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtPaintTrans
|
|
Min = 1
|
|
Max = 255
|
|
Position = 255
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object ColorDialog1: TColorDialog
|
|
Left = 138
|
|
Top = 139
|
|
end
|
|
end
|