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

mbColorLib: Set version number to 2.2 for release version.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-01-23 09:58:27 +00:00
parent fa26d4b615
commit 0e59425d39
4 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/mbColorLib/HSLColorPicker.pas
View File

@@ -509,6 +509,9 @@ begin
FHSPicker.RelHue := H; FHSPicker.RelHue := H;
FHSPicker.RelSaturation := S; FHSPicker.RelSaturation := S;
FLVPicker.SelectedColor := Value; FLVPicker.SelectedColor := Value;
FRed := GetRValue(Value);
FGreen := GetGValue(Value);
FBlue := GetBValue(Value);
end; end;
end; end;

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

@@ -3,7 +3,7 @@ object Form1: TForm1
Height = 416 Height = 416
Top = 197 Top = 197
Width = 594 Width = 594
Caption = 'mbColor Lib v2.1 Demo' Caption = 'mbColor Lib v2.2 Demo'
ClientHeight = 416 ClientHeight = 416
ClientWidth = 594 ClientWidth = 594
Font.Color = clWindowText Font.Color = clWindowText
@@ -31,12 +31,10 @@ object Form1: TForm1
Height = 360 Height = 360
Top = 8 Top = 8
Width = 454 Width = 454
SelectedColor = 3552968 Luminance = 128
Saturation = 147
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: #%hex' HSPickerHintFormat = 'H: %h S: %s'#13'Hex: #%hex'
LPickerHintFormat = 'Luminance: %l' LPickerHintFormat = 'Luminance: %l'
VPickerHintFormat = 'Value: %value (selected)' VPickerHintFormat = 'Value: %value (selected)'
MaxLuminance = 255
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0 TabOrder = 0
OnChange = HSLColorPicker1Change OnChange = HSLColorPicker1Change
@@ -498,7 +496,6 @@ object Form1: TForm1
'clBlack' 'clBlack'
) )
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: #%hex' HintFormat = 'RGB(%r, %g, %b)'#13'Hex: #%hex'
AutoHeight = True
TabOrder = 0 TabOrder = 0
OnSelColorChange = mbColorPalette1SelColorChange OnSelColorChange = mbColorPalette1SelColorChange
OnMouseMove = mbColorPalette1MouseMove OnMouseMove = mbColorPalette1MouseMove
@@ -907,13 +904,10 @@ object Form1: TForm1
Height = 155 Height = 155
Top = 6 Top = 6
Width = 211 Width = 211
SelectedColor = 15406357
HintFormat = 'H: %h S: %s'#13'Hex: %hex' HintFormat = 'H: %h S: %s'#13'Hex: %hex'
TabOrder = 0 TabOrder = 0
OnMouseMove = HSColorPicker1MouseMove OnMouseMove = HSColorPicker1MouseMove
Hue = 240
Luminance = 128 Luminance = 128
Saturation = 215
MarkerStyle = msSquare MarkerStyle = msSquare
OnChange = HSColorPicker1Change OnChange = HSColorPicker1Change
end end

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

@@ -336,7 +336,7 @@ begin
WriteString('InternetShortcut','IconFile', '"' + Application.ExeName + '"'); WriteString('InternetShortcut','IconFile', '"' + Application.ExeName + '"');
finally finally
Free; Free;
end; end;
end; end;
procedure TForm1.HColorPicker1GetHintStr(Sender: TObject; X, Y: Integer; procedure TForm1.HColorPicker1GetHintStr(Sender: TObject; X, Y: Integer;

2
components/mbColorLib/mbcolorliblaz.lpk
View File

@@ -14,7 +14,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Comprehensive color selection library with more than 30 components"/> <Description Value="Comprehensive color selection library with more than 30 components"/>
<License Value="License is granted to use, modify and redistribute these units in your applications as you see fit. You are given COMPLETE FREEDOM with the sources found in this pack; you're free to use it in ANY kind of app without even mentioning my name, my site or any other stuff, that depends on your good will and nothing else. I will accept any modifications and incorporate them in this pack if they'll help make it better. You are under NO obligation to pay for these components to neither me nor anyone else trying to sell them in their current form. If you wish to support development of these components you can do so by contributing some source or making a donation, again this solely depends on your good will."/> <License Value="License is granted to use, modify and redistribute these units in your applications as you see fit. You are given COMPLETE FREEDOM with the sources found in this pack; you're free to use it in ANY kind of app without even mentioning my name, my site or any other stuff, that depends on your good will and nothing else. I will accept any modifications and incorporate them in this pack if they'll help make it better. You are under NO obligation to pay for these components to neither me nor anyone else trying to sell them in their current form. If you wish to support development of these components you can do so by contributing some source or making a donation, again this solely depends on your good will."/>
<Version Major="2" Minor="1"/> <Version Major="2" Minor="2"/>
<Files Count="46"> <Files Count="46">
<Item1> <Item1>
<Filename Value="PalUtils.pas"/> <Filename Value="PalUtils.pas"/>