mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed check from (useless) variations menu,

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2.10/Source/Main.dfm
View File

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

4
2.10/Source/Main.pas
View File

@ -42,7 +42,7 @@ const
RS_XO = 2; RS_XO = 2;
RS_VO = 3; RS_VO = 3;
AppVersionString = 'Apophysis 2.08 beta 2 pre6+'; AppVersionString = 'Apophysis 2.08 beta 2';
type type
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove,
@ -4947,7 +4947,7 @@ end;
procedure TMainForm.VariantMenuClick(Sender: TObject); procedure TMainForm.VariantMenuClick(Sender: TObject);
begin begin
TMenuItem(Sender).Checked := True; //TMenuItem(Sender).Checked := True;
UpdateUndo; UpdateUndo;
Variation := TVariation(TMenuItem(Sender).Tag); Variation := TVariation(TMenuItem(Sender).Tag);
SetVariation(maincp); SetVariation(maincp);