瀏覽代碼

FIX: Lazarus 2.3 compatibility

Alexander Koblov 3 年之前
父節點
當前提交
f588cc1d17
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/dmcommondata.pas

+ 1 - 1
src/dmcommondata.pas

@@ -149,7 +149,7 @@ procedure TdmComData.LoadImages(Images: TImageList; const ANames: array of Strin
 var
   AName: String;
   ASize16, ASize24, ASize32: Integer;
-  ABitmap16, ABitmap24, ABitmap32: TBitmap;
+  ABitmap16, ABitmap24, ABitmap32: TCustomBitmap;
 begin
   Images.Clear;
   ASize16:= 16; // AdjustIconSize(16, 96);