mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Avoid unnecessary conversions in uGraphics.BitmapConvert()

Browse source
This commit is contained in:
rich2014 2026-02-12 10:55:55 +08:00
commit d4b78d952e
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/ugraphics.pas
View file

@ -58,11 +58,10 @@ begin
try
Target:= TLazIntfImage.Create(ASource.Width, ASource.Height, [riqfRGB, riqfAlpha]);
try
{$if lcl_fullversion < 2020000}
Target.CreateData;
{$endif}
Target.CopyPixels(Source);
BitmapAssign(ATarget, Target);
if NOT Target.DataDescription.IsEqual(Source.DataDescription) then begin
Target.CopyPixels(Source);
BitmapAssign(ATarget, Target);
end;
finally
Target.Free;
end;