Changeset 148

Timestamp:

May 8, 2007, 8:50:29 PM (18 years ago)

Author:

RBRi

Message:

enhanced debugging output

File:

• trunk/NewView/MainForm.pas (modified) (12 diffs)

trunk/NewView/MainForm.pas

@@ -2278 +2278 @@
 
     CmdLineParameters.writeDetailsTo(Lines);
+    writeSettingsDetailsTo(Lines);
   end;
 
@@ -6906 +6907 @@
 end;
 
+
 Procedure TMainForm.NHMDisplayIndex( Var Msg: TMessage );
 begin
   LogEvent(LogNHM, 'NHMDisplayIndex');
+  CmdLineParameters.addNhmDebugMessage('NHMDisplayIndex');
   RestoreWindow;
   DisplayIndex;
@@ -6920 +6923 @@
 begin
   LogEvent(LogNHM, 'NHMDisplayContents');
+  CmdLineParameters.addNhmDebugMessage('NHMDisplayContents');
   RestoreWindow;
   DisplayContents;
@@ -6935 +6939 @@
   RestoreWindow;
   if ShowLeftPanel then
+  begin
     DisplayContents;
+  end;
+  CmdLineParameters.addNhmDebugMessage('NHMTopicByResourceID ' + IntToStr(Msg.Param1));
   DisplayTopicByResourceID( Msg.Param1 );
 end;
@@ -6955 +6962 @@
 
   LogEvent(LogNHM, '....NHMTopicByPanelName panel:' + PanelName);
+  CmdLineParameters.addNhmDebugMessage('NHMTopicByPanelName ' + PanelName);
   Topic := FindTopicByName( PanelName );
   if Topic = nil then
@@ -6970 +6978 @@
 var
   pSearchText: pchar;
+  tmpSearchText : String;
 begin
   LogEvent(LogNHM, 'NHMSearch');
@@ -6975 +6984 @@
 
   pSearchText := pstring( Msg.Param1 );
-  SearchFor( StrPas( pSearchText ) );
+  tmpSearchText := StrPas(pSearchText);
+  CmdLineParameters.addNhmDebugMessage('NHMSearch ' + tmpSearchText);
+  SearchFor(tmpSearchText);
   SharedMemory.Free( pSearchText );
 end;
@@ -6982 +6993 @@
 var
   pSearchText: pchar;
+  tmpSearchText : String;
 begin
   LogEvent(LogNHM, 'NHMGlobalSearch');
@@ -6987 +6999 @@
 
   pSearchText := pstring( Msg.Param1 );
-  DoGlobalSearch( StrPas( pSearchText ) );
+  tmpSearchText := StrPas(pSearchText);
+  CmdLineParameters.addNhmDebugMessage('NHMGlobalSearch ' + tmpSearchText);
+  DoGlobalSearch(tmpSearchText);
   SharedMemory.Free( pSearchText );
 end;
@@ -6994 +7008 @@
 begin
   LogEvent(LogNHM, 'NHMShowUsage');
+  CmdLineParameters.addNhmDebugMessage('NHMShowUsage');
   RestoreWindow;
   ShowUsage;
@@ -7001 +7016 @@
 var
   pFileNames: pchar;
+  tmpFileNames : String;
 begin
   LogEvent(LogNHM, 'NHMSetFiles');
+
   // NOT restoring window here because this is not something the user should see...
   pFileNames := pstring( Msg.Param1 );
-  OpenFilesFromTextList( StrPas( pFileNames ), false );
+  tmpFileNames := StrPas(pFileNames);
+  CmdLineParameters.addNhmDebugMessage('NHMSetFiles ' + tmpFileNames);
+  OpenFilesFromTextList(tmpFileNames, false);
   SharedMemory.Free( pFileNames );
 end;
@@ -7014 +7033 @@
 begin
   LogEvent(LogNHM, 'NHMSetTitle');
+
   pTitle := pstring( Msg.Param1 );
   MainTitle := StrPas( pTitle );
   SharedMemory.Free( pTitle );
-
+  CmdLineParameters.addNhmDebugMessage('NHMSetTitle ' + MainTitle);
   SetMainCaption;
 end;