You've already forked lazarus-ccr
jvcllaz: Add examples for full color dialogs
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6685 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@@ -0,0 +1,72 @@
|
|||||||
|
object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
|
||||||
|
Left = 498
|
||||||
|
Height = 394
|
||||||
|
Top = 236
|
||||||
|
Width = 343
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'JvFullColorCircleDlgMainFrm'
|
||||||
|
ClientHeight = 394
|
||||||
|
ClientWidth = 343
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Color = clWindowText
|
||||||
|
KeyPreview = True
|
||||||
|
OnCreate = FormCreate
|
||||||
|
Position = poScreenCenter
|
||||||
|
LCLVersion = '2.1.0.0'
|
||||||
|
object Bevel: TBevel
|
||||||
|
Left = 16
|
||||||
|
Height = 108
|
||||||
|
Top = 48
|
||||||
|
Width = 108
|
||||||
|
Style = bsRaised
|
||||||
|
end
|
||||||
|
object Image: TImage
|
||||||
|
Left = 20
|
||||||
|
Height = 100
|
||||||
|
Top = 52
|
||||||
|
Width = 100
|
||||||
|
Center = True
|
||||||
|
end
|
||||||
|
object LabelImage: TLabel
|
||||||
|
Left = 24
|
||||||
|
Height = 15
|
||||||
|
Top = 16
|
||||||
|
Width = 39
|
||||||
|
Caption = 'Image :'
|
||||||
|
Layout = tlCenter
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Memo: TMemo
|
||||||
|
Left = 8
|
||||||
|
Height = 65
|
||||||
|
Top = 160
|
||||||
|
Width = 129
|
||||||
|
Alignment = taCenter
|
||||||
|
BorderStyle = bsNone
|
||||||
|
Lines.Strings = (
|
||||||
|
'Original image'
|
||||||
|
)
|
||||||
|
OnKeyDown = MemoKeyDown
|
||||||
|
OnKeyPress = MemoKeyPress
|
||||||
|
ParentColor = True
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object ComboBoxFileName: TComboBox
|
||||||
|
Left = 72
|
||||||
|
Height = 23
|
||||||
|
Top = 16
|
||||||
|
Width = 257
|
||||||
|
DropDownCount = 24
|
||||||
|
ItemHeight = 15
|
||||||
|
OnClick = ComboBoxFileNameSelect
|
||||||
|
OnSelect = ComboBoxFileNameSelect
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object JvFullColorCircleDialog: TJvFullColorCircleDialog
|
||||||
|
HelpContext = 0
|
||||||
|
OnApply = JvFullColorCircleDialogApply
|
||||||
|
left = 184
|
||||||
|
top = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,382 @@
|
|||||||
|
{******************************************************************
|
||||||
|
|
||||||
|
JEDI-VCL Demo
|
||||||
|
|
||||||
|
Copyright (C) 2004 Project JEDI
|
||||||
|
|
||||||
|
Original author: Florent Ouchet [ouchet dott florent att laposte dott net]
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the JEDI-JVCL
|
||||||
|
home page, located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
The contents of this file are used with permission, subject to
|
||||||
|
the Mozilla Public License Version 1.1 (the "License"); you may
|
||||||
|
not use this file except in compliance with the License. You may
|
||||||
|
obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1_1Final.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an
|
||||||
|
"AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||||
|
implied. See the License for the specific language governing
|
||||||
|
rights and limitations under the License.
|
||||||
|
|
||||||
|
******************************************************************}
|
||||||
|
|
||||||
|
unit JvFullColorCircleDialogMainForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, ExtCtrls, StdCtrls, JvFullColorSpaces, JvFullColorCircleForm,
|
||||||
|
JvFullColorDialogs, JvFullColorRotate;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TJvFullColorCircleDlgMainFrm }
|
||||||
|
|
||||||
|
TJvFullColorCircleDlgMainFrm = class(TForm)
|
||||||
|
Image: TImage;
|
||||||
|
Bevel: TBevel;
|
||||||
|
Memo: TMemo;
|
||||||
|
LabelImage: TLabel;
|
||||||
|
ComboBoxFileName: TComboBox;
|
||||||
|
JvFullColorCircleDialog: TJvFullColorCircleDialog;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure MemoKeyDown(Sender: TObject; var Key: Word;
|
||||||
|
Shift: TShiftState);
|
||||||
|
procedure MemoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure ComboBoxFileNameSelect(Sender: TObject);
|
||||||
|
procedure JvFullColorCircleDialogApply(Sender: TObject);
|
||||||
|
public
|
||||||
|
Images: array [0..6] of TImage;
|
||||||
|
Memos: array [0..6] of TMemo;
|
||||||
|
procedure CustomizeDblClick(Sender: TObject);
|
||||||
|
procedure RotateCustomValues;
|
||||||
|
procedure FormatMemo(AMemo: TMemo; const Delta: TJvColorDelta);
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses Contnrs;
|
||||||
|
|
||||||
|
resourcestring
|
||||||
|
RsCustomize = 'Dbl-click to customize';
|
||||||
|
|
||||||
|
var
|
||||||
|
ImgDir: String = '';
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvColorDeltaList = class (TObjectList)
|
||||||
|
private
|
||||||
|
function GetItems(Index: Integer): TJvColorDelta;
|
||||||
|
procedure SetItems(Index: Integer; const Value: TJvColorDelta);
|
||||||
|
public
|
||||||
|
property Items[Index: Integer]: TJvColorDelta read GetItems write SetItems; default;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
ColorDeltas: TJvColorDeltaList;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
X, Y: Integer;
|
||||||
|
PitchX, PitchY: Integer;
|
||||||
|
LImage: TImage;
|
||||||
|
LMemo: TMemo;
|
||||||
|
LBevel: TBevel;
|
||||||
|
Index: Integer;
|
||||||
|
LSearchRec: TSearchRec;
|
||||||
|
begin
|
||||||
|
ImgDir := IncludeTrailingPathDelimiter(GetCurrentDir) + '..\..\design\JvCtrls\images\';
|
||||||
|
if FindFirst(ImgDir + '*.png', faAnyFile, LSearchRec) = 0 then
|
||||||
|
repeat
|
||||||
|
ComboBoxFileName.Items.Add(LSearchRec.Name);
|
||||||
|
until FindNext(LSearchRec) <> 0;
|
||||||
|
FindClose(LSearchRec);
|
||||||
|
|
||||||
|
PitchX := Memo.Width + 32;
|
||||||
|
PitchY := Memo.Top + Memo.Height - Image.Top + 31;
|
||||||
|
Index := 0;
|
||||||
|
Image.Picture.Bitmap := TBitmap.Create;
|
||||||
|
for X := 0 to 3 do
|
||||||
|
for Y := 0 to 1 do
|
||||||
|
if (X <> 0) or (Y <> 0) then
|
||||||
|
begin
|
||||||
|
LBevel := TBevel.Create(Self);
|
||||||
|
LBevel.Parent := Self;
|
||||||
|
LBevel.Style := bsRaised;
|
||||||
|
LBevel.SetBounds(Bevel.Left+X*PitchX, Bevel.Top+Y*PitchY, Bevel.Width, Bevel.Height);
|
||||||
|
LImage := TImage.Create(Self);
|
||||||
|
LImage.Parent := Self;
|
||||||
|
LImage.Stretch := False;
|
||||||
|
LImage.Center := true;
|
||||||
|
LImage.Picture.Bitmap := TBitmap.Create;
|
||||||
|
LImage.SetBounds(Image.Left+X*PitchX, Image.Top+Y*PitchY, Image.Width, Image.Height);
|
||||||
|
LMemo := TMemo.Create(Self);
|
||||||
|
LMemo.Parent := Self;
|
||||||
|
LMemo.BorderStyle := bsNone;
|
||||||
|
LMemo.ParentColor := True;
|
||||||
|
LMemo.OnKeyDown := @MemoKeyDown;
|
||||||
|
LMemo.OnKeyPress := @MemoKeyPress;
|
||||||
|
LMemo.SetBounds(Memo.Left+X*PitchX, Memo.Top+Y*PitchY, Memo.Width, Memo.Height);
|
||||||
|
LMemo.Alignment := taCenter;
|
||||||
|
if (X = 3) and (Y = 1) then
|
||||||
|
begin
|
||||||
|
LImage.OnDblClick := @CustomizeDblClick;
|
||||||
|
LMemo.OnDblClick := @CustomizeDblClick;
|
||||||
|
ClientWidth := LMemo.Left+LMemo.Width-1+Memo.Left;
|
||||||
|
ClientHeight := LMemo.Top+LMemo.Height-1+Image.Top;
|
||||||
|
end;
|
||||||
|
Memos[Index] := LMemo;
|
||||||
|
Images[Index] := LImage;
|
||||||
|
Inc(Index);
|
||||||
|
end;
|
||||||
|
ComboBoxFileName.ItemIndex := 0;
|
||||||
|
ComboBoxFileNameSelect(ComboBoxFileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.CustomizeDblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if JvFullColorCircleDialog.Execute then
|
||||||
|
RotateCustomValues;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.MemoKeyDown(Sender: TObject; var Key: Word;
|
||||||
|
Shift: TShiftState);
|
||||||
|
begin
|
||||||
|
Key := 0; // discard any key but Enabled=False affects the text rendering
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.MemoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
Key := #0; // discard any key but Enabled=False affects the text rendering
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.ComboBoxFileNameSelect(Sender: TObject);
|
||||||
|
var
|
||||||
|
Index: Integer;
|
||||||
|
fn: String;
|
||||||
|
begin
|
||||||
|
if ComboboxFileName.ItemIndex = -1 then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if Image.Picture.Bitmap <> nil then begin
|
||||||
|
fn := ImgDir + ComboboxFileName.Items[ComboboxFileName.ItemIndex];
|
||||||
|
if FileExists(fn) then
|
||||||
|
Image.Picture.LoadFromFile(fn)
|
||||||
|
else
|
||||||
|
MessageDlg(Format('File "%s" not found.', [fn]), mtError, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Image.Picture.Bitmap := TBitmap.Create;
|
||||||
|
// Image.Picture.Bitmap.LoadFromFile(ComboBoxFileName.Items[ComboBoxFileName.ItemIndex]);
|
||||||
|
with Memos[6].Lines do
|
||||||
|
begin
|
||||||
|
Clear;
|
||||||
|
Add(RsCustomize);
|
||||||
|
end;
|
||||||
|
Images[6].Picture.Bitmap.FreeImage;
|
||||||
|
for Index := Low(Images) to High(Images)-1 do
|
||||||
|
begin
|
||||||
|
Images[Index].Picture.Bitmap.FreeImage;
|
||||||
|
RotateBitmap(Image.Picture.Bitmap,Images[Index].Picture.Bitmap,ColorDeltas[Index]);
|
||||||
|
FormatMemo(Memos[Index],ColorDeltas[Index]);
|
||||||
|
end;
|
||||||
|
RotateCustomValues;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.RotateCustomValues;
|
||||||
|
begin
|
||||||
|
RotateBitmap(Image.Picture.Bitmap,Images[6].Picture.Bitmap,JvFullColorCircleDialog.Delta);
|
||||||
|
FormatMemo(Memos[6],JvFullColorCircleDialog.Delta);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.FormatMemo(AMemo: TMemo; const Delta: TJvColorDelta);
|
||||||
|
var
|
||||||
|
Index: TJvAxisIndex;
|
||||||
|
begin
|
||||||
|
AMemo.Lines.Clear;
|
||||||
|
with ColorSpaceManager, ColorSpace[Delta.ColorID], AMemo.Lines do
|
||||||
|
begin
|
||||||
|
Add(Format('%s (%s)',[Name, ShortName]));
|
||||||
|
for Index := Low(TJvAxisIndex) to High(TJvAxisIndex) do
|
||||||
|
Add(Format('%s : %d, %d, %d',[AxisName[Index],Delta.AxisRed[Index].Value,
|
||||||
|
Delta.AxisGreen[Index].Value,Delta.AxisBlue[Index].Value]));
|
||||||
|
if AMemo = Memos[6] then
|
||||||
|
Add(RsCustomize);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TJvColorDeltaList }
|
||||||
|
|
||||||
|
function TJvColorDeltaList.GetItems(Index: Integer): TJvColorDelta;
|
||||||
|
begin
|
||||||
|
Result := TJvColorDelta(TObjectList(Self).Items[Index]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvColorDeltaList.SetItems(Index: Integer;
|
||||||
|
const Value: TJvColorDelta);
|
||||||
|
begin
|
||||||
|
TObjectList(Self).Items[Index] := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure FillColorDeltas;
|
||||||
|
var
|
||||||
|
Delta : TJvColorDelta;
|
||||||
|
begin
|
||||||
|
Delta := TJvColorDelta.Create;
|
||||||
|
Delta.ColorID := csRGB;
|
||||||
|
Delta.AxisRed[axIndex0].Value := 100;
|
||||||
|
Delta.AxisRed[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex1].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex2].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex0].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex1].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex2].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex0].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex1].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex2].Value := 50;
|
||||||
|
Delta.AxisBlue[axIndex2].SaturationMethod := smRange;
|
||||||
|
ColorDeltas.Add(Delta);
|
||||||
|
|
||||||
|
Delta := TJvColorDelta.Create;
|
||||||
|
Delta.ColorID := csHLS;
|
||||||
|
Delta.AxisRed[axIndex0].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex1].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex2].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex0].Value := 40;
|
||||||
|
Delta.AxisGreen[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex1].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex2].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex0].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex1].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex2].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex2].SaturationMethod := smRange;
|
||||||
|
ColorDeltas.Add(Delta);
|
||||||
|
|
||||||
|
Delta := TJvColorDelta.Create;
|
||||||
|
Delta.ColorID := csHSV;
|
||||||
|
Delta.AxisRed[axIndex0].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex1].Value := -176;
|
||||||
|
Delta.AxisRed[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex2].Value := -180;
|
||||||
|
Delta.AxisRed[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex0].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex1].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex2].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex0].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex1].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex2].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex2].SaturationMethod := smRange;
|
||||||
|
ColorDeltas.Add(Delta);
|
||||||
|
|
||||||
|
Delta := TJvColorDelta.Create;
|
||||||
|
Delta.ColorID := csYUV;
|
||||||
|
Delta.AxisRed[axIndex0].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex1].Value := 38;
|
||||||
|
Delta.AxisRed[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex2].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex0].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex1].Value := 68;
|
||||||
|
Delta.AxisGreen[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex2].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex0].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex1].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex2].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex2].SaturationMethod := smRange;
|
||||||
|
ColorDeltas.Add(Delta);
|
||||||
|
|
||||||
|
Delta := TJvColorDelta.Create;
|
||||||
|
Delta.ColorID := csHLS;
|
||||||
|
Delta.AxisRed[axIndex0].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex1].Value := -30;
|
||||||
|
Delta.AxisRed[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex2].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex0].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex1].Value := -30;
|
||||||
|
Delta.AxisGreen[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex2].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex0].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex1].Value := -30;
|
||||||
|
Delta.AxisBlue[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex2].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex2].SaturationMethod := smRange;
|
||||||
|
ColorDeltas.Add(Delta);
|
||||||
|
|
||||||
|
Delta := TJvColorDelta.Create;
|
||||||
|
Delta.ColorID := csXYZ;
|
||||||
|
Delta.AxisRed[axIndex0].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex1].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisRed[axIndex2].Value := 0;
|
||||||
|
Delta.AxisRed[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex0].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex1].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisGreen[axIndex2].Value := 0;
|
||||||
|
Delta.AxisGreen[axIndex2].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex0].Value := 80;
|
||||||
|
Delta.AxisBlue[axIndex0].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex1].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex1].SaturationMethod := smRange;
|
||||||
|
Delta.AxisBlue[axIndex2].Value := 0;
|
||||||
|
Delta.AxisBlue[axIndex2].SaturationMethod := smRange;
|
||||||
|
ColorDeltas.Add(Delta);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorCircleDlgMainFrm.JvFullColorCircleDialogApply(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RotateCustomValues;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
ColorDeltas := TJvColorDeltaList.Create;
|
||||||
|
FillColorDeltas;
|
||||||
|
|
||||||
|
finalization
|
||||||
|
ColorDeltas.Free;
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -0,0 +1,84 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<UseDefaultCompilerOptions Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<Title Value="JvFullColorCircleDialogPrj"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
<Modes Count="0"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="JvMMLazR"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="JvFullColorCircleDialogPrj.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="JvFullColorCircleDialogMainForm.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="JvFullColorCircleDlgMainFrm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="JvFullColorCircleDialogPrj"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<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>
|
||||||
@@ -0,0 +1,15 @@
|
|||||||
|
program JvFullColorCircleDialogPrj;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Interfaces, Forms,
|
||||||
|
JvFullColorCircleDialogMainForm in 'JvFullColorCircleDialogMainForm.pas' {JvFullColorCircleDlgMainFrm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TJvFullColorCircleDlgMainFrm, JvFullColorCircleDlgMainFrm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
@@ -0,0 +1,42 @@
|
|||||||
|
object JvFullColorDialogMainFrm: TJvFullColorDialogMainFrm
|
||||||
|
Left = 419
|
||||||
|
Height = 295
|
||||||
|
Top = 367
|
||||||
|
Width = 723
|
||||||
|
Caption = 'TJvFullColorDialog example'
|
||||||
|
ClientHeight = 295
|
||||||
|
ClientWidth = 723
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Color = clWindowText
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnShow = FormShow
|
||||||
|
Position = poScreenCenter
|
||||||
|
LCLVersion = '2.1.0.0'
|
||||||
|
Visible = True
|
||||||
|
object JvFullColorLabel: TJvFullColorLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 17
|
||||||
|
Top = 32
|
||||||
|
Width = 257
|
||||||
|
LabelColor = 67108864
|
||||||
|
Brush.Color = clBlack
|
||||||
|
Caption = 'JvFullColorLabel'
|
||||||
|
Font.Color = clWindowText
|
||||||
|
ParentFont = False
|
||||||
|
OnDblClick = JvFullColorLabelDblClick
|
||||||
|
end
|
||||||
|
object LabelInfo: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 15
|
||||||
|
Top = 8
|
||||||
|
Width = 192
|
||||||
|
Caption = 'Double-click on a label to customize'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object JvFullColorDialog: TJvFullColorDialog
|
||||||
|
FullColor = 83886079
|
||||||
|
OnApply = JvFullColorDialogApply
|
||||||
|
left = 232
|
||||||
|
top = 128
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,187 @@
|
|||||||
|
{******************************************************************
|
||||||
|
|
||||||
|
JEDI-VCL Demo
|
||||||
|
|
||||||
|
Copyright (C) 2004 Project JEDI
|
||||||
|
|
||||||
|
Original author: Florent Ouchet [ouchet dott florent att laposte dott net]
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the JEDI-JVCL
|
||||||
|
home page, located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
The contents of this file are used with permission, subject to
|
||||||
|
the Mozilla Public License Version 1.1 (the "License"); you may
|
||||||
|
not use this file except in compliance with the License. You may
|
||||||
|
obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1_1Final.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an
|
||||||
|
"AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||||
|
implied. See the License for the specific language governing
|
||||||
|
rights and limitations under the License.
|
||||||
|
|
||||||
|
******************************************************************}
|
||||||
|
|
||||||
|
unit JvFullColorDialogMainForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
//Windows, Messages,
|
||||||
|
SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, JvFullColorSpaces, JvFullColorCtrls, StdCtrls, JvFullColorForm,
|
||||||
|
JvFullColorDialogs;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TJvFullColorDialogMainFrm }
|
||||||
|
|
||||||
|
TJvFullColorDialogMainFrm = class(TForm)
|
||||||
|
JvFullColorLabel: TJvFullColorLabel;
|
||||||
|
LabelInfo: TLabel;
|
||||||
|
JvFullColorDialog: TJvFullColorDialog;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure JvFullColorLabelDblClick(Sender: TObject);
|
||||||
|
procedure JvFullColorDialogApply(Sender: TObject; AFullColor: TJvFullColor);
|
||||||
|
public
|
||||||
|
procedure UpdateCaption (ALabel: TJvFullColorLabel);
|
||||||
|
procedure UpdateAllCaptions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
JvFullColorDialogMainFrm: TJvFullColorDialogMainFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Math;
|
||||||
|
|
||||||
|
procedure TJvFullColorDialogMainFrm.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvFullColorLabel.Caption := 'test';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorDialogMainFrm.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
Index: Integer;
|
||||||
|
LDEFColorSpace: TJvDEFColorSpace;
|
||||||
|
LColorLabel: TJvFullColorLabel;
|
||||||
|
X, Y: Integer;
|
||||||
|
|
||||||
|
procedure CreateLabel(AFullColor: TJvFullColor);
|
||||||
|
begin
|
||||||
|
Inc(Y,JvFullColorLabel.Height+10);
|
||||||
|
if Y > ClientHeight then
|
||||||
|
begin
|
||||||
|
Y := JvFullColorLabel.Top;
|
||||||
|
Inc(X,JvFullColorLabel.Width+10);
|
||||||
|
end;
|
||||||
|
LColorLabel := TJvFullColorLabel.Create(Self);
|
||||||
|
LColorLabel.Parent := Self;
|
||||||
|
LColorLabel.SetBounds(X,Y,JvFullColorLabel.Width,JvFullColorLabel.Height);
|
||||||
|
LColorLabel.LabelColor := AFullColor;
|
||||||
|
LColorLabel.AutoSize := true;
|
||||||
|
LColorLabel.BorderSpacing.Around := 8;
|
||||||
|
LColorLabel.OnDblClick := @JvFullColorLabelDblClick;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
X := JvFullColorLabel.Left;
|
||||||
|
Y := JvFullColorLabel.Top;
|
||||||
|
with ColorSpaceManager do
|
||||||
|
begin
|
||||||
|
LDEFColorSpace := TJvDEFColorSpace(ColorSpace[csDEF]);
|
||||||
|
for Index := 1 to Min(LDEFColorSpace.ColorCount-1,9) do
|
||||||
|
CreateLabel(ConvertFromColor(LDEFColorSpace.ColorValue[Index]));
|
||||||
|
with ColorSpace[csHLS] do
|
||||||
|
begin
|
||||||
|
CreateLabel(ConvertFromColor(clRed));
|
||||||
|
CreateLabel(ConvertFromColor(clLime));
|
||||||
|
CreateLabel(ConvertFromColor(clBlue));
|
||||||
|
CreateLabel(ConvertFromColor(clYellow));
|
||||||
|
end;
|
||||||
|
CreateLabel(ColorSpace[csYUV].ConvertFromColor(clWhite));
|
||||||
|
CreateLabel(ColorSpace[csYCC].ConvertFromColor(clPurple));
|
||||||
|
CreateLabel(ColorSpace[csHSV].ConvertFromColor(clAqua));
|
||||||
|
CreateLabel(ColorSpace[csYIQ].ConvertFromColor(clOlive));
|
||||||
|
CreateLabel(ColorSpace[csLAB].ConvertFromColor(clMaroon));
|
||||||
|
CreateLabel(ColorSpace[csDEF].ConvertFromColor(clAppWorkSpace));
|
||||||
|
end;
|
||||||
|
UpdateAllCaptions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorDialogMainFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
AutoSize := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorDialogMainFrm.UpdateAllCaptions;
|
||||||
|
var
|
||||||
|
Index: Integer;
|
||||||
|
begin
|
||||||
|
for Index := 0 to ControlCount-1 do
|
||||||
|
if Controls[Index] is TJvFullColorLabel then
|
||||||
|
UpdateCaption(TJvFullColorLabel(Controls[Index]));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorDialogMainFrm.UpdateCaption(ALabel: TJvFullColorLabel);
|
||||||
|
var
|
||||||
|
Index: Cardinal;
|
||||||
|
LColor: TColor;
|
||||||
|
begin
|
||||||
|
with ColorSpaceManager, ColorSpace[GetColorSpaceID(ALabel.LabelColor)] do
|
||||||
|
if ID = csDEF then
|
||||||
|
begin
|
||||||
|
with TJvDEFColorSpace(ColorSpace[csDEF]) do
|
||||||
|
begin
|
||||||
|
LColor := ConvertToColor(ALabel.LabelColor);
|
||||||
|
for Index:=0 to ColorCount-1 do
|
||||||
|
if ColorValue[Index]=LColor then
|
||||||
|
begin
|
||||||
|
ALabel.Caption := Format('%s : %s',[ShortName,ColorPrettyName[Index]]);
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
if Index = ColorCount then
|
||||||
|
ALabel.Caption := ShortName+' : Invalid color';
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ALabel.Caption := Format('%s : %s=%d ; %s=%d ; %s=%d',[ShortName,
|
||||||
|
AxisName[axIndex0],GetAxisValue(ALabel.LabelColor,axIndex0),
|
||||||
|
AxisName[axIndex1],GetAxisValue(ALabel.LabelColor,axIndex1),
|
||||||
|
AxisName[axIndex2],GetAxisValue(ALabel.LabelColor,axIndex2)]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorDialogMainFrm.JvFullColorLabelDblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with TJvFullColorLabel(Sender) do
|
||||||
|
begin
|
||||||
|
JvFullColorDialog.FullColor := LabelColor;
|
||||||
|
JvFullColorDialog.Tag := Integer(Sender);
|
||||||
|
if JvFullColorDialog.Execute then
|
||||||
|
begin
|
||||||
|
LabelColor := JvFullColorDialog.FullColor;
|
||||||
|
UpdateCaption(TJvFullColorLabel(Sender));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvFullColorDialogMainFrm.JvFullColorDialogApply(Sender: TObject;
|
||||||
|
AFullColor: TJvFullColor);
|
||||||
|
begin
|
||||||
|
with TJvFullColorDialog(Sender) do
|
||||||
|
begin
|
||||||
|
TJvFullColorLabel(Tag).LabelColor := FullColor;
|
||||||
|
UpdateCaption(TJvFullColorLabel(Tag));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -0,0 +1,84 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<UseDefaultCompilerOptions Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<Title Value="JvFullColorDialogPrj"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
<Modes Count="0"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="JvMMLazR"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="JvFullColorDialogPrj.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="JvFullColorDialogMainForm.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="JvFullColorDialogMainFrm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="JvFullColorDialogPrj"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<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>
|
||||||
@@ -0,0 +1,16 @@
|
|||||||
|
program JvFullColorDialogPrj;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Interfaces,
|
||||||
|
Forms,
|
||||||
|
JvFullColorDialogMainForm in 'JvFullColorDialogMainForm.pas' {JvFullColorDialogMainFrm};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TJvFullColorDialogMainFrm, JvFullColorDialogMainFrm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user