paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 16:39:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Some user-interface improvements in DataPoints editor.

Browse Source 
git-svn-id: trunk@60513 -
This commit is contained in:
wp 2019-02-26 15:39:43 +00:00
parent 6e6af28591
commit 62321271bf
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tadatapointseditor.lfm
View File

@ -6,12 +6,13 @@ object DataPointsEditorForm: TDataPointsEditorForm
ClientHeight = 303
ClientWidth = 288
OnCreate = FormCreate
ParentBiDiMode = False
Position = poScreenCenter
ShowHint = True
LCLVersion = '2.1.0.0'
object sgData: TStringGrid
Left = 6
Height = 251
Height = 259
Top = 6
Width = 276
Align = alClient
@ -40,7 +41,8 @@ object DataPointsEditorForm: TDataPointsEditorForm
Width = 63
end>
DefaultColWidth = 32
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goEditing, goAutoAddRows, goAlwaysShowEditor, goSmoothScroll, goFixedRowNumbering, goTruncCellHints, goCellEllipsis]
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goEditing, goAutoAddRows, goAlwaysShowEditor, goThumbTracking, goSmoothScroll, goFixedRowNumbering, goTruncCellHints, goCellEllipsis]
PopupMenu = pmRows
TabOrder = 0
OnDrawCell = sgDataDrawCell
@ -55,8 +57,8 @@ object DataPointsEditorForm: TDataPointsEditorForm
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 263
Height = 26
Top = 271
Width = 276
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -70,6 +72,7 @@ object DataPointsEditorForm: TDataPointsEditorForm
TabOrder = 1
DefaultButton = pbHelp
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
object pmRows: TPopupMenu
OnPopup = pmRowsPopup

4
components/tachart/tadatapointseditor.pas
View File

@ -188,6 +188,10 @@ begin
miDeleteRow.Caption := desDeleteRow;
miMoveUp.Caption := desMoveUp;
miMoveDown.Caption := desMoveDown;
if IsRightToLeft then
sgData.AutoAdvance := aaLeftDown
else
sgData.AutoAdvance := aaRightDown;
end;
procedure TDataPointsEditorForm.miInsertRowClick(Sender: TObject);