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

+ More winapi functions.

Browse Source 
git-svn-id: trunk@11515 -
This commit is contained in:
zeljko 2007-07-15 16:58:53 +00:00
parent 1ee2b6963e
commit a128a87d2f
2 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lcl/interfaces/qt/qtwinapi.inc
View File

@ -30,6 +30,42 @@
//##apiwiz##sps## // Do not remove, no wizard declaration before this line
{------------------------------------------------------------------------------
Function: Arc
Params: DC: HDC; Left,Top,Right,Bottom,angle1,angle2 : Integer
Returns: Boolean
------------------------------------------------------------------------------}
function TQtWidgetSet.Arc(DC: HDC; Left,Top,Right,Bottom,angle1,angle2 : Integer): Boolean;
var
ADC : TQtDeviceContext;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI Arc] DC: ', dbghex(DC));
{$endif}
Result := IsValidDC(DC);
if Result
then
QPainter_drawArc(TQtDeviceContext(DC).Widget, Left, Top, Right, Bottom, Angle1, Angle2);
end;
{------------------------------------------------------------------------------
Function: AngleChord
Params: DC: HDC; x1, y1, x2, y2, angle1, angle2: Integer
Returns: Boolean
------------------------------------------------------------------------------}
function TQtWidgetSet.AngleChord(DC: HDC; x1, y1, x2, y2, angle1, angle2: Integer): Boolean;
var
ADC : TQtDeviceContext;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI AngleChord] DC: ', dbghex(DC));
{$endif}
Result := IsValidDC(DC);
if Result
then
QPainter_drawChord(TQtDeviceContext(DC).Widget, x1, y1, x2, y2, Angle1, Angle2);
end;
{------------------------------------------------------------------------------
Function: BeginPaint
Params:

3
lcl/interfaces/qt/qtwinapih.inc
View File

@ -27,6 +27,9 @@
//##apiwiz##sps## // Do not remove, no wizard declaration before this line
function Arc(DC: HDC; Left,Top,Right,Bottom,angle1,angle2 : Integer): Boolean; override;
function AngleChord(DC: HDC; x1, y1, x2, y2, angle1, angle2: Integer): Boolean; override;
function BeginPaint(Handle: hWnd; Var PS : TPaintStruct) : hdc; override;
function ClientToScreen(Handle: HWND; var P: TPoint) : Boolean; override;