Changeset 342 for trunk/NewView/MainForm.pas

Timestamp:

Jun 1, 2009, 2:42:16 PM (16 years ago)

Author:

RBRi

Message:

index is a real object now
support for env variables to make glossary simulation work

File:

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

trunk/NewView/MainForm.pas

@@ -383 +383 @@
     Procedure AddCurrentToMRUFiles;
 
-    Function LoadFiles( const FileNames: TStrings;
-                        HelpFiles: TList ): boolean;
+    Function LoadFiles(const aFileNames: TStrings; aHelpFiles: TList) : boolean;
     Procedure DisplayFiles( NewFiles: TList;
                             Var FirstContentsNode: TNode );
@@ -1612 +1611 @@
     end;
   end;
- 
+
   CreateMRUMenuItems;
 End;
@@ -1672 +1671 @@
   tmpFileNames := TStringList.Create;
 
-  StrExtractStringsIgnoreEmpty(tmpFileNames, TextList, [HELP_FILE_DELIMITER], #0);
+  ParseAndExpandFileNames(TextList, tmpFileNames);
   if tmpFileNames.Count > 0 then
   begin
-    result := OpenFiles(tmpFileNames, '', DisplayFirstTopic );
+    result := OpenFiles(tmpFileNames, '', DisplayFirstTopic);
   end
   else
@@ -2283 +2282 @@
     CmdLineParameters.writeDetailsTo(Lines);
     writeSettingsDetailsTo(Lines);
+    writeDebugSetupDetailsTo(Lines);
   end;
 
@@ -4065 +4065 @@
   if CmdLineParameters.getOwnerWindow <> NULLHANDLE then
   begin
-    LogEvent(LogStartup, 'Setting owner: '
-                  + IntToStr( CmdLineParameters.getOwnerWindow));
-    WinSetOwner( Frame.Handle,
-                 CmdLineParameters.getOwnerWindow );
-
+    LogEvent(LogStartup, 'Setting owner: ' + IntToStr( CmdLineParameters.getOwnerWindow));
+    WinSetOwner( Frame.Handle, CmdLineParameters.getOwnerWindow );
   end;
 
@@ -4085 +4082 @@
   CoolBar.SetMinConstButtonWidth;
 
-  LogEvent(LogStartup, 'Post WM_OPENED');
-
   ResetProgress;
 
@@ -4095 +4090 @@
   AddShortcut( kbCtrlCLeft, kbCtrlCLeft ); // back
 
+  LogEvent(LogStartup, 'Post WM_OPENED');
   PostMsg( Handle, WM_OPENED, 0, 0 );
 End;
@@ -4196 +4192 @@
   LogEvent(LogStartup, 'Finish paint');
   Update;
+  LogEvent(LogStartup, 'BringToFront');
+  MainForm.BringToFront;
 
   if not CmdLineParameters.getHelpManagerFlag then
@@ -4222 +4220 @@
     Filenames := TStringList.Create;
 
-    StrExtractStringsIgnoreEmpty(Filenames, tmpFileNames, [HELP_FILE_DELIMITER], #0);
-
+    ParseAndExpandFileNames(tmpFileNames, Filenames);
     LogEvent(LogStartup, 'Call OpenFiles');
 
@@ -5722 +5719 @@
   Tag:= MenuItem.Tag;
   MRUItem := Settings.MRUList[ Tag ];
+// RBRi woher kommt die liste?
   if OpenFiles( MRUItem.FileNames, '', true ) then
   begin
@@ -6228 +6226 @@
 procedure TMainForm.LoadIndex;
 var
-  HelpFile: THelpFile;
-  TextCompareResult: integer;
+  tmpHelpFile: THelpFile;
+  tmpTextCompareResult: integer;
 
   FileIndex: longint;
@@ -6235 +6233 @@
   Contents: TList;
   ContentsLists: TList; // of tlist
-  IndexLists: TList; // of tstringlist
+  tmpIndexLists: TList; // of tstringlist
   ContentsNextIndex: array[ 0..255 ] of longint;
   IndexNextIndex: array[ 0..255 ] of longint;
   Topic: TTopic;
 
-  ListIndex: longint;
-
   pListEntry: pstring;
   pLowestEntry: pstring;
   pLastEntry: pstring;
 
-  LowestEntryListIndex: longint;
-  LowestEntryListType: TListType;
-  LowestEntryTopic: TTopic;
-
-  Index: TStringList;
+  tmpLowestEntryListIndex: longint;
+  tmpLowestEntryListType: TListType;
+  tmpLowestEntryTopic: TTopic;
+
+  tmpIndex: TStringList;
 
   i : longint;
@@ -6264 +6260 @@
 
   ContentsLists := TList.Create;
-  IndexLists := TList.Create;
+  tmpIndexLists := TList.Create;
 
   // collect the contents and index lists from the files
   for FileIndex := 0 to CurrentOpenFiles.Count - 1 do
   begin
-    HelpFile := CurrentOpenFiles[ FileIndex ];
+    tmpHelpFile := CurrentOpenFiles[ FileIndex ];
     ProgressBar.Position := 70 + 10 * FileIndex div CurrentOpenFiles.Count;
 
@@ -6275 +6271 @@
     begin
       Contents := TList.Create;
-      Contents.Capacity := HelpFile.TopicCount;
+      Contents.Capacity := tmpHelpFile.TopicCount;
 
       // copy [contents] topic list
-      for i := 0 to HelpFile.TopicCount - 1 do
+      for i := 0 to tmpHelpFile.TopicCount - 1 do
       begin
-        Topic := HelpFile.Topics[ i ];
+        Topic := tmpHelpFile.Topics[ i ];
         if Topic.ShowInContents then
           Contents.Add( Topic );
@@ -6296 +6292 @@
     if Settings.IndexStyle in [ isFileOnly, isFull ] then
     begin
-      IndexLists.Add( HelpFile.Index );
-      IndexNextIndex[ IndexLists.Count - 1 ] := 0;
+      tmpIndexLists.Add(tmpHelpFile.Index.GetLabels);
+      IndexNextIndex[ tmpIndexLists.Count - 1 ] := 0;
     end;
   end;
@@ -6313 +6309 @@
   begin
     pLowestEntry := NullStr;
-    LowestEntryListIndex := -1;
+    tmpLowestEntryListIndex := -1;
 
     // Find alphabetically lowest (remaining) topic
 
     // first, look in contents lists
-    for ListIndex := 0 to ContentsLists.Count - 1 do
+    LogEvent(LogDebug, '  Merge contents' );
+    for i := 0 to ContentsLists.Count - 1 do
     begin
-      Contents := ContentsLists[ ListIndex ];
-      if ContentsNextIndex[ ListIndex ] < Contents.Count then
+      Contents := ContentsLists[i];
+      if ContentsNextIndex[i] < Contents.Count then
       begin
         // list is not yet finished, get next entry
-        Topic := Contents[ ContentsNextIndex[ ListIndex ] ];
+        Topic := Contents[ ContentsNextIndex[i] ];
         pListEntry := Topic.TitlePtr;
 
         if pLowestEntry^ <> '' then
-          TextCompareResult := CompareText( pListEntry^, pLowestEntry^ )
+          tmpTextCompareResult := CompareText( pListEntry^, pLowestEntry^ )
         else
-          TextCompareResult := -1;
-
-        if TextCompareResult < 0 then
+          tmpTextCompareResult := -1;
+
+        if tmpTextCompareResult < 0 then
         begin
           // this index entry comes before the lowest one so far
           pLowestEntry := pListEntry;
-          LowestEntryListIndex := ListIndex;
-          LowestEntryListType := ltContents;
-          LowestEntryTopic := Topic;
+          tmpLowestEntryListIndex := i;
+          tmpLowestEntryListType := ltContents;
+          tmpLowestEntryTopic := Topic;
         end;
       end;
@@ -6344 +6341 @@
 
     // look in indices
-    for ListIndex := 0 to IndexLists.Count - 1 do
+    LogEvent(LogDebug, '  Merge indices' );
+    for i := 0 to tmpIndexLists.Count - 1 do
     begin
-      Index := IndexLists[ ListIndex ];
-      if IndexNextIndex[ ListIndex ] < Index.Count then
+      LogEvent(LogDebug, '  Merge indices ' + IntToStr(i) );
+      tmpIndex := tmpIndexLists[i];
+      if IndexNextIndex[i] < tmpIndex.Count then
       begin
         // list is not yet finished, get next entry
-        pListEntry := Index.ValuePtrs[ IndexNextIndex[ ListIndex ] ];
+        pListEntry := tmpIndex.ValuePtrs[ IndexNextIndex[i] ];
 
         if pLowestEntry^ <> '' then
-          TextCompareResult := CompareText( pListEntry^, pLowestEntry^ )
+          tmpTextCompareResult := CompareText( pListEntry^, pLowestEntry^ )
         else
-          TextCompareResult := -1;
-
-        if TextCompareResult < 0 then
+          tmpTextCompareResult := -1;
+
+        if tmpTextCompareResult < 0 then
         begin
           // this index entry comes before the lowest one so far
           pLowestEntry := pListEntry;
-          LowestEntryListIndex := ListIndex;
-          LowestEntryListType := ltIndex;
-          LowestEntryTopic := TTopic( Index.Objects[ IndexNextIndex[ ListIndex ] ] );
+          tmpLowestEntryListIndex := i;
+          tmpLowestEntryListType := ltIndex;
+
+          LogEvent(LogDebug, '  Merge indices ' + tmpIndex.Objects[ IndexNextIndex[i] ].ClassName);
+          tmpLowestEntryTopic := TIndexEntry( tmpIndex.Objects[ IndexNextIndex[i] ] ).getTopic;
         end;
       end;
     end;
 
-    if LowestEntryListIndex = -1 then
+    if tmpLowestEntryListIndex = -1 then
       // we're out
       break;
@@ -6374 +6375 @@
     if ( pLowestEntry^ ) <> ( pLastEntry^ ) then
       // add, if different from last
-      DisplayedIndex.AddObject( pLowestEntry^,
-                                LowestEntryTopic );
+      DisplayedIndex.AddObject( pLowestEntry^, tmpLowestEntryTopic );
     pLastEntry := pLowestEntry;
 
-    if LowestEntryListType = ltContents then
+    if tmpLowestEntryListType = ltContents then
     begin
-      inc( ContentsNextIndex[ LowestEntryListIndex ] );
+      inc( ContentsNextIndex[ tmpLowestEntryListIndex ] );
     end
     else
@@ -6386 +6386 @@
       // found in one of indices.
       // Check for subsequent indented strings
-      Index := IndexLists[ LowestEntryListIndex ];
-
-      i := IndexNextIndex[ LowestEntryListIndex ] + 1;
-      while i < Index.Count do
+      tmpIndex := tmpIndexLists[ tmpLowestEntryListIndex ];
+
+      i := IndexNextIndex[ tmpLowestEntryListIndex ] + 1;
+      while i < tmpIndex.Count do
       begin
-        pListEntry := Index.ValuePtrs[ i ];
+        pListEntry := tmpIndex.ValuePtrs[ i ];
         if pListEntry^ = '' then
           break;
@@ -6400 +6400 @@
 
         // found one,
-        Topic := Index.Objects[ i ] as TTopic;
+        Topic := TIndexEntry(tmpIndex.Objects[ i ]).getTopic;
         DisplayedIndex.AddObject( pListEntry^,
                                   Topic );
         inc( i );
       end;
-      IndexNextIndex[ LowestEntryListIndex ] := i;
+      IndexNextIndex[ tmpLowestEntryListIndex ] := i;
     end;
   end;
@@ -6419 +6419 @@
   LogEvent(LogStartup, '  Tidy up' );
 
-  IndexLists.Destroy;
+  tmpIndexLists.Destroy;
 
   DestroyListAndObjects( ContentsLists );
@@ -6465 +6465 @@
                              const SelectFirstContentsNode: boolean ): boolean;
 var
-  FileNames: TStringList;
-begin
-  FileNames := TStringList.Create;
-  FileNames.Add( FileName );
-  Result := OpenFiles( FileNames,
+  tmpFileNames: TStringList;
+begin
+  tmpFileNames := TStringList.Create;
+  ParseAndExpandFileNames(FileName, tmpFileNames);
+  Result := OpenFiles( tmpFileNames,
                        WindowTitle,
                        DisplayFirstTopic );
-  FileNames.Destroy;
+  tmpFileNames.Destroy;
 end;
 
@@ -6478 +6478 @@
                                        const DisplayFirstTopic: boolean ): boolean;
 var
-  FileNames: TStringList;
-begin
-  FileNames := TStringList.Create;
-  FileNames.Add( FileName );
-  Result := OpenAdditionalFiles( FileNames,
-                                 DisplayFirstTopic );
-  FileNames.Destroy;
+  tmpFileNames: TStringList;
+begin
+  tmpFileNames := TStringList.Create;
+  ParseAndExpandFileNames(FileName, tmpFileNames);
+  Result := OpenAdditionalFiles(tmpFileNames, DisplayFirstTopic );
+  tmpFileNames.Destroy;
 end;
 
@@ -6528 +6527 @@
 
 // Load the specified set of help files
-Function TMainForm.LoadFiles( const FileNames: TStrings;
-                              HelpFiles: TList ): boolean;
+Function TMainForm.LoadFiles(const aFileNames: TStrings; aHelpFiles: TList) : boolean;
 var
   HelpFile: THelpFile;
-  FileIndex: longint;
+  FileIndex, i: longint;
   FileName: string;
   FullFilePath: string;
@@ -6544 +6542 @@
   LoadingFilenameList := TStringList.Create;
 
-  TranslateIPFEnvironmentVars( FileNames, LoadingFilenameList );
+// RBRi  TranslateIPFEnvironmentVars( FileNames, LoadingFilenameList );
+  for i := 0 to aFileNames.Count - 1 do
+  begin
+    LoadingFilenameList.Add(aFileNames[i]);
+  end;
 
   LogEvent(LogStartup, 'Finding files' );
@@ -6609 +6611 @@
          HelpFile.SetupFontSubstitutes( Settings.FixedFontSubstitutes );
 
-      HelpFiles.Add( HelpFile );
+      aHelpFiles.Add( HelpFile );
 
     except
@@ -6631 +6633 @@
         Result := false;
 
-        DestroyListObjects( HelpFiles );
+        DestroyListObjects( aHelpFiles );
 
         LoadingFilenameList.Destroy;
@@ -6650 +6652 @@
 Procedure TMainForm.AddCurrentToMRUFiles;
 var
-  Filenames: TStringList;
+  tmpFilenames: TStringList;
   i: longint;
-  HelpFile: THelpFile;
-begin
-  Filenames := TStringList.Create;
-
-  for i := 0 to CurrentOpenFiles.Count - 1 do
-  begin
-    HelpFile := CurrentOpenFiles[ i ];
-    Filenames.Add( HelpFile.Filename );
-  end;
-
-  // update most-recently-used file list
-  HelpFile := CurrentOpenFiles[ 0 ];
-  AddToMRUList( HelpFile.Title,
-                Filenames );
+  tmpHelpFile: THelpFile;
+begin
+  tmpFilenames := TStringList.Create;
+
+  if CurrentOpenFiles.Count > 0 then
+  begin
+    for i := 0 to CurrentOpenFiles.Count - 1 do
+    begin
+      tmpHelpFile := CurrentOpenFiles[ i ];
+      tmpFilenames.Add(tmpHelpFile.Filename);
+    end;
+
+    // update most-recently-used file list
+    tmpHelpFile := CurrentOpenFiles[ 0 ];
+    AddToMRUList(tmpHelpFile.Title, tmpFilenames);
+  end;
 
   // recreate menu
   CreateMRUMenuItems;
 
-  Filenames.Destroy;
+  tmpFilenames.Destroy;
 end;
 
@@ -6722 +6726 @@
                               const DisplayFirstTopic: boolean ): boolean;
 var
-  HelpFiles: TList;
+  tmpHelpFiles: TList;
   FirstContentsNode: TNode;
 begin
@@ -6732 +6736 @@
   SetWaitCursor;
 
-  HelpFiles := TList.Create;
-
-  if not LoadFiles(FileNames, HelpFiles ) then
+  tmpHelpFiles := TList.Create;
+
+// RBRi Translate
+  if not LoadFiles(FileNames, tmpHelpFiles) then
   begin
     ClearWaitCursor;
-    HelpFiles.Destroy;
+    tmpHelpFiles.Destroy;
     exit;
   end;
@@ -6751 +6756 @@
   CloseFile;
 
-  AssignList( HelpFiles, CurrentOpenFiles );
+  AssignList(tmpHelpFiles, CurrentOpenFiles );
 
   ProgressBar.Position := 50;
@@ -6770 +6775 @@
   ContentsOutline.Clear;
 
-  DisplayFiles( HelpFiles,
+  DisplayFiles( tmpHelpFiles,
                 FirstContentsNode );
 
@@ -6891 +6896 @@
       exit;
 
+    // no ParseAndExpandFileNames call required here
+    // this is the result of a file dialog
+    // no environment vars here
     if KeepCurrentFiles then
       OpenedOK := OpenAdditionalFiles( FileNames, true )