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

WinCE: Fixes compilation

Browse Source 
git-svn-id: trunk@34790 -
This commit is contained in:
sekelsenmat 2012-01-19 09:47:55 +00:00
parent 2ce73b9e7f
commit 8f717d8e6f
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/wince/wincewinapi.inc
View File

@ -1312,13 +1312,6 @@ begin
Result := Integer(DrawFocusRect(DC,Arect));
end;
function TWinCEWidgetSet.Frame(DC: HDC; const ARect: TRect): Integer;
begin
//roozbeh....works for now!
Result := Integer(DrawFocusRect(DC,Arect));
end;
{------------------------------------------------------------------------------
Method: GetActiveWindow
Params: none

1
lcl/interfaces/wince/wincewinapih.inc
View File

@ -101,7 +101,6 @@ function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str:
function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer; override;
function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; 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;