lazarus/components/tachart/tadatapointseditor.lfm
2019-02-26 15:39:43 +00:00

129 lines
3.1 KiB
Plaintext

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