From aba4fa2017ae5e53ac2020fc75ee70c428e09f3b Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 25 Apr 2018 10:22:41 +0000
Subject: [PATCH] examples: imagelist_highdpi_designtime: add TBitBtn and
 TSpeedButton controls

git-svn-id: trunk@57707 -
---
 .../imagelist_highdpi_designtime/unit1.lfm    | 25 ++++++++++++++++---
 .../imagelist_highdpi_designtime/unit1.pas    |  4 ++-
 2 files changed, 25 insertions(+), 4 deletions(-)

diff --git a/examples/imagelist_highdpi_designtime/unit1.lfm b/examples/imagelist_highdpi_designtime/unit1.lfm
index 988d5db6e2..3d2fb8619c 100644
--- a/examples/imagelist_highdpi_designtime/unit1.lfm
+++ b/examples/imagelist_highdpi_designtime/unit1.lfm
@@ -1,5 +1,5 @@
 object Form1: TForm1
-  Left = 367
+  Left = 233
   Height = 384
   Top = 275
   Width = 958
@@ -114,10 +114,29 @@ object Form1: TForm1
     OnClick = RadioGroup1Click
     TabOrder = 4
   end
+  object BitBtn1: TBitBtn
+    Left = 16
+    Height = 30
+    Top = 309
+    Width = 75
+    Caption = 'BitBtn1'
+    Images = ImageList1
+    ImageIndex = 1
+    TabOrder = 5
+  end
+  object SpeedButton1: TSpeedButton
+    Left = 104
+    Height = 30
+    Top = 309
+    Width = 30
+    Images = ImageList1
+    ImageIndex = 3
+    ImageWidth = 24
+  end
   object ImageList1: TImageList
     Scaled = True
     OnGetWidthForPPI = ImageList1GetWidthForPPI
-    Left = 24
+    Left = 680
     Top = 296
     Bitmap = {
       4C69050000001000000010000000000000000000000078483671784836FE7848
@@ -1338,7 +1357,7 @@ object Form1: TForm1
   end
   object MainMenu1: TMainMenu
     Images = ImageList1
-    Left = 64
+    Left = 720
     Top = 296
     object MenuItem1: TMenuItem
       Caption = 'MenuItem1'
diff --git a/examples/imagelist_highdpi_designtime/unit1.pas b/examples/imagelist_highdpi_designtime/unit1.pas
index b255ced1e0..0f447dd851 100644
--- a/examples/imagelist_highdpi_designtime/unit1.pas
+++ b/examples/imagelist_highdpi_designtime/unit1.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ImgList,
-  Menus, ExtCtrls;
+  Menus, ExtCtrls, Buttons;
 
 type
 
@@ -27,6 +27,8 @@ type
     ToolButton1: TToolButton;
     ToolButton2: TToolButton;
     TreeView1: TTreeView;
+    BitBtn1: TBitBtn;
+    SpeedButton1: TSpeedButton;
     procedure ImageList1GetWidthForPPI(Sender: TCustomImageList; AImageWidth,
       APPI: Integer; var AResultWidth: Integer);
     procedure RadioGroup1Click(Sender: TObject);