paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 12:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TLazIntfImage: After revision 60360 #71e6fd3e59 it isn't needed to call CreateData when Create is called with size and description flags.

Browse Source 
git-svn-id: trunk@60361 -
This commit is contained in:
michl 2019-02-07 22:00:54 +00:00
parent 71e6fd3e59
commit 05aa1b08f9
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/icnsicon.inc
View File

@ -406,7 +406,6 @@ begin
IconImage.RawImageNeeded(false); IconImage.RawImageNeeded(false);
RawImg := IconImage.FImage; RawImg := IconImage.FImage;
IntfImage := TLazIntfImage.Create(IconImage.Width, IconImage.Height, [riqfRGB, riqfAlpha, riqfUpdate]); IntfImage := TLazIntfImage.Create(IconImage.Width, IconImage.Height, [riqfRGB, riqfAlpha, riqfUpdate]);
IntfImage.CreateData;
try try
SrcImage := TLazIntfImage.Create(RawImg, False); SrcImage := TLazIntfImage.Create(RawImg, False);
try try

1
lcl/include/intfbasewinapi.inc
View File

@ -1285,7 +1285,6 @@ function TWidgetSet.GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices: Lon
function CreateIntfImage(W, H: Integer; Clear: Boolean): TLazIntfImage; function CreateIntfImage(W, H: Integer; Clear: Boolean): TLazIntfImage;
begin begin
Result := TLazIntfImage.Create(W, H, [riqfRGB, riqfAlpha, riqfUpdate]); Result := TLazIntfImage.Create(W, H, [riqfRGB, riqfAlpha, riqfUpdate]);
Result.CreateData;
if Clear then if Clear then
Result.FillPixels(FPColor(0, 0, 0, $0000)); Result.FillPixels(FPColor(0, 0, 0, $0000));
end; end;