From dd8c388f5ff1d7572e214efbaaa88a834354968c Mon Sep 17 00:00:00 2001 From: zueuk Date: Fri, 10 Oct 2008 13:30:59 +0000 Subject: [PATCH] removed check from (useless) variations menu, changed version to 2.08 beta 2 --- 2.10/Source/Main.dfm | 1 - 2.10/Source/Main.pas | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/2.10/Source/Main.dfm b/2.10/Source/Main.dfm index ae17299..49e9302 100644 --- a/2.10/Source/Main.dfm +++ b/2.10/Source/Main.dfm @@ -2899,7 +2899,6 @@ object MainForm: TMainForm Caption = 'Variation' object mnuVRandom: TMenuItem Caption = 'Random' - Checked = True GroupIndex = 2 RadioItem = True ShortCut = 122 diff --git a/2.10/Source/Main.pas b/2.10/Source/Main.pas index 1e11a29..3cc230f 100644 --- a/2.10/Source/Main.pas +++ b/2.10/Source/Main.pas @@ -42,7 +42,7 @@ const RS_XO = 2; RS_VO = 3; - AppVersionString = 'Apophysis 2.08 beta 2 pre6+'; + AppVersionString = 'Apophysis 2.08 beta 2'; type TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, @@ -4947,7 +4947,7 @@ end; procedure TMainForm.VariantMenuClick(Sender: TObject); begin - TMenuItem(Sender).Checked := True; + //TMenuItem(Sender).Checked := True; UpdateUndo; Variation := TVariation(TMenuItem(Sender).Tag); SetVariation(maincp);