・書き込み中は閉じるボタンを淡色表示するように。

diff --git a/Editor.pas b/Editor.pas
index 0b622b3..07d6bba 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -246,6 +246,7 @@ begin
                if GikoSys.Setting.EditWindowMax then
                        WindowState := wsMaximized;
        end;}
+
        //\83E\83B\83\93\83h\83E\82Ì\88Ê\92u\90Ý\92è
        wp.length := sizeof(wp);
        wp.rcNormalPosition.Top := GikoSys.Setting.EditWindowTop;
@@ -321,8 +322,6 @@ begin
     end;
         // \94¼\93§\96¾\8fó\91Ô\82Ì\95Û\91¶
        GikoSys.Setting.EditWindowTranslucent := TransAction.Checked;
-
-
 end;
 
 procedure TEditorForm.SetBoard(Item: TBoard);
@@ -551,6 +550,7 @@ var
        MsgResult: Integer;
        Cookie: string;
        Board: TBoard;
+       sysMenu : HMENU;
 begin
        FAbort := False;
        State := gdsError;
@@ -592,6 +592,9 @@ begin
                Cookie := Cookie + 'PON=' + PON + '; ';
        Cookie := 'Cookie: ' + Cookie + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text;
 
+       sysMenu := GetSystemMenu( Handle, false );
+       EnableMenuItem( sysMenu, SC_CLOSE, MF_GRAYED );
+
        Indy.Request.CustomHeaders.Clear;
 //     Indy.Request.CacheControl := 'no-cache';
        Indy.Request.CustomHeaders.Add('Pragma: no-cache');
@@ -707,6 +710,7 @@ begin
        finally
                Source.Free;
                TextStream.Free;
+               sysMenu := GetSystemMenu( Handle, true );
        end;
 
        if State = gdsComplete then begin