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

Transform symmetry value range changed.

Browse Source
This commit is contained in:
utak3r
2005-10-19 04:51:50 +00:00
parent 4aa9fdaf52
commit 4cb9c04f1e
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/Source/Editor.pas
View File

@ -2543,7 +2543,7 @@ begin
end;
end;
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
if NewVal < 0 then NewVal := 0;
if NewVal < -1 then NewVal := -1;
if NewVal > 1 then NewVal := 1;
{ If it's not the same as the old value and it was valid }
TEdit(Sender).Text := Format('%.6g', [NewVal]);
@ -2577,7 +2577,7 @@ begin
end;
end;
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
if NewVal < 0 then NewVal := 0;
if NewVal < -1 then NewVal := -1;
if NewVal > 1 then NewVal := 1;
{ If it's not the same as the old value and it was valid }
TEdit(Sender).Text := Format('%.6g', [NewVal]);