Changeset 71 for trunk/NewView/MainForm.pas

Timestamp:

Feb 8, 2007, 8:38:41 PM (19 years ago)

Author:

RBRi

Message:

#14 fixed

File:

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

trunk/NewView/MainForm.pas

@@ -1760 +1760 @@
   Topic: TTopic;
 begin
+  LogEvent(LogDebug, 'DisplayTopicByResourceID id:' + IntToStr(ID));
   Topic := FindTopicByResourceID( ID );
   if Topic = nil then
   begin
+    LogEvent(LogDebug, 'DisplayTopicByResourceID - topic not found');
     Result := false;
     exit;
@@ -1769 +1771 @@
   result := true;
 
+  LogEvent(LogDebug, 'DisplayTopicByResourceID topic: "' + Topic.Title + '"');
   DisplayTopic( Topic );
 end;
@@ -2262 +2265 @@
 
 Procedure TMainForm.DebugShowParamsMIOnClick (Sender: TObject);
-var
-  tmpWindowPosition : TWindowPosition;
 Begin
   with InformationForm.InformationMemo do
@@ -6841 +6842 @@
 Procedure TMainForm.NHMDisplayIndex( Var Msg: TMessage );
 begin
+  LogEvent(LogNHM, 'NHMDisplayIndex');
   RestoreWindow;
   DisplayIndex;
@@ -6851 +6853 @@
 Procedure TMainForm.NHMDisplayContents( Var Msg: TMessage );
 begin
+  LogEvent(LogNHM, 'NHMDisplayContents');
   RestoreWindow;
   DisplayContents;
   // if nothing is being display already...
   if Windows.Count = 0 then
+  begin
     // display first topic
     DisplaySelectedContentsTopic;
+  end;
 end;
 
 Procedure TMainForm.NHMTopicByResourceID( Var Msg: TMessage );
 begin
+  LogEvent(LogNHM, 'NHMTopicByResourceID');
   RestoreWindow;
+  DisplayContents;
   DisplayTopicByResourceID( Msg.Param1 );
 end;
@@ -6871 +6878 @@
   Topic: TTopic;
 begin
+  LogEvent(LogNHM, 'NHMTopicByPanelName');
   RestoreWindow;
 
@@ -6877 +6885 @@
   SharedMemory.Free( pMessageMem );
 
+  LogEvent(LogNHM, '....NHMTopicByPanelName panel:' + PanelName);
   Topic := FindTopicByName( PanelName );
   if Topic = nil then
@@ -6893 +6902 @@
   pSearchText: pchar;
 begin
+  LogEvent(LogNHM, 'NHMSearch');
   RestoreWindow;
 
@@ -6904 +6914 @@
   pSearchText: pchar;
 begin
+  LogEvent(LogNHM, 'NHMGlobalSearch');
   RestoreWindow;
 
@@ -6913 +6924 @@
 Procedure TMainForm.NHMShowUsage( Var Msg: TMessage );
 begin
+  LogEvent(LogNHM, 'NHMShowUsage');
   RestoreWindow;
   ShowUsage;
@@ -6921 +6933 @@
   pFileNames: pchar;
 begin
+  LogEvent(LogNHM, 'NHMSetFiles');
   // NOT restoring window here because this is not something the user should see...
   pFileNames := pstring( Msg.Param1 );
@@ -6931 +6944 @@
   pTitle: pchar;
 begin
+  LogEvent(LogNHM, 'NHMSetTitle');
   pTitle := pstring( Msg.Param1 );
   MainTitle := StrPas( pTitle );
@@ -6942 +6956 @@
   ps: pstring;
 begin
+  LogEvent(LogNHM, 'NHMTest');
   ps := PString( Msg.Param1 );
   ShowMessage( 'Got test message: ' + ps^ );