From 2ef485ec4f51c9fe7fb9fa99511db3960812cfd0 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Wed, 17 Feb 2010 18:53:10 +0100 Subject: 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. --- UMain.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'UMain.pas') 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; -- cgit v1.2.3