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

possible bugs fixed

Browse Source
This commit is contained in:
zueuk 2008-07-28 03:42:03 +00:00
parent 09a0ecd19f
commit c3b7b1ef28
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2.10/Source/Adjust.pas
View File

@ -973,7 +973,7 @@ end;
procedure TAdjustForm.txtAngleEnter(Sender: TObject);
begin
EditBoxValue := txtVibrancy.Text;
EditBoxValue := txtAngle.Text;
end;
procedure TAdjustForm.txtAngleKeyPress(Sender: TObject; var Key: Char);
@ -1938,9 +1938,11 @@ begin
except
exit;
end;
MainForm.UpdateUndo;
cp.pixels_per_unit := v/100*PreviewImage.Width;
UpdateFlame;
if v > 0 then begin
MainForm.UpdateUndo;
cp.pixels_per_unit := v/100*PreviewImage.Width;
UpdateFlame;
end;
end;
// -----------------------------------------------------------------------------