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

fixed gtk intf Arc

Browse Source 
git-svn-id: trunk@6732 -
This commit is contained in:
mattias 2005-02-04 01:04:41 +00:00
parent a6b83fde9b
commit b32ca7cca8
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/canvas.inc
View File

@ -390,17 +390,8 @@ begin
end;
procedure TCanvas.DoEllipseFill(const Bounds: TRect);
var
x: Integer;
y: Integer;
w: Integer;
h: Integer;
begin
x:=(Bounds.Left+Bounds.Right) div 2;
y:=(Bounds.Top+Bounds.Bottom) div 2;
w:=Abs(Bounds.Right-Bounds.Left) div 2;
h:=Abs(Bounds.Bottom-Bounds.Top) div 2;
Chord(x,y,w,h,0,360*16);
Ellipse(Bounds);
end;
procedure TCanvas.DoEllipseAndFill(const Bounds: TRect);
@ -1544,6 +1535,9 @@ end;
{ =============================================================================
$Log$
Revision 1.90 2005/02/04 01:04:40 mattias
fixed gtk intf Arc
Revision 1.89 2005/01/15 11:56:13 mattias
fixed locking TCanvas

5
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -75,7 +75,7 @@ begin
inc(X,DCOrigin.X);
inc(Y,DCOrigin.Y);
{$IFDEF DebugGDKTraps}BeginGDKErrorTrap;{$ENDIF}
gdk_draw_arc(Drawable, GC, 0, X, Y, Width, Height,
gdk_draw_arc(Drawable, GC, 0, X-Width, Y-Height, 2*Width, 2*Height,
Angle1 shl 2, Angle2 shl 2);
{$IFDEF DebugGDKTraps}EndGDKErrorTrap;{$ENDIF}
end else
@ -8862,6 +8862,9 @@ end;
{ =============================================================================
$Log$
Revision 1.391 2005/02/04 01:04:41 mattias
fixed gtk intf Arc
Revision 1.390 2005/01/28 17:55:48 mattias
fixed mem leak