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

mbColorLib: Fix DeskPickerButton.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5483 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-14 10:35:17 +00:00
parent 857380bf12
commit 524a3881c6
6 changed files with 45 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/mbColorLib/examples/fulldemo/Demo.lpi
View File

@@ -62,11 +62,6 @@
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>

3
components/mbColorLib/examples/fulldemo/main.lfm
View File

@@ -56,7 +56,7 @@ object Form1: TForm1
Height = 287
Top = 8
Width = 377
SelectedColor = 488198
SelectedColor = 488454
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
LPickerHintFormat = 'Luminance: %l'
Anchors = [akTop, akLeft, akRight, akBottom]
@@ -691,6 +691,7 @@ object Form1: TForm1
TabOrder = 0
OnSelColorChange = mbDeskPickerButton1SelColorChange
ScreenHintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
ShowScreenHint = True
end
object Button3: TButton
Left = 8

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

@@ -211,7 +211,7 @@ end;
procedure TForm1.mbColorPalette1SelColorChange(Sender: TObject);
begin
sc.color := mbcolorpalette1.selectedcolor;
uc.Color := mbColorPalette1.SelectedColor;
end;
procedure TForm1.mbColorPalette1MouseMove(Sender: TObject;
@@ -401,6 +401,7 @@ procedure TForm1.CbShowHintsChange(Sender: TObject);
begin
PageControl1.ShowHint := CbShowHints.Checked;
mbOfficeColorDialog1.UseHints := CbShowHints.Checked;
mbDeskPickerButton1.ShowScreenHint := CbShowHints.Checked;
end;
end.