pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Make TJvWizard high-dpi aware.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6997 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-06-03 22:27:04 +00:00
parent 793dbc12ab
commit 77e6fbbd04
6 changed files with 475 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/jvcllaz/examples/JvWizard/JvWizardDemo.lpi
View File

@ -1,13 +1,11 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvWizardDemo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -22,11 +20,11 @@
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>

32
components/jvcllaz/examples/JvWizard/uformmain.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
Caption = 'JvWizard demo'
ClientHeight = 317
ClientWidth = 596
LCLVersion = '2.1.0.0'
LCLVersion = '1.8.4.0'
object JvWizard1: TJvWizard
Left = 0
Height = 317
@ -49,9 +49,9 @@ object Form1: TForm1
Header.Title.Anchors = [akTop, akLeft, akRight]
Header.Title.Font.Height = -16
Header.Title.Font.Style = [fsBold]
Header.Subtitle.Color = clNone
Header.Subtitle.Text = 'This is the JvWizard demo for Lazarus'
Header.Subtitle.Anchors = [akTop, akLeft, akRight, akBottom]
Header.SubTitle.Color = clNone
Header.SubTitle.Text = 'This is the JvWizard demo for Lazarus'
Header.SubTitle.Anchors = [akTop, akLeft, akRight, akBottom]
VisibleButtons = [bkNext, bkCancel]
Caption = 'JvWizardWelcomePage1'
WaterMark.Image.Picture.Data = {
@ -1909,9 +1909,9 @@ object Form1: TForm1
Header.Title.Anchors = [akTop, akLeft, akRight]
Header.Title.Font.Height = -16
Header.Title.Font.Style = [fsBold]
Header.Subtitle.Color = clNone
Header.Subtitle.Text = 'An edit control was added to page 1.'
Header.Subtitle.Anchors = [akTop, akLeft, akRight, akBottom]
Header.SubTitle.Color = clNone
Header.SubTitle.Text = 'An edit control was added to page 1.'
Header.SubTitle.Anchors = [akTop, akLeft, akRight, akBottom]
VisibleButtons = [bkStart, bkBack, bkNext, bkCancel]
Caption = 'JvWizardInteriorPage1'
object Label2: TLabel
@ -1938,9 +1938,9 @@ object Form1: TForm1
Header.Title.Anchors = [akTop, akLeft, akRight]
Header.Title.Font.Height = -16
Header.Title.Font.Style = [fsBold]
Header.Subtitle.Color = clNone
Header.Subtitle.Text = 'A checkbox and a radiobutton were added to page 2.'
Header.Subtitle.Anchors = [akTop, akLeft, akRight, akBottom]
Header.SubTitle.Color = clNone
Header.SubTitle.Text = 'A checkbox and a radiobutton were added to page 2.'
Header.SubTitle.Anchors = [akTop, akLeft, akRight, akBottom]
VisibleButtons = [bkStart, bkBack, bkNext, bkCancel]
Caption = 'JvWizardInteriorPage2'
object CheckBox1: TCheckBox
@ -1967,9 +1967,9 @@ object Form1: TForm1
Header.Title.Anchors = [akTop, akLeft, akRight]
Header.Title.Font.Height = -16
Header.Title.Font.Style = [fsBold]
Header.Subtitle.Color = clNone
Header.Subtitle.Text = 'A listbox was added to page 3.'
Header.Subtitle.Anchors = [akTop, akLeft, akRight, akBottom]
Header.SubTitle.Color = clNone
Header.SubTitle.Text = 'A listbox was added to page 3.'
Header.SubTitle.Anchors = [akTop, akLeft, akRight, akBottom]
VisibleButtons = [bkStart, bkBack, bkNext, bkCancel]
Caption = 'JvWizardInteriorPage3'
object ListBox1: TListBox
@ -1995,9 +1995,9 @@ object Form1: TForm1
Header.Title.Anchors = [akTop, akLeft, akRight]
Header.Title.Font.Height = -16
Header.Title.Font.Style = [fsBold]
Header.Subtitle.Color = clNone
Header.Subtitle.Text = 'This completes this little demo.'
Header.Subtitle.Anchors = [akTop, akLeft, akRight, akBottom]
Header.SubTitle.Color = clNone
Header.SubTitle.Text = 'This completes this little demo.'
Header.SubTitle.Anchors = [akTop, akLeft, akRight, akBottom]
VisibleButtons = [bkStart, bkBack, bkFinish, bkCancel]
Caption = 'JvWizardInteriorPage4'
object Label3: TLabel