浏览代码

Fix RadioItem inconsistencies.

Martijn Laan 1 年之前
父节点
当前提交
ea24d6a330
共有 2 个文件被更改,包括 2 次插入0 次删除
  1. 1 0
      Projects/Src/CompForm.dfm
  2. 1 0
      Projects/Src/CompForm.pas

+ 1 - 0
Projects/Src/CompForm.dfm

@@ -397,6 +397,7 @@ object CompileForm: TCompileForm
         end
         end
         object FSaveEncodingUTF8WithBOM: TMenuItem
         object FSaveEncodingUTF8WithBOM: TMenuItem
           Caption = 'UTF-8 with &BOM'
           Caption = 'UTF-8 with &BOM'
+          RadioItem = True
           OnClick = FSaveEncodingItemClick
           OnClick = FSaveEncodingItemClick
         end
         end
       end
       end

+ 1 - 0
Projects/Src/CompForm.pas

@@ -3788,6 +3788,7 @@ procedure TCompileForm.NavPopupMenuClick(Sender: TObject);
     var MenuItem := TMenuItem.Create(Menu);
     var MenuItem := TMenuItem.Create(Menu);
     MenuItem.Caption := DoubleAmp(Caption);
     MenuItem.Caption := DoubleAmp(Caption);
     MenuItem.Checked := Checked;
     MenuItem.Checked := Checked;
+    MenuItem.RadioItem := True;
     MenuItem.Tag := ClicksNeeded;
     MenuItem.Tag := ClicksNeeded;
     MenuItem.OnClick := NavItemClick;
     MenuItem.OnClick := NavItemClick;
     Menu.Add(MenuItem);
     Menu.Add(MenuItem);