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

jvcllaz: Improvements in the JvFullColorCircle and JvFullColor dialogs for Linux.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-28 20:37:08 +00:00
parent c04df98dba
commit 451f4586af
6 changed files with 169 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.lfm
View File

@ -1,15 +1,16 @@
object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
Left = 836
Height = 394
Height = 315
Top = 214
Width = 343
Width = 274
BorderStyle = bsDialog
Caption = 'JvFullColorCircleDlgMainFrm'
ClientHeight = 394
ClientWidth = 343
ClientHeight = 315
ClientWidth = 274
Color = clBtnFace
Font.Color = clWindowText
KeyPreview = True
OnActivate = FormActivate
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
@ -18,12 +19,12 @@ object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ComboBoxFileName
AnchorSideTop.Side = asrBottom
Left = 30
Height = 108
Top = 39
Width = 108
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Left = 33
Height = 86
Top = 35
Width = 86
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Style = bsRaised
end
object Image: TImage
@ -31,24 +32,26 @@ object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Bevel
AnchorSideTop.Side = asrCenter
Left = 34
Height = 100
Top = 43
Width = 100
Left = 36
Height = 80
Top = 38
Width = 80
Center = True
end
object LabelImage: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ComboBoxFileName
AnchorSideTop.Side = asrCenter
Left = 8
Left = 6
Height = 15
Top = 12
Top = 10
Width = 39
BorderSpacing.Left = 8
BorderSpacing.Left = 6
Caption = 'Image :'
Font.Color = clWindowText
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object Memo: TMemo
AnchorSideLeft.Control = Owner
@ -56,20 +59,22 @@ object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel
AnchorSideRight.Side = asrBottom
Left = 8
Height = 72
Top = 155
Width = 152
Left = 6
Height = 70
Top = 127
Width = 141
Alignment = taCenter
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderStyle = bsNone
Font.Color = clWindowText
Lines.Strings = (
'Original image'
)
OnKeyDown = MemoKeyDown
OnKeyPress = MemoKeyPress
ParentColor = True
ParentFont = False
TabOrder = 0
end
object ComboBoxFileName: TComboBox
@ -77,17 +82,19 @@ object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 55
Left = 51
Height = 23
Top = 8
Width = 225
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Top = 6
Width = 206
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
DropDownCount = 24
Font.Color = clWindowText
ItemHeight = 15
OnClick = ComboBoxFileNameSelect
OnSelect = ComboBoxFileNameSelect
ParentFont = False
Style = csDropDownList
TabOrder = 1
end

21
components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.pas
View File

@ -46,6 +46,7 @@ type
LabelImage: TLabel;
ComboBoxFileName: TComboBox;
JvFullColorCircleDialog: TJvFullColorCircleDialog;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
@ -89,12 +90,6 @@ var
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/';
@ -103,7 +98,17 @@ begin
ComboBoxFileName.Items.Add(LSearchRec.Name);
until FindNext(LSearchRec) <> 0;
FindClose(LSearchRec);
end;
procedure TJvFullColorCircleDlgMainFrm.FormActivate(Sender: TObject);
var
X, Y: Integer;
PitchX, PitchY: Integer;
LImage: TImage;
LMemo: TMemo;
LBevel: TBevel;
Index: Integer;
begin
PitchX := Memo.Width + 32;
PitchY := Memo.Top + Memo.Height - Image.Top + 31;
Index := 0;
@ -135,7 +140,7 @@ begin
LImage.OnDblClick := @CustomizeDblClick;
LMemo.OnDblClick := @CustomizeDblClick;
ClientWidth := LMemo.Left+LMemo.Width-1+Memo.Left;
ClientHeight := LMemo.Top+LMemo.Height-1+Image.Top;
ClientHeight := LMemo.Top+LMemo.Height-1+ComboboxFileName.Top;
end;
Memos[Index] := LMemo;
Images[Index] := LImage;

123
components/jvcllaz/run/JvMM/jvfullcolorcircleform.lfm
View File

@ -1,13 +1,13 @@
object JvFullColorCircleFrm: TJvFullColorCircleFrm
Left = 274
Height = 573
Height = 574
Top = 219
Width = 997
Width = 1010
AutoSize = True
BorderStyle = bsDialog
Caption = 'Color circle configurations'
ClientHeight = 573
ClientWidth = 997
ClientHeight = 574
ClientWidth = 1010
Color = clBtnFace
Font.Color = clWindowText
KeyPreview = True
@ -24,7 +24,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 22
BorderSpacing.Top = 8
Caption = 'Old:'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelNew: TLabel
AnchorSideLeft.Control = PanelImageNew
@ -34,7 +36,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 58
Width = 27
Caption = 'New:'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelColorSpace: TLabel
AnchorSideLeft.Control = JvColorSpaceCombo
@ -45,7 +49,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 66
BorderSpacing.Top = 8
Caption = '&Color Space:'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object PanelGraphics: TPanel
AnchorSideLeft.Control = PanelCommonSettings
@ -58,26 +64,30 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Left = 412
Height = 550
Top = 8
Width = 577
Width = 590
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 8
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'PanelGraphics'
ClientHeight = 550
ClientWidth = 577
ClientWidth = 590
Font.Color = clWindowText
ParentFont = False
TabOrder = 5
object LabelAxisSettings: TLabel
AnchorSideLeft.Control = JvColorAxisConfigCombo
AnchorSideTop.Control = PanelGraphics
Left = 201
Left = 208
Height = 15
Top = 10
Width = 69
BorderSpacing.Top = 8
Caption = 'A&xis Settings:'
FocusControl = JvColorAxisConfigCombo
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object JvColorCircle: TJvFullColorCircle
AnchorSideLeft.Control = Bevel10
@ -91,7 +101,7 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Left = 100
Height = 480
Top = 60
Width = 459
Width = 472
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
@ -196,13 +206,15 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = LabelAxisSettings
AnchorSideTop.Side = asrBottom
Left = 201
Left = 208
Height = 23
Top = 29
Width = 257
Selected = acXYZ
BorderSpacing.Top = 4
Font.Color = clWindowText
ItemHeight = 15
ParentFont = False
TabOrder = 0
OnChange = JvColorAxisConfigComboChange
end
@ -232,6 +244,8 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BevelOuter = bvLowered
ClientHeight = 95
ClientWidth = 380
Font.Color = clWindowText
ParentFont = False
TabOrder = 2
object LabelComAxis0: TLabel
AnchorSideLeft.Control = SpinEditComAxis0
@ -242,7 +256,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 81
BorderSpacing.Top = 14
Caption = 'LabelComAxis0'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelComAxis1: TLabel
AnchorSideLeft.Control = SpinEditComAxis1
@ -252,7 +268,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 16
Width = 81
Caption = 'LabelComAxis1'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelComAxis2: TLabel
AnchorSideLeft.Control = SpinEditComAxis2
@ -262,7 +280,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 16
Width = 81
Caption = 'LabelComAxis2'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelCommon: TLabel
AnchorSideTop.Control = SpinEditComAxis0
@ -278,7 +298,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BorderSpacing.Right = 8
Caption = 'C&ommon:'
FocusControl = SpinEditComAxis0
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object SpinEditComAxis0: TSpinEdit
Tag = 48
@ -292,7 +314,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 57
BorderSpacing.Top = 4
Enabled = False
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 0
end
object SpinEditComAxis1: TSpinEdit
@ -306,7 +330,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 35
Width = 57
BorderSpacing.Top = 4
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 1
end
object SpinEditComAxis2: TSpinEdit
@ -320,7 +346,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 35
Width = 57
BorderSpacing.Top = 4
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 2
end
object CheckBoxCom0: TCheckBox
@ -334,7 +362,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 104
BorderSpacing.Top = 4
Caption = 'CheckBoxCom0'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 3
end
object CheckBoxCom1: TCheckBox
@ -346,7 +376,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 62
Width = 104
Caption = 'CheckBoxCom1'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 4
end
object CheckBoxCom2: TCheckBox
@ -358,7 +390,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 62
Width = 104
Caption = 'CheckBoxCom2'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 5
end
object Bevel2: TBevel
@ -424,6 +458,8 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BevelOuter = bvLowered
ClientHeight = 203
ClientWidth = 380
Font.Color = clWindowText
ParentFont = False
TabOrder = 4
object LabelAxis0: TLabel
AnchorSideLeft.Control = SpinEditRedAxis0
@ -434,7 +470,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 55
BorderSpacing.Top = 14
Caption = 'LabelAxis0'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelAxis1: TLabel
AnchorSideLeft.Control = SpinEditRedAxis1
@ -444,7 +482,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 16
Width = 55
Caption = 'LabelAxis1'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelAxis2: TLabel
AnchorSideLeft.Control = SpinEditRedAxis2
@ -454,7 +494,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 16
Width = 55
Caption = 'LabelAxis2'
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelRed: TLabel
AnchorSideTop.Control = SpinEditRedAxis0
@ -469,8 +511,10 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BorderSpacing.Right = 8
Caption = '&Red:'
FocusControl = SpinEditRedAxis0
Font.Color = clWindowText
ParentBidiMode = False
ParentColor = False
ParentFont = False
end
object LabelGreen: TLabel
AnchorSideTop.Control = SpinEditGreenAxis0
@ -485,7 +529,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BorderSpacing.Right = 8
Caption = '&Green:'
FocusControl = SpinEditGreenAxis0
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object LabelBlue: TLabel
AnchorSideTop.Control = SpinEditBlueAxis0
@ -500,7 +546,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BorderSpacing.Right = 8
Caption = '&Blue:'
FocusControl = SpinEditBlueAxis0
Font.Color = clWindowText
ParentColor = False
ParentFont = False
end
object SpinEditRedAxis0: TSpinEdit
AnchorSideLeft.Control = Bevel6
@ -512,7 +560,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 35
Width = 57
BorderSpacing.Top = 4
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 0
end
object SpinEditGreenAxis0: TSpinEdit
@ -526,7 +576,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 89
Width = 57
BorderSpacing.Top = 8
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 6
end
object SpinEditBlueAxis0: TSpinEdit
@ -540,7 +592,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 143
Width = 57
BorderSpacing.Top = 8
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 12
end
object SpinEditRedAxis1: TSpinEdit
@ -554,7 +608,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 35
Width = 57
BorderSpacing.Top = 4
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 1
end
object SpinEditRedAxis2: TSpinEdit
@ -568,7 +624,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 35
Width = 57
BorderSpacing.Top = 4
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 2
end
object SpinEditGreenAxis1: TSpinEdit
@ -582,7 +640,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 89
Width = 57
BorderSpacing.Top = 8
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 7
end
object SpinEditGreenAxis2: TSpinEdit
@ -596,7 +656,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 89
Width = 57
BorderSpacing.Top = 8
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 8
end
object SpinEditBlueAxis1: TSpinEdit
@ -610,7 +672,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 143
Width = 57
BorderSpacing.Top = 8
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 13
end
object SpinEditBlueAxis2: TSpinEdit
@ -624,7 +688,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Top = 143
Width = 57
BorderSpacing.Top = 8
Font.Color = clWindowText
OnChange = SpinEditSettingsValueChange
ParentFont = False
TabOrder = 14
end
object CheckBoxRed0: TCheckBox
@ -637,7 +703,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 98
BorderSpacing.Top = 4
Caption = 'CheckBoxRed0'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 3
end
object CheckBoxRed1: TCheckBox
@ -651,7 +719,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 98
BorderSpacing.Top = 4
Caption = 'CheckBoxRed1'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 4
end
object CheckBoxRed2: TCheckBox
@ -665,7 +735,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 98
BorderSpacing.Top = 4
Caption = 'CheckBoxRed2'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 5
end
object CheckBoxGreen0: TCheckBox
@ -679,7 +751,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 109
BorderSpacing.Top = 4
Caption = 'CheckBoxGreen0'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 9
end
object CheckBoxGreen1: TCheckBox
@ -693,7 +767,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 109
BorderSpacing.Top = 4
Caption = 'CheckBoxGreen1'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 10
end
object CheckBoxGreen2: TCheckBox
@ -707,7 +783,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 109
BorderSpacing.Top = 4
Caption = 'CheckBoxGreen2'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 11
end
object CheckBoxBlue0: TCheckBox
@ -721,7 +799,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 101
BorderSpacing.Top = 4
Caption = 'CheckBoxBlue0'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 15
end
object CheckBoxBlue1: TCheckBox
@ -735,7 +815,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 101
BorderSpacing.Top = 4
Caption = 'CheckBoxBlue1'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 16
end
object CheckBoxBlue2: TCheckBox
@ -749,7 +831,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 101
BorderSpacing.Top = 4
Caption = 'CheckBoxBlue2'
Font.Color = clWindowText
OnClick = CheckBoxSettingsClick
ParentFont = False
TabOrder = 17
end
object Bevel6: TBevel
@ -815,7 +899,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Co&mmon Settings:'
Font.Color = clWindowText
OnClick = RadioButtonAxisClick
ParentFont = False
TabOrder = 1
end
object RadioButtonAxisSettings: TRadioButton
@ -829,7 +915,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = '&Axis Settings:'
Font.Color = clWindowText
OnClick = RadioButtonAxisClick
ParentFont = False
TabOrder = 3
end
object ButtonGraphics: TButton
@ -847,7 +935,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BorderSpacing.Top = 1
Caption = 'ButtonGraphics'
Constraints.MinWidth = 75
Font.Color = clWindowText
OnClick = ButtonGraphicsClick
ParentFont = False
TabOrder = 9
end
object ButtonCancel: TButton
@ -864,7 +954,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Cancel = True
Caption = 'Ca&ncel'
Constraints.MinWidth = 75
Font.Color = clWindowText
ModalResult = 2
ParentFont = False
TabOrder = 7
end
object ButtonOK: TButton
@ -881,7 +973,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Caption = '&OK'
Constraints.MinWidth = 75
Default = True
Font.Color = clWindowText
ModalResult = 1
ParentFont = False
TabOrder = 6
end
object ButtonApply: TButton
@ -891,11 +985,14 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Left = 182
Height = 25
Top = 534
Width = 75
Width = 57
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 1
Caption = '&Apply'
Font.Color = clWindowText
OnClick = ButtonApplyClick
ParentFont = False
TabOrder = 8
end
object JvColorSpaceCombo: TJvFullColorSpaceCombo
@ -909,7 +1006,9 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
Width = 206
AllowVariable = False
BorderSpacing.Top = 4
Font.Color = clWindowText
ItemHeight = 15
ParentFont = False
TabOrder = 0
OnChange = JvColorSpaceComboChange
end
@ -935,6 +1034,8 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BevelOuter = bvLowered
ClientHeight = 118
ClientWidth = 124
Font.Color = clWindowText
ParentFont = False
TabOrder = 10
object ImageOld: TImage
Left = 3
@ -959,6 +1060,8 @@ object JvFullColorCircleFrm: TJvFullColorCircleFrm
BevelOuter = bvLowered
ClientHeight = 118
ClientWidth = 124
Font.Color = clWindowText
ParentFont = False
TabOrder = 11
object ImageNew: TImage
Left = 3

2
components/jvcllaz/run/JvMM/jvfullcolorcircleform.pas
View File

@ -714,7 +714,7 @@ begin
w := 0;
for i := 0 to JvColorSpaceCombo.Items.Count-1 do
w := Max(w, JvColorSpaceCombo.Canvas.TextWidth(JvColorSpaceCombo.Items[i]));
JvColorSpaceCombo.Width := w + 24;
JvColorSpaceCombo.Width := w + 32;
Bevel1.Shape := bsSpacer;
Bevel10.Shape := bsSpacer;

3
components/jvcllaz/run/JvMM/jvfullcolorform.pas
View File

@ -162,7 +162,8 @@ begin
w := 0;
for i := 0 to JvColorAxisConfigCombo.Items.Count-1 do
w := Max(w, JvColorAxisConfigCombo.Canvas.TextWidth(JvColorAxisConfigCombo.Items[i]));
JvColorAxisConfigCombo.Constraints.MinWidth := w + 40;;
JvColorAxisConfigCombo.Constraints.MinWidth := w + 40;
JvColorPanel.Constraints.MinWidth := JvColorPanel.Height;
AutoSize := true;
end;

5
components/jvcllaz/run/JvMM/jvfullcolorrotate.pas
View File

@ -273,7 +273,10 @@ begin
if ColorFusion[axIndex2] < 0 then
ColorFusion[axIndex2] := 0;
DestLine^ := // Bitmap Color Format is (MSB)0RGB(LSB)
(ColorFusion[axIndex0] shl 16) or (ColorFusion[axIndex1] shl 8) or (ColorFusion[axIndex2]); // or $FF000000;
(ColorFusion[axIndex0] shl 16) or
(ColorFusion[axIndex1] shl 8) or
(ColorFusion[axIndex2]) or
$FF000000; // otherwise the bitmap would be fully transparent
Inc(SourceLine);
Inc(DestLine);
end;