pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbColorLib: Fix updating of gradients for AxisColorPickers.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6275 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-24 09:52:51 +00:00
parent 8442c16cfc
commit 4ec910db37
3 changed files with 10 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/mbColorLib/BAxisColorPicker.pas
View File

@ -195,24 +195,19 @@ procedure TBAxisColorPicker.SetBValue(b: integer);
begin
Clamp(b, 0, 255);
if b <> FB then
begin
FB := b;
SetSelectedColor(RGBToColor(FR, FG, FB));
end;
SetSelectedColor(RGBToColor(FR, FG, b));
end;
procedure TBAxisColorPicker.SetGValue(g: integer);
begin
Clamp(g, 0, 255);
FG := g;
SetSelectedColor(RGBtoColor(FR, FG, FB));
SetSelectedColor(RGBtoColor(FR, g, FB));
end;
procedure TBAxisColorPicker.SetRValue(r: integer);
begin
Clamp(r, 0, 255);
FR := r;
SetSelectedColor(RGBtoColor(FR, FG, FB));
SetSelectedColor(RGBtoColor(r, FG, FB));
end;
procedure TBAxisColorPicker.SetSelectedColor(c: TColor);

13
components/mbColorLib/GAxisColorPicker.pas
View File

@ -193,25 +193,20 @@ end;
procedure TGAxisColorPicker.SetBValue(b: integer);
begin
Clamp(b, 0, 255);
FB := b;
SetSelectedColor(RGBToColor(FR, FG, FB));
SetSelectedColor(RGBToColor(FR, FG, b));
end;
procedure TGAxisColorPicker.SetGValue(g: integer);
begin
Clamp(g, 0, 255);
if FG = g then
begin
FG := g;
SetSelectedColor(RGBToColor(FR, FG, FB));
end;
if FG <> g then
SetSelectedColor(RGBToColor(FR, g, FB));
end;
procedure TGAxisColorPicker.SetRValue(r: integer);
begin
Clamp(r, 0, 255);
FR := r;
SetSelectedColor(RGBToColor(FR, FG, FB));
SetSelectedColor(RGBToColor(r, FG, FB));
end;
procedure TGAxisColorPicker.SetSelectedColor(c: TColor);

11
components/mbColorLib/RAxisColorPicker.pas
View File

@ -191,25 +191,20 @@ end;
procedure TRAxisColorPicker.SetBValue(b: integer);
begin
Clamp(b, 0, 255);
FB := b;
SetSelectedColor(RGBtoColor(FR, FG, FB));
SetSelectedColor(RGBtoColor(FR, FG, b));
end;
procedure TRAxisColorPicker.SetGValue(g: integer);
begin
Clamp(g, 0, 255);
FG := g;
SetSelectedColor(RGBtoColor(FR, FG, FB));
SetSelectedColor(RGBtoColor(FR, g, FB));
end;
procedure TRAxisColorPicker.SetRValue(r: integer);
begin
Clamp(r, 0, 255);
if FR <> r then
begin
FR := r;
SetSelectedColor(RGBtoColor(FR, FG, FB));
end;
SetSelectedColor(RGBtoColor(r, FG, FB));
end;
procedure TRAxisColorPicker.SetSelectedColor(c: TColor);