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

mbColorLib: Redo hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5519 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-16 18:42:32 +00:00
parent f2809fba90
commit 90314c0876
13 changed files with 244 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,10 +9,6 @@
<Title Value="Demo"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<TextName Value="CompanyName.ProductName.AppName"/>
<TextDesc Value="Your application description."/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">

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

@@ -42,9 +42,9 @@ object Form1: TForm1
Height = 384
Top = 6
Width = 403
ActivePage = TabSheet5
ActivePage = TabSheet10
Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 4
TabIndex = 10
TabOrder = 0
OnChange = PageControl1Change
OnMouseMove = PageControl1MouseMove
@@ -57,8 +57,8 @@ object Form1: TForm1
Height = 340
Top = 8
Width = 381
SelectedColor = 273922
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: %hex'
SelectedColor = 2048
HSPickerHintFormat = 'H: %h S: %s'#13'Hex: #%hex'
LPickerHintFormat = 'Luminance: %l'
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0
@@ -87,7 +87,7 @@ object Form1: TForm1
Top = 4
Width = 289
Anchors = [akTop, akLeft, akRight, akBottom]
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: #%hex'
SliderMarker = smRect
IntensityText = 'Intensity'
TabOrder = 0
@@ -480,7 +480,7 @@ object Form1: TForm1
'clBlack'
'clBlack'
)
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: %h'
HintFormat = 'RGB(%r, %g, %b)'#13'Hex: #%hex'
AutoHeight = True
TabOrder = 0
OnSelColorChange = mbColorPalette1SelColorChange
@@ -628,7 +628,6 @@ object Form1: TForm1
Width = 385
HPickerHintFormat = 'Hue: %h (selected)'
SLPickerHintFormat = 'S: %s L: %l'#13'Hex: %hex'
ParentShowHint = False
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0
OnChange = SLHColorPicker1Change
@@ -738,12 +737,13 @@ object Form1: TForm1
Height = 61
Top = 284
Width = 347
HintFormat = 'Hue: %h (selected)'
HintFormat = 'Hue: %h (under mouse)'
Increment = 5
ArrowPlacement = spBoth
SelectionIndicator = siRect
Anchors = [akLeft, akRight, akBottom]
TabOrder = 4
OnGetHintStr = HColorPicker1GetHintStr
Saturation = 120
SelectedColor = 8882175
end
@@ -829,7 +829,7 @@ object Form1: TForm1
OnChange = HSColorPicker1Change
end
object SLColorPicker1: TSLColorPicker
Left = 222
Left = 224
Height = 147
Top = 144
Width = 161
@@ -1006,7 +1006,7 @@ object Form1: TForm1
Height = 100
Top = 28
Width = 100
HintFormat = 'G: %g B: %b'#13'Hex: %hex'
HintFormat = 'G: %g B: %b'#13'Hex: #%hex'
TabOrder = 0
end
object GAxisColorPicker1: TGAxisColorPicker
@@ -1014,7 +1014,7 @@ object Form1: TForm1
Height = 100
Top = 28
Width = 100
HintFormat = 'R: %r B: %b'#13'Hex: %hex'
HintFormat = 'R: %r B: %b'#13'Hex: #%hex'
TabOrder = 1
MarkerStyle = msCross
end
@@ -1023,7 +1023,7 @@ object Form1: TForm1
Height = 100
Top = 28
Width = 100
HintFormat = 'R: %r G: %g'#13'Hex: %hex'
HintFormat = 'R: %r G: %g'#13'Hex: #%hex'
TabOrder = 2
MarkerStyle = msCrossCirc
end
@@ -1033,7 +1033,7 @@ object Form1: TForm1
Top = 164
Width = 100
SelectedColor = 16119089
HintFormat = 'A: %cieA B: %cieB'#13'Hex: %hex'
HintFormat = 'A: %cieA B: %cieB'#13'Hex: #%hex'
TabOrder = 3
LValue = 88
AValue = -47
@@ -1045,7 +1045,7 @@ object Form1: TForm1
Top = 164
Width = 100
SelectedColor = 16515327
HintFormat = 'L: %cieL B: %cieB'#13'Hex: %hex'
HintFormat = 'L: %cieL B: %cieB'#13'Hex: #%hex'
TabOrder = 4
LValue = 60
AValue = 96
@@ -1058,7 +1058,7 @@ object Form1: TForm1
Top = 164
Width = 100
SelectedColor = 130823
HintFormat = 'L: %cieL A: %cieA'#13'Hex: %hex'
HintFormat = 'L: %cieL A: %cieA'#13'Hex: #%hex'
TabOrder = 5
LValue = 88
AValue = -88
@@ -1192,6 +1192,7 @@ object Form1: TForm1
Height = 19
Top = 371
Width = 62
Anchors = [akLeft, akBottom]
Caption = 'Enabled'
Checked = True
OnChange = CbEnabledChange

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

@@ -13,7 +13,7 @@ uses
BColorPicker, GColorPicker, RColorPicker, KColorPicker, YColorPicker,
MColorPicker, CColorPicker, CIEBColorPicker, CIEAColorPicker, Typinfo,
CIELColorPicker, BAxisColorPicker, GAxisColorPicker, RAxisColorPicker,
mbColorTree, mbColorList {for internet shortcuts};
mbColorTree, mbColorList {for internet shortcuts}, mbBasicPicker;
type
@@ -107,6 +107,8 @@ type
CbSwatchStyle: TCheckBox;
procedure CbEnabledChange(Sender: TObject);
procedure CbShowHintsChange(Sender: TObject);
procedure HColorPicker1GetHintStr(Sender: TObject; X, Y: Integer;
var AText: String);
procedure PageControl1Change(Sender: TObject);
procedure PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
@@ -339,6 +341,12 @@ begin
end;
end;
procedure TForm1.HColorPicker1GetHintStr(Sender: TObject; X, Y: Integer;
var AText: String);
begin
AText := FormatHint(HColorPicker1.HintFormat, HColorPicker1.GetColorAtPoint(X, Y));
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
HexaColorPicker1.SliderVisible := checkbox1.Checked;