colorpalette: Adds a nice error message to something that caused me trouble

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1723 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-06-30 19:43:49 +00:00
parent 01ce49eb39
commit 6d72de8412

View File

@ -342,6 +342,9 @@ var
end;
begin
if not FileExists(FileName) then
raise Exception.Create(Format('[TCustomColorPalette.LoadPalette] File not found: %s', [FileName]));
AssignFile(F, FileName);
try
Reset(F);