1109 lines
26 KiB
Plaintext
1109 lines
26 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 100
|
|
Top = 100
|
|
HorzScrollBar.Tracking = True
|
|
VertScrollBar.Tracking = True
|
|
Caption = 'Vectorial Demo - www.ImageEn.com'
|
|
ClientHeight = 744
|
|
ClientWidth = 903
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Menu = MainMenu1
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
ShowHint = True
|
|
OnActivate = FormActivate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object ImageEnVect1: TImageEnVect
|
|
Left = 114
|
|
Top = 0
|
|
Width = 593
|
|
Height = 725
|
|
Background = clBtnFace
|
|
ParentCtl3D = False
|
|
BorderStyle = bsNone
|
|
LegacyBitmap = False
|
|
OnViewChange = ImageEnVect1ViewChange
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 0
|
|
MUnit = ieuCENTIMETERS
|
|
OnSelectObject = ImageEnVect1SelectObject
|
|
OnMeasureHint = ImageEnVect1MeasureHint
|
|
OnTextKeyDown = ImageEnVect1TextKeyDown
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 114
|
|
Height = 725
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Label13: TLabel
|
|
Left = 24
|
|
Top = 8
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'COMMANDS'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object SpeedButton16: TSpeedButton
|
|
Left = 16
|
|
Top = 520
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 50
|
|
Caption = 'Hide objects'
|
|
Flat = True
|
|
OnClick = SpeedButton16Click
|
|
end
|
|
object spdForceAltKey: TSpeedButton
|
|
Left = 16
|
|
Top = 546
|
|
Width = 81
|
|
Height = 18
|
|
Hint =
|
|
'Holding down the Alt key provides standard sizes and angles (e.g' +
|
|
'. squares, circles and right-angles)'
|
|
AllowAllUp = True
|
|
GroupIndex = 50
|
|
Caption = 'Force ALT Key'
|
|
Flat = True
|
|
OnClick = spdForceAltKeyClick
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 99
|
|
Height = 82
|
|
Caption = ' Zoom '
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object SpeedButton4: TSpeedButton
|
|
Left = 8
|
|
Top = 35
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 2
|
|
Caption = 'Rectangle'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Click'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton8: TSpeedButton
|
|
Left = 8
|
|
Top = 54
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 3
|
|
Caption = 'Scroll'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 8
|
|
Top = 112
|
|
Width = 99
|
|
Height = 100
|
|
Caption = ' Selection '
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
object SpeedButton7: TSpeedButton
|
|
Left = 8
|
|
Top = 37
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 5
|
|
Caption = 'Rectangle'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton11: TSpeedButton
|
|
Left = 8
|
|
Top = 55
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 6
|
|
Caption = 'Polygon'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton12: TSpeedButton
|
|
Left = 8
|
|
Top = 73
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 7
|
|
Caption = 'Ellipse'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton13: TSpeedButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 4
|
|
Caption = 'Object'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 8
|
|
Top = 218
|
|
Width = 99
|
|
Height = 81
|
|
Caption = ' Measures '
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 8
|
|
Top = 17
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 8
|
|
Caption = 'Area'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton3: TSpeedButton
|
|
Left = 8
|
|
Top = 35
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 9
|
|
Caption = 'Length/Perim.'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton15: TSpeedButton
|
|
Left = 8
|
|
Top = 53
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 9
|
|
Caption = 'Drag length'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 8
|
|
Top = 305
|
|
Width = 99
|
|
Height = 208
|
|
Caption = ' Insert objects '
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
object SpeedButton5: TSpeedButton
|
|
Left = 8
|
|
Top = 18
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 10
|
|
Caption = 'Line'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton6: TSpeedButton
|
|
Left = 8
|
|
Top = 36
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 11
|
|
Caption = 'Box'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton9: TSpeedButton
|
|
Left = 8
|
|
Top = 54
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 12
|
|
Caption = 'Ellipse'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton10: TSpeedButton
|
|
Left = 8
|
|
Top = 72
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 13
|
|
Caption = 'Image'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton14: TSpeedButton
|
|
Left = 8
|
|
Top = 90
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 14
|
|
Caption = 'Text'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton17: TSpeedButton
|
|
Left = 8
|
|
Top = 108
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 14
|
|
Caption = 'Ruler'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton18: TSpeedButton
|
|
Left = 8
|
|
Top = 144
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 14
|
|
Caption = 'Polyline'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton19: TSpeedButton
|
|
Left = 8
|
|
Top = 126
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 14
|
|
Caption = 'Angle'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton20: TSpeedButton
|
|
Left = 8
|
|
Top = 162
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 14
|
|
Caption = 'Memo'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
object SpeedButton21: TSpeedButton
|
|
Left = 8
|
|
Top = 180
|
|
Width = 81
|
|
Height = 18
|
|
AllowAllUp = True
|
|
GroupIndex = 14
|
|
Caption = 'Edit Polygon'
|
|
Flat = True
|
|
OnClick = CommandButtonClick
|
|
end
|
|
end
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 725
|
|
Width = 903
|
|
Height = 19
|
|
Panels = <>
|
|
end
|
|
object ScrollBox1: TScrollBox
|
|
Left = 707
|
|
Top = 0
|
|
Width = 196
|
|
Height = 725
|
|
Align = alRight
|
|
BorderStyle = bsNone
|
|
TabOrder = 3
|
|
object Label14: TLabel
|
|
Left = 48
|
|
Top = 8
|
|
Width = 69
|
|
Height = 13
|
|
Caption = 'PROPERTIES'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 11
|
|
Top = 24
|
|
Width = 177
|
|
Height = 411
|
|
Caption = ' Object '
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 12
|
|
Top = 18
|
|
Width = 48
|
|
Height = 13
|
|
Caption = 'Pen color:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 12
|
|
Top = 38
|
|
Width = 57
|
|
Height = 13
|
|
Caption = 'Brush color:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 12
|
|
Top = 61
|
|
Width = 48
|
|
Height = 13
|
|
Caption = 'Pen style:'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 12
|
|
Top = 87
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Pen width:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 12
|
|
Top = 112
|
|
Width = 57
|
|
Height = 13
|
|
Caption = 'Brush style:'
|
|
end
|
|
object Label19: TLabel
|
|
Left = 12
|
|
Top = 139
|
|
Width = 70
|
|
Height = 13
|
|
Caption = 'Transparency:'
|
|
end
|
|
object Panel3: TShape
|
|
Left = 75
|
|
Top = 19
|
|
Width = 54
|
|
Height = 13
|
|
Brush.Color = clRed
|
|
OnMouseDown = Panel3MouseDown
|
|
end
|
|
object Panel4: TShape
|
|
Left = 75
|
|
Top = 39
|
|
Width = 54
|
|
Height = 13
|
|
Brush.Color = clNavy
|
|
OnMouseDown = Panel4MouseDown
|
|
end
|
|
object cmbPen: TComboBox
|
|
Left = 73
|
|
Top = 57
|
|
Width = 89
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
OnChange = StyleControlChange
|
|
Items.Strings = (
|
|
'Solid'
|
|
'Dash'
|
|
'Dot'
|
|
'Dash-Dot'
|
|
'Dash-Dot-Dot'
|
|
'Clear'
|
|
'Inside Frame')
|
|
end
|
|
object Edit2: TEdit
|
|
Left = 73
|
|
Top = 84
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = '1'
|
|
OnChange = StyleControlChange
|
|
end
|
|
object UpDown2: TUpDown
|
|
Left = 106
|
|
Top = 84
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit2
|
|
Min = 1
|
|
Position = 1
|
|
TabOrder = 2
|
|
end
|
|
object cmbBrush: TComboBox
|
|
Left = 73
|
|
Top = 109
|
|
Width = 66
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 3
|
|
OnChange = StyleControlChange
|
|
Items.Strings = (
|
|
'Solid'
|
|
'Clear'
|
|
'Horizontal'
|
|
'Vertical'
|
|
'FDiagonal'
|
|
'BDiagonal'
|
|
'Cross'
|
|
'Diag. Cross')
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 10
|
|
Top = 248
|
|
Width = 154
|
|
Height = 153
|
|
ActivePage = TabSheet1
|
|
HotTrack = True
|
|
TabOrder = 4
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Line'
|
|
object Label10: TLabel
|
|
Left = 7
|
|
Top = 20
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Start:'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 7
|
|
Top = 44
|
|
Width = 22
|
|
Height = 13
|
|
Caption = 'End:'
|
|
end
|
|
object cmbLineStart: TComboBox
|
|
Left = 58
|
|
Top = 17
|
|
Width = 84
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
OnChange = StyleControlChange
|
|
Items.Strings = (
|
|
'None'
|
|
'Arrow In'
|
|
'Arrow Out')
|
|
end
|
|
object cmbLineEnd: TComboBox
|
|
Left = 58
|
|
Top = 41
|
|
Width = 84
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
OnChange = StyleControlChange
|
|
Items.Strings = (
|
|
'None'
|
|
'Arrow In'
|
|
'Arrow Out')
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Image'
|
|
object Button1: TButton
|
|
Left = 6
|
|
Top = 8
|
|
Width = 61
|
|
Height = 21
|
|
Caption = 'Set Image'
|
|
TabOrder = 0
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 6
|
|
Top = 40
|
|
Width = 61
|
|
Height = 21
|
|
Caption = 'Adjust'
|
|
TabOrder = 1
|
|
OnClick = Button2Click
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 75
|
|
Top = 8
|
|
Width = 67
|
|
Height = 57
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel5'
|
|
TabOrder = 2
|
|
object ImageEnView1: TImageEnView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 67
|
|
Height = 57
|
|
Background = clBtnFace
|
|
ParentCtl3D = False
|
|
LegacyBitmap = False
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Text'
|
|
object Label17: TLabel
|
|
Left = 6
|
|
Top = 34
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Angle:'
|
|
end
|
|
object Label18: TLabel
|
|
Left = 6
|
|
Top = 63
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Alignment:'
|
|
end
|
|
object Button3: TButton
|
|
Left = 6
|
|
Top = 5
|
|
Width = 61
|
|
Height = 21
|
|
Caption = 'Set Font'
|
|
TabOrder = 0
|
|
OnClick = Button3Click
|
|
end
|
|
object Edit6: TEdit
|
|
Left = 52
|
|
Top = 31
|
|
Width = 33
|
|
Height = 21
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
Text = '0'
|
|
OnChange = StyleControlChange
|
|
end
|
|
object UpDown4: TUpDown
|
|
Left = 85
|
|
Top = 31
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit6
|
|
Min = -360
|
|
Max = 360
|
|
TabOrder = 2
|
|
end
|
|
object cmbTextAlign: TComboBox
|
|
Left = 60
|
|
Top = 59
|
|
Width = 78
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemIndex = 1
|
|
TabOrder = 3
|
|
Text = 'Align Right'
|
|
OnChange = StyleControlChange
|
|
Items.Strings = (
|
|
'Align Left'
|
|
'Align Right'
|
|
'Center'
|
|
'Justify')
|
|
end
|
|
object Button4: TButton
|
|
Left = 76
|
|
Top = 5
|
|
Width = 61
|
|
Height = 21
|
|
Caption = 'Stretch'
|
|
TabOrder = 4
|
|
OnClick = Button4Click
|
|
end
|
|
object CheckBox6: TCheckBox
|
|
Left = 6
|
|
Top = 86
|
|
Width = 107
|
|
Height = 17
|
|
Caption = 'Memo Multi-Font'
|
|
TabOrder = 5
|
|
OnClick = StyleControlChange
|
|
end
|
|
end
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 12
|
|
Top = 180
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Visible'
|
|
TabOrder = 5
|
|
OnClick = StyleControlChange
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
Left = 12
|
|
Top = 212
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Moveable'
|
|
TabOrder = 6
|
|
OnClick = StyleControlChange
|
|
end
|
|
object CheckBox3: TCheckBox
|
|
Left = 12
|
|
Top = 228
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Sizeable'
|
|
TabOrder = 7
|
|
OnClick = StyleControlChange
|
|
end
|
|
object CheckBox4: TCheckBox
|
|
Left = 12
|
|
Top = 196
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Selectable'
|
|
TabOrder = 9
|
|
OnClick = StyleControlChange
|
|
end
|
|
object CheckBox5: TCheckBox
|
|
Left = 12
|
|
Top = 163
|
|
Width = 98
|
|
Height = 17
|
|
Caption = 'Shadow'
|
|
TabOrder = 11
|
|
OnClick = StyleControlChange
|
|
end
|
|
object Edit7: TEdit
|
|
Left = 89
|
|
Top = 134
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 8
|
|
Text = '255'
|
|
OnChange = StyleControlChange
|
|
end
|
|
object UpDown5: TUpDown
|
|
Left = 122
|
|
Top = 134
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit7
|
|
Max = 255
|
|
Increment = 5
|
|
Position = 255
|
|
TabOrder = 10
|
|
end
|
|
end
|
|
object GroupBox6: TGroupBox
|
|
Left = 11
|
|
Top = 441
|
|
Width = 177
|
|
Height = 121
|
|
Caption = ' Measure '
|
|
TabOrder = 1
|
|
object Label4: TLabel
|
|
Left = 12
|
|
Top = 20
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'Unit:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 12
|
|
Top = 44
|
|
Width = 29
|
|
Height = 13
|
|
Caption = 'Scale:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 62
|
|
Top = 44
|
|
Width = 10
|
|
Height = 13
|
|
Caption = '1:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label8: TLabel
|
|
Left = 12
|
|
Top = 69
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Digits:'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 12
|
|
Top = 93
|
|
Width = 46
|
|
Height = 13
|
|
Caption = 'Precision:'
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 63
|
|
Top = 16
|
|
Width = 81
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
OnChange = ComboBox2Change
|
|
Items.Strings = (
|
|
'Pixels'
|
|
'Inches'
|
|
'Km'
|
|
'Mt'
|
|
'Cm'
|
|
'mm'
|
|
'Micron')
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 77
|
|
Top = 41
|
|
Width = 66
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = '1'
|
|
OnChange = ComboBox2Change
|
|
end
|
|
object Edit3: TEdit
|
|
Left = 65
|
|
Top = 66
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = '2'
|
|
OnChange = ComboBox2Change
|
|
end
|
|
object UpDown1: TUpDown
|
|
Left = 98
|
|
Top = 66
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit3
|
|
Min = 1
|
|
Position = 2
|
|
TabOrder = 3
|
|
end
|
|
object Edit4: TEdit
|
|
Left = 65
|
|
Top = 90
|
|
Width = 33
|
|
Height = 21
|
|
TabOrder = 4
|
|
Text = '15'
|
|
OnChange = ComboBox2Change
|
|
end
|
|
object UpDown3: TUpDown
|
|
Left = 98
|
|
Top = 90
|
|
Width = 16
|
|
Height = 21
|
|
Associate = Edit4
|
|
Min = 1
|
|
Position = 15
|
|
TabOrder = 5
|
|
end
|
|
end
|
|
object GroupBox7: TGroupBox
|
|
Left = 11
|
|
Top = 568
|
|
Width = 177
|
|
Height = 73
|
|
Caption = ' Display '
|
|
TabOrder = 2
|
|
object Label15: TLabel
|
|
Left = 12
|
|
Top = 19
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Zoom:'
|
|
end
|
|
object Label16: TLabel
|
|
Left = 118
|
|
Top = 19
|
|
Width = 11
|
|
Height = 13
|
|
Caption = '%'
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 56
|
|
Top = 16
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = '100'
|
|
OnChange = ComboBox1Change
|
|
Items.Strings = (
|
|
'Fit'
|
|
'5'
|
|
'10'
|
|
'25'
|
|
'50'
|
|
'100'
|
|
'200'
|
|
'400'
|
|
'600'
|
|
'800'
|
|
'1000'
|
|
'1600'
|
|
'2000')
|
|
end
|
|
object CheckBox7: TCheckBox
|
|
Left = 13
|
|
Top = 48
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Antialiasing'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 1
|
|
OnClick = CheckBox7Click
|
|
end
|
|
end
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 536
|
|
Top = 24
|
|
object File1: TMenuItem
|
|
Caption = '&File'
|
|
object New: TMenuItem
|
|
Caption = '&New'
|
|
OnClick = NewClick
|
|
end
|
|
object Open1: TMenuItem
|
|
Caption = '&Open...'
|
|
OnClick = Open1Click
|
|
end
|
|
object Openbackgroundimage1: TMenuItem
|
|
Caption = '&Open background image'
|
|
OnClick = Openbackgroundimage1Click
|
|
end
|
|
object Import1: TMenuItem
|
|
Caption = '&Import'
|
|
object DXF1: TMenuItem
|
|
Caption = '&DXF'
|
|
OnClick = DXF1Click
|
|
end
|
|
end
|
|
object Saveas1: TMenuItem
|
|
Caption = '&Save as...'
|
|
OnClick = Saveas1Click
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Exit1: TMenuItem
|
|
Caption = '&Exit'
|
|
OnClick = Exit1Click
|
|
end
|
|
end
|
|
object Edit5: TMenuItem
|
|
Caption = '&Edit Bitmap'
|
|
object Undo1: TMenuItem
|
|
Caption = '&Undo'
|
|
OnClick = Undo1Click
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Copy1: TMenuItem
|
|
Caption = '&Copy'
|
|
OnClick = Copy1Click
|
|
end
|
|
object Cut1: TMenuItem
|
|
Caption = '&Cut'
|
|
OnClick = Cut1Click
|
|
end
|
|
object Paste1: TMenuItem
|
|
Caption = '&Paste'
|
|
OnClick = Paste1Click
|
|
end
|
|
object Pasteinrect1: TMenuItem
|
|
Caption = 'Paste in &rect.'
|
|
OnClick = Pasteinrect1Click
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Fitbitmaptoobjects1: TMenuItem
|
|
Caption = 'Fit bitmap to objects'
|
|
OnClick = Fitbitmaptoobjects1Click
|
|
end
|
|
end
|
|
object Editobjects1: TMenuItem
|
|
Caption = 'Edit Objects'
|
|
object Undo2: TMenuItem
|
|
Caption = 'Undo'
|
|
OnClick = Undo2Click
|
|
end
|
|
object N5: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Copy2: TMenuItem
|
|
Caption = 'Copy'
|
|
OnClick = Copy2Click
|
|
end
|
|
object Cut2: TMenuItem
|
|
Caption = 'Cut'
|
|
OnClick = Cut2Click
|
|
end
|
|
object Paste2: TMenuItem
|
|
Caption = 'Paste'
|
|
OnClick = Paste2Click
|
|
end
|
|
object Deleteobject1: TMenuItem
|
|
Caption = '&Delete object'
|
|
OnClick = Deleteobject1Click
|
|
end
|
|
object N4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Selectall1: TMenuItem
|
|
Caption = 'Select all'
|
|
OnClick = Selectall1Click
|
|
end
|
|
end
|
|
object Tools1: TMenuItem
|
|
Caption = '&Tools'
|
|
object Adjustcolor1: TMenuItem
|
|
Caption = '&Adjust color'
|
|
OnClick = Adjustcolor1Click
|
|
end
|
|
object Effects1: TMenuItem
|
|
Caption = '&Effects'
|
|
OnClick = Effects1Click
|
|
end
|
|
object Grayforce1: TMenuItem
|
|
Caption = '&Gray force'
|
|
OnClick = Grayforce1Click
|
|
end
|
|
object Copyobjectstobackground1: TMenuItem
|
|
Caption = 'Copy objects to background'
|
|
OnClick = Copyobjectstobackground1Click
|
|
end
|
|
object Objectscount1: TMenuItem
|
|
Caption = 'Objects count'
|
|
OnClick = Objectscount1Click
|
|
end
|
|
end
|
|
end
|
|
object ColorDialog1: TColorDialog
|
|
Options = [cdFullOpen]
|
|
Left = 300
|
|
Top = 24
|
|
end
|
|
object SaveDialog1: TSaveDialog
|
|
DefaultExt = 'IEV'
|
|
Filter = 'ImageEn Objects|*.IEV'
|
|
FilterIndex = 0
|
|
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofOldStyleDialog]
|
|
Title = 'Save objects'
|
|
Left = 222
|
|
Top = 24
|
|
end
|
|
object FontDialog1: TFontDialog
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Options = [fdTrueTypeOnly, fdEffects]
|
|
Left = 379
|
|
Top = 24
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofOldStyleDialog]
|
|
Title = 'Open'
|
|
Left = 144
|
|
Top = 24
|
|
end
|
|
object dlgOpenImage: TOpenImageEnDialog
|
|
Filter =
|
|
'All graphics|*.tif;*.tiff;*.jpg;*.jpeg;*.jpe;*.pcx;*.bmp;*.dib;*' +
|
|
'.rle;*.ico;*.cur;*.png;*.wmf;*.emf;*.tga;*.targa;*.vda;*.icb;*.v' +
|
|
'st;*.pix;*.pxm;*.ppm;*.pgm;*.pbm;*.avi|TIFF Bitmap (TIF;TIFF)|*.' +
|
|
'tif;*.tiff|JPEG Bitmap (JPG;JPEG;JPE)|*.jpg;*.jpeg;*.jpe|PaintBr' +
|
|
'ush (PCX)|*.pcx|Windows Bitmap (BMP;DIB;RLE)|*.bmp;*.dib;*.rle|W' +
|
|
'indows Icon (ICO)|*.ico|Windows Cursor (CUR)|*.cur|Portable Netw' +
|
|
'ork Graphics (PNG)|*.png|Windows Metafile (WMF)|*.wmf|Enhanced W' +
|
|
'indows Metafile (EMF)|*.emf|Targa Bitmap (TGA;TARGA;VDA;ICB;VST;' +
|
|
'PIX)|*.tga;*.targa;*.vda;*.icb;*.vst;*.pix|Portable Pixmap, Grey' +
|
|
'Map, BitMap (PXM;PPM;PGM;PBM)|*.pxm;*.ppm;*.pgm;*.pbm|Video for ' +
|
|
'Windows (AVI)|*.avi'
|
|
Left = 457
|
|
Top = 24
|
|
end
|
|
end
|