You've already forked lazarus-ccr
tvplanit: Update TTaskEditForm to scale correctly in the HiDPI mode of Lazarus 1.8
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5869 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -1,58 +1,72 @@
|
||||
object TaskEditForm: TTaskEditForm
|
||||
Left = 284
|
||||
Height = 411
|
||||
Top = 253
|
||||
Height = 433
|
||||
Top = 231
|
||||
Width = 547
|
||||
HorzScrollBar.Page = 545
|
||||
VertScrollBar.Page = 339
|
||||
Caption = 'TaskEditForm'
|
||||
ClientHeight = 411
|
||||
ClientHeight = 433
|
||||
ClientWidth = 547
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
LCLVersion = '1.9.0.0'
|
||||
object ButtonPanel: TPanel
|
||||
Left = 0
|
||||
Height = 37
|
||||
Top = 374
|
||||
Height = 33
|
||||
Top = 400
|
||||
Width = 547
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 37
|
||||
ClientHeight = 33
|
||||
ClientWidth = 547
|
||||
TabOrder = 1
|
||||
object ResourceNameLbl: TLabel
|
||||
Left = 6
|
||||
Height = 16
|
||||
AnchorSideLeft.Control = ButtonPanel
|
||||
AnchorSideTop.Control = ButtonPanel
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 4
|
||||
Height = 17
|
||||
Top = 8
|
||||
Width = 100
|
||||
Width = 108
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Resource Name'
|
||||
Font.CharSet = ANSI_CHARSET
|
||||
Font.Color = clMaroon
|
||||
Font.Height = -13
|
||||
Font.Height = -14
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 388
|
||||
AnchorSideTop.Control = CancelBtn
|
||||
AnchorSideBottom.Control = CancelBtn
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 376
|
||||
Height = 25
|
||||
Top = 6
|
||||
Width = 75
|
||||
Anchors = [akTop, akRight]
|
||||
Top = 4
|
||||
Width = 86
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
OnClick = OKBtnClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 466
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 479
|
||||
Height = 25
|
||||
Top = 6
|
||||
Width = 75
|
||||
Top = 4
|
||||
Width = 62
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
OnClick = CancelBtnClick
|
||||
@ -61,7 +75,7 @@ object TaskEditForm: TTaskEditForm
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 374
|
||||
Height = 400
|
||||
Top = 0
|
||||
Width = 547
|
||||
TabStop = False
|
||||
@ -71,47 +85,60 @@ object TaskEditForm: TTaskEditForm
|
||||
TabOrder = 0
|
||||
object tabTask: TTabSheet
|
||||
Caption = 'Task'
|
||||
ClientHeight = 346
|
||||
ClientHeight = 372
|
||||
ClientWidth = 539
|
||||
object DueDateLbl: TLabel
|
||||
AnchorSideTop.Control = DueDateEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 52
|
||||
Height = 15
|
||||
Top = 78
|
||||
Top = 68
|
||||
Width = 50
|
||||
Caption = 'Due date:'
|
||||
FocusControl = DueDateEdit
|
||||
ParentColor = False
|
||||
end
|
||||
object LblCreatedOn: TLabel
|
||||
AnchorSideTop.Control = DueDateEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 52
|
||||
Height = 15
|
||||
Top = 103
|
||||
Top = 91
|
||||
Width = 61
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Created on:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LblCompletedOn: TLabel
|
||||
AnchorSideTop.Control = LblCreatedOn
|
||||
Left = 333
|
||||
Height = 15
|
||||
Top = 103
|
||||
Top = 91
|
||||
Width = 79
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'Completed on:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
AnchorSideTop.Control = CbCategory
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 2
|
||||
Top = 64
|
||||
Top = 58
|
||||
Width = 529
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object imgCalendar: TImage
|
||||
AnchorSideTop.Control = Bevel1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 32
|
||||
Top = 72
|
||||
Top = 64
|
||||
Width = 32
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 4
|
||||
Picture.Data = {
|
||||
07544269746D6170360C0000424D360C00000000000036000000280000002000
|
||||
0000200000000100180000000000000C00000000000000000000000000000000
|
||||
@ -216,11 +243,14 @@ object TaskEditForm: TTaskEditForm
|
||||
Transparent = True
|
||||
end
|
||||
object imgCompleted: TImage
|
||||
AnchorSideTop.Control = Bevel1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 290
|
||||
Height = 32
|
||||
Top = 72
|
||||
Top = 64
|
||||
Width = 32
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 4
|
||||
Picture.Data = {
|
||||
07544269746D617076020000424D760200000000000076000000280000002000
|
||||
0000200000000100040000000000000200000000000000000000100000001000
|
||||
@ -247,30 +277,52 @@ object TaskEditForm: TTaskEditForm
|
||||
Transparent = True
|
||||
end
|
||||
object DescriptionEdit: TEdit
|
||||
AnchorSideLeft.Control = tabTask
|
||||
AnchorSideTop.Control = tabTask
|
||||
AnchorSideRight.Control = tabTask
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 23
|
||||
Top = 5
|
||||
Width = 529
|
||||
Top = 4
|
||||
Width = 531
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
MaxLength = 255
|
||||
OnChange = OnChange
|
||||
TabOrder = 0
|
||||
Text = 'DescriptionEdit'
|
||||
end
|
||||
object CbComplete: TCheckBox
|
||||
AnchorSideTop.Control = DueDateEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 333
|
||||
Height = 19
|
||||
Top = 77
|
||||
Top = 66
|
||||
Width = 72
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'Complete'
|
||||
TabOrder = 2
|
||||
end
|
||||
object DetailsMemo: TMemo
|
||||
AnchorSideLeft.Control = tabTask
|
||||
AnchorSideTop.Control = LblCreatedOn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = tabTask
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = tabTask
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 209
|
||||
Top = 128
|
||||
Width = 529
|
||||
Height = 258
|
||||
Top = 110
|
||||
Width = 531
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
Constraints.MinHeight = 200
|
||||
Lines.Strings = (
|
||||
'DetailsMemo'
|
||||
)
|
||||
@ -280,13 +332,16 @@ object TaskEditForm: TTaskEditForm
|
||||
TabOrder = 3
|
||||
end
|
||||
object DueDateEdit: TDateEdit
|
||||
AnchorSideTop.Control = Bevel1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 128
|
||||
Height = 23
|
||||
Top = 75
|
||||
Top = 64
|
||||
Width = 120
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
DateOrder = doNone
|
||||
ButtonWidth = 23
|
||||
BorderSpacing.Top = 4
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||
@ -329,19 +384,24 @@ object TaskEditForm: TTaskEditForm
|
||||
Text = 'DueDateEdit'
|
||||
end
|
||||
object LblCategory: TLabel
|
||||
AnchorSideTop.Control = CbCategory
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 62
|
||||
Height = 15
|
||||
Top = 36
|
||||
Top = 35
|
||||
Width = 51
|
||||
Caption = 'Category:'
|
||||
FocusControl = CbCategory
|
||||
ParentColor = False
|
||||
end
|
||||
object CbCategory: TComboBox
|
||||
AnchorSideTop.Control = DescriptionEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 128
|
||||
Height = 23
|
||||
Top = 32
|
||||
Top = 31
|
||||
Width = 120
|
||||
BorderSpacing.Top = 4
|
||||
ItemHeight = 15
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -356,19 +416,25 @@ object TaskEditForm: TTaskEditForm
|
||||
Text = 'Business'
|
||||
end
|
||||
object LblPriority: TLabel
|
||||
AnchorSideTop.Control = CbPriority
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 281
|
||||
Height = 15
|
||||
Top = 36
|
||||
Top = 35
|
||||
Width = 41
|
||||
Caption = 'Priority:'
|
||||
FocusControl = CbPriority
|
||||
ParentColor = False
|
||||
end
|
||||
object CbPriority: TComboBox
|
||||
AnchorSideTop.Control = DescriptionEdit
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 333
|
||||
Height = 23
|
||||
Top = 32
|
||||
Top = 31
|
||||
Width = 120
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
ItemHeight = 15
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
|
||||
Reference in New Issue
Block a user