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

fixed uninitialised handle

Browse Source 
git-svn-id: trunk@3648 -
This commit is contained in:
mattias 2002-11-17 15:01:38 +00:00
parent c8d91f88a4
commit f72b777014
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32proc.inc
View File

@ -583,10 +583,10 @@ Function ObjectToHWND(Const AObject: TObject): HWND;
Var
Handle: HWND;
Begin
Handle:=0;
If Integer(AObject) = 0 Then
Begin
Assert (False, 'TRACE:[ObjectToHWND] Object not assigned');
Handle := 0
End
Else If (AObject Is TWinControl) Then
Begin
@ -611,10 +611,9 @@ Begin
Else
Begin
Assert(False, Format('Trace:[ObjectToHWND] Message received With unhandled class-type <%s>', [AObject.ClassName]));
Handle := 0;
End;
Result := Handle;
If handle = 0 Then
If Handle = 0 Then
Assert (False, 'Trace:[ObjectToHWND]****** Warning: handle = 0 *******');
End;
@ -671,6 +670,9 @@ End;
{ =============================================================================
$Log$
Revision 1.9 2002/11/17 15:01:38 mattias
fixed uninitialised handle
Revision 1.8 2002/05/10 07:43:49 lazarus
MG: updated licenses