From c3b7b1ef28ad5d09ddf62a522008b82223d103f3 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Mon, 28 Jul 2008 03:42:03 +0000
Subject: [PATCH] possible bugs fixed

---
 2.10/Source/Adjust.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/2.10/Source/Adjust.pas b/2.10/Source/Adjust.pas
index c7565e6..2285f42 100644
--- a/2.10/Source/Adjust.pas
+++ b/2.10/Source/Adjust.pas
@@ -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;
 
 // -----------------------------------------------------------------------------