paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: imagelist_highdpi_designtime: add TBitBtn and TSpeedButton controls

Browse Source 
git-svn-id: trunk@57707 -
This commit is contained in:
ondrej 2018-04-25 10:22:41 +00:00
parent 6635b81023
commit aba4fa2017
2 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
examples/imagelist_highdpi_designtime/unit1.lfm
View File

@ -1,5 +1,5 @@
object Form1: TForm1 object Form1: TForm1
Left = 367 Left = 233
Height = 384 Height = 384
Top = 275 Top = 275
Width = 958 Width = 958
@ -114,10 +114,29 @@ object Form1: TForm1
OnClick = RadioGroup1Click OnClick = RadioGroup1Click
TabOrder = 4 TabOrder = 4
end 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 object ImageList1: TImageList
Scaled = True Scaled = True
OnGetWidthForPPI = ImageList1GetWidthForPPI OnGetWidthForPPI = ImageList1GetWidthForPPI
Left = 24 Left = 680
Top = 296 Top = 296
Bitmap = { Bitmap = {
4C69050000001000000010000000000000000000000078483671784836FE7848 4C69050000001000000010000000000000000000000078483671784836FE7848
@ -1338,7 +1357,7 @@ object Form1: TForm1
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ImageList1 Images = ImageList1
Left = 64 Left = 720
Top = 296 Top = 296
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'MenuItem1' Caption = 'MenuItem1'

4
examples/imagelist_highdpi_designtime/unit1.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ImgList, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ImgList,
Menus, ExtCtrls; Menus, ExtCtrls, Buttons;
type type
@ -27,6 +27,8 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
TreeView1: TTreeView; TreeView1: TTreeView;
BitBtn1: TBitBtn;
SpeedButton1: TSpeedButton;
procedure ImageList1GetWidthForPPI(Sender: TCustomImageList; AImageWidth, procedure ImageList1GetWidthForPPI(Sender: TCustomImageList; AImageWidth,
APPI: Integer; var AResultWidth: Integer); APPI: Integer; var AResultWidth: Integer);
procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject);