From 3f47263c5ea6c0b6f19a893312ad19717a416982 Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 18 Aug 2002 04:56:54 +0000 Subject: [PATCH] implemented TCanvas.Refresh git-svn-id: trunk@2710 - --- lcl/graphics.pp | 4 ++++ lcl/include/canvas.inc | 11 +++++++++++ 2 files changed, 15 insertions(+) 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