Kaynağa Gözat

Support older Delphi.

Martijn Laan 1 ay önce
ebeveyn
işleme
47e657abe6

+ 1 - 1
Projects/Src/IDE.InputQueryMemoForm.pas

@@ -149,7 +149,7 @@ procedure TInputQueryMemoForm.UpdateImages;
 begin
  { After a DPI change the button's Width and Height isn't yet updated, so calculate it ourselves }
   var WH := MulDiv(16, CurrentPPI, 96);
-  DocBitBtn.Bitmap:= GetImage(MainForm.HelpButton, WH).Bitmap;
+  DocBitBtn.Bitmap.Assign(GetImage(MainForm.HelpButton, WH));
 end;
 
 end.

+ 1 - 1
Projects/Src/IDE.MainForm.pas

@@ -4181,7 +4181,7 @@ begin
   var Images := ImagesModule.LightToolBarImageCollection;
 
   var Image := Images.GetSourceImage(Images.GetIndexByName('heart-filled'), WH, WH);
-  UpdatePanelDonateBitBtn.Bitmap := Image.Bitmap;
+  UpdatePanelDonateBitBtn.Bitmap.Assign(Image);
 end;
 
 procedure TMainForm.UpdateOutputTabSetListsItemHeightAndDebugTimeWidth;

+ 1 - 1
Projects/Src/IDE.Wizard.WizardFormRegistryHelper.pas

@@ -67,7 +67,7 @@ procedure TWizardFormRegistryHelper.UpdateImages;
 begin
  { After a DPI change the button's Width and Height isn't yet updated, so calculate it ourselves }
   var WH := MulDiv(16, FForm.CurrentPPI, 96);
-  FMinVerDocBitBtn.Bitmap:= GetImage(MainForm.HelpButton, WH).Bitmap;
+  FMinVerDocBitBtn.Bitmap.Assign(GetImage(MainForm.HelpButton, WH));
 end;
 
 constructor TWizardFormRegistryHelper.Create(const Form: TForm;