mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-05 13:58:17 +02:00
08aa90ec95
+Added define VerboseQtWinAPI_MISSING_IMPLEMENTATION, to see verbose qtwinapi messages during runtime, about unimplemented routines. git-svn-id: trunk@11622 -
187 lines
12 KiB
PHP
187 lines
12 KiB
PHP
{%MainUnit qtint.pas}
|
|
|
|
{******************************************************************************
|
|
All QT Winapi related stuff goes here.
|
|
This are the overrides of the QT Interface for the methods defined in the
|
|
lcl/include/winapih.inc
|
|
|
|
!! Keep this alphabetical !!
|
|
|
|
******************************************************************************
|
|
Interface
|
|
******************************************************************************
|
|
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.modifiedLGPL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
//##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 BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; override;
|
|
|
|
function CallNextHookEx(hHk: HHOOK; ncode : Integer; wParam: WParam; lParam : LParam) : Integer; override;
|
|
Function CallWindowProc(lpPrevWndFunc : TFarProc; Handle : HWND; Msg : UINT; wParam: WParam; lParam : lParam) : Integer; override;
|
|
function ClientToScreen(Handle: HWND; var P: TPoint) : Boolean; override;
|
|
function CombineRgn(Dest, Src1, Src2: HRGN; fnCombineMode: Longint): Longint; override;
|
|
function ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean; override;
|
|
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP; override;
|
|
function CreateBitmapFromRawImage(const RawImage: TRawImage; var Bitmap, MaskBitmap: HBitmap; AlwaysCreateMask: boolean): boolean; override;
|
|
function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; override;
|
|
function CreateCaret(Handle : HWND; Bitmap : hBitmap; Width, Height : Integer) : Boolean; override;
|
|
function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; override;
|
|
function CreateCompatibleDC(DC: HDC): HDC; override;
|
|
function CreateCursor(ACursorInfo: PIconInfo): hCursor; override;
|
|
function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;
|
|
function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
|
|
function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; override;
|
|
function CreatePenIndirect(const LogPen: TLogPen): HBRUSH; override;
|
|
function CreatePixmapIndirect(const Data: Pointer; const TransColor: Longint): HBITMAP; override;
|
|
function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: integer): HRGN; override;
|
|
function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN; override;
|
|
|
|
procedure DeleteCriticalSection(var CritSection: TCriticalSection); override;
|
|
function DeleteDC(hDC: HDC): Boolean; override;
|
|
function DeleteObject(GDIObject: HGDIOBJ): Boolean; override;
|
|
function DestroyCaret(Handle : HWND): Boolean; override;
|
|
function DestroyCursor(Handle: hCursor): Boolean; override;
|
|
function DPtoLP(DC: HDC; var Points; Count: Integer): BOOL; override;
|
|
Function DrawFrameControl(DC: HDC; const Rect : TRect; uType, uState : Cardinal) : Boolean; override;
|
|
function DrawFocusRect(DC: HDC; const Rect: TRect): boolean; override;
|
|
function DrawEdge(DC: HDC; var Rect: TRect; edge: Cardinal; grfFlags: Cardinal): Boolean; override;
|
|
function DrawText(DC: HDC; Str: PChar; Count: Integer; var ARect: TRect; Flags: Cardinal): Integer; override;
|
|
|
|
function Ellipse(DC: HDC; x1, y1, x2, y2: Integer): Boolean; override;
|
|
function EnableScrollBar(Wnd: HWND; wSBflags, wArrows: Cardinal): Boolean; override;
|
|
function EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean; override;
|
|
function EndPaint(Handle: hwnd; var PS: TPaintStruct): Integer; override;
|
|
procedure EnterCriticalSection(var CritSection: TCriticalSection); override;
|
|
Function ExcludeClipRect(dc: hdc; Left, Top, Right, Bottom : Integer) : Integer; override;
|
|
function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer; override;
|
|
function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean; override;
|
|
|
|
function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; override;
|
|
function FillRgn(DC: HDC; RegionHnd: HRGN; hbr: HBRUSH): Bool; override;
|
|
function Frame(DC: HDC; const ARect: TRect): Integer; override;
|
|
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TBevelCut): Boolean; override;
|
|
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;
|
|
|
|
function GetActiveWindow : HWND; override;
|
|
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; override;
|
|
function GetBitmapRawImageDescription(Bitmap: HBITMAP; Desc: PRawImageDescription): Boolean; override;
|
|
function GetCapture: HWND; override;
|
|
function GetCaretPos(var lpPoint: TPoint): Boolean; override;
|
|
function GetCaretRespondToFocus(handle: HWND; var ShowHideOnFocus: boolean): Boolean; override;
|
|
function GetClientBounds(handle : HWND; var ARect : TRect) : Boolean; override;
|
|
function GetClientRect(handle : HWND; var ARect : TRect) : Boolean; override;
|
|
function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
|
|
function GetClipRGN(DC: hDC; RGN: hRGN): Longint; override;
|
|
function GetCursorPos(var lpPoint: TPoint ): Boolean; override;
|
|
function GetDC(hWnd: HWND): HDC; override;
|
|
function GetDCOriginRelativeToWindow(PaintDC: HDC; WindowHandle: HWND; var OriginDiff: TPoint): boolean; override;
|
|
function GetDesignerDC(WindowHandle: HWND): HDC; override;
|
|
function GetDeviceCaps(DC: HDC; Index: Integer): Integer; override;
|
|
function GetDeviceRawImageDescription(DC: HDC; Desc: PRawImageDescription): boolean; override;
|
|
function GetDeviceSize(DC: HDC; var P: TPoint): Boolean; Override;
|
|
function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override;
|
|
function GetFocus: HWND; override;
|
|
function GetKeyState(nVirtKey: Integer): Smallint; override;
|
|
function GetMapMode(DC: HDC): Integer; override;
|
|
function GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; override;
|
|
function GetParent(Handle : HWND): HWND; override;
|
|
function GetProp(Handle : hwnd; Str : PChar): Pointer; override;
|
|
function GetRawImageFromDevice(SrcDC: HDC; const SrcRect: TRect; var NewRawImage: TRawImage): boolean; override;
|
|
function GetRawImageFromBitmap(SrcBitmap, SrcMaskBitmap: HBITMAP; const SrcRect: TRect; var NewRawImage: TRawImage): boolean; Override;
|
|
function GetRgnBox(RGN : HRGN; lpRect : PRect) : Longint; override;
|
|
function GetROP2(DC: HDC): Integer; override;
|
|
function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer; override;
|
|
function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean; override;
|
|
function GetScrollInfo(Handle: HWND; BarFlag: Integer; Var ScrollInfo: TScrollInfo): Boolean; override;
|
|
function GetStockObject(Value: Integer): THandle; override;
|
|
function GetSysColor(nIndex: Integer): DWORD; override;
|
|
function GetSystemMetrics(nIndex: Integer): Integer; override;
|
|
function GetTextColor(DC: HDC) : TColorRef; Override;
|
|
function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; override;
|
|
function GetTextMetrics(DC: HDC; var TM: TTextMetric): Boolean; override;
|
|
Function GetWindowLong(Handle : hwnd; int: Integer): PtrInt; override;
|
|
function GetWindowOrgEx(dc : hdc; P : PPoint): Integer; override;
|
|
function GetWindowRect(Handle: hwnd; var ARect: TRect): Integer; override;
|
|
function GetWindowRelativePosition(Handle: hwnd; var Left, Top: Integer): boolean; override;
|
|
function GetWindowSize(Handle: hwnd; var Width, Height: Integer): boolean; override;
|
|
|
|
function HideCaret(hWnd: HWND): Boolean; override;
|
|
|
|
function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; override;
|
|
procedure InitializeCriticalSection(var CritSection: TCriticalSection); override;
|
|
function IntersectClipRect(dc: hdc; Left, Top, Right, Bottom: Integer): Integer; override;
|
|
function IsWindowEnabled(Handle: HWND): boolean; override;
|
|
function IsWindowVisible(Handle: HWND): boolean; override;
|
|
|
|
procedure LeaveCriticalSection(var CritSection: TCriticalSection); override;
|
|
function LineTo(DC: HDC; X, Y: Integer): Boolean; override;
|
|
|
|
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): integer; override;
|
|
function MoveToEx(DC: HDC; X, Y: Integer; OldPoint: PPoint): Boolean; override;
|
|
function MoveWindowOrgEx(DC: HDC; dX, dY: Integer): Boolean; override;
|
|
|
|
function PeekMessage(var lpMsg : TMsg; Handle : HWND; wMsgFilterMin, wMsgFilterMax,wRemoveMsg : UINT): Boolean; override;
|
|
function PolyBezier(DC: HDC; Points: PPoint; NumPts: Integer; Filled, Continuous: boolean): boolean; override;
|
|
function Polygon(DC: HDC; Points: PPoint; NumPts: Integer; Winding: boolean): boolean; override;
|
|
function Polyline(DC: HDC; Points: PPoint; NumPts: Integer): boolean; override;
|
|
function PostMessage(Handle: HWND; Msg: Cardinal; wParam: WParam; lParam: LParam): Boolean; override;
|
|
|
|
function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean; override;
|
|
function RectVisible(dc : hdc; const ARect: TRect) : Boolean; override;
|
|
function ReleaseDC(hWnd: HWND; DC: HDC): Integer; override;
|
|
function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; override;
|
|
function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean; override;
|
|
|
|
function SaveDC(DC: HDC): Integer; override;
|
|
Function ScreenToClient(Handle : HWND; var P : TPoint) : Integer; override;
|
|
function SelectClipRGN(DC : hDC; RGN : HRGN) : Longint; override;
|
|
function SelectObject(DC: HDC; GDIObj: HGDIOBJ): HGDIOBJ; override;
|
|
function SetActiveWindow(Handle: HWND): HWND; override;
|
|
function SetBKColor(DC: HDC; Color: TColorRef): TColorRef; override;
|
|
function SetBkMode(DC: HDC; bkMode : Integer) : Integer; override;
|
|
function SetCaretPos(X, Y: Integer): Boolean; override;
|
|
function SetCaretPosEx(Handle: HWnd; X, Y: Integer): Boolean; override;
|
|
function SetCaretRespondToFocus(handle: HWND; ShowHideOnFocus: boolean): Boolean; override;
|
|
function SetCursor(ACursor: HCURSOR): HCURSOR; override;
|
|
function SetCursorPos(X, Y: Integer): Boolean; override;
|
|
function SetFocus(hWnd: HWND): HWND; override;
|
|
function SetForegroundWindow(HWnd: HWND): boolean; override;
|
|
function SetMapMode(DC: HDC; MapMode: Integer): Integer; override;
|
|
function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; override;
|
|
function SetScrollInfo(Handle : HWND; SBStyle : Integer; ScrollInfo: TScrollInfo; bRedraw : Boolean): Integer; override;
|
|
function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; override;
|
|
function SetWindowOrgEx(DC : HDC; NewX, NewY : Integer; OldPoint: PPoint) : Boolean; override;
|
|
function ShowCaret(hWnd: HWND): Boolean; override;
|
|
function ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean; override;
|
|
function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer;
|
|
SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; ROp: Cardinal): Boolean; override;
|
|
function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer;
|
|
SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Mask: HBITMAP;
|
|
XMask, YMask: Integer; Rop: DWORD): Boolean; override;
|
|
function SystemParametersInfo(uiAction: DWord; uiParam: DWord; pvParam: Pointer; fWinIni: DWord): LongBool; override;
|
|
|
|
function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
|
|
function UpdateWindow(Handle: HWND): Boolean; override;
|
|
function WindowFromPoint(Point: TPoint): HWND; override;
|
|
|
|
//##apiwiz##eps## // Do not remove, no wizard declaration after this line
|
|
|
|
|