Skip to content

Commit e328472

Browse files
committed
Refactor to use class helper
Code that created a resource stream and then loaded it using TGIFImage.LoadFromStream was refactored to use TGIImage.LoadFromResource method provided by class helper.
1 parent 92f3f8f commit e328472

File tree

1 file changed

+1
-5
lines changed

1 file changed

+1
-5
lines changed

Src/UGIFImageList.pas

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -127,21 +127,17 @@ function TGIFImageList.CreateBMPFromGIFRes(const GIFResName: string): TBitmap;
127127
@return Bitmap representation of GIF.
128128
}
129129
var
130-
GIFStm: TStream; // stream used to access GIF in resources
131130
GIF: TGIFImage; // GIF image object
132131
begin
133-
GIFStm := nil;
134132
GIF := TGIFImage.Create;
135133
try
136134
// Open stream onto GIF in HTML resources and load into GIF image object
137-
GIFStm := TResourceStream.Create(HInstance, GIFResName, RT_HTML);
138-
GIF.LoadFromStream(GIFStm);
135+
GIF.LoadFromResource(HInstance, GIFResName, RT_HTML);
139136
// Make bitmap copy of GIF
140137
Result := TBitmap.Create;
141138
Result.Assign(GIF);
142139
Result.TransparentColor := Result.Canvas.Pixels[0, 0];
143140
finally
144-
GIFStm.Free;
145141
GIF.Free;
146142
end;
147143
end;

0 commit comments

Comments
 (0)