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

symmetry getdesignerdc, releasedesignerdc

Browse Source 
git-svn-id: trunk@4774 -
This commit is contained in:
micha 2003-11-07 18:48:52 +00:00
parent f0b5c03d21
commit 8bf74c83fb
5 changed files with 53 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -2057,7 +2057,7 @@ begin
DDC.SetDC(Form,DesignerDC);
DoPaintDesignerItems;
DDC.Clear;
ReleaseDC(Form.Handle,DesignerDC);
ReleaseDesignerDC(Form.Handle,DesignerDC);
end;
procedure TDesigner.DoPaintDesignerItems;

8
lcl/include/interfacebase.inc
View File

@ -1505,6 +1505,11 @@ begin
Result := 0;
end;
function TInterfaceBase.ReleaseDesignerDC(hWnd: HWND; DC: HDC): Integer;
begin
Result := ReleaseDC(hWnd, DC);
end;
function TInterfaceBase.RestoreDC(DC: HDC; SavedDC: Integer): Boolean;
begin
Result := False;
@ -1842,6 +1847,9 @@ end;
{ =============================================================================
$Log$
Revision 1.108 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc
Revision 1.107 2003/11/03 22:37:41 mattias
fixed vert scrollbar, implemented GetDesignerDC

8
lcl/include/winapi.inc
View File

@ -874,6 +874,11 @@ begin
Result := InterfaceObject.ReleaseDC(hWnd, DC);
end;
function ReleaseDesignerDC(hWnd: HWND; DC: HDC): Integer;
begin
Result := InterfaceObject.ReleaseDesignerDC(hWnd, DC);
end;
Function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean;
begin
Result := InterfaceObject.RequestInput(InputCaption, InputPrompt, MaskInput, Value);
@ -1687,6 +1692,9 @@ end;
{ =============================================================================
$Log$
Revision 1.101 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc
Revision 1.100 2003/11/03 22:37:41 mattias
fixed vert scrollbar, implemented GetDesignerDC

4
lcl/include/winapih.inc
View File

@ -247,6 +247,7 @@ function RectVisible(dc : hdc; const ARect: TRect) : Boolean; {$IFDEF IF_BASE_ME
function RegroupMenuItem(hndMenu: HMENU; GroupIndex: integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ReleaseCapture : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ReleaseDC(hWnd: HWND; DC: HDC): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ReleaseDesignerDC(hWnd: HWND; DC: HDC): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function RightJustifyMenuItem(HndMenu: HMenu; bRightJustify: boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -399,6 +400,9 @@ procedure RaiseLastOSError;
{ =============================================================================
$Log$
Revision 1.91 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc
Revision 1.90 2003/11/03 22:37:41 mattias
fixed vert scrollbar, implemented GetDesignerDC

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

@ -137,6 +137,7 @@ Function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean; Override;
function RectVisible(dc : hdc; const ARect: TRect) : Boolean; Override;
Function ReleaseCapture: Boolean; Override;
Function ReleaseDC(HWnd: HWND; DC: HDC): Integer; Override;
Function ReleaseDesignerDC(HWnd: HWND; DC: HDC): Integer; Override;
Function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; Override;
Function SaveDC(DC: HDC): Integer; Override;
@ -181,6 +182,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.37 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc
Revision 1.36 2003/11/04 13:18:22 micha
Implement GetDesignerDC