paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Keith: Removed redef of Assert

Browse Source 
git-svn-id: trunk@610 -
This commit is contained in:
lazarus 2002-01-21 09:04:30 +00:00
parent 3b43098082
commit d2b07f47d9
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/win32/win32winapi.inc
View File

@ -31,13 +31,6 @@ Const
//##apiwiz##sps## // Do not remove
Procedure Assert(Const PassErr: Boolean; Const Msg: String);
Begin
{$IFNDEF VER1_1}
Assert(PassErr, Msg);
{$ENDIF}
End;
{------------------------------------------------------------------------------
Method: Arc
Params: DC - handle to device context
@ -934,7 +927,7 @@ End;
------------------------------------------------------------------------------}
Function TWin32Object.HideCaret(HWnd: HWND): Boolean;
Begin
Assert(False, Format('Trace: [TWin32Object.HideCaret] HWND: 0x%x', [hWnd]));
Assert(False, Format('Trace: [TWin32Object.HideCaret] HWND: 0x%x', [HWnd]));
Result := Windows.HideCaret(hWnd);
End;
@ -1715,6 +1708,9 @@ End;
{ =============================================================================
$Log$
Revision 1.4 2002/01/21 09:04:30 lazarus
Keith: Removed redef of Assert
Revision 1.3 2002/01/21 08:42:06 lazarus
Keith: Fixed some run-time exceptions for FPC 1.1