paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented TCanvas.Refresh

Browse Source 
git-svn-id: trunk@2710 -
This commit is contained in:
mattias 2002-08-18 04:56:54 +00:00
parent 639e8f73fa
commit 3f47263c5e
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphics.pp
View File

@ -526,6 +526,7 @@ type
public public
procedure Lock; procedure Lock;
procedure Unlock; procedure Unlock;
procedure Refresh;
procedure Arc(x,y,width,height,angle1,angle2 : Integer); procedure Arc(x,y,width,height,angle1,angle2 : Integer);
procedure Arc(x,y,width,height,SX,SY,EX,EY : Integer); procedure Arc(x,y,width,height,SX,SY,EX,EY : Integer);
@ -961,6 +962,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.62 2003/02/06 06:39:02 mattias
implemented TCanvas.Refresh
Revision 1.61 2003/01/28 17:04:34 mattias Revision 1.61 2003/01/28 17:04:34 mattias
renamed one Rect renamed one Rect

11
lcl/include/canvas.inc
View File

@ -1144,9 +1144,20 @@ begin
Dec(FLockCount); Dec(FLockCount);
end; end;
{------------------------------------------------------------------------------
procedure TCanvas.Refresh;
------------------------------------------------------------------------------}
procedure TCanvas.Refresh;
begin
DeselectHandles;
end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.39 2003/02/06 06:39:02 mattias
implemented TCanvas.Refresh
Revision 1.38 2003/01/28 17:04:34 mattias Revision 1.38 2003/01/28 17:04:34 mattias
renamed one Rect renamed one Rect