タスクトレイへの格納で、レスエディタのタスクバーが消えない不具合の修正

diff --git a/Giko.pas b/Giko.pas
index aaca970..9a6e5f4 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -671,6 +671,8 @@ type
                procedure ClearThreadRengeAction;
         //! \83^\83X\83N\83g\83\8c\83C\82Ì\83A\83C\83R\83\93\8dí\8f\9c\81\95\83t\83H\81[\83\80\95\\8e¦
         procedure UnStoredTaskTray;
+        //! \83\8c\83X\83G\83f\83B\83^\82Ì\95\\8e¦\94ñ\95\\8e¦
+        procedure ShowEditors(nCmdShow: Integer);
        protected
                procedure CreateParams(var Params: TCreateParams); override;
                procedure WndProc(var Message: TMessage); override;
@@ -7741,7 +7743,7 @@ begin
             FIconData.hIcon   :=  Application.Icon.Handle;  {\83A\83C\83R\83\93\8ew\92è}
             FIconData.szTip   :=  '\83M\83R\83i\83r';      {\83q\83\93\83g\95¶\8e\9a\97ñ}
             Shell_NotifyIcon(NIM_ADD, @FIconData);
-
+            ShowEditors(SW_HIDE);
             ShowWindow(Self.Handle, SW_HIDE);
         end;
     except
@@ -7764,9 +7766,25 @@ begin
         end else begin
             ShowWindow(Self.Handle, SW_SHOW);
         end;
+        ShowEditors(SW_SHOW);
         GikoDM.StoredTaskTrayAction.Tag := 0;
     end;
 end;
+{
+\brief \83\8c\83X\83G\83f\83B\83^\82Ì\95\\8e¦\94ñ\95\\8e¦
+\param nCmdShow Windows.ShowWindow\82É\91\97\82é\83p\83\89\83\81\81[\83^\82Æ\93¯\82¶
+}
+procedure TGikoForm.ShowEditors(nCmdShow: Integer);
+var
+    i : Integer;
+begin
+    // \83\8c\83X\83G\83f\83B\83^\82ð\92T\82·
+    for i := 0 to Screen.CustomFormCount - 1 do begin
+        if TObject(Screen.CustomForms[i]) is TEditorForm then
+            ShowWindow(Screen.CustomForms[i].Handle, nCmdShow);
+
+    end;
+end;
 
 initialization
                                OleInitialize(nil);