paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:20:49 +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); DDC.SetDC(Form,DesignerDC);
DoPaintDesignerItems; DoPaintDesignerItems;
DDC.Clear; DDC.Clear;
ReleaseDC(Form.Handle,DesignerDC); ReleaseDesignerDC(Form.Handle,DesignerDC);
end; end;
procedure TDesigner.DoPaintDesignerItems; procedure TDesigner.DoPaintDesignerItems;

8
lcl/include/interfacebase.inc
View File

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

8
lcl/include/winapi.inc
View File

@ -874,6 +874,11 @@ begin
Result := InterfaceObject.ReleaseDC(hWnd, DC); Result := InterfaceObject.ReleaseDC(hWnd, DC);
end; 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; Function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean;
begin begin
Result := InterfaceObject.RequestInput(InputCaption, InputPrompt, MaskInput, Value); Result := InterfaceObject.RequestInput(InputCaption, InputPrompt, MaskInput, Value);
@ -1687,6 +1692,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.101 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc
Revision 1.100 2003/11/03 22:37:41 mattias Revision 1.100 2003/11/03 22:37:41 mattias
fixed vert scrollbar, implemented GetDesignerDC 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 RegroupMenuItem(hndMenu: HMENU; GroupIndex: integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ReleaseCapture : 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 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 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 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} 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$ $Log$
Revision 1.91 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc
Revision 1.90 2003/11/03 22:37:41 mattias Revision 1.90 2003/11/03 22:37:41 mattias
fixed vert scrollbar, implemented GetDesignerDC 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 RectVisible(dc : hdc; const ARect: TRect) : Boolean; Override;
Function ReleaseCapture: Boolean; Override; Function ReleaseCapture: Boolean; Override;
Function ReleaseDC(HWnd: HWND; DC: HDC): Integer; 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 RestoreDC(DC: HDC; SavedDC: Integer): Boolean; Override;
Function SaveDC(DC: HDC): Integer; Override; Function SaveDC(DC: HDC): Integer; Override;
@ -181,6 +182,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.37 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc
Revision 1.36 2003/11/04 13:18:22 micha Revision 1.36 2003/11/04 13:18:22 micha
Implement GetDesignerDC Implement GetDesignerDC