You've already forked lazarus-ccr
mbColorLib: Move Demo to folder "examples" (renamed as "fulldemo"). Add another example "trackbars".
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5463 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
85
components/mbColorLib/examples/fulldemo/Demo.lpi
Normal file
85
components/mbColorLib/examples/fulldemo/Demo.lpi
Normal file
@@ -0,0 +1,85 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<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">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="mbColorLibLaz"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Unit0>
|
||||
<Filename Value="Demo.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="Demo"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseExternalDbgSyms Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
17
components/mbColorLib/examples/fulldemo/Demo.lpr
Normal file
17
components/mbColorLib/examples/fulldemo/Demo.lpr
Normal file
@@ -0,0 +1,17 @@
|
||||
program Demo;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms,
|
||||
main in 'main.pas' {Form1};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
BIN
components/mbColorLib/examples/fulldemo/clr.ico
Normal file
BIN
components/mbColorLib/examples/fulldemo/clr.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.2 KiB |
1181
components/mbColorLib/examples/fulldemo/main.lfm
Normal file
1181
components/mbColorLib/examples/fulldemo/main.lfm
Normal file
File diff suppressed because it is too large
Load Diff
398
components/mbColorLib/examples/fulldemo/main.pas
Normal file
398
components/mbColorLib/examples/fulldemo/main.pas
Normal file
@@ -0,0 +1,398 @@
|
||||
unit main;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
LCLIntf, LCLType, LMessages, SysUtils, Variants,Classes, Graphics, Controls,
|
||||
Forms, Dialogs, HSLColorPicker, ComCtrls, StdCtrls, mbColorPreview,
|
||||
HexaColorPicker, mbColorPalette, HSLRingPicker, HSVColorPicker, PalUtils,
|
||||
SLHColorPicker, mbDeskPickerButton, mbOfficeColorDialog, SColorPicker,
|
||||
HColorPicker, VColorPicker, mbTrackBarPicker, LColorPicker, HRingPicker,
|
||||
SLColorPicker, HSColorPicker, IniFiles, mbColorPickerControl,
|
||||
BColorPicker, GColorPicker, RColorPicker, KColorPicker, YColorPicker,
|
||||
MColorPicker, CColorPicker, CIEBColorPicker, CIEAColorPicker, Typinfo,
|
||||
CIELColorPicker, BAxisColorPicker, GAxisColorPicker, RAxisColorPicker,
|
||||
mbColorTree, mbColorList {for internet shortcuts};
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
Label10: TLabel;
|
||||
Label11: TLabel;
|
||||
Label12: TLabel;
|
||||
Label13: TLabel;
|
||||
Label14: TLabel;
|
||||
Label15: TLabel;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
TabSheet3: TTabSheet;
|
||||
TabSheet4: TTabSheet;
|
||||
HSLColorPicker1: THSLColorPicker;
|
||||
sc: TmbColorPreview;
|
||||
uc: TmbColorPreview;
|
||||
Label1: TLabel;
|
||||
tb1: TTrackBar;
|
||||
tb2: TTrackBar;
|
||||
Label2: TLabel;
|
||||
HexaColorPicker1: THexaColorPicker;
|
||||
mbColorPalette1: TmbColorPalette;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
HSLRingPicker1: THSLRingPicker;
|
||||
TabSheet5: TTabSheet;
|
||||
TabSheet6: TTabSheet;
|
||||
HSVColorPicker1: THSVColorPicker;
|
||||
SLHColorPicker1: TSLHColorPicker;
|
||||
TabSheet7: TTabSheet;
|
||||
TabSheet8: TTabSheet;
|
||||
mbDeskPickerButton1: TmbDeskPickerButton;
|
||||
mbOfficeColorDialog1: TmbOfficeColorDialog;
|
||||
Button3: TButton;
|
||||
LColorPicker1: TLColorPicker;
|
||||
VColorPicker1: TVColorPicker;
|
||||
HColorPicker1: THColorPicker;
|
||||
SColorPicker1: TSColorPicker;
|
||||
HSColorPicker1: THSColorPicker;
|
||||
SLColorPicker1: TSLColorPicker;
|
||||
HRingPicker1: THRingPicker;
|
||||
VColorPicker2: TVColorPicker;
|
||||
CheckBox1: TCheckBox;
|
||||
ComboBox1: TComboBox;
|
||||
Label4: TLabel;
|
||||
CheckBox2: TCheckBox;
|
||||
Label5: TLabel;
|
||||
Button4: TButton;
|
||||
OpenDialog1: TOpenDialog;
|
||||
ScrollBox1: TScrollBox;
|
||||
Label3: TLabel;
|
||||
ComboBox2: TComboBox;
|
||||
ComboBox3: TComboBox;
|
||||
Label6: TLabel;
|
||||
ComboBox4: TComboBox;
|
||||
Label7: TLabel;
|
||||
UpDown1: TUpDown;
|
||||
TabSheet9: TTabSheet;
|
||||
CColorPicker1: TCColorPicker;
|
||||
MColorPicker1: TMColorPicker;
|
||||
YColorPicker1: TYColorPicker;
|
||||
KColorPicker1: TKColorPicker;
|
||||
Label8: TLabel;
|
||||
RColorPicker1: TRColorPicker;
|
||||
GColorPicker1: TGColorPicker;
|
||||
BColorPicker1: TBColorPicker;
|
||||
KColorPicker2: TKColorPicker;
|
||||
MColorPicker2: TMColorPicker;
|
||||
CColorPicker2: TCColorPicker;
|
||||
YColorPicker2: TYColorPicker;
|
||||
TabSheet10: TTabSheet;
|
||||
RAxisColorPicker1: TRAxisColorPicker;
|
||||
GAxisColorPicker1: TGAxisColorPicker;
|
||||
BAxisColorPicker1: TBAxisColorPicker;
|
||||
CIELColorPicker1: TCIELColorPicker;
|
||||
CIEAColorPicker1: TCIEAColorPicker;
|
||||
CIEBColorPicker1: TCIEBColorPicker;
|
||||
CheckBox3: TCheckBox;
|
||||
TabSheet11: TTabSheet;
|
||||
mbColorList1: TmbColorList;
|
||||
mbColorTree1: TmbColorTree;
|
||||
Button5: TButton;
|
||||
Memo1: TMemo;
|
||||
Label9: TLabel;
|
||||
CheckBox4: TCheckBox;
|
||||
procedure PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure tb1Change(Sender: TObject);
|
||||
procedure tb2Change(Sender: TObject);
|
||||
procedure HSLColorPicker1Change(Sender: TObject);
|
||||
procedure HSLColorPicker1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure HexaColorPicker1Change(Sender: TObject);
|
||||
procedure HexaColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure mbColorPalette1SelColorChange(Sender: TObject);
|
||||
procedure mbColorPalette1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure HSLRingPicker1Change(Sender: TObject);
|
||||
procedure HSLRingPicker1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure HSVColorPicker1Change(Sender: TObject);
|
||||
procedure HSVColorPicker1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure SLHColorPicker1Change(Sender: TObject);
|
||||
procedure SLHColorPicker1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure mbDeskPickerButton1SelColorChange(Sender: TObject);
|
||||
procedure Button3Click(Sender: TObject);
|
||||
procedure HSColorPicker1Change(Sender: TObject);
|
||||
procedure HSColorPicker1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure SLColorPicker1Change(Sender: TObject);
|
||||
procedure SLColorPicker1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
procedure HRingPicker1Change(Sender: TObject);
|
||||
procedure HRingPicker1MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure VColorPicker2Change(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
procedure ComboBox1Change(Sender: TObject);
|
||||
procedure CheckBox2Click(Sender: TObject);
|
||||
procedure Button4Click(Sender: TObject);
|
||||
procedure ComboBox2Change(Sender: TObject);
|
||||
procedure ComboBox3Change(Sender: TObject);
|
||||
procedure ComboBox4Change(Sender: TObject);
|
||||
procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
|
||||
procedure CheckBox3Click(Sender: TObject);
|
||||
procedure Button5Click(Sender: TObject);
|
||||
procedure CheckBox4Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
{$R mxico.res} //MXS icon resource file, for internet shortcut only
|
||||
|
||||
procedure TForm1.tb1Change(Sender: TObject);
|
||||
begin
|
||||
sc.opacity := tb1.position;
|
||||
end;
|
||||
|
||||
procedure TForm1.tb2Change(Sender: TObject);
|
||||
begin
|
||||
uc.opacity := tb2.position;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSLColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := HSLColorPicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSLColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := HSLColorPicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HexaColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := hexacolorpicker1.selectedcolor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HexaColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := hexacolorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
begin
|
||||
mbColorPalette1.GeneratePalette(clblue);
|
||||
end;
|
||||
|
||||
procedure TForm1.Button2Click(Sender: TObject);
|
||||
begin
|
||||
mbColorpalette1.GenerateGradientPalette([clblue, clred]);
|
||||
end;
|
||||
|
||||
procedure TForm1.mbColorPalette1SelColorChange(Sender: TObject);
|
||||
begin
|
||||
sc.color := mbcolorpalette1.selectedcolor;
|
||||
end;
|
||||
|
||||
procedure TForm1.mbColorPalette1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := mbcolorpalette1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSLRingPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := HSLRingPicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSLRingPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := HSLRingPicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSVColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := HSVColorPicker1.SelectedColor;
|
||||
VColorPicker2.Saturation := HSVColorPicker1.Saturation;
|
||||
VColorPicker2.Hue := HSVColorPicker1.Hue;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSVColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.Color := HSVColorPicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.SLHColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := SLHColorPicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.SLHColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := SLHColorPicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.mbDeskPickerButton1SelColorChange(Sender: TObject);
|
||||
begin
|
||||
sc.color := mbDeskPickerButton1.SelectedColor;
|
||||
uc.color := mbDeskPickerButton1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
begin
|
||||
uc.color := HSLColorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button3Click(Sender: TObject);
|
||||
begin
|
||||
if mbOfficeColorDialog1.Execute then
|
||||
sc.color := mbOfficeColorDialog1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := HSColorPicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HSColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := HSColorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.SLColorPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := SLColorPicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.SLColorPicker1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
uc.color := slcolorpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HRingPicker1Change(Sender: TObject);
|
||||
begin
|
||||
sc.color := hringpicker1.SelectedColor;
|
||||
end;
|
||||
|
||||
procedure TForm1.HRingPicker1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
begin
|
||||
uc.color := hringpicker1.ColorUnderCursor;
|
||||
end;
|
||||
|
||||
procedure TForm1.VColorPicker2Change(Sender: TObject);
|
||||
begin
|
||||
HSVColorPicker1.Value := VColorPicker2.Value;
|
||||
end;
|
||||
|
||||
// only for internet shortcuts
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
with TIniFile.Create(ExtractFilePath(Application.ExeName) + '\MXS Website.url') do
|
||||
try
|
||||
WriteString('InternetShortcut','URL', 'http://mxs.bergsoft.net');
|
||||
WriteInteger('InternetShortcut','IconIndex', 1);
|
||||
WriteString('InternetShortcut','IconFile', '"' + Application.ExeName + '"');
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
HexaColorPicker1.SliderVisible := checkbox1.Checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.ComboBox1Change(Sender: TObject);
|
||||
begin
|
||||
hexacolorpicker1.SliderMarker := TMArker(ComboBox1.ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox2Click(Sender: TObject);
|
||||
begin
|
||||
hexacolorpicker1.NewArrowStyle := checkbox2.checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button4Click(Sender: TObject);
|
||||
begin
|
||||
if opendialog1.Execute then
|
||||
mbcolorpalette1.Palette := opendialog1.FileName;
|
||||
end;
|
||||
|
||||
procedure TForm1.ComboBox2Change(Sender: TObject);
|
||||
begin
|
||||
mbcolorpalette1.SortOrder := tsortorder(combobox2.itemindex);
|
||||
end;
|
||||
|
||||
procedure TForm1.ComboBox3Change(Sender: TObject);
|
||||
begin
|
||||
mbcolorpalette1.Sortmode := tsortmode(combobox3.ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TForm1.ComboBox4Change(Sender: TObject);
|
||||
begin
|
||||
mbcolorpalette1.CellStyle := tcellstyle(combobox4.ItemIndex);
|
||||
end;
|
||||
|
||||
procedure TForm1.UpDown1Changing(Sender: TObject;
|
||||
var AllowChange: Boolean);
|
||||
begin
|
||||
allowchange := true;
|
||||
mbcolorpalette1.CellSize := abs(updown1.Position);
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox3Click(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
for i := 0 to ComponentCount - 1 do
|
||||
if IsPublishedProp(components[i], 'WebSafe') = true then
|
||||
SetOrdProp(components[i], 'WebSafe', integer(checkbox3.checked));
|
||||
end;
|
||||
|
||||
procedure TForm1.Button5Click(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
mbcolortree1.ClearColors;
|
||||
mbcolorlist1.ClearColors;
|
||||
for i := 0 to mbcolorpalette1.Colors.Count - 1 do
|
||||
begin
|
||||
mbcolortree1.AddColor('Color '+inttostr(i), StringtoColor(mbcolorpalette1.colors.Strings[i]), false);
|
||||
mbcolorlist1.AddColor('Color '+inttostr(i), StringtoColor(mbcolorpalette1.colors.Strings[i]), false);
|
||||
end;
|
||||
mbcolortree1.UpdateColors;
|
||||
mbcolorlist1.UpdateColors;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox4Click(Sender: TObject);
|
||||
begin
|
||||
sc.swatchstyle := checkbox4.Checked;
|
||||
uc.swatchstyle := checkbox4.checked;
|
||||
end;
|
||||
|
||||
end.
|
||||
BIN
components/mbColorLib/examples/fulldemo/mxico.res
Normal file
BIN
components/mbColorLib/examples/fulldemo/mxico.res
Normal file
Binary file not shown.
BIN
components/mbColorLib/examples/trackbars/Demo.ico
Normal file
BIN
components/mbColorLib/examples/trackbars/Demo.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
85
components/mbColorLib/examples/trackbars/Demo.lpi
Normal file
85
components/mbColorLib/examples/trackbars/Demo.lpi
Normal file
@@ -0,0 +1,85 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<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">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="mbColorLibLaz"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Unit0>
|
||||
<Filename Value="Demo.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="Demo"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseExternalDbgSyms Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
21
components/mbColorLib/examples/trackbars/Demo.lpr
Normal file
21
components/mbColorLib/examples/trackbars/Demo.lpr
Normal file
@@ -0,0 +1,21 @@
|
||||
program Demo;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, main
|
||||
{ you can add units after this };
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
606
components/mbColorLib/examples/trackbars/main.lfm
Normal file
606
components/mbColorLib/examples/trackbars/main.lfm
Normal file
@@ -0,0 +1,606 @@
|
||||
object Form1: TForm1
|
||||
Left = 280
|
||||
Height = 429
|
||||
Top = 130
|
||||
Width = 400
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 429
|
||||
ClientWidth = 400
|
||||
OnCreate = FormCreate
|
||||
ShowHint = True
|
||||
LCLVersion = '1.7'
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 429
|
||||
Top = 0
|
||||
Width = 400
|
||||
ActivePage = tabHorizontal
|
||||
Align = alClient
|
||||
Anchors = [akTop, akRight]
|
||||
TabIndex = 1
|
||||
TabOrder = 0
|
||||
object tabVertical: TTabSheet
|
||||
Caption = 'vertical'
|
||||
ClientHeight = 401
|
||||
ClientWidth = 392
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 401
|
||||
Top = 0
|
||||
Width = 392
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 401
|
||||
ClientWidth = 392
|
||||
Color = clForm
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object HSLVv: TmbColorPreview
|
||||
Left = 286
|
||||
Height = 60
|
||||
Top = 329
|
||||
Width = 73
|
||||
Anchors = [akLeft, akBottom]
|
||||
end
|
||||
object Bevel4: TBevel
|
||||
Left = 264
|
||||
Height = 469
|
||||
Top = 8
|
||||
Width = 8
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Shape = bsLeftLine
|
||||
end
|
||||
object CMYKv: TmbColorPreview
|
||||
Left = 136
|
||||
Height = 60
|
||||
Top = 329
|
||||
Width = 107
|
||||
Anchors = [akLeft, akBottom]
|
||||
end
|
||||
object Bevel3: TBevel
|
||||
Left = 112
|
||||
Height = 469
|
||||
Top = 8
|
||||
Width = 8
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Shape = bsLeftLine
|
||||
end
|
||||
object RGBv: TmbColorPreview
|
||||
Left = 12
|
||||
Height = 60
|
||||
Top = 329
|
||||
Width = 75
|
||||
Anchors = [akLeft, akBottom]
|
||||
end
|
||||
object rbHSVv: TRadioButton
|
||||
Left = 328
|
||||
Height = 19
|
||||
Top = 305
|
||||
Width = 42
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'HSV'
|
||||
OnChange = rbHSLv_Change
|
||||
TabOrder = 3
|
||||
end
|
||||
object rbHSLv: TRadioButton
|
||||
Left = 280
|
||||
Height = 19
|
||||
Top = 305
|
||||
Width = 41
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'HSL'
|
||||
Checked = True
|
||||
OnChange = rbHSLv_Change
|
||||
TabOrder = 4
|
||||
TabStop = True
|
||||
end
|
||||
object lblLVv: TLabel
|
||||
Left = 352
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 6
|
||||
Caption = 'L'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 320
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 6
|
||||
Caption = 'S'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 288
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 9
|
||||
Caption = 'H'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 232
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 7
|
||||
Caption = 'K'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 7
|
||||
Caption = 'Y'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 168
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 11
|
||||
Caption = 'M'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 136
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 8
|
||||
Caption = 'C'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 77
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 7
|
||||
Caption = 'B'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 45
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 8
|
||||
Caption = 'G'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 13
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 7
|
||||
Caption = 'R'
|
||||
ParentColor = False
|
||||
end
|
||||
object VColorPickerV: TVColorPicker
|
||||
Left = 368
|
||||
Height = 278
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Value: %value'
|
||||
Layout = lyVertical
|
||||
Visible = False
|
||||
TabOrder = 5
|
||||
OnChange = SLVPickerV_Change
|
||||
SelectedColor = clWhite
|
||||
end
|
||||
object LColorPickerV: TLColorPicker
|
||||
Left = 350
|
||||
Height = 278
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Luminance: %value'
|
||||
Layout = lyVertical
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 6
|
||||
OnChange = SLVPickerV_Change
|
||||
Saturation = 255
|
||||
Luminance = 127
|
||||
SelectedColor = 254
|
||||
end
|
||||
object HColorPickerV: THColorPicker
|
||||
Left = 288
|
||||
Height = 278
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Hue: %value'
|
||||
Layout = lyVertical
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 7
|
||||
OnChange = HPickerV_Change
|
||||
end
|
||||
object KColorPickerV: TKColorPicker
|
||||
Left = 232
|
||||
Height = 296
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Black: %value'
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 8
|
||||
OnChange = CMYKPickerV_Change
|
||||
Cyan = 0
|
||||
Black = 255
|
||||
SelectedColor = clBlack
|
||||
end
|
||||
object YColorPickerV: TYColorPicker
|
||||
Left = 200
|
||||
Height = 296
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Yellow: %value'
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 9
|
||||
OnChange = CMYKPickerV_Change
|
||||
SelectedColor = clYellow
|
||||
end
|
||||
object MColorPickerV: TMColorPicker
|
||||
Left = 168
|
||||
Height = 296
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Magenta: %value'
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 10
|
||||
OnChange = CMYKPickerV_Change
|
||||
SelectedColor = clFuchsia
|
||||
end
|
||||
object CColorPickerV: TCColorPicker
|
||||
Left = 136
|
||||
Height = 296
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Cyan: %value'
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 11
|
||||
OnChange = CMYKPickerV_Change
|
||||
SelectedColor = clAqua
|
||||
end
|
||||
object RColorPickerV: TRColorPicker
|
||||
Left = 12
|
||||
Height = 296
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Red: %value'
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 12
|
||||
OnChange = RGBPickerV_Change
|
||||
Green = 0
|
||||
Blue = 0
|
||||
end
|
||||
object GColorPickerV: TGColorPicker
|
||||
Left = 45
|
||||
Height = 296
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Green: %value'
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 13
|
||||
OnChange = RGBPickerV_Change
|
||||
Red = 0
|
||||
Blue = 0
|
||||
SelectedColor = clLime
|
||||
end
|
||||
object BColorPickerV: TBColorPicker
|
||||
Left = 76
|
||||
Height = 296
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Blue: %value'
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 14
|
||||
OnChange = RGBPickerV_Change
|
||||
Red = 0
|
||||
Green = 0
|
||||
SelectedColor = clBlue
|
||||
end
|
||||
object SColorPickerV: TSColorPicker
|
||||
Left = 318
|
||||
Height = 278
|
||||
Top = 24
|
||||
Width = 22
|
||||
HintFormat = 'Saturation: %value'
|
||||
Layout = lyVertical
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
TabOrder = 15
|
||||
OnChange = SLVPickerV_Change
|
||||
end
|
||||
end
|
||||
end
|
||||
object tabHorizontal: TTabSheet
|
||||
Caption = 'horizontal'
|
||||
ClientHeight = 401
|
||||
ClientWidth = 392
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Height = 401
|
||||
Top = 0
|
||||
Width = 392
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 401
|
||||
ClientWidth = 392
|
||||
Color = clForm
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object Bevel1: TBevel
|
||||
Left = 1
|
||||
Height = 11
|
||||
Top = 114
|
||||
Width = 386
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
Left = -1
|
||||
Height = 11
|
||||
Top = 256
|
||||
Width = 386
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object rbHSVh: TRadioButton
|
||||
Left = 72
|
||||
Height = 19
|
||||
Top = 376
|
||||
Width = 42
|
||||
Caption = 'HSV'
|
||||
OnChange = rbHSLh_Change
|
||||
TabOrder = 0
|
||||
end
|
||||
object rbHSLh: TRadioButton
|
||||
Left = 24
|
||||
Height = 19
|
||||
Top = 376
|
||||
Width = 41
|
||||
Caption = 'HSL'
|
||||
Checked = True
|
||||
OnChange = rbHSLh_Change
|
||||
TabOrder = 1
|
||||
TabStop = True
|
||||
end
|
||||
object HSLVh: TmbColorPreview
|
||||
Left = 329
|
||||
Height = 86
|
||||
Top = 282
|
||||
Width = 46
|
||||
Anchors = [akTop, akRight]
|
||||
end
|
||||
object CMYKh: TmbColorPreview
|
||||
Left = 329
|
||||
Height = 110
|
||||
Top = 128
|
||||
Width = 46
|
||||
Anchors = [akTop, akRight]
|
||||
end
|
||||
object RGBh: TmbColorPreview
|
||||
Left = 329
|
||||
Height = 77
|
||||
Top = 16
|
||||
Width = 46
|
||||
Anchors = [akTop, akRight]
|
||||
end
|
||||
object lblLVh: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 346
|
||||
Width = 6
|
||||
Caption = 'L'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label20: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 314
|
||||
Width = 6
|
||||
Caption = 'S'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label19: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 282
|
||||
Width = 9
|
||||
Caption = 'H'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label18: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 224
|
||||
Width = 7
|
||||
Caption = 'K'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label17: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 160
|
||||
Width = 11
|
||||
Caption = 'M'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 7
|
||||
Height = 15
|
||||
Top = 192
|
||||
Width = 7
|
||||
Caption = 'Y'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 128
|
||||
Width = 8
|
||||
Caption = 'C'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label14: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 81
|
||||
Width = 7
|
||||
Caption = 'B'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 44
|
||||
Width = 8
|
||||
Caption = 'G'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 15
|
||||
Width = 7
|
||||
Caption = 'R'
|
||||
ParentColor = False
|
||||
end
|
||||
object VColorPickerH: TVColorPicker
|
||||
Left = 128
|
||||
Height = 22
|
||||
Top = 373
|
||||
Width = 224
|
||||
BevelInner = bvLowered
|
||||
HintFormat = 'Value: %value'
|
||||
Visible = False
|
||||
TabOrder = 5
|
||||
OnChange = SLVPickerH_Change
|
||||
SelectedColor = clWhite
|
||||
end
|
||||
object LColorPickerH: TLColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 344
|
||||
Width = 301
|
||||
BevelInner = bvLowered
|
||||
HintFormat = 'Luminance: %value'
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 6
|
||||
OnChange = SLVPickerH_Change
|
||||
Saturation = 255
|
||||
Luminance = 127
|
||||
SelectedColor = 254
|
||||
end
|
||||
object SColorPickerH: TSColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 312
|
||||
Width = 301
|
||||
BevelOuter = bvLowered
|
||||
HintFormat = 'Saturation: %value'
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 7
|
||||
OnChange = SLVPickerH_Change
|
||||
end
|
||||
object HColorPickerH: THColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 282
|
||||
Width = 301
|
||||
BevelOuter = bvLowered
|
||||
HintFormat = 'Hue: %value'
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 8
|
||||
OnChange = HPickerH_Change
|
||||
end
|
||||
object KColorPickerH: TKColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 224
|
||||
Width = 301
|
||||
HintFormat = 'Black: %value'
|
||||
Layout = lyHorizontal
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 9
|
||||
OnChange = CMYKPickerH_Change
|
||||
Cyan = 0
|
||||
Black = 255
|
||||
SelectedColor = clBlack
|
||||
end
|
||||
object MColorPickerH: TMColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 160
|
||||
Width = 301
|
||||
HintFormat = 'Magenta: %value'
|
||||
Layout = lyHorizontal
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 10
|
||||
OnChange = CMYKPickerH_Change
|
||||
SelectedColor = clFuchsia
|
||||
end
|
||||
object YColorPickerH: TYColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 192
|
||||
Width = 301
|
||||
HintFormat = 'Yellow: %value'
|
||||
Layout = lyHorizontal
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 11
|
||||
OnChange = CMYKPickerH_Change
|
||||
SelectedColor = clYellow
|
||||
end
|
||||
object CColorPickerH: TCColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 128
|
||||
Width = 301
|
||||
HintFormat = 'Cyan: %value'
|
||||
Layout = lyHorizontal
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 12
|
||||
OnChange = CMYKPickerH_Change
|
||||
SelectedColor = clAqua
|
||||
end
|
||||
object BColorPickerH: TBColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 80
|
||||
Width = 301
|
||||
HintFormat = 'Blue: %value'
|
||||
Layout = lyHorizontal
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 13
|
||||
OnChange = RGBPickerH_Change
|
||||
Red = 0
|
||||
Green = 0
|
||||
SelectedColor = clBlue
|
||||
end
|
||||
object GColorPickerH: TGColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 48
|
||||
Width = 301
|
||||
HintFormat = 'Green: %value'
|
||||
Layout = lyHorizontal
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 14
|
||||
OnChange = RGBPickerH_Change
|
||||
Red = 0
|
||||
Blue = 0
|
||||
SelectedColor = clLime
|
||||
end
|
||||
object RColorPickerH: TRColorPicker
|
||||
Left = 24
|
||||
Height = 22
|
||||
Top = 16
|
||||
Width = 301
|
||||
HintFormat = 'Red: %value'
|
||||
Layout = lyHorizontal
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 15
|
||||
OnChange = RGBPickerH_Change
|
||||
Green = 0
|
||||
Blue = 0
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
332
components/mbColorLib/examples/trackbars/main.pas
Normal file
332
components/mbColorLib/examples/trackbars/main.pas
Normal file
@@ -0,0 +1,332 @@
|
||||
unit main;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
|
||||
StdCtrls, ExtCtrls, BColorPicker, GColorPicker, RColorPicker, CColorPicker,
|
||||
YColorPicker, MColorPicker, KColorPicker, HColorPicker, SColorPicker,
|
||||
LColorPicker, VColorPicker, mbColorPreview;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
BColorPickerV: TBColorPicker;
|
||||
BColorPickerH: TBColorPicker;
|
||||
Bevel1: TBevel;
|
||||
Bevel2: TBevel;
|
||||
Bevel3: TBevel;
|
||||
Bevel4: TBevel;
|
||||
CColorPickerH: TCColorPicker;
|
||||
CColorPickerV: TCColorPicker;
|
||||
GColorPickerV: TGColorPicker;
|
||||
GColorPickerH: TGColorPicker;
|
||||
HColorPickerH: THColorPicker;
|
||||
HColorPickerV: THColorPicker;
|
||||
KColorPickerH: TKColorPicker;
|
||||
KColorPickerV: TKColorPicker;
|
||||
Label1: TLabel;
|
||||
lblLVv: TLabel;
|
||||
Label12: TLabel;
|
||||
Label13: TLabel;
|
||||
Label14: TLabel;
|
||||
Label15: TLabel;
|
||||
Label16: TLabel;
|
||||
Label17: TLabel;
|
||||
Label18: TLabel;
|
||||
Label19: TLabel;
|
||||
Label2: TLabel;
|
||||
Label20: TLabel;
|
||||
lblLVh: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
LColorPickerH: TLColorPicker;
|
||||
LColorPickerV: TLColorPicker;
|
||||
CMYKh: TmbColorPreview;
|
||||
HSLVh: TmbColorPreview;
|
||||
Panel1: TPanel;
|
||||
Panel2: TPanel;
|
||||
RGBv: TmbColorPreview;
|
||||
CMYKv: TmbColorPreview;
|
||||
HSLVv: TmbColorPreview;
|
||||
rbHSLv: TRadioButton;
|
||||
rbHSVv: TRadioButton;
|
||||
rbHSVh: TRadioButton;
|
||||
rbHSLh: TRadioButton;
|
||||
RGBh: TmbColorPreview;
|
||||
MColorPickerH: TMColorPicker;
|
||||
MColorPickerV: TMColorPicker;
|
||||
PageControl1: TPageControl;
|
||||
RColorPickerV: TRColorPicker;
|
||||
RColorPickerH: TRColorPicker;
|
||||
SColorPickerH: TSColorPicker;
|
||||
SColorPickerV: TSColorPicker;
|
||||
tabVertical: TTabSheet;
|
||||
tabHorizontal: TTabSheet;
|
||||
VColorPickerH: TVColorPicker;
|
||||
VColorPickerV: TVColorPicker;
|
||||
YColorPickerH: TYColorPicker;
|
||||
YColorPickerV: TYColorPicker;
|
||||
procedure CMYKPickerV_Change(Sender: TObject);
|
||||
procedure CMYKPickerH_Change(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure HPickerH_Change(Sender: TObject);
|
||||
procedure HPickerV_Change(Sender: TObject);
|
||||
procedure rbHSLv_Change(Sender: TObject);
|
||||
procedure rbHSLh_Change(Sender: TObject);
|
||||
procedure RGBPickerH_Change(Sender: TObject);
|
||||
procedure RGBPickerV_Change(Sender: TObject);
|
||||
procedure SLVPickerH_Change(Sender: TObject);
|
||||
procedure SLVPickerV_Change(Sender: TObject);
|
||||
private
|
||||
|
||||
public
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
uses
|
||||
LCLType, LCLIntf, ScanLines, RGBCMYKUtils, RGBHSLUtils, RGBHSVUtils;
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.CMYKPickerH_Change(Sender: TObject);
|
||||
var
|
||||
c: TColor;
|
||||
begin
|
||||
if (CColorPickerH = nil) or (YColorPickerH = nil) or (MColorPickerH = nil) or
|
||||
(KColorPickerH = nil) or (CMYKh = nil) then
|
||||
exit;
|
||||
CMYKh.Color := CMYKToTColor(
|
||||
CColorPickerH.Cyan,
|
||||
MColorPickerH.Magenta,
|
||||
YColorPickerH.Yellow,
|
||||
KColorPickerH.Black
|
||||
);
|
||||
|
||||
c := CMYKh.Color;
|
||||
CMYKh.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 +
|
||||
'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 +
|
||||
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
|
||||
GetRValue(c), GetGValue(c), GetBValue(c),
|
||||
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
|
||||
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c)
|
||||
]);
|
||||
end;
|
||||
|
||||
procedure TForm1.CMYKPickerV_Change(Sender: TObject);
|
||||
var
|
||||
c: TColor;
|
||||
begin
|
||||
if (CColorPickerV = nil) or (YColorPickerV = nil) or (MColorPickerV = nil) or
|
||||
(KColorPickerV = nil) or (CMYKv = nil) then
|
||||
exit;
|
||||
CMYKv.Color := CMYKToTColor(
|
||||
CColorPickerV.Cyan,
|
||||
MColorPickerV.Magenta,
|
||||
YColorPickerV.Yellow,
|
||||
KColorPickerV.Black
|
||||
);
|
||||
|
||||
c := CMYKv.Color;
|
||||
CMYKv.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 +
|
||||
'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 +
|
||||
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
|
||||
GetRValue(c), GetGValue(c), GetBValue(c),
|
||||
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
|
||||
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c)
|
||||
]);
|
||||
end;
|
||||
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
VColorPickerH.Left := LColorPickerH.Left;
|
||||
VColorPickerH.Top := LColorPickerH.Top;
|
||||
VColorPickerH.Width := LColorPickerH.Width;
|
||||
VColorPickerH.Anchors := [akLeft, akTop, akRight];
|
||||
|
||||
VColorPickerV.Left := LColorPickerV.Left;
|
||||
VColorPickerV.Top := LColorPickerV.Top;
|
||||
VColorPickerV.Height := LColorPickerV.Height;
|
||||
VColorPickerV.Anchors := [akLeft, akTop, akBottom];
|
||||
|
||||
RGBPickerH_Change(nil);
|
||||
CMYKPickerH_Change(nil);
|
||||
SLVPickerH_Change(nil);
|
||||
|
||||
RGBPickerV_Change(nil);
|
||||
CMYKPickerV_Change(nil);
|
||||
SLVPickerV_Change(nil);
|
||||
end;
|
||||
|
||||
procedure TForm1.HPickerH_Change(Sender: TObject);
|
||||
begin
|
||||
SLVPickerH_Change(nil);
|
||||
SColorPickerH.Hue := HColorPickerH.Hue;
|
||||
LColorPickerH.Hue := HColorPickerH.Hue;
|
||||
VColorPickerH.Hue := HColorPickerH.Hue;
|
||||
end;
|
||||
|
||||
procedure TForm1.HPickerV_Change(Sender: TObject);
|
||||
begin
|
||||
SLVPickerV_Change(nil);
|
||||
SColorPickerV.Hue := HColorPickerV.Hue;
|
||||
LColorPickerV.Hue := HColorPickerV.Hue;
|
||||
VColorPickerV.Hue := HColorPickerV.Hue;
|
||||
end;
|
||||
|
||||
procedure TForm1.rbHSLv_Change(Sender: TObject);
|
||||
begin
|
||||
if rbHSLv.Checked then
|
||||
begin
|
||||
lblLVv.Caption := 'L';
|
||||
VColorPickerV.Visible := false;
|
||||
LColorPickerV.Visible := true;
|
||||
end;
|
||||
if rbHSVv.Checked then
|
||||
begin
|
||||
lblLVv.Caption := 'V';
|
||||
LColorPickerV.Visible := false;
|
||||
VColorPickerV.Visible := true;
|
||||
end;
|
||||
HPickerV_Change(nil);
|
||||
end;
|
||||
|
||||
procedure TForm1.rbHSLh_Change(Sender: TObject);
|
||||
begin
|
||||
if rbHSLh.Checked then
|
||||
begin
|
||||
lblLVh.Caption := 'L';
|
||||
VColorPickerH.Visible := false;
|
||||
LColorPickerH.Visible := true;
|
||||
end;
|
||||
if rbHSVh.Checked then
|
||||
begin
|
||||
lblLVh.Caption := 'V';
|
||||
lColorPickerH.Visible := false;
|
||||
VColorPickerH.Visible := true;
|
||||
end;
|
||||
HPickerH_Change(nil);
|
||||
end;
|
||||
|
||||
procedure TForm1.RGBPickerH_Change(Sender: TObject);
|
||||
var
|
||||
c: TColor;
|
||||
begin
|
||||
if (RColorPickerH = nil) or (GColorPickerH = nil) or (BColorPickerH = nil) or (RGBh = nil) then
|
||||
exit;
|
||||
RGBh.Color := RGBToColor(
|
||||
RColorPickerH.Red,
|
||||
GColorPickerH.Green,
|
||||
BColorPickerH.Blue
|
||||
);
|
||||
|
||||
c := RGBh.Color;
|
||||
RGBh.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 +
|
||||
'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 +
|
||||
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
|
||||
GetRValue(c), GetGValue(c), GetBValue(c),
|
||||
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
|
||||
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c)
|
||||
]);
|
||||
end;
|
||||
|
||||
procedure TForm1.RGBPickerV_Change(Sender: TObject);
|
||||
var
|
||||
c: TColor;
|
||||
begin
|
||||
if (RColorPickerV = nil) or (GColorPickerV = nil) or (BColorPickerV = nil) or (RGBv = nil) then
|
||||
exit;
|
||||
RGBv.Color := RGBToColor(
|
||||
RColorPickerV.Red,
|
||||
GColorPickerV.Green,
|
||||
BColorPickerV.Blue
|
||||
);
|
||||
|
||||
c := RGBv.Color;
|
||||
RGBv.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 +
|
||||
'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 +
|
||||
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
|
||||
GetRValue(c), GetGValue(c), GetBValue(c),
|
||||
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
|
||||
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c)
|
||||
]);
|
||||
end;
|
||||
|
||||
procedure TForm1.SLVPickerH_Change(Sender: TObject);
|
||||
var
|
||||
triple: TRGBTriple;
|
||||
c: TColor;
|
||||
begin
|
||||
if (HSLVh = nil) or (HColorPickerH = nil) or (SColorPickerH = nil) then
|
||||
exit;
|
||||
if rbHSLh.Checked then begin
|
||||
if (LColorPickerH = nil) then
|
||||
exit;
|
||||
triple := HSLToRGBTriple(HColorPickerH.Hue, SColorPickerH.Saturation, LColorPickerH.Luminance);
|
||||
HSLVh.Color := RGBTripleToTColor(triple);
|
||||
// HSLVh.Color := HSLRangetoRGB(HColorPickerH.Hue, SColorPickerH.Saturation, LColorPickerH.Luminance);
|
||||
end;
|
||||
if rbHSVh.Checked then begin
|
||||
if (VColorPickerH = nil) then
|
||||
exit;
|
||||
HSLVh.Color := HSVtoColor(HColorPickerH.Hue, SColorPickerH.Saturation, VColorPickerH.Value);
|
||||
end;
|
||||
|
||||
c := HSLVh.Color;
|
||||
HSLVh.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 +
|
||||
'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 +
|
||||
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
|
||||
GetRValue(c), GetGValue(c), GetBValue(c),
|
||||
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
|
||||
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c)
|
||||
]);
|
||||
end;
|
||||
|
||||
procedure TForm1.SLVPickerV_Change(Sender: TObject);
|
||||
var
|
||||
triple: TRGBTriple;
|
||||
c: TColor;
|
||||
begin
|
||||
if (HSLVv = nil) or (HColorPickerV = nil) or (SColorPickerV = nil) then
|
||||
exit;
|
||||
if rbHSLv.Checked then begin
|
||||
if (LColorPickerV = nil) then
|
||||
exit;
|
||||
triple := HSLToRGBTriple(HColorPickerV.Hue, SColorPickerV.Saturation, LColorPickerV.Luminance);
|
||||
HSLVv.Color := RGBTripleToTColor(triple);
|
||||
end;
|
||||
if rbHSVv.Checked then begin
|
||||
if (VColorPickerV = nil) then
|
||||
exit;
|
||||
HSLVv.Color := HSVtoColor(HColorPickerV.Hue, SColorPickerV.Saturation, VColorPickerV.Value);
|
||||
end;
|
||||
|
||||
c := HSLVv.Color;
|
||||
HSLVv.Hint := Format('Red: %d - Green: %d - Blue: %d'#13 +
|
||||
'Cyan: %d - Magenta: %d - Yellow: %d - Black: %d'#13 +
|
||||
'Hue: %d - Saturation: %d - Luminance: %d - Value: %d', [
|
||||
GetRValue(c), GetGValue(c), GetBValue(c),
|
||||
GetCValue(c), GetMValue(c), GetYvalue(c), GetKValue(c),
|
||||
GetHValue(c), GetSValue(c), GetLValue(c), GetVValue(c)
|
||||
]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user