From: Florent O. <ou...@us...> - 2004-12-18 19:39:57
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7559/JVCL3/run Modified Files: JvFullColorCircleForm.dfm JvFullColorCircleForm.pas JvFullColorCtrls.pas JvFullColorDialogs.pas JvFullColorRotate.pas Log Message: Added a constructor to TJvRotateValue Controls are now resizeable. Index: JvFullColorCircleForm.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFullColorCircleForm.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** JvFullColorCircleForm.dfm 12 Dec 2004 10:48:22 -0000 1.2 --- JvFullColorCircleForm.dfm 18 Dec 2004 19:39:46 -0000 1.3 *************** *** 90,96 **** OnColorChange = JvColorCircleColorChange OnColorSpaceChange = JvColorCircleColorSpaceChange - RedColor = 67108864 - GreenColor = 67108864 - BlueColor = 67108864 CrossSize = 10 CrossCenter = 3 --- 90,93 ---- Index: JvFullColorCtrls.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFullColorCtrls.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvFullColorCtrls.pas 18 Dec 2004 07:40:43 -0000 1.5 --- JvFullColorCtrls.pas 18 Dec 2004 19:39:46 -0000 1.6 *************** *** 96,99 **** --- 96,100 ---- constructor Create(AOwner: TComponent); override; destructor Destroy; override; + procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; property ColorSpace: TJvColorSpace read GetColorSpace; published *************** *** 276,280 **** FColorOrientation: TJvFullColorOrientation; FOrientation: TTrackBarOrientation; [...971 lines suppressed...] ! FullColor := SetAxisValue(FullColor, AxisZ, Pos); end; inherited MouseColor(Shift, X, Y); end; *************** *** 2729,2741 **** end; - procedure TJvFullColorTrackBar.SetBarWidth(const Value: Integer); - begin - if FBarWidth <> Value then - begin - FBarWidth := Value; - CalcSize; - end; - end; - procedure TJvFullColorTrackBar.SetColorOrientation(const Value: TJvFullColorOrientation); begin --- 2642,2645 ---- Index: JvFullColorCircleForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFullColorCircleForm.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** JvFullColorCircleForm.pas 13 Dec 2004 02:27:23 -0000 1.3 --- JvFullColorCircleForm.pas 18 Dec 2004 19:39:46 -0000 1.4 *************** *** 714,719 **** if not FUpdating then begin ! if ChangeColorSpace ! then UpdateColorSpace; UpdateDeltaValue; UpdateCheckBoxStates; --- 714,722 ---- if not FUpdating then begin ! if ChangeColorSpace then ! begin ! JvColorSpaceCombo.ColorSpaceID := Value.ColorID; ! UpdateColorSpace; ! end; UpdateDeltaValue; UpdateCheckBoxStates; Index: JvFullColorRotate.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFullColorRotate.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** JvFullColorRotate.pas 18 Dec 2004 07:40:43 -0000 1.4 --- JvFullColorRotate.pas 18 Dec 2004 19:39:47 -0000 1.5 *************** *** 46,49 **** --- 46,50 ---- FSaturationMethod: TJvSaturationMethod; public + constructor Create; reintroduce; property Value: TJvRotateValueType read FValue write FValue default 0; property SaturationMethod: TJvSaturationMethod read FSaturationMethod write FSaturationMethod default smRange; *************** *** 379,382 **** --- 380,389 ---- { TJvRotateValue } + constructor TJvRotateValue.Create; + begin + FValue := 0; + FSaturationMethod := smLoop; + end; + procedure TJvRotateValue.Assign(Value: TJvRotateValue); begin Index: JvFullColorDialogs.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFullColorDialogs.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** JvFullColorDialogs.pas 13 Dec 2004 02:27:23 -0000 1.3 --- JvFullColorDialogs.pas 18 Dec 2004 19:39:47 -0000 1.4 *************** *** 326,333 **** Caption := Title; Options := Self.Options; ! ColorID := Self.ColorID; ! RedDelta.Assign(Self.RedDelta); ! GreenDelta.Assign(Self.GreenDelta); ! BlueDelta.Assign(Self.BlueDelta); OnApply := FormApply; OnClose := FormClose; --- 326,330 ---- Caption := Title; Options := Self.Options; ! Delta := Self.Delta; OnApply := FormApply; OnClose := FormClose; |