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

added Trace: to assert message

Browse Source 
git-svn-id: trunk@5340 -
This commit is contained in:
vincents 2004-03-25 23:08:22 +00:00
parent bf568d96bd
commit 0e960c1718
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -126,9 +126,9 @@ End;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Function TWin32WidgetSet.BringWindowToTop(HWnd: HWND): Boolean; Function TWin32WidgetSet.BringWindowToTop(HWnd: HWND): Boolean;
Begin Begin
Assert(False, 'TWin32WidgetSet.BringWindowToTop - Start'); Assert(False, 'Trace:TWin32WidgetSet.BringWindowToTop - Start');
Result := Boolean(Windows.BringWindowToTop(HWnd)); Result := Boolean(Windows.BringWindowToTop(HWnd));
Assert(False, 'TWin32WidgetSet.BringWindowToTop - Exit'); Assert(False, 'Trace:TWin32WidgetSet.BringWindowToTop - Exit');
End; End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -2941,6 +2941,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.105 2004/03/25 23:08:22 vincents
added Trace: to assert message
Revision 1.104 2004/03/07 12:26:31 micha Revision 1.104 2004/03/07 12:26:31 micha
rewrite to enable drawing of disabled button rewrite to enable drawing of disabled button