diff options
author | Jean-Marc.Levecque <jmarc.levecque@bbox.fr> | 2015-07-10 22:06:54 +0200 |
---|---|---|
committer | Jean-Marc.Levecque <jmarc.levecque@bbox.fr> | 2015-07-10 22:06:54 +0200 |
commit | 1666378b202710c886d75917736d09a450c6441d (patch) | |
tree | c9628d0a62e9db4506a1198206191ce557a4dbf8 | |
parent | 7261d5c605fca90c1a85e6a84a4fbf0eec7412a7 (diff) | |
download | fpGUI-1666378b202710c886d75917736d09a450c6441d.tar.xz |
Make predefined color values converted first to hexa for conversion precision
Signed-off-by: Jean-Marc.Levecque <jmarc.levecque@bbox.fr>
-rw-r--r-- | examples/gui/colorwheel/frm_main.pas | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/examples/gui/colorwheel/frm_main.pas b/examples/gui/colorwheel/frm_main.pas index 362c0aeb..a7139889 100644 --- a/examples/gui/colorwheel/frm_main.pas +++ b/examples/gui/colorwheel/frm_main.pas @@ -85,7 +85,6 @@ type procedure eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean); procedure eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean); - procedure eHexMouseExit(Sender: TObject); procedure PopulatePaletteColorCombo; procedure cbColorsChange(Sender: TObject); procedure lbColorsChange(Sender: TObject); @@ -353,15 +352,6 @@ begin end; end; -procedure TMainForm.eHexMouseExit(Sender: TObject); -begin - if Length(eHex.Text)= 7 then - begin - ConvertToInt(eHex.Text); - RGBChanging; - end; - end; - procedure TMainForm.PopulatePaletteColorCombo; begin with cbColors do @@ -396,7 +386,6 @@ begin edG.Value := rgb.Green; edB.Value := rgb.Blue; eHex.Text:= Hexa(rgb.Red,rgb.Green,rgb.Blue); - ColorWheel1.SetSelectedColor(c); // This will trigger ColorWheel and ValueBar OnChange event end; procedure TMainForm.AfterCreate; @@ -639,7 +628,6 @@ begin MaxLength:= 7; OnKeyChar:= @eHexKeyChar; OnKeyPress:= @eHexKeyPress; - OnMouseExit := @eHexMouseExit; end; Label7 := TfpgLabel.Create(self); |