[JVCL-Checkins] dev/JVCL3/run JvButton.pas,1.52,1.53 JvCtrls.pas,1.42,1.43 - - Flat should not be true by default - Always draw flat bord

[Peter T. <pe...@us...>]

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;