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

leakview: less hints

Browse Source 
git-svn-id: trunk@58026 -
This commit is contained in:
mattias 2018-05-25 07:13:41 +00:00
parent e1ab5302bf
commit 3daa1d6ea9
1 changed files with 3 additions and 3 deletions

6
components/leakview/heaptrcview.pas
View File

@ -5,7 +5,7 @@ unit HeapTrcView;
interface
uses
Classes, SysUtils, XMLConf, contnrs, Clipbrd, LCLProc, LCLType,
Classes, SysUtils, XMLConf, DOM, contnrs, Clipbrd, LCLProc, LCLType,
LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, ExtCtrls,
// LazUtils
FileUtil, LazFileUtils,
@ -437,7 +437,7 @@ begin
cfg.SetValue('bottom', b.Bottom);
cfg.CloseKey;
for i:=0 to edtTrcFileName.Items.Count-1 do
cfg.SetValue('path'+IntToStr(i), UTF8Decode(edtTrcFileName.Items[i]) );
cfg.SetValue(DOMString('path'+IntToStr(i)), UTF8Decode(edtTrcFileName.Items[i]) );
end;
function PointInRect(p: TPoint; const r: TRect): Boolean;
@ -491,7 +491,7 @@ begin
if b.Bottom-b.Top<=0 then b.Bottom:=b.Top+40;
for i:=0 to 7 do begin
s:=cfg.GetValue('path'+IntToStr(i), '');
s:=cfg.GetValue(DOMString('path'+IntToStr(i)), '');
if s<>'' then st.Add(UTF8Encode(s));
end;