FixdSanba24Attention

diff --git a/Editor.dfm b/Editor.dfm
index f39bffc..1fb9786 100644 (file)
--- a/Editor.dfm
+++ b/Editor.dfm
@@ -58,10 +58,10 @@ object EditorForm: TEditorForm
     Top = 30
     Width = 632
     Height = 346
-    ActivePage = PreviewTab
+    ActivePage = EditorTab
     Align = alClient
     MultiLine = True
-    TabIndex = 1
+    TabIndex = 0
     TabOrder = 0
     OnChange = EditorPageChange
     object EditorTab: TTabSheet

diff --git a/Editor.pas b/Editor.pas
index 36a4cf6..44b1658 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -860,6 +860,7 @@ begin
                                                EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
                                                DrawMenuBar(Handle);
                                                Exit;
+                                        end;
                                 end;
                                if ((Namae = '\8eR\8dè\8fÂ') or (Namae = 'fusianasan')) then begin
                                        MsgResult := MsgBox(
@@ -992,11 +993,11 @@ begin
                                        FWork := false;
                                        Exit;
                                        end;
-                       end else begin
-                WriteSambaTime(FHost, Now());
-                               State := gdsError;
-                               raise Exception.Create('');
-                       end;
+                               end else begin
+                                        WriteSambaTime(FHost, Now());
+                                       State := gdsError;
+                                       raise Exception.Create('');
+                               end;
 
                except
                        on E: EIdConnectException do begin
@@ -1176,6 +1177,7 @@ procedure TEditorForm.SendActionExecute(Sender: TObject);
 var
        Board: TBoard;
        rc: Integer;
+        rc2: Integer;
        state : TGikoDownloadState;
        body            : string;
 begin
@@ -1260,6 +1262,16 @@ begin
                                                FWork := false;
                                                Exit;
                                        end;
+                                        if rc = IDNO then begin
+                                                rc2 := GikoUtil.MsgBox(Handle,
+                                                                       '\96{\93\96\82É\91\97\90M\82µ\82Ü\82·\82©\81H',
+                                                                       'Sumba24\8cx\8d\90',
+                                                                       MB_YESNO or MB_ICONQUESTION);
+                                                if rc2 = IDNO then begin
+                                                        FWork := False;
+                                                        Exit;
+                                                end;
+                                        end;
                                end;
                                Send(Board.SPID, Board.PON, True);
                        end;