paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:39:15 +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 //##apiwiz##sps## // Do not remove
Procedure Assert(Const PassErr: Boolean; Const Msg: String);
Begin
{$IFNDEF VER1_1}
Assert(PassErr, Msg);
{$ENDIF}
End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: Arc Method: Arc
Params: DC - handle to device context Params: DC - handle to device context
@ -934,7 +927,7 @@ End;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function TWin32Object.HideCaret(HWnd: HWND): Boolean; Function TWin32Object.HideCaret(HWnd: HWND): Boolean;
Begin 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); Result := Windows.HideCaret(hWnd);
End; End;
@ -1715,6 +1708,9 @@ End;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.3 2002/01/21 08:42:06 lazarus
Keith: Fixed some run-time exceptions for FPC 1.1 Keith: Fixed some run-time exceptions for FPC 1.1