1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
object DataPointsEditorForm: TDataPointsEditorForm
Left = 418
Height = 303
Top = 235
Width = 357
ClientHeight = 303
ClientWidth = 357
OnCreate = FormCreate
LCLVersion = '1.7'
object sgData: TStringGrid
Left = 0
Height = 257
Top = 0
Width = 357
Align = alClient
AutoFillColumns = True
Columns = <
item
Alignment = taRightJustify
Title.Alignment = taCenter
Title.Font.Style = [fsBold]
Title.Caption = 'X'
Width = 80
end
item
Alignment = taRightJustify
Title.Alignment = taCenter
Title.Font.Style = [fsBold]
Title.Caption = 'Y'
Width = 80
end
item
ButtonStyle = cbsEllipsis
Title.Alignment = taCenter
Title.Font.Style = [fsBold]
Title.Caption = 'Color'
Width = 80
end
item
Title.Alignment = taCenter
Title.Font.Style = [fsBold]
Title.Caption = 'Text'
Width = 81
end>
DefaultColWidth = 32
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goEditing, goAutoAddRows, goAlwaysShowEditor, goSmoothScroll, goFixedRowNumbering]
PopupMenu = pmRows
TabOrder = 0
OnDrawCell = sgDataDrawCell
OnButtonClick = sgDataButtonClick
OnPrepareCanvas = sgDataPrepareCanvas
ColWidths = (
32
80
80
80
81
)
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 263
Width = 345
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
end
object pmRows: TPopupMenu
OnPopup = pmRowsPopup
left = 193
top = 124
object miInsertRow: TMenuItem
Caption = 'Insert row'
OnClick = miInsertRowClick
end
object miDeleteRow: TMenuItem
Caption = 'Delete row'
OnClick = miDeleteRowClick
end
end
object cdItemColor: TColorDialog
Color = clBlack
CustomColors.Strings = (
'ColorA=000000'
'ColorB=000080'
'ColorC=008000'
'ColorD=008080'
'ColorE=800000'
'ColorF=800080'
'ColorG=808000'
'ColorH=808080'
'ColorI=C0C0C0'
'ColorJ=0000FF'
'ColorK=00FF00'
'ColorL=00FFFF'
'ColorM=FF0000'
'ColorN=FF00FF'
'ColorO=FFFF00'
'ColorP=FFFFFF'
'ColorQ=C0DCC0'
'ColorR=F0CAA6'
'ColorS=F0FBFF'
'ColorT=A4A0A0'
)
left = 128
top = 124
end
end
|
