pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ScrollText: Remove "resource not found" exception which is very annoying at designtime.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8309 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-16 12:10:01 +00:00
parent 60c9e95ce6
commit c20f4e18cb
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/scrolltext/latest_stable/scrollingtext.pas
View File

@ -174,6 +174,7 @@ begin
Brush.Style := bsSolid; Brush.Style := bsSolid;
FillRect(0, 0, Width, Height); FillRect(0, 0, Width, Height);
end; end;
if (fTextSource = stTextfile) then if (fTextSource = stTextfile) then
if FileExists('scrolling.txt') then if FileExists('scrolling.txt') then
begin begin
@ -204,9 +205,7 @@ begin
begin begin
// Finally, test of a .lrs resource // Finally, test of a .lrs resource
r := LazarusResources.Find(fResourceName); r := LazarusResources.Find(fResourceName);
if r = nil then if r <> nil then
raise Exception.CreateFmt('Resource ''%s'' is missing',[fResourceName])
else
begin begin
fLines.Clear; fLines.Clear;
fLines.Add(r.Value); fLines.Add(r.Value);