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

MG: implemented TCanvas.Arc

Browse Source 
git-svn-id: trunk@555 -
This commit is contained in:
lazarus 2001-12-27 16:31:28 +00:00
parent ea61035ca8
commit 32a7b72b7e
6 changed files with 69 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/canvas.inc
View File

@ -220,7 +220,8 @@ end;
------------------------------------------------------------------------------}
procedure TCanvas.Arc(x,y,width,height,angle1,angle2 : Integer);
begin
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.Arc(FHandle,x,y,width,height,angle1,angle2);
end;
{------------------------------------------------------------------------------
@ -622,6 +623,9 @@ end;
{ =============================================================================
$Log$
Revision 1.12 2001/12/27 16:31:28 lazarus
MG: implemented TCanvas.Arc
Revision 1.11 2001/11/09 19:14:23 lazarus
HintWindow changes
Shane

10
lcl/include/interfacebase.inc
View File

@ -9,6 +9,12 @@
******************************************************************************}
//##apiwiz##sps## // Do not remove
function TInterfaceBase.Arc(DC: HDC;
x,y,width,height,angle1,angle2 : Integer): Boolean;
begin
Result := false;
end;
function TInterfaceBase.BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean;
begin
Result := False;
@ -16,7 +22,6 @@ end;
Function TInterfaceBase.BringWindowToTop(hWnd : HWND): Boolean;
begin
// Your default here
Result := false;
end;
@ -498,6 +503,9 @@ end;
{ =============================================================================
$Log$
Revision 1.22 2001/12/27 16:31:28 lazarus
MG: implemented TCanvas.Arc
Revision 1.21 2001/12/12 14:23:17 lazarus
MG: implemented DestroyCaret

11
lcl/include/winapi.inc
View File

@ -2,7 +2,7 @@
All Winapi related stuff goes here.
This file is used by LCLLinux
If a procedure is platform dependent then it should call:
InterfaceObjec.MyDependentProc
InterfaceObject.MyDependentProc
If a procedure insn't platform dependent, it is no part of InterfaseBase has
to be implementerd here
@ -16,6 +16,12 @@
******************************************************************************}
//##apiwiz##sps## // Do not remove
function Arc(DC: HDC; x,y,width,height,angle1,angle2 : Integer): Boolean;
begin
Result := InterfaceObject.Arc(DC,x,y,width,height,angle1,angle2);
end;
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean;
begin
Result := InterfaceObject.BitBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, Rop);
@ -1027,6 +1033,9 @@ end;
{ =============================================================================
$Log$
Revision 1.21 2001/12/27 16:31:28 lazarus
MG: implemented TCanvas.Arc
Revision 1.20 2001/12/12 14:23:18 lazarus
MG: implemented DestroyCaret

5
lcl/include/winapih.inc
View File

@ -18,6 +18,8 @@
******************************************************************************}
//##apiwiz##sps## // Do not remove
function Arc(DC: HDC; x,y,width,height,angle1,angle2 : Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function BringWindowToTop(hWnd : HWND): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -241,6 +243,9 @@ function UnionRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): Boolean
{ =============================================================================
$Log$
Revision 1.17 2001/12/27 16:31:28 lazarus
MG: implemented TCanvas.Arc
Revision 1.16 2001/12/12 14:23:18 lazarus
MG: implemented DestroyCaret

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

@ -31,6 +31,38 @@ const
//##apiwiz##sps## // Do not remove
{------------------------------------------------------------------------------
Function: Arc
Params: none
Returns: Nothing
The Arc function draws an arc. The arc is outlined by using
the current pen.
------------------------------------------------------------------------------}
function TgtkObject.Arc(DC: HDC;
x,y,width,height,angle1,angle2 : Integer): Boolean;
begin
Result := IsValidDC(DC);
if Result
then with PDeviceContext(DC)^ do
begin
if GC = nil
then begin
WriteLn('WARNING: [TgtkObject.Rectangle] Uninitialized GC');
Result := False;
end
else begin
// Draw outline
SelectGDKPenProps(DC);
gdk_draw_arc(Drawable, GC, 0, X, Y, Width, Height,
Angle1 shl 2, Angle2 shl 2);
Result := True;
end;
end;
end;
{------------------------------------------------------------------------------
Function: BitBlt
Params: DestDC: The destination devicecontext
@ -4096,6 +4128,9 @@ end;
{ =============================================================================
$Log$
Revision 1.53 2001/12/27 16:31:28 lazarus
MG: implemented TCanvas.Arc
Revision 1.52 2001/12/20 14:41:20 lazarus
Fixed setfocus for TComboBox and TMemo
Shane

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

@ -5,6 +5,8 @@
******************************************************************************)
//##apiwiz##sps## // Do not remove
function Arc(DC: HDC; x,y,width,height,angle1,angle2 : Integer): Boolean; override;
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; override;
Function BringWindowToTop(hWnd : HWND): Boolean; override;
@ -126,6 +128,9 @@ Function WindowFromPoint(Point : TPoint) : HWND; override;
{ =============================================================================
$Log$
Revision 1.21 2001/12/27 16:31:28 lazarus
MG: implemented TCanvas.Arc
Revision 1.20 2001/12/12 14:23:18 lazarus
MG: implemented DestroyCaret