mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 16:37:54 +02:00
55 lines
2.7 KiB
PHP
55 lines
2.7 KiB
PHP
{%MainUnit cocoaint.pas}
|
|
|
|
{******************************************************************************
|
|
All Carbon interface communication implementations.
|
|
This are the overrides of the Carbon Interface for the methods defined in the
|
|
lcl/include/lclintfh.inc
|
|
|
|
!! Keep alphabetical !!
|
|
|
|
******************************************************************************
|
|
Interface
|
|
******************************************************************************
|
|
|
|
*****************************************************************************
|
|
This file is part of the Lazarus Component Library (LCL)
|
|
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
}
|
|
|
|
function CreateStandardCursor(ACursor: SmallInt): hCursor; override;
|
|
{procedure DrawGrid(DC: HDC; const R: TRect; DX, DY: Integer); override;
|
|
|
|
function ExtUTF8Out(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect;
|
|
Str: PChar; Count: Longint; Dx: PInteger): Boolean; override;
|
|
|
|
function GetAcceleratorString(const AVKey: Byte; const AShiftState: TShiftState): String; override;
|
|
function GetControlConstraints(Constraints: TObject): boolean; override;
|
|
function GetDesignerDC(WindowHandle: HWND): HDC; override;
|
|
function GetLCLOwnerObject(Handle: HWnd): TObject; override;
|
|
}
|
|
function IsDesignerDC(WindowHandle: HWND; DC: HDC): Boolean; override;
|
|
{
|
|
function PromptUser(const DialogCaption : string;
|
|
const DialogMessage : string;
|
|
DialogType : LongInt;
|
|
Buttons : PLongInt;
|
|
ButtonCount : LongInt;
|
|
DefaultIndex : LongInt;
|
|
EscapeResult : LongInt) : LongInt; override;}
|
|
|
|
function RawImage_CreateBitmaps(const ARawImage: TRawImage; out ABitmap, AMask: HBitmap; ASkipMask: Boolean = False): Boolean; override;
|
|
function RawImage_DescriptionFromBitmap(ABitmap: HBITMAP; out ADesc: TRawImageDescription): Boolean; override;
|
|
function RawImage_DescriptionFromDevice(ADC: HDC; out ADesc: TRawImageDescription): Boolean; override;
|
|
function RawImage_FromBitmap(out ARawImage: TRawImage; ABitmap, AMask: HBITMAP; ARect: PRect = nil): Boolean; override;
|
|
function RawImage_FromDevice(out ARawImage: TRawImage; ADC: HDC; const ARect: TRect): Boolean; override;
|
|
// override only when queried formats are different from screen description
|
|
//function RawImage_QueryDescription(AFlags: TRawImageQueryFlags; var ADesc: TRawImageDescription): Boolean; override;
|
|
|
|
{function ReleaseDesignerDC(Window: HWND; DC: HDC): Integer; override;}
|
|
|
|
procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
|
|
|