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

mbColorLib: Refactor OnChange events. (NOTE: OfficeColorDialog may hang when switching pickers).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5578 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-01-02 00:05:26 +00:00
parent 176aff8ff1
commit 454f0baf7b
41 changed files with 1830 additions and 1837 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/mbColorLib/examples/trackbars/main.lfm
View File

@@ -206,8 +206,8 @@ object Form1: TForm1
OnChange = SLVPickerV_Change
Hue = 0
Saturation = 0
Luminance = 240
SelectedColor = 15790320
Luminance = 226
SelectedColor = 14869218
end
object HColorPickerV: THColorPicker
AnchorSideTop.Control = LblH
@@ -518,8 +518,8 @@ object Form1: TForm1
OnChange = SLVPickerH_Change
Hue = 0
Saturation = 0
Luminance = 240
SelectedColor = 15790320
Luminance = 226
SelectedColor = 14869218
end
object SColorPickerH: TSColorPicker
Left = 24

3
components/mbColorLib/examples/trackbars/main.pas
View File

@@ -153,7 +153,6 @@ begin
]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MaxHue := 359;
@@ -181,6 +180,8 @@ end;
procedure TForm1.HPickerH_Change(Sender: TObject);
begin
exit;
SLVPickerH_Change(nil);
SColorPickerH.Hue := HColorPickerH.Hue;
LColorPickerH.Hue := HColorPickerH.Hue;