|
From: Peter T. <pe...@us...> - 2004-12-18 12:07:38
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13358/run Modified Files: JvButton.pas JvCtrls.pas Log Message: - Flat should not be true by default - Always draw flat border at design-time Index: JvCtrls.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCtrls.pas,v retrieving revision 1.42 retrieving revision 1.43 diff -C2 -d -r1.42 -r1.43 *** JvCtrls.pas 16 Dec 2004 14:05:22 -0000 1.42 --- JvCtrls.pas 18 Dec 2004 12:07:26 -0000 1.43 *************** *** 570,574 **** FCanvas.Brush.Color := Color; FCanvas.FillRect(R); // (p3) TWinControls don't support Transparent anyway ! if FMouseInControl or FIsFocused then begin if IsDown then --- 570,574 ---- FCanvas.Brush.Color := Color; FCanvas.FillRect(R); // (p3) TWinControls don't support Transparent anyway ! if FMouseInControl or FIsFocused or (csDesigning in ComponentState) then begin if IsDown then Index: JvButton.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvButton.pas,v retrieving revision 1.52 retrieving revision 1.53 diff -C2 -d -r1.52 -r1.53 *** JvButton.pas 16 Dec 2004 14:05:21 -0000 1.52 --- JvButton.pas 18 Dec 2004 12:07:26 -0000 1.53 *************** *** 101,105 **** property ForceSameSize: Boolean read FForceSameSize write SetForceSameSize default False; property Pattern: TBitmap read GetPattern; ! property Flat: Boolean read FFlat write SetFlat default True; property HotTrack: Boolean read FHotTrack write FHotTrack default False; property HotTrackFont: TFont read FHotFont write SetHotFont; --- 101,105 ---- property ForceSameSize: Boolean read FForceSameSize write SetForceSameSize default False; property Pattern: TBitmap read GetPattern; ! property Flat: Boolean read FFlat write SetFlat default False; property HotTrack: Boolean read FHotTrack write FHotTrack default False; property HotTrackFont: TFont read FHotFont write SetHotFont; *************** *** 230,234 **** SetBounds(0, 0, 40, 40); FBuffer := TBitmap.Create; ! FFlat := True; FDropArrow := False; FForceSameSize := False; --- 230,234 ---- SetBounds(0, 0, 40, 40); FBuffer := TBitmap.Create; ! FFlat := False; FDropArrow := False; FForceSameSize := False; |