Changeset 533 for DpiControls/Demo
- Timestamp:
- May 26, 2019, 7:33:14 PM (5 years ago)
- Location:
- DpiControls
- Files:
-
- 1 added
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
DpiControls
-
Property svn:ignore
set to
lib
-
Property svn:ignore
set to
-
DpiControls/Demo
-
Property svn:ignore
set to
DpiComponentsDemo
DpiComponentsDemo.lps
DpiComponentsDemo.res
lib
-
Property svn:ignore
set to
-
DpiControls/Demo/DpiComponentsDemo.lpi
r532 r533 43 43 <Filename Value="UFormMain.pas"/> 44 44 <IsPartOfProject Value="True"/> 45 <ComponentName Value="Form 1"/>45 <ComponentName Value="FormMain"/> 46 46 <HasResources Value="True"/> 47 47 <ResourceBaseClass Value="Form"/> … … 62 62 <SearchPaths> 63 63 <IncludeFiles Value="$(ProjOutDir)"/> 64 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS) "/>64 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-${BuildMode}"/> 65 65 </SearchPaths> 66 66 <Linking> -
DpiControls/Demo/DpiComponentsDemo.lpr
r532 r533 17 17 Application.Scaled:=True; 18 18 Application.Initialize; 19 Application.CreateForm(TForm 1, Form1);19 Application.CreateForm(TFormMain, FormMain); 20 20 Application.Run; 21 21 end. -
DpiControls/Demo/UDpiForm.lfm
r532 r533 7 7 OnShow = DpiForm1Show 8 8 object DpiButton1: TDpiButton 9 Top = 1 0410 Left = 1209 Top = 154 10 Left = 20 11 11 Width = 150 12 12 Height = 40 … … 14 14 Caption = 'Test' 15 15 OnClick = DpiButton1Click 16 left = 88 17 top = 88 16 18 end 17 19 end -
DpiControls/Demo/UDpiForm.pas
r532 r533 34 34 var 35 35 DpiButton: TDpiButton; 36 DpiImage: TDpiImage; 36 37 begin 37 38 DpiButton := TDpiButton.Create(DpiForm1); … … 41 42 DpiButton.Visible := True; 42 43 DpiButton1.Parent := Self; 44 45 DpiImage := TDpiImage.Create(DpiForm1); 46 DpiImage.Parent := DpiForm1; 47 DpiImage.SetBounds(150, 10, 100, 100); 48 DpiImage.Visible := True; 49 DpiImage.Stretch := True; 50 DpiImage.VclImage.Picture.LoadFromFile('dance.jpg'); 43 51 end; 44 52 -
DpiControls/Demo/UFormMain.lfm
r532 r533 1 object Form 1: TForm12 Left = 8373 Height = 3604 Top = 4 55 Width = 4 806 Caption = ' Form1'7 ClientHeight = 3608 ClientWidth = 4 801 object FormMain: TFormMain 2 Left = 57 3 Height = 126 4 Top = 44 5 Width = 472 6 Caption = 'DpiControls demo' 7 ClientHeight = 126 8 ClientWidth = 472 9 9 DesignTimePPI = 144 10 10 OnShow = FormShow 11 11 LCLVersion = '2.0.2.0' 12 12 object TrackBar1: TTrackBar 13 Left = 2413 Left = 13 14 14 Height = 58 15 Top = 10216 Width = 4 1615 Top = 40 16 Width = 440 17 17 Max = 1000 18 18 Min = 96 … … 21 21 TabOrder = 0 22 22 end 23 object Label1: TLabel 24 Left = 13 25 Height = 26 26 Top = 8 27 Width = 35 28 Caption = 'DPI:' 29 ParentColor = False 30 end 23 31 end -
DpiControls/Demo/UFormMain.pas
r532 r533 6 6 7 7 uses 8 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, UDpiForm,9 UDpiControls;8 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls, 9 ExtCtrls, UDpiForm, UDpiControls; 10 10 11 11 type 12 12 13 { TForm 1}13 { TFormMain } 14 14 15 TForm1 = class(TForm) 15 TFormMain = class(TForm) 16 Label1: TLabel; 16 17 TrackBar1: TTrackBar; 17 18 procedure FormShow(Sender: TObject); … … 24 25 25 26 var 26 Form 1: TForm1;27 FormMain: TFormMain; 27 28 28 29 implementation … … 30 31 {$R *.lfm} 31 32 32 { TForm 1}33 { TFormMain } 33 34 34 procedure TForm 1.FormShow(Sender: TObject);35 procedure TFormMain.FormShow(Sender: TObject); 35 36 begin 36 37 DpiScreen.Dpi := 96 * 2; … … 45 46 end; 46 47 47 procedure TForm 1.TrackBar1Change(Sender: TObject);48 procedure TFormMain.TrackBar1Change(Sender: TObject); 48 49 begin 49 50 DpiScreen.Dpi := TrackBar1.Position;
Note:
See TracChangeset
for help on using the changeset viewer.