diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index 2b0ab0fd31..e1b710fac0 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -526,6 +526,7 @@ type
   public
     procedure Lock;
     procedure Unlock;
+    procedure Refresh;
 
     procedure Arc(x,y,width,height,angle1,angle2 : Integer);
     procedure Arc(x,y,width,height,SX,SY,EX,EY : Integer);
@@ -961,6 +962,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.62  2003/02/06 06:39:02  mattias
+  implemented TCanvas.Refresh
+
   Revision 1.61  2003/01/28 17:04:34  mattias
   renamed one Rect
 
diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc
index b713ea4909..d5fc741122 100644
--- a/lcl/include/canvas.inc
+++ b/lcl/include/canvas.inc
@@ -1144,9 +1144,20 @@ begin
   Dec(FLockCount);
 end;
 
+{------------------------------------------------------------------------------
+  procedure TCanvas.Refresh;
+ ------------------------------------------------------------------------------}
+procedure TCanvas.Refresh;
+begin
+  DeselectHandles;
+end;
+
 { =============================================================================
 
   $Log$
+  Revision 1.39  2003/02/06 06:39:02  mattias
+  implemented TCanvas.Refresh
+
   Revision 1.38  2003/01/28 17:04:34  mattias
   renamed one Rect