removed check from (useless) variations menu,

changed version to 2.08 beta 2
This commit is contained in:
zueuk 2008-10-10 13:30:59 +00:00
parent 2f453fc47b
commit dd8c388f5f
2 changed files with 2 additions and 3 deletions

View File

@ -2899,7 +2899,6 @@ object MainForm: TMainForm
Caption = 'Variation'
object mnuVRandom: TMenuItem
Caption = 'Random'
Checked = True
GroupIndex = 2
RadioItem = True
ShortCut = 122

View File

@ -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);