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

more detailed error message req. by ML

Browse Source 
git-svn-id: trunk@5435 -
This commit is contained in:
micha 2004-04-28 06:50:21 +00:00
parent 0ad6281f00
commit 73077df7e0
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

@ -2996,7 +2996,7 @@ begin
Constraints.UpdateInterfaceConstraints;
FFlags:=FFlags-[wcfColorChanged,wcfFontChanged];
if not HandleAllocated then
RaiseGDBException('Handle creation failed');
RaiseGDBException('Handle creation failed creating '+CS_To_String(FCompStyle));
finally
FCreatingHandle := False;
end;
@ -3484,6 +3484,9 @@ end;
{ =============================================================================
$Log$
Revision 1.223 2004/04/28 06:50:21 micha
more detailed error message req. by ML
Revision 1.222 2004/04/26 10:01:27 mattias
fixed TSynEdit.RealGetText