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

minor cleanup

Browse Source 
git-svn-id: trunk@3714 -
This commit is contained in:
mattias 2002-12-18 17:59:12 +00:00
parent 0e8ca743dc
commit ca1776ffa0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/pixmap.inc
View File

@ -224,8 +224,7 @@ begin
XPM:=ReadXPMFromStream(Stream,Size); XPM:=ReadXPMFromStream(Stream,Size);
try try
if not ReadXPMSize(XPM,NewWidth,NewHeight,NewColorCount) then if not ReadXPMSize(XPM,NewWidth,NewHeight,NewColorCount) then
RaiseGDBException('AAA1'); RaiseGDBException('TPixmap.ReadStream: ERROR: reading xpm');
//raise Exception.Create('TPixmap.ReadStream: ERROR: reading xpm');
// free old pixmap // free old pixmap
// Create the pixmap // Create the pixmap
@ -250,6 +249,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.17 2002/12/18 17:59:12 mattias
minor cleanup
Revision 1.16 2002/12/18 17:52:18 mattias Revision 1.16 2002/12/18 17:52:18 mattias
fixed lazarus xml files for fpc 1.1 fixed lazarus xml files for fpc 1.1