From 78f090e85537c17e2c4e8457b00c60f9c735182b Mon Sep 17 00:00:00 2001
From: utak3r <utak3r>
Date: Mon, 17 Apr 2006 18:14:44 +0000
Subject: [PATCH] Adjust values change reflecting to the current flame settings
 on Adjust window activating.

---
 2.10/Source/Adjust.dfm |  1 +
 2.10/Source/Adjust.pas | 14 +++++++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/2.10/Source/Adjust.dfm b/2.10/Source/Adjust.dfm
index 14e0b69..b68cc59 100644
--- a/2.10/Source/Adjust.dfm
+++ b/2.10/Source/Adjust.dfm
@@ -43,6 +43,7 @@ object AdjustForm: TAdjustForm
     0000000100000001000000010000000100000001000000010000FFFF0000}
   OldCreateOrder = False
   Position = poDefault
+  OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
diff --git a/2.10/Source/Adjust.pas b/2.10/Source/Adjust.pas
index d4412b7..c6a5056 100644
--- a/2.10/Source/Adjust.pas
+++ b/2.10/Source/Adjust.pas
@@ -253,6 +253,7 @@ type
     procedure DragPanelMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
     procedure DragPanelDblClick(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
 
   private
     Resetting: boolean;
@@ -916,7 +917,7 @@ begin
   if ColorDialog.Execute then
   begin
     ColorPanel.Color := ColorDialog.Color;
-    //cbColor.text := IntToHex(integer(ColorDialog.Color), 6);   
+    //cbColor.text := IntToHex(integer(ColorDialog.Color), 6);
     col := ColorToRGB(ColorDialog.Color);
     cp.background[0] := col and 255;
     cp.background[1] := col shr 8 and 255;
@@ -2041,5 +2042,16 @@ begin
   UpdateFlame;
 end;
 
+procedure TAdjustForm.FormActivate(Sender: TObject);
+begin
+  txtVibrancy.text := FloatToStr(cp.Vibrancy);
+  txtGamma.text := FloatToStr(cp.Gamma);
+  txtBrightness.text := FloatToStr(cp.Brightness);
+  txtZoom.text := FloatToStr(cp.zoom);
+  txtCenterX.text := FloatToStr(cp.center[0]);
+  txtCentery.text := FloatToStr(cp.center[1]);
+  txtAngle.text := FloatToStr(cp.FAngle * 180 / PI);
+end;
+
 end.