paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +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 Var
Handle: HWND; Handle: HWND;
Begin Begin
Handle:=0;
If Integer(AObject) = 0 Then If Integer(AObject) = 0 Then
Begin Begin
Assert (False, 'TRACE:[ObjectToHWND] Object not assigned'); Assert (False, 'TRACE:[ObjectToHWND] Object not assigned');
Handle := 0
End End
Else If (AObject Is TWinControl) Then Else If (AObject Is TWinControl) Then
Begin Begin
@ -611,10 +611,9 @@ Begin
Else Else
Begin Begin
Assert(False, Format('Trace:[ObjectToHWND] Message received With unhandled class-type <%s>', [AObject.ClassName])); Assert(False, Format('Trace:[ObjectToHWND] Message received With unhandled class-type <%s>', [AObject.ClassName]));
Handle := 0;
End; End;
Result := Handle; Result := Handle;
If handle = 0 Then If Handle = 0 Then
Assert (False, 'Trace:[ObjectToHWND]****** Warning: handle = 0 *******'); Assert (False, 'Trace:[ObjectToHWND]****** Warning: handle = 0 *******');
End; End;
@ -671,6 +670,9 @@ End;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.9 2002/11/17 15:01:38 mattias
fixed uninitialised handle
Revision 1.8 2002/05/10 07:43:49 lazarus Revision 1.8 2002/05/10 07:43:49 lazarus
MG: updated licenses MG: updated licenses