← Back to branch summary

~ubuntu-branches/ubuntu/saucy/lazarus/saucy

« back to all changes in this revision

Viewing changes to lcl/interfaces/cocoa/cocoawinapih.inc

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Bart Martens, Paul Gevers
  • Date: 2013-06-08 14:12:17 UTC
  • mfrom: (1.1.9)
  • Revision ID: package-import@ubuntu.com-20130608141217-7k0cy9id8ifcnutc
Tags: 1.0.8+dfsg-1
http://bugs.debian.org/708695
[ Abou Al Montacir ]
* New upstream major release and multiple maintenace release offering many
  fixes and new features marking a new milestone for the Lazarus development
  and its stability level.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_fixes_branch
* LCL changes:
  - LCL is now a normal package.
      + Platform independent parts of the LCL are now in the package LCLBase
      + LCL is automatically recompiled when switching the target platform,
        unless pre-compiled binaries for this target are already installed.
      + No impact on existing projects.
      + Linker options needed by LCL are no more added to projects that do
        not use the LCL package.
  - Minor changes in LCL basic classes behaviour
      + TCustomForm.Create raises an exception if a form resource is not
        found.
      + TNotebook and TPage: a new implementation of these classes was added.
      + TDBNavigator: It is now possible to have focusable buttons by setting
        Options = [navFocusableButtons] and TabStop = True, useful for
        accessibility and for devices with neither mouse nor touch screen.
      + Names of TControlBorderSpacing.GetSideSpace and GetSpace were swapped
        and are now consistent. GetSideSpace = Around + GetSpace.
      + TForm.WindowState=wsFullscreen was added
      + TCanvas.TextFitInfo was added to calculate how many characters will
        fit into a specified Width. Useful for word-wrapping calculations.
      + TControl.GetColorResolvingParent and
        TControl.GetRGBColorResolvingParent were added, simplifying the work
        to obtain the final color of the control while resolving clDefault
        and the ParentColor.
      + LCLIntf.GetTextExtentExPoint now has a good default implementation
        which works in any platform not providing a specific implementation.
        However, Widgetset specific implementation is better, when available.
      + TTabControl was reorganized. Now it has the correct class hierarchy
        and inherits from TCustomTabControl as it should.
  - New unit in the LCL:
      + lazdialogs.pas: adds non-native versions of various native dialogs,
        for example TLazOpenDialog, TLazSaveDialog, TLazSelectDirectoryDialog.
        It is used by widgetsets which either do not have a native dialog, or
        do not wish to use it because it is limited. These dialogs can also be
        used by user applications directly.
      + lazdeviceapis.pas: offers an interface to more hardware devices such
        as the accelerometer, GPS, etc. See LazDeviceAPIs
      + lazcanvas.pas: provides a TFPImageCanvas descendent implementing
        drawing in a LCL-compatible way, but 100% in Pascal.
      + lazregions.pas. LazRegions is a wholly Pascal implementation of
        regions for canvas clipping, event clipping, finding in which control
        of a region tree one an event should reach, for drawing polygons, etc.
      + customdrawncontrols.pas, customdrawndrawers.pas,
        customdrawn_common.pas, customdrawn_android.pas and
        customdrawn_winxp.pas: are the Lazarus Custom Drawn Controls -controls
        which imitate the standard LCL ones, but with the difference that they
        are non-native and support skinning.
  - New APIs added to the LCL to improve support of accessibility software
    such as screen readers.
* IDE changes:
  - Many improvments.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/New_IDE_features_since#v1.0_.282012-08-29.29
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes#IDE_Changes
* Debugger / Editor changes:
  - Added pascal sources and breakpoints to the disassembler
  - Added threads dialog.
* Components changes:
  - TAChart: many fixes and new features
  - CodeTool: support Delphi style generics and new syntax extensions.
  - AggPas: removed to honor free licencing. (Closes: Bug#708695)
[Bart Martens]
* New debian/watch file fixing issues with upstream RC release.
[Abou Al Montacir]
* Avoid changing files in .pc hidden directory, these are used by quilt for
  internal purpose and could lead to surprises during build.
[Paul Gevers]
* Updated get-orig-source target and it compinion script orig-tar.sh so that they
  repack the source file, allowing bug 708695 to be fixed.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lcl/interfaces/cocoa/cocoawinapih.inc
27
27
 
28
28
//##apiwiz##sps##   // Do not remove, no wizard declaration before this line
29
29
 
30
 
//function Arc(DC: HDC; Left,Top,Right,Bottom,angle1,angle2 : Integer): Boolean; override;
31
 
//function AngleChord(DC: HDC; x1, y1, x2, y2, angle1, angle2: Integer): Boolean; override;
 
30
function Arc(DC: HDC; Left,Top,Right,Bottom,angle1,angle2 : Integer): Boolean; override;
 
31
function AngleChord(DC: HDC; x1, y1, x2, y2, angle1, angle2: Integer): Boolean; override;
32
32
 
33
 
{function BeginPaint(Handle: hWnd; Var PS : TPaintStruct) : hdc; override;
 
33
function BeginPaint(Handle: hWnd; Var PS : TPaintStruct) : hdc; override;
34
34
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; override;
35
35
 
36
 
function CallNextHookEx(hHk: HHOOK; ncode : Integer; wParam: WParam; lParam : LParam) : Integer; override;
37
 
function CallWindowProc(lpPrevWndFunc : TFarProc; Handle : HWND; Msg : UINT; wParam: WParam; lParam : lParam) : Integer; override;
 
36
{function CallNextHookEx(hHk: HHOOK; ncode : Integer; wParam: WParam; lParam : LParam) : Integer; override;
 
37
function CallWindowProc(lpPrevWndFunc : TFarProc; Handle : HWND; Msg : UINT; wParam: WParam; lParam : lParam) : Integer; override;}
38
38
function ClientToScreen(Handle: HWND; var P: TPoint) : Boolean; override;
39
 
 
 
39
{
40
40
function ClipboardFormatToMimeType(FormatID: TClipboardFormat): string; override;
41
41
function ClipboardGetData(ClipboardType: TClipboardType;
42
42
  FormatID: TClipboardFormat; Stream: TStream): boolean; override;
49
49
function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat; override;}
50
50
 
51
51
function CombineRgn(Dest, Src1, Src2: HRGN; fnCombineMode: Longint): Longint;  override;
52
 
{function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP; override;}
 
52
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP; override;
53
53
function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; override;
54
 
{function CreateCaret(Handle : HWND; Bitmap : hBitmap; Width, Height : Integer) : Boolean; override;
 
54
function CreateCaret(Handle : HWND; Bitmap : hBitmap; Width, Height : Integer) : Boolean; override;
55
55
function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; override;
56
56
function CreateCompatibleDC(DC: HDC): HDC; override;
57
 
function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;}
 
57
{function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;}
58
58
function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
59
59
function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; override;
60
 
{function CreateIconIndirect(IconInfo: PIconInfo): HICON; override;}
 
60
function CreateIconIndirect(IconInfo: PIconInfo): HICON; override;
61
61
function CreatePenIndirect(const LogPen: TLogPen): HPEN; override;
62
62
function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: integer): HRGN; override;
63
63
function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN; override;
64
64
procedure DeleteCriticalSection(var CritSection: TCriticalSection); override;
65
 
{function DeleteDC(hDC: HDC): Boolean; override;}
 
65
function DeleteDC(hDC: HDC): Boolean; override;
66
66
function DeleteObject(GDIObject: HGDIOBJ): Boolean; override;
67
 
{function DestroyCaret(Handle : HWND): Boolean; override;
 
67
function DestroyCaret(Handle : HWND): Boolean; override;
68
68
function DestroyIcon(Handle: HICON): Boolean; override;
69
 
function DPtoLP(DC: HDC; var Points; Count: Integer): BOOL; override;
 
69
{function DPtoLP(DC: HDC; var Points; Count: Integer): BOOL; override;}
70
70
function DrawFocusRect(DC: HDC; const Rect: TRect): boolean; override;
71
71
function DrawEdge(DC: HDC; var Rect: TRect; edge: Cardinal; grfFlags: Cardinal): Boolean; override;
72
 
function DrawText(DC: HDC; Str: PChar; Count: Integer; var ARect: TRect; Flags: Cardinal): Integer; override;}
 
72
//function DrawText(DC: HDC; Str: PChar; Count: Integer; var ARect: TRect; Flags: Cardinal): Integer; override;
73
73
 
74
74
function Ellipse(DC: HDC; x1, y1, x2, y2: Integer): Boolean; override;
75
75
{function EnableScrollBar(Wnd: HWND; wSBflags, wArrows: Cardinal): Boolean; override;}
76
76
function EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean; override;
77
 
{function EndPaint(Handle: hwnd; var PS: TPaintStruct): Integer; override;}
 
77
function EndPaint(Handle: hwnd; var PS: TPaintStruct): Integer; override;
78
78
procedure EnterCriticalSection(var CritSection: TCriticalSection); override;
79
79
function EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont; Callback: FontEnumExProc; Lparam: LParam; Flags: dword): longint; override;
80
 
{function ExcludeClipRect(dc: hdc; Left, Top, Right, Bottom : Integer) : Integer; override;
81
 
function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer;  override;}
 
80
function EnumDisplayMonitors(hdc: HDC; lprcClip: PRect; lpfnEnum: MonitorEnumProc; dwData: LPARAM): LongBool; override;
 
81
{function ExcludeClipRect(dc: hdc; Left, Top, Right, Bottom : Integer) : Integer; override;}
 
82
function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer;  override;
 
83
function ExtCreatePen(dwPenStyle, dwWidth: DWord; const lplb: TLogBrush; dwStyleCount: DWord; lpStyle: PDWord): HPEN; override;
82
84
function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean; override;
83
85
 
84
86
function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; override;
85
 
{function FillRgn(DC: HDC; RegionHnd: HRGN; hbr: HBRUSH): Bool; override;
86
 
function Frame(DC: HDC; const ARect: TRect): Integer; override;
 
87
function FillRgn(DC: HDC; RegionHnd: HRGN; hbr: HBRUSH): Bool; override;
87
88
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TBevelCut): Boolean; override;
88
89
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;
89
90
 
90
 
function GetActiveWindow : HWND; override;
91
 
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint;  Bits: Pointer): Longint; override;
92
 
function GetCapture: HWND; override;
 
91
function GetActiveWindow: HWND; override;
 
92
{function GetBitmapBits(Bitmap: HBITMAP; Count: Longint;  Bits: Pointer): Longint; override;}
 
93
function GetBkColor(DC: HDC): TColorRef; override;
 
94
{function GetCapture: HWND; override;}
93
95
function GetCaretPos(var lpPoint: TPoint): Boolean; override;
94
 
function GetCaretRespondToFocus(handle: HWND; var ShowHideOnFocus: boolean): Boolean; override;}
 
96
function GetCaretRespondToFocus(handle: HWND; var ShowHideOnFocus: boolean): Boolean; override;
95
97
function GetClientBounds(handle : HWND; var ARect : TRect) : Boolean; override;
96
98
function GetClientRect(handle : HWND; var ARect : TRect) : Boolean; override;
97
 
{function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
 
99
function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
98
100
function GetClipRGN(DC: hDC; RGN: hRGN): Longint; override;
99
 
function GetCursorPos(var lpPoint: TPoint ): Boolean; override;}
 
101
function GetCursorPos(var lpPoint: TPoint ): Boolean; override;
100
102
function GetDC(hWnd: HWND): HDC; override;
101
 
{function GetDCOriginRelativeToWindow(PaintDC: HDC; WindowHandle: HWND; var OriginDiff: TPoint): boolean; override;
 
103
{function GetDCOriginRelativeToWindow(PaintDC: HDC; WindowHandle: HWND; var OriginDiff: TPoint): boolean; override;}
102
104
function GetDeviceCaps(DC: HDC; Index: Integer): Integer; override;
103
 
function GetDeviceSize(DC: HDC; var P: TPoint): Boolean; Override;
104
 
function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override;
 
105
function GetDeviceSize(DC: HDC; var P: TPoint): Boolean; override;
 
106
{function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; override;}
105
107
function GetFocus: HWND; override;
 
108
function GetForegroundWindow: HWND; override;
106
109
function GetKeyState(nVirtKey: Integer): Smallint; override;
107
 
function GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; override;}
108
 
function GetParent(Handle : HWND): HWND; override;
109
 
function GetProp(Handle : hwnd; Str : PChar): Pointer; override;
110
 
{function GetRgnBox(RGN : HRGN; lpRect : PRect) : Longint; override;
111
 
function GetROP2(DC: HDC): Integer; override;}
 
110
function GetMonitorInfo(hMonitor: HMONITOR; lpmi: PMonitorInfo): Boolean; override;
 
111
function GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; override;
 
112
function GetParent(Handle: HWND): HWND; override;
 
113
function GetProp(Handle: hwnd; Str: PChar): Pointer; override;
 
114
function GetRgnBox(RGN: HRGN; lpRect: PRect) : Longint; override;
 
115
function GetROP2(DC: HDC): Integer; override;
112
116
function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer; override;
113
117
function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean; override;
114
118
function GetScrollInfo(Handle: HWND; BarFlag: Integer; Var ScrollInfo: TScrollInfo): Boolean; override;
115
 
{function GetStockObject(Value: Integer): THandle; override;
 
119
function GetStockObject(Value: Integer): THandle; override;
116
120
function GetSysColor(nIndex: Integer): DWORD; override;
117
 
function GetSystemMetrics(nIndex: Integer): Integer; override;}
 
121
function GetSysColorBrush(nIndex: Integer): HBRUSH; override;
 
122
function GetSystemMetrics(nIndex: Integer): Integer; override;
118
123
function GetTextColor(DC: HDC) : TColorRef; Override;
119
 
{function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; override;
 
124
function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; override;
120
125
function GetTextMetrics(DC: HDC; var TM: TTextMetric): Boolean;  override;
121
 
function GetWindowLong(Handle : hwnd; int: Integer): PtrInt; override;}
 
126
{function GetWindowLong(Handle : hwnd; int: Integer): PtrInt; override;}
122
127
function GetWindowOrgEx(dc : hdc; P : PPoint): Integer; override;
123
128
function GetWindowRect(Handle: hwnd; var ARect: TRect): Integer; override;
124
129
function GetWindowRelativePosition(Handle: hwnd; var Left, Top: Integer): boolean; override;
125
130
function GetWindowSize(Handle: hwnd; var Width, Height: Integer): boolean; override;
126
131
{function GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Longint;
127
 
  Meshes: Pointer; NumMeshes : Longint; Mode : Longint): Boolean; override;
 
132
  Meshes: Pointer; NumMeshes : Longint; Mode : Longint): Boolean; override;}
128
133
 
129
 
function HideCaret(hWnd: HWND): Boolean; override;}
 
134
function HideCaret(Handle: HWND): Boolean; override;
130
135
 
131
136
function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; override;
132
137
procedure InitializeCriticalSection(var CritSection: TCriticalSection); override;
133
 
{function IntersectClipRect(dc: hdc; Left, Top, Right, Bottom: Integer): Integer; override;}
134
138
function IsWindowEnabled(Handle: HWND): boolean; override;
135
139
function IsWindowVisible(Handle: HWND): boolean; override;
136
140
 
145
149
function PolyBezier(DC: HDC; Points: PPoint; NumPts: Integer; Filled, Continuous: boolean): boolean; override;}
146
150
function Polygon(DC: HDC; Points: PPoint; NumPts: Integer; Winding: boolean): boolean; override;
147
151
function Polyline(DC: HDC; Points: PPoint; NumPts: Integer): boolean; override;
148
 
{function PostMessage(Handle: HWND; Msg: Cardinal; wParam: WParam; lParam: LParam): Boolean; override;}
 
152
function PostMessage(Handle: HWND; Msg: Cardinal; wParam: WParam; lParam: LParam): Boolean; override;
149
153
 
150
154
function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean; override;
151
155
function RectVisible(dc : hdc; const ARect: TRect) : Boolean; override;
152
156
{function ReleaseCapture : Boolean; override;
153
157
function ReleaseDC(hWnd: HWND; DC: HDC): Integer; override;}
154
158
function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; override;
155
 
{function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean; override;}
 
159
function RoundRect(DC: HDC; X1, Y1, X2, Y2: Integer; RX, RY : Integer): Boolean; override;
156
160
 
157
161
function SaveDC(DC: HDC): Integer; override;
158
 
{function ScreenToClient(Handle : HWND; var P : TPoint) : Integer; override;
159
 
function SelectClipRGN(DC : hDC; RGN : HRGN) : Longint; override;}
 
162
function ScreenToClient(Handle: HWND; var P: TPoint): Integer; override;
 
163
function SelectClipRGN(DC : hDC; RGN : HRGN) : Longint; override;
160
164
function SelectObject(ADC: HDC; GDIObj: HGDIOBJ): HGDIOBJ; override;
161
 
{function SendMessage(HandleWnd: HWND; Msg: Cardinal; WParam: WParam; LParam: LParam): LResult; override;
 
165
function SendMessage(Handle: HWND; Msg: Cardinal; WParam: WParam; LParam: LParam): LResult; override;
162
166
function SetActiveWindow(Handle: HWND): HWND; override;
163
167
function SetBKColor(DC: HDC; Color: TColorRef): TColorRef; override;
164
168
function SetBkMode(DC: HDC; bkMode : Integer) : Integer; override;
165
 
function SetCapture(AHandle: HWND): HWND; override;
 
169
{function SetCapture(AHandle: HWND): HWND; override;}
166
170
function SetCaretPos(X, Y: Integer): Boolean; override;
167
171
function SetCaretPosEx(Handle: HWnd; X, Y: Integer): Boolean; override;
168
172
function SetCaretRespondToFocus(handle: HWND; ShowHideOnFocus: boolean): Boolean; override;
169
173
function SetCursor(ACursor: HCURSOR): HCURSOR; override;
170
174
function SetCursorPos(X, Y: Integer): Boolean; override;
171
 
function SetFocus(hWnd: HWND): HWND; override;
172
 
function SetForegroundWindow(HWnd: HWND): boolean; override;}
173
 
function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; override;
 
175
function SetFocus(Handle: HWND): HWND; override;
 
176
function SetForegroundWindow(HWnd: HWND): boolean; override;
 
177
function SetProp(Handle: hwnd; Str: PChar; Data: Pointer) : Boolean; override;
 
178
function SetROP2(DC: HDC; Mode: Integer): Integer; override;
174
179
function SetScrollInfo(Handle : HWND; SBStyle : Integer; ScrollInfo: TScrollInfo; bRedraw : Boolean): Integer; override;
 
180
function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): Boolean; override;
175
181
function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; override;
176
 
{function SetWindowOrgEx(DC : HDC; NewX, NewY : Integer; OldPoint: PPoint) : Boolean; override;
177
 
function ShowCaret(hWnd: HWND): Boolean; override;}
 
182
{function SetWindowOrgEx(DC : HDC; NewX, NewY : Integer; OldPoint: PPoint) : Boolean; override;}
 
183
function ShowCaret(Handle: HWND): Boolean; override;
178
184
function ShowScrollBar(Handle: HWND; wBar: Integer; bShow: Boolean): Boolean; override;
179
185
function ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean; override;
180
 
{function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer;
 
186
function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer;
181
187
  SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; ROp: Cardinal): Boolean; override;
182
188
function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer;
183
189
  SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Mask: HBITMAP;
184
190
  XMask, YMask: Integer; Rop: DWORD): Boolean; override;
185
 
function SystemParametersInfo(uiAction: DWord; uiParam: DWord; pvParam: Pointer; fWinIni: DWord): LongBool; override;}
 
191
function SystemParametersInfo(uiAction: DWord; uiParam: DWord; pvParam: Pointer; fWinIni: DWord): LongBool; override;
186
192
 
187
 
function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
 
193
function TextOut(DC: HDC; X,Y: Integer; Str: Pchar; Count: Integer) : Boolean; override;
188
194
function UpdateWindow(Handle: HWND): Boolean; override;
189
195
{function WindowFromPoint(Point: TPoint): HWND; override;}
190
196
 
191
197
//##apiwiz##eps##   // Do not remove, no wizard declaration after this line
192
198
 
193
199
 
194
 
 
195
 
 
196
 
 
197