Browse Source

Using LoadFromResource

lainz 5 years ago
parent
commit
57257309e7
1 changed files with 1 additions and 5 deletions
  1. 1 5
      bcsvgviewer.pas

+ 1 - 5
bcsvgviewer.pas

@@ -229,12 +229,8 @@ begin
 end;
 end;
 
 
 procedure TBCSVGViewer.LoadFromResource(Resource: string);
 procedure TBCSVGViewer.LoadFromResource(Resource: string);
-var
-  res: TResourceStream;
 begin
 begin
-  res := TResourceStream.Create(HInstance, Resource, RT_RCDATA);
-  FSVG.LoadFromStream(res);
-  res.Free;
+  FSVG.LoadFromResource(Resource);
   DiscardBitmap;
   DiscardBitmap;
 end;
 end;