leakview component:

* fixed file name case
* reduced flickering in treeview when updating

git-svn-id: trunk@17193 -

components/leakview/heaptrcview.pas

@@ -219,16 +219,21 @@ var
   info  : TLeakInfo;
   data  : TLeakStatus;
 begin
-  ClearItems;
-  trvTraceInfo.Items.Clear;
-  if not FileExists(edtTrcFileName.Text) then Exit;
-
-  info := AllocHeapTraceInfo(edtTrcFileName.Text);
+  trvTraceInfo.BeginUpdate;
   try
-    if info.GetLeakInfo(data, fItems) then ItemsToTree
-    else trvTraceInfo.Items.Add(nil, 'Error while parsing trace file');
+    ClearItems;
+    trvTraceInfo.Items.Clear;
+    if not FileExists(edtTrcFileName.Text) then Exit;
+
+    info := AllocHeapTraceInfo(edtTrcFileName.Text);
+    try
+      if info.GetLeakInfo(data, fItems) then ItemsToTree
+      else trvTraceInfo.Items.Add(nil, 'Error while parsing trace file');
+    finally
+      info.Free;
+    end;
   finally
-    info.Free;
+    trvTraceInfo.EndUpdate;
   end;
 end;
 

components/leakview/leakview.lpk

@@ -1,10 +1,12 @@
 <?xml version="1.0"?>
 <CONFIG>
   <Package Version="3">
+    <PathDelim Value="\"/>
     <Name Value="leakview"/>
     <Author Value="Dmitry 'skalogryz' Boyarintsev"/>
     <CompilerOptions>
       <Version Value="8"/>
+      <PathDelim Value="\"/>
       <Parsing>
         <SyntaxOptions>
           <CStyleOperator Value="False"/>
@@ -36,8 +38,7 @@
         <UnitName Value="HeapTrcView"/>
       </Item3>
       <Item4>
-        <Filename Value="LeakInfo.pas"/>
-        <UnitName Value="LeakInfo"/>
+        <Filename Value="leakinfo.pas"/>
       </Item4>
     </Files>
     <Type Value="RunAndDesignTime"/>
@@ -54,10 +55,11 @@
       </Item3>
     </RequiredPkgs>
     <UsageOptions>
-      <UnitPath Value="$(PkgOutDir)/"/>
+      <UnitPath Value="$(PkgOutDir)\"/>
     </UsageOptions>
     <PublishOptions>
       <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
       <IgnoreBinaries Value="False"/>
     </PublishOptions>
   </Package>

components/leakview/leakview.pas

@@ -7,7 +7,7 @@ unit leakview;
 interface
 
 uses
-HeapTrcView, LeakInfo, LazarusPackageIntf;
+HeapTrcView, leakinfo, LazarusPackageIntf;
 
 implementation