Improve method of getting image from collection.

hangat · Apr 2, 2021 · 826f028 · 826f028
1 parent ca78544
commit 826f028
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Projects/CompStartup.pas b/Projects/CompStartup.pas
@@ -71,18 +71,18 @@ procedure TStartupForm.SetMRUFilesList(const MRUFilesList: TStringList);
 
 procedure TStartupForm.UpdateImages;
 
-  function GetBitmap(const Button: TToolButton; const WH: Integer): TBitmap;
+  function GetImage(const Button: TToolButton; const WH: Integer): TWICImage;
   begin
-    Result := CompileForm.LightToolBarImageCollection.GetBitmap(Button.ImageIndex, WH, WH)
+    Result := CompileForm.LightToolBarImageCollection.GetSourceImage(Button.ImageIndex, WH, WH)
   end;
 
 var
   WH: Integer;
 begin
  { After a DPI change the button's Width and Height isn't yet updated, so calculate it ourselves }
   WH := MulDiv(16, CurrentPPI, 96);
-  NewImage.Picture.Bitmap := GetBitmap(CompileForm.NewMainFileButton, WH);
-  OpenImage.Picture.Bitmap := GetBitmap(CompileForm.OpenMainFileButton, WH);
+  NewImage.Picture.Graphic:= GetImage(CompileForm.NewMainFileButton, WH);
+  OpenImage.Picture.Graphic := GetImage(CompileForm.OpenMainFileButton, WH);
 end;
 
 procedure TStartupForm.FormAfterMonitorDpiChanged(Sender: TObject; OldDPI,