Turbopower_iPro: In PrintPreview form, remove usage of hardcoded MS Sans Serif font.

git-svn-id: trunk@52028 -
This commit is contained in:
wp 2016-03-23 16:15:14 +00:00
parent ac512d4521
commit c0eee1ac56

View File

@ -6,23 +6,21 @@ object IpHTMLPreview: TIpHTMLPreview
Caption = 'Print preview' Caption = 'Print preview'
ClientHeight = 372 ClientHeight = 372
ClientWidth = 645 ClientWidth = 645
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '1.7'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 36
Top = 0 Top = 0
Width = 645 Width = 645
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 33 ClientHeight = 36
ClientWidth = 645 ClientWidth = 645
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
@ -30,9 +28,9 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 398 Left = 422
Height = 14 Height = 15
Top = 9 Top = 11
Width = 29 Width = 29
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = 'Page:' Caption = 'Page:'
@ -43,10 +41,10 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 469 Left = 493
Height = 14 Height = 15
Top = 9 Top = 11
Width = 10 Width = 11
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = 'of' Caption = 'of'
ParentColor = False ParentColor = False
@ -56,9 +54,9 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 484 Left = 509
Height = 1 Height = 1
Top = 16 Top = 18
Width = 1 Width = 1
BorderSpacing.Around = 5 BorderSpacing.Around = 5
ParentColor = False ParentColor = False
@ -68,19 +66,21 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 159 Left = 170
Height = 14 Height = 15
Top = 9 Top = 11
Width = 31 Width = 35
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = 'Zoom:' Caption = 'Zoom:'
ParentColor = False ParentColor = False
end end
object btnPrint: TButton object btnPrint: TButton
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 5 Left = 5
Height = 23 Height = 25
Top = 5 Top = 6
Width = 47 Width = 51
AutoSize = True AutoSize = True
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = 'Print' Caption = 'Print'
@ -93,10 +93,10 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 318 Left = 336
Height = 23 Height = 25
Top = 5 Top = 6
Width = 38 Width = 42
AutoSize = True AutoSize = True
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = '<<' Caption = '<<'
@ -108,10 +108,10 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 361 Left = 383
Height = 23 Height = 25
Top = 5 Top = 6
Width = 32 Width = 34
AutoSize = True AutoSize = True
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = '<' Caption = '<'
@ -123,10 +123,10 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 490 Left = 515
Height = 23 Height = 25
Top = 5 Top = 6
Width = 32 Width = 34
AutoSize = True AutoSize = True
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = '>' Caption = '>'
@ -138,10 +138,10 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 527 Left = 554
Height = 23 Height = 25
Top = 5 Top = 6
Width = 38 Width = 42
AutoSize = True AutoSize = True
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = '>>' Caption = '>>'
@ -153,10 +153,10 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 261 Left = 276
Height = 23 Height = 25
Top = 5 Top = 6
Width = 52 Width = 55
AutoSize = True AutoSize = True
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Cancel = True Cancel = True
@ -169,9 +169,9 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 432 Left = 456
Height = 21 Height = 23
Top = 6 Top = 7
Width = 32 Width = 32
BorderSpacing.Around = 5 BorderSpacing.Around = 5
OnChange = edtPageChange OnChange = edtPageChange
@ -183,12 +183,12 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 195 Left = 210
Height = 21 Height = 23
Top = 6 Top = 7
Width = 61 Width = 61
BorderSpacing.Around = 5 BorderSpacing.Around = 5
ItemHeight = 13 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'10%' '10%'
'25%' '25%'
@ -209,10 +209,10 @@ object IpHTMLPreview: TIpHTMLPreview
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 57 Left = 61
Height = 23 Height = 25
Top = 5 Top = 6
Width = 97 Width = 104
AutoSize = True AutoSize = True
BorderSpacing.Around = 5 BorderSpacing.Around = 5
Caption = 'Select printer...' Caption = 'Select printer...'
@ -222,11 +222,13 @@ object IpHTMLPreview: TIpHTMLPreview
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Height = 339 Height = 336
Top = 33 Top = 36
Width = 645 Width = 645
HorzScrollBar.Page = 158
VertScrollBar.Page = 125
Align = alClient Align = alClient
ClientHeight = 335 ClientHeight = 332
ClientWidth = 641 ClientWidth = 641
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False