paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +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;
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;
{------------------------------------------------------------------------------
@ -1269,6 +1271,11 @@ begin
Result := Windows.GetDeviceCaps(DC, Index);
end;
function TWin32Object.GetDesignerDC(WindowHandle: HWND): HDC;
begin
Result := Windows.GetDC(0);
end;
function TWin32Object.GetDeviceSize(DC: HDC; var P: TPoint): Boolean;
var
hBitmap: HGDIOBJ;
@ -2516,6 +2523,9 @@ end;
{ =============================================================================
$Log$
Revision 1.67 2003/11/04 13:18:21 micha
Implement GetDesignerDC
Revision 1.66 2003/10/31 11:49:30 micha
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 GetDeviceCaps(DC: HDC; Index: Integer): Integer; 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 GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; Override;
Function GetFocus: HWND; Override;
@ -180,6 +181,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.36 2003/11/04 13:18:22 micha
Implement GetDesignerDC
Revision 1.35 2003/10/31 11:49:30 micha
fix win32 designer: grid, non-windowed components, selectiongrabbers