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
117
118
119
120
121
122
123
124
125
126
127
128
|
object DataPointsEditorForm: TDataPointsEditorForm
Left = 418
Height = 303
Top = 235
Width = 288
ClientHeight = 303
ClientWidth = 288
OnCreate = FormCreate
ParentBiDiMode = False
Position = poScreenCenter
ShowHint = True
LCLVersion = '2.1.0.0'
object sgData: TStringGrid
Left = 6
Height = 259
Top = 6
Width = 276
Align = alClient
BorderSpacing.Around = 6
ColCount = 4
Columns = <
item
Alignment = taRightJustify
Title.Alignment = taCenter
Title.Font.Style = [fsBold]
Title.Caption = 'X/Y'
Width = 63
end
item
ButtonStyle = cbsEllipsis
Title.Alignment = taCenter
Title.Font.Style = [fsBold]
Title.Caption = 'Color'
Width = 63
end
item
ButtonStyle = cbsEllipsis
Title.Alignment = taCenter
Title.Font.Style = [fsBold]
Title.Caption = 'Text'
Width = 63
end>
DefaultColWidth = 32
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goEditing, goAutoAddRows, goAlwaysShowEditor, goThumbTracking, goSmoothScroll, goFixedRowNumbering, goTruncCellHints, goCellEllipsis]
PopupMenu = pmRows
TabOrder = 0
OnDrawCell = sgDataDrawCell
OnButtonClick = sgDataButtonClick
OnPrepareCanvas = sgDataPrepareCanvas
ColWidths = (
32
63
63
63
)
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 26
Top = 271
Width = 276
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
DefaultButton = pbHelp
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
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
object miSeparator: TMenuItem
Caption = '-'
end
object miMoveUp: TMenuItem
Caption = 'Move up'
OnClick = miMoveUpClick
end
object miMoveDown: TMenuItem
Caption = 'Move down'
OnClick = miMoveDownClick
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
|
