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

Implement GetDesignerDC

Browse Source 
git-svn-id: trunk@4762 -
This commit is contained in:
micha 2003-11-04 13:18:22 +00:00
parent b0b4261064
commit ed636973a6
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/win32/win32winapi.inc
View File

@ -818,7 +818,9 @@ End;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function TWin32Object.DrawFrameControl(DC: HDC; Var Rect: TRect; UType, UState: Cardinal): Boolean; Function TWin32Object.DrawFrameControl(DC: HDC; Var Rect: TRect; UType, UState: Cardinal): Boolean;
Begin Begin
Result := Windows.DrawFrameControl(DC, @Rect, UType, UState); // flat button border: ignore
if (UType <> DFC_BUTTON) or ((UState and DFCS_FLAT) = 0) then
Result := Windows.DrawFrameControl(DC, @Rect, UType, UState);
End; End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -1269,6 +1271,11 @@ begin
Result := Windows.GetDeviceCaps(DC, Index); Result := Windows.GetDeviceCaps(DC, Index);
end; end;
function TWin32Object.GetDesignerDC(WindowHandle: HWND): HDC;
begin
Result := Windows.GetDC(0);
end;
function TWin32Object.GetDeviceSize(DC: HDC; var P: TPoint): Boolean; function TWin32Object.GetDeviceSize(DC: HDC; var P: TPoint): Boolean;
var var
hBitmap: HGDIOBJ; hBitmap: HGDIOBJ;
@ -2516,6 +2523,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.67 2003/11/04 13:18:21 micha
Implement GetDesignerDC
Revision 1.66 2003/10/31 11:49:30 micha Revision 1.66 2003/10/31 11:49:30 micha
fix win32 designer: grid, non-windowed components, selectiongrabbers fix win32 designer: grid, non-windowed components, selectiongrabbers

4
lcl/interfaces/win32/win32winapih.inc
View File

@ -91,6 +91,7 @@ function GetCursorPos(var LPPoint: TPoint): Boolean; override;
Function GetDC(HWnd: HWND): HDC; Override; Function GetDC(HWnd: HWND): HDC; Override;
function GetDeviceCaps(DC: HDC; Index: Integer): Integer; Override; function GetDeviceCaps(DC: HDC; Index: Integer): Integer; Override;
function GetDeviceSize(DC: HDC; var P: TPoint): Boolean; Override; function GetDeviceSize(DC: HDC; var P: TPoint): Boolean; Override;
function GetDesignerDC(WindowHandle: HWND): HDC; Override;
function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override; function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override;
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; Override; function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; Override;
Function GetFocus: HWND; Override; Function GetFocus: HWND; Override;
@ -180,6 +181,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.36 2003/11/04 13:18:22 micha
Implement GetDesignerDC
Revision 1.35 2003/10/31 11:49:30 micha Revision 1.35 2003/10/31 11:49:30 micha
fix win32 designer: grid, non-windowed components, selectiongrabbers fix win32 designer: grid, non-windowed components, selectiongrabbers