[JVCL-Checkins] CVS: dev/restructured/source JvZoom.pas,1.1,1.2

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

Update of /cvsroot/jvcl/dev/restructured/source
In directory usw-pr-cvs1:/tmp/cvs-serv5770/dev/restructured/source

Modified Files:
	JvZoom.pas 
Log Message:
Added Paint procedure to draw a frame in design-mode (easier to spot)

Index: JvZoom.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/restructured/source/JvZoom.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvZoom.pas	24 Jun 2002 10:27:26 -0000	1.1
--- JvZoom.pas	26 Jun 2002 23:24:13 -0000	1.2
***************
*** 37,41 ****
  
  type
!   TJvZoom = class(TWinControl)
    private
      FTimer: TTimer;
--- 37,41 ----
  
  type
!   TJvZoom = class(TCustomControl)
    private
      FTimer: TTimer;
***************
*** 52,55 ****
--- 52,56 ----
      procedure WMSize(var Msg: TWMSize); message WM_SIZE;
    protected
+     procedure Paint; override;
    public
      constructor Create(AOwner: TComponent); override;
***************
*** 116,119 ****
--- 117,132 ----
  {**************************************************}
  
+ procedure TJvZoom.Paint;
+ begin
+   inherited;
+   if csDesigning in ComponentState then
+     with inherited Canvas do
+     begin
+       Pen.Style := psDash;
+       Brush.Style := bsClear;
+       Rectangle(0, 0, Width, Height);
+     end;
+ end;
+ 
  procedure TJvZoom.PaintMe(Sender: TObject);
  var
***************
*** 187,188 ****
--- 200,202 ----
  
  end.
+