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

+ Added RemoveProp winapi call

Browse Source 
git-svn-id: trunk@6831 -
This commit is contained in:
marc 2005-02-23 01:15:56 +00:00
parent 55f3a45a70
commit 66aff6fe55
3 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/intfbasewinapi.inc
View File

@ -1132,6 +1132,11 @@ begin
Result := 0;
end;
function TWidgetSet.RemoveProp(Handle: hwnd; Str: PChar): THandle;
begin
Result := 0;
end;
function TWidgetSet.RestoreDC(DC: HDC; SavedDC: Integer): Boolean;
begin
Result := False;
@ -1420,6 +1425,9 @@ end;
{ =============================================================================
$Log$
Revision 1.20 2005/02/23 01:15:56 marc
+ Added RemoveProp winapi call
Revision 1.19 2005/02/05 16:09:52 marc
* first 64bit changes

10
lcl/include/winapi.inc
View File

@ -621,7 +621,12 @@ begin
Result := InterfaceObject.ReleaseDC(hWnd, DC);
end;
Function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean;
function RemoveProp(Handle: hwnd; Str: PChar): THandle;
begin
Result := InterfaceObject.RemoveProp(Handle, Str);
end;
function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean;
begin
Result := InterfaceObject.RoundRect(DC, X1, Y1, X2, Y2, RX, RY);
end;
@ -1330,6 +1335,9 @@ end;
{ =============================================================================
$Log$
Revision 1.119 2005/02/23 01:15:56 marc
+ Added RemoveProp winapi call
Revision 1.118 2005/02/05 16:09:52 marc
* first 64bit changes

6
lcl/include/winapih.inc
View File

@ -181,6 +181,7 @@ function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean; {$IFDEF IF_BASE_M
function RectVisible(dc : hdc; const ARect: TRect) : 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 RemoveProp(Handle: hwnd; Str: PChar): THandle; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function RestoreDC(DC: HDC; SavedDC: 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}
@ -201,7 +202,7 @@ function SetCaretPosEx(handle: HWnd; X, Y: Integer): Boolean; {$IFDEF IF_BASE_ME
function SetCursor(hCursor: HICON): HCURSOR; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetFocus(hWnd: HWND): HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetMapMode(DC: HDC; MapMode: Integer): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function SetRect --> independent
//function SetRectEmpty --> independent
function SetROP2(DC: HDC; Mode: Integer): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -300,6 +301,9 @@ function RGB(R, G, B : Byte) : TColorRef;
{ =============================================================================
$Log$
Revision 1.106 2005/02/23 01:15:56 marc
+ Added RemoveProp winapi call
Revision 1.105 2005/02/05 16:09:52 marc
* first 64bit changes