Fixed: 交信リストの右クリックメニュー「Change Operator」でOP変更を行うと、OP名に"&"が入っている

jr8ppg · Feb 15, 2020 · 2126d02 · 2126d02
1 parent 350b006
commit 2126d02
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 10 deletions.
diff --git a/zlog/main.dfm b/zlog/main.dfm
@@ -9538,23 +9538,25 @@ object MainForm: TMainForm
     end
   end
   object GridMenu: TPopupMenu
+    AutoHotkeys = maManual
+    AutoLineReduction = maManual
     OnPopup = GridMenuPopup
     Left = 64
     Top = 296
     object EditQSO: TMenuItem
-      Caption = 'Edit QSO'
+      Caption = '&Edit QSO'
       OnClick = EditQSOClick
     end
     object DeleteQSO1: TMenuItem
-      Caption = 'Delete QSO'
+      Caption = '&Delete QSO'
       OnClick = DeleteQSO1Click
     end
     object InsertQSO1: TMenuItem
-      Caption = 'Insert QSO'
+      Caption = '&Insert QSO'
       OnClick = InsertQSO1Click
     end
     object GBand: TMenuItem
-      Caption = 'Change band'
+      Caption = 'Change &Band'
       object G1R9MHz: TMenuItem
         Caption = '1.9 MHz'
         OnClick = GridBandChangeClick
@@ -9639,7 +9641,7 @@ object MainForm: TMainForm
       end
     end
     object Changemode: TMenuItem
-      Caption = 'Change mode'
+      Caption = 'Change &Mode'
       object CW2: TMenuItem
         Caption = 'CW'
         OnClick = GridModeChangeClick
@@ -9671,7 +9673,7 @@ object MainForm: TMainForm
       end
     end
     object mChangePower: TMenuItem
-      Caption = 'Change power'
+      Caption = 'Change &Power'
       object H2: TMenuItem
         Caption = 'P (QRP)'
         OnClick = GridPowerChangeClick
@@ -9693,22 +9695,22 @@ object MainForm: TMainForm
       end
     end
     object GOperator: TMenuItem
-      Caption = 'Change operator'
+      Caption = 'Change &Operator'
       object Clear1: TMenuItem
         Caption = 'Clear'
         OnClick = GridOperatorClick
       end
     end
     object mnChangeTXNr: TMenuItem
-      Caption = 'Change TX#'
+      Caption = 'Change &TX#'
       OnClick = mnChangeTXNrClick
     end
     object SendSpot1: TMenuItem
-      Caption = 'Send Spot'
+      Caption = 'Send &Spot'
       OnClick = SendSpot1Click
     end
     object mnGridAddNewPX: TMenuItem
-      Caption = 'Add new prefix'
+      Caption = '&Add new prefix'
       OnClick = mnGridAddNewPXClick
     end
   end

diff --git a/zlog/main.pas b/zlog/main.pas
@@ -6012,6 +6012,7 @@ procedure TMainForm.GridBandChangeClick(Sender: TObject);
    MyContest.Renew;
    Grid.TopRow := i;
    EditScreen.RefreshScreen;
+   Log.Saved := False;
 end;
 
 procedure TMainForm.ZLinkmonitor1Click(Sender: TObject);
@@ -6304,6 +6305,7 @@ procedure TMainForm.GridModeChangeClick(Sender: TObject);
    MyContest.Renew;
    Grid.TopRow := i;
    EditScreen.RefreshScreen;
+   Log.Saved := False;
 end;
 
 procedure TMainForm.GridOperatorClick(Sender: TObject);
@@ -6352,6 +6354,7 @@ procedure TMainForm.GridOperatorClick(Sender: TObject);
    MyContest.Renew;
    Grid.TopRow := i;
    EditScreen.RefreshScreen;
+   Log.Saved := False;
 end;
 
 procedure TMainForm.SendSpot1Click(Sender: TObject);
@@ -6624,6 +6627,7 @@ procedure TMainForm.GridPowerChangeClick(Sender: TObject);
    MyContest.Renew;
    Grid.TopRow := i;
    EditScreen.RefreshScreen;
+   Log.Saved := False;
 end;
 
 procedure TMainForm.RigControl1Click(Sender: TObject);
@@ -6766,6 +6770,7 @@ procedure TMainForm.mnChangeTXNrClick(Sender: TObject);
       MyContest.Renew;
       Grid.TopRow := i;
       EditScreen.RefreshScreen;
+      Log.Saved := False;
    finally
       F.Release();
    end;