Move viewer windows to separate window groups

Each viewer window now belongs to its own window group so
they can't influence each other. Works nicely when opened
from Search dialog too. Finally, no need to make separate
viewer app.

1 files changed, 5 insertions, 5 deletions

diff --git a/UMain.pas b/UMain.pas
index 56198fc..26d0781 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -250,7 +250,7 @@ type
     LeftPanelEngine, RightPanelEngine : TPanelEngine;
     ColumnSortIDs: array[1..ConstNumPanelColumns] of integer;
     LastClick: TDateTime;
-    procedure EditViewFileInternal(ParentWindow: TGTKControl; Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
+    procedure EditViewFileInternal(Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
   end;
 
 var
@@ -3459,8 +3459,8 @@ begin
       ANewDir.Free;
     end;
   end else AFile := IncludeTrailingPathDelimiter(Engine.Path) + PDataItem(AListView.Selected.Data)^.FName;
-  
-  EditViewFileInternal(Self, AFile, Engine, View, NewFile);
+
+  EditViewFileInternal(AFile, Engine, View, NewFile);
 
   finally
     Application.ProcessMessages;
@@ -3468,7 +3468,7 @@ begin
   end;
 end;
 
-procedure TFMain.EditViewFileInternal(ParentWindow: TGTKControl; Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
+procedure TFMain.EditViewFileInternal(Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
 var s: string;
     Stat: PDataItem;
     Error, x: integer;
@@ -3495,7 +3495,7 @@ begin
         Application.MessageBox(Format('Cannot load file ''%s''. Please check the permissions.', [ANSIToUTF8(AFile)]), [mbOK], mbError);
         AViewer.Free;
       end else AViewer.Resume; *)
-      AViewer := TFViewer.Create(ParentWindow);
+      AViewer := TFViewer.Create(Self);
       if not AViewer.LoadFile(Filename) then begin
         Application.MessageBox(Format(LANGCannotLoadFile, [Filename]), [mbOK], mbError, mbNone, mbOK);
         AViewer.Free;