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

started typeinfo for double extended

Browse Source 
git-svn-id: trunk@2331 -
This commit is contained in:
mattias 2002-08-17 23:41:16 +00:00
parent 4409fc8095
commit 6c4cd7ad3e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/wincontrol.inc
View File

@ -2241,7 +2241,7 @@ begin
CreateParams(Params); CreateParams(Params);
with Params do begin with Params do begin
if (WndParent = 0) and (Style and WS_CHILD <> 0) then if (WndParent = 0) and (Style and WS_CHILD <> 0) then
RaiseGDBException('TWinControl.CreateWnd: no parent'); RaiseGDBException('TWinControl.CreateWnd: no parent '+Name+':'+ClassName);
Assert((parent <> nil) or (WndParent = 0), 'TODO: find parent if parent=nil and WndParent <> 0'); Assert((parent <> nil) or (WndParent = 0), 'TODO: find parent if parent=nil and WndParent <> 0');
end; end;
@ -2592,6 +2592,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.124 2003/03/28 19:39:54 mattias
started typeinfo for double extended
Revision 1.123 2003/03/25 10:45:41 mattias Revision 1.123 2003/03/25 10:45:41 mattias
reduced focus handling and improved focus setting reduced focus handling and improved focus setting