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

Fix compile with fpc trunk

Browse Source 
git-svn-id: trunk@31947 -
This commit is contained in:
jesus 2011-08-11 20:18:27 +00:00
parent 21904840d4
commit 561307dda3
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/talegend.pas
View File

@ -303,7 +303,7 @@ end;
procedure TChartLegendItems.SetItem(AIndex: Integer; AValue: TLegendItem);
begin
inherited;
inherited SetItem(AIndex, AValue);
end;
{ TLegendItem }

4
debugger/debugger.pp
View File

@ -4878,7 +4878,7 @@ end;
procedure TThreadEntry.LoadDataFromXMLConfig(const AConfig: TXMLConfig; const APath: string);
begin
inherited;
inherited LoadDataFromXMLConfig(AConfig, APath);
FThreadId := AConfig.GetValue(APath + 'ThreadId', -1);
FThreadName := AConfig.GetValue(APath + 'ThreadName', '');
FThreadState := AConfig.GetValue(APath + 'ThreadState', '');
@ -4886,7 +4886,7 @@ end;
procedure TThreadEntry.SaveDataToXMLConfig(const AConfig: TXMLConfig; const APath: string);
begin
inherited;
inherited SaveDataToXMLConfig(AConfig, APath);
AConfig.SetValue(APath + 'ThreadId', FThreadId);
AConfig.SetValue(APath + 'ThreadName', FThreadName);
AConfig.SetValue(APath + 'ThreadState', FThreadState);