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

plotfunction: Make axes and fonts better respond to changes in object inspector (issue #26311)

Browse Source 
git-svn-id: trunk@56314 -
This commit is contained in:
wp 2017-11-06 11:53:34 +00:00
parent 31e7b35831
commit ed1da81b84
3 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/plotfunction/demo/event/ploteventdemo.res
View File

Binary file not shown.

BIN
components/plotfunction/demo/expression/exprdemo.res
View File

Binary file not shown.

4
components/plotfunction/plotpanel.pp
View File

@ -431,6 +431,7 @@ procedure TPlotAxis.SetAxisColor(const AValue: TColor);
begin
if FColor=AValue then exit;
FColor:=AValue;
Changed;
end;
@ -447,6 +448,7 @@ begin
If FInterval<=0 then
Raise EPlotPanel.CreateFmt(SerrInvalidInterval,[AValue]);
FInterval:=AValue;
Changed;
end;
procedure TPlotAxis.SetCaption(const AValue: TPlotCaption);
@ -554,8 +556,10 @@ begin
inherited Create;
FCaption:=TPlotCaption.Create;
FCaption.FOnChange:=@DoCaptionChange;
FCaption.Font.OnChange:= @DoCaptionChange;
FColor:=DefAxisColor;
FTickFont:=TFont.Create;
FTickFont.OnChange := @DoCaptionChange;
FLegendInterval:=DefLegendInterval;
FInterval:=DefInterval;
FTickColor:=DefTickColor;