paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 20:20:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix skipping obsolete property

Browse Source 
git-svn-id: trunk@27560 -
This commit is contained in:
ask 2010-10-04 09:15:08 +00:00
parent 91aa289f6e
commit 51333d23ff
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/talegend.pas
View File

@ -463,12 +463,6 @@ begin
StyleChanged(Self); StyleChanged(Self);
end; end;
procedure SkipObsoleteProperties;
begin
RegisterPropertyEditor(
TypeInfo(TChartDistance), TChartLegend, 'Margin', THiddenPropertyEditor);
end;
{ TChartSeriesLegend } { TChartSeriesLegend }
procedure TChartSeriesLegend.Assign(Source: TPersistent); procedure TChartSeriesLegend.Assign(Source: TPersistent);
@ -503,5 +497,14 @@ begin
StyleChanged(Self); StyleChanged(Self);
end; end;
procedure SkipObsoleteProperties;
begin
RegisterPropertyEditor(
TypeInfo(TChartDistance), TChartLegend, 'Margin', THiddenPropertyEditor);
end;
initialization
SkipObsoleteProperties;
end. end.