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

LCL: removed dummy function GetMapMode

Browse Source 
git-svn-id: trunk@11667 -
This commit is contained in:
mattias 2007-07-29 13:46:53 +00:00
parent e487ef78ac
commit 3b03325209
5 changed files with 0 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/intfbasewinapi.inc
View File

@ -846,11 +846,6 @@ begin
Result := 0;
end;
function TWidgetSet.GetMapMode(DC: HDC): Integer;
begin
Result := 0;
end;
function TWidgetSet.GetObject(GDIObject: HGDIOBJ; BufSize: Integer;
Buf: Pointer): Integer;
begin

5
lcl/include/winapi.inc
View File

@ -369,11 +369,6 @@ begin
Result := WidgetSet.GetKeyState(nVirtKey);
end;
function GetMapMode(DC: HDC): Integer;
begin
Result := WidgetSet.GetMapMode(DC);
end;
function GetObject(GDIObject: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer;
begin
Result := WidgetSet.GetObject(GDIObject, BufSize, Buf);

1
lcl/include/winapih.inc
View File

@ -121,7 +121,6 @@ function GetFocus: HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetFontLanguageInfo(DC: HDC): DWord; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetForegroundWindow: HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetKeyState(nVirtKey: Integer): Smallint; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetMapMode(DC: HDC): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetObject(GDIObject: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT;
var PaletteEntries): UINT; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}

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

@ -2105,26 +2105,6 @@ begin
Result := True;
end;
{------------------------------------------------------------------------------
Method: TQtWidgetSet.GetMapMode
Params: DC
Returns: Integer
------------------------------------------------------------------------------}
function TQtWidgetSet.GetMapMode(DC: HDC): Integer;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('Trace:> [WinAPI GetMapMode] DC: ' + dbghex(DC));
{$endif}
Result := 0;
if not IsValidDC(DC) then exit;
{$note implement - wait for LCL}
{$ifdef VerboseQtWinAPI_MISSING_IMPLEMENTATION}
WriteLn('***** [WinAPI TQtWidgetSet.GetMapMode] missing implementation ');
{$endif}
// Result := TQtDeviceContext(DC).MapMode;
end;
{------------------------------------------------------------------------------
Method: TQtWidgetSet.GetObject
Params: none

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

@ -111,7 +111,6 @@ 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;