paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use TSeriesPointerStylePropertyEditor in TChartCombobox; some improvements in TSeriesPointerStylePropertyEditor.

Browse Source 
git-svn-id: trunk@59735 -
This commit is contained in:
wp 2018-12-06 11:55:52 +00:00
parent f87a819e21
commit ec688911e8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/editors/taseriespropeditors.pas
View File

@ -10,7 +10,8 @@ implementation
uses uses
Graphics, Classes, Math, PropEdits, SysUtils, LCLIntf, typinfo, Graphics, Classes, Math, PropEdits, SysUtils, LCLIntf, typinfo,
TATypes, TADrawUtils, TADrawerCanvas, TACustomSeries, TASeries, TALegend, TAGraph; TATypes, TADrawUtils, TADrawerCanvas, TACustomSeries, TASeries, TALegend,
TAGraph, TAChartCombos;
type type
TAxisIndexPropertyEditor = class(TOrdinalPropertyEditor) TAxisIndexPropertyEditor = class(TOrdinalPropertyEditor)
@ -42,6 +43,8 @@ begin
TypeInfo(TChartAxisIndex), TCustomChartSeries, '', TAxisIndexPropertyEditor); TypeInfo(TChartAxisIndex), TCustomChartSeries, '', TAxisIndexPropertyEditor);
RegisterPropertyEditor( RegisterPropertyEditor(
TypeInfo(TSeriesPointerStyle), TSeriesPointer, '', TSeriesPointerStylePropertyEditor); TypeInfo(TSeriesPointerStyle), TSeriesPointer, '', TSeriesPointerStylePropertyEditor);
RegisterPropertyEditor(
TypeInfo(TSeriesPointerStyle), TChartComboBox, '', TSeriespointerStylePropertyEditor);
end; end;
{ TAxisIndexPropertyEditor } { TAxisIndexPropertyEditor }
@ -147,13 +150,15 @@ begin
oldPenStyle := Pen.Style; oldPenStyle := Pen.Style;
try try
{
// white out the background // white out the background
Brush.Color := clWindow; Brush.Color := clWindow;
FillRect(ARect); FillRect(ARect);
}
// set things up and do work // set things up and do work
i := GetEnumValue(GetPropInfo^.PropType, CurValue); i := GetEnumValue(GetPropInfo^.PropType, CurValue);
DrawPointer(ACanvas, lRect, TSeriesPointerStyle(i), clWindowText, clWindow); DrawPointer(ACanvas, lRect, TSeriesPointerStyle(i), clWindowText, clWindowText);
finally finally
// restore the things we twiddled with // restore the things we twiddled with
Brush.Color := oldBrushColor; Brush.Color := oldBrushColor;