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