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

LCL: added IsDesignerDC to LCLIntf

Browse Source 
git-svn-id: trunk@14017 -
This commit is contained in:
tombo 2008-02-07 18:19:32 +00:00
parent 31ca02018a
commit ae4f87e1ab
3 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/intfbaselcl.inc
View File

@ -491,6 +491,11 @@ begin
Result:=true;
end;
function TWidgetSet.IsDesignerDC(WindowHandle: HWND; DC: HDC): Boolean;
begin
Result := False;
end;
function TWidgetSet.LoadStockPixmap(StockID: longint; var Mask: HBitmap) : HBitmap;
begin
Mask := 0;

5
lcl/include/lclintf.inc
View File

@ -369,6 +369,11 @@ begin
Result := WidgetSet.InvalidateFrame(aHandle,ARect,bErase,BorderWidth);
end;
function IsDesignerDC(WindowHandle: HWND; DC: HDC): Boolean;
begin
Result := WidgetSet.IsDesignerDC(WindowHandle, DC);
end;
function LoadStockPixmap(StockID: longint; var Mask: HBitmap) : HBitmap;
begin
Result := WidgetSet.LoadStockPixmap(StockID, Mask);

1
lcl/include/lclintfh.inc
View File

@ -102,6 +102,7 @@ function GetWindowRelativePosition(Handle : hwnd; var Left, Top: integer): boole
function IntfSendsUTF8KeyPress: Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function InvalidateFrame(aHandle : HWND; ARect : pRect; bErase : Boolean; BorderWidth: integer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function IsDesignerDC(WindowHandle: HWND; DC: HDC): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function LoadStockPixmap(StockID: longint; var Mask: HBitmap) : HBitmap; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function MoveWindowOrgEx(dc : hdc; dX,dY : Integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}