From 48f40ebb529d5183aed8d0d0f51a760219d1ef58 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Mon, 1 Aug 2011 09:17:26 +0000 Subject: [PATCH] Adds an error message to some icon errors with empty message git-svn-id: trunk@31846 - --- lcl/include/icon.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/include/icon.inc b/lcl/include/icon.inc index 5904047e43..dcfeefdab0 100644 --- a/lcl/include/icon.inc +++ b/lcl/include/icon.inc @@ -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;