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

Adds an error message to some icon errors with empty message

Browse Source 
git-svn-id: trunk@31846 -
This commit is contained in:
sekelsenmat 2011-08-01 09:17:26 +00:00
parent ed98d767a0
commit 48f40ebb52
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/icon.inc
View File

@ -681,7 +681,7 @@ begin
ResHandle := FindResource(Instance, PChar(ResName), PChar(ResType));
if ResHandle = 0 then
raise EResNotFound.Create(ResName); // todo: valid exception
raise EResNotFound.Create(Format('[TCustomIcon.LoadFromResourceName] The resource "%s" was not found', [ResName])); // todo: valid exception
LoadFromResourceHandle(Instance, ResHandle);
end;
@ -695,7 +695,7 @@ begin
ResHandle := FindResource(Instance, PChar(ResID), PChar(ResType));
if ResHandle = 0 then
raise EResNotFound.Create(''); // todo: valid exception
raise EResNotFound.Create(Format('[TCustomIcon.LoadFromResourceID] The resource #%d was not found', [ResID])); // todo: valid exception
LoadFromResourceHandle(Instance, ResHandle);
end;