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

tvplanit: Replace the MS Sans Serif font used in the event and resource dialogs by the system's default font. Some polish up of these dialogs (TabOrder etc).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-07 23:30:29 +00:00
parent ecf7b634a1
commit 81b271c908
2 changed files with 96 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
components/tvplanit/source/vpreseditdlg.lfm
View File

@ -11,10 +11,12 @@ object ResEditForm: TResEditForm
Constraints.MinHeight = 250
Constraints.MinWidth = 400
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Name = 'Default'
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.7'
object pnlBottom: TPanel
Left = 0
Height = 41
Top = 209
Width = 400
@ -22,9 +24,9 @@ object ResEditForm: TResEditForm
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 400
TabOrder = 0
TabOrder = 1
object OKBtn: TButton
Left = 243
Left = 236
Height = 25
Top = 7
Width = 75
@ -36,7 +38,7 @@ object ResEditForm: TResEditForm
TabStop = False
end
object CancelBtn: TButton
Left = 322
Left = 315
Height = 25
Top = 7
Width = 75
@ -49,37 +51,39 @@ object ResEditForm: TResEditForm
end
end
object pgResource: TPageControl
Left = 0
Height = 209
Top = 0
Width = 400
TabStop = False
ActivePage = tabResource
Align = alClient
TabIndex = 0
TabOrder = 1
TabOrder = 0
object tabResource: TTabSheet
Caption = 'Resource'
ClientHeight = 183
ClientHeight = 182
ClientWidth = 392
object lblDescription: TLabel
Left = 8
Height = 15
Height = 14
Top = 24
Width = 77
Width = 57
Caption = 'Description:'
ParentColor = False
end
object lblNotes: TLabel
Left = 8
Height = 15
Height = 14
Top = 47
Width = 43
Width = 31
Caption = 'Notes:'
ParentColor = False
end
object imgResources: TImage
Left = 344
Left = 350
Height = 32
Top = 16
Top = 15
Width = 32
Anchors = [akTop]
AutoSize = True
@ -106,13 +110,13 @@ object ResEditForm: TResEditForm
3333333330F87703333330F87703333333333333330005333333330000333333
3333
}
Transparent = False
Transparent = True
end
object DescriptionEdit: TEdit
Left = 80
Height = 21
Height = 22
Top = 20
Width = 249
Width = 257
Anchors = [akTop, akLeft, akRight]
MaxLength = 255
OnChange = Change
@ -120,9 +124,9 @@ object ResEditForm: TResEditForm
end
object NotesMemo: TMemo
Left = 8
Height = 84
Height = 103
Top = 67
Width = 369
Width = 374
Anchors = [akTop, akLeft, akRight, akBottom]
MaxLength = 1024
OnChange = Change