Color setting improvement in colorwheel

Signed-off-by: Jean-Marc.Levecque <jmarc.levecque@bbox.fr>

1 files changed, 11 insertions, 2 deletions

diff --git a/examples/gui/colorwheel/frm_main.pas b/examples/gui/colorwheel/frm_main.pas
index 68e0c36c..d01cedd0 100644
--- a/examples/gui/colorwheel/frm_main.pas
+++ b/examples/gui/colorwheel/frm_main.pas
@@ -77,6 +77,7 @@ type
     procedure   UpdateRGBComponents;
     procedure   ColorChanged(Sender: TObject);
     procedure   RGBChanged(Sender: TObject);
+    procedure   RGBChanging;
     procedure   ConvertToInt(Value: string);
     procedure   eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
     procedure   eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
@@ -240,6 +241,11 @@ begin
 end;
 
 procedure TMainForm.RGBChanged(Sender: TObject);
+begin
+  RGBChanging;
+end;
+
+procedure TMainForm.RGBChanging;
 var
   rgb: TRGBTriple;
   c: TfpgColor;
@@ -337,7 +343,7 @@ begin
   if ((KeyCode= KeyReturn) or (KeyCode= KeyPEnter)) and (Length(eHex.Text)= 7) then
   begin
     ConvertToInt(eHex.Text);
-    RGBChanged(Sender);
+    RGBChanging;
   end;
 end;
 
@@ -346,7 +352,7 @@ begin
   if Length(eHex.Text)= 7 then
   begin
     ConvertToInt(eHex.Text);
-    RGBChanged(Sender);
+    RGBChanging;
   end;
  end;
 
@@ -506,6 +512,7 @@ begin
     MaxValue := 255;
     Value := 255;
     FontDesc := '#Edit1';
+    OnChange := @RGBChanged;
     OnExit  := @RGBChanged;
   end;
 
@@ -519,6 +526,7 @@ begin
     MaxValue := 255;
     Value := 255;
     FontDesc := '#Edit1';
+    OnChange := @RGBChanged;
     OnExit := @RGBChanged;
   end;
 
@@ -532,6 +540,7 @@ begin
     MaxValue := 255;
     Value := 255;
     FontDesc := '#Edit1';
+    OnChange := @RGBChanged;
     OnExit := @RGBChanged;
   end;