浏览代码

Adding brackets to TraceStack Pascal calls to get them cleaned from release code

Source commit: 042289241fd07f6011ee9c01925d44baa29654ba
Martin Prikryl 8 年之前
父节点
当前提交
2eb1494d7c
共有 2 个文件被更改,包括 0 次插入2 次删除
  1. 0 1
      source/packages/filemng/CustomDirView.pas
  2. 0 1
      source/packages/filemng/CustomDriveView.pas

+ 0 - 1
source/packages/filemng/CustomDirView.pas

@@ -1146,7 +1146,6 @@ end;
 
 
 procedure TCustomDirView.CreateWnd;
 procedure TCustomDirView.CreateWnd;
 begin
 begin
-  TraceStack;
   inherited;
   inherited;
 
 
   if Assigned(PopupMenu) then
   if Assigned(PopupMenu) then

+ 0 - 1
source/packages/filemng/CustomDriveView.pas

@@ -295,7 +295,6 @@ end;
 
 
 procedure TCustomDriveView.CreateWnd;
 procedure TCustomDriveView.CreateWnd;
 begin
 begin
-  TraceStack;
   inherited;
   inherited;
 
 
   if not Assigned(Images) then
   if not Assigned(Images) then