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

tvplanit: Fixing errors in shape editor's control positions for gtk2/qt.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5010 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-20 15:50:18 +00:00
parent 3068e728b5
commit dbe08a2511
2 changed files with 92 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
components/tvplanit/source/vpedshape.lfm
View File

@ -2,52 +2,61 @@ object frmEditShape: TfrmEditShape
Left = 772
Height = 243
Top = 248
Width = 363
Width = 426
HorzScrollBar.Page = 362
VertScrollBar.Page = 313
BorderStyle = bsDialog
Caption = 'Edit Shape'
ClientHeight = 243
ClientWidth = 363
ClientWidth = 426
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
ShowHint = True
LCLVersion = '1.7'
object btnOk: TButton
Left = 192
AnchorSideBottom.Control = gbPen
AnchorSideBottom.Side = asrBottom
Left = 253
Height = 25
Top = 203
Width = 75
Anchors = [akLeft, akBottom]
Caption = 'OK'
Default = True
OnClick = btnOkClick
TabOrder = 3
end
object btnCancel: TButton
Left = 272
AnchorSideBottom.Control = gbPen
AnchorSideBottom.Side = asrBottom
Left = 333
Height = 25
Top = 203
Width = 75
Anchors = [akLeft, akBottom]
BorderSpacing.Right = 8
Cancel = True
Caption = 'Cancel'
OnClick = btnCancelClick
TabOrder = 4
end
object gbBrush: TGroupBox
Left = 186
Left = 216
Height = 86
Top = 88
Width = 165
Width = 192
BorderSpacing.Right = 8
Caption = ' Brush '
ClientHeight = 66
ClientWidth = 161
ClientWidth = 188
TabOrder = 2
object lblBrushStyle: TLabel
Left = 8
Height = 15
Top = 35
Width = 28
BorderSpacing.Left = 8
Caption = 'Style:'
FocusControl = cbBrushStyle
ParentColor = False
@ -56,7 +65,9 @@ object frmEditShape: TfrmEditShape
Left = 52
Height = 23
Top = 32
Width = 97
Width = 129
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
OnChange = cbBrushStyleChange
OnDrawItem = cbBrushStyleDrawItem
@ -67,6 +78,7 @@ object frmEditShape: TfrmEditShape
Height = 15
Top = 5
Width = 32
BorderSpacing.Left = 8
Caption = 'Color:'
FocusControl = cbBrushColor
ParentColor = False
@ -75,8 +87,9 @@ object frmEditShape: TfrmEditShape
Left = 52
Height = 22
Top = 1
Width = 97
Width = 124
Style = [cbStandardColors, cbExtendedColors, cbPrettyNames, cbCustomColors]
BorderSpacing.Right = 8
ItemHeight = 16
OnChange = cbBrushColorChange
TabOrder = 1
@ -86,16 +99,19 @@ object frmEditShape: TfrmEditShape
Left = 8
Height = 140
Top = 88
Width = 165
Width = 192
BorderSpacing.Left = 8
BorderSpacing.Bottom = 8
Caption = ' Pen '
ClientHeight = 120
ClientWidth = 161
ClientWidth = 188
TabOrder = 1
object lblPenStyle: TLabel
Left = 8
Height = 15
Top = 35
Width = 28
BorderSpacing.Left = 8
Caption = 'Style:'
FocusControl = cbPenStyle
ParentColor = False
@ -105,6 +121,7 @@ object frmEditShape: TfrmEditShape
Height = 15
Top = 64
Width = 35
BorderSpacing.Left = 8
Caption = 'Width:'
FocusControl = edPenWidth
ParentColor = False
@ -114,6 +131,7 @@ object frmEditShape: TfrmEditShape
Height = 15
Top = 92
Width = 34
BorderSpacing.Left = 8
Caption = 'Mode:'
FocusControl = cbPenMode
ParentColor = False
@ -122,7 +140,8 @@ object frmEditShape: TfrmEditShape
Left = 52
Height = 23
Top = 32
Width = 97
Width = 124
BorderSpacing.Right = 8
ItemHeight = 15
OnChange = cbPenStyleChange
OnDrawItem = cbPenStyleDrawItem
@ -132,7 +151,9 @@ object frmEditShape: TfrmEditShape
Left = 52
Height = 23
Top = 88
Width = 97
Width = 124
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
TabOrder = 4
end
@ -160,8 +181,9 @@ object frmEditShape: TfrmEditShape
Left = 52
Height = 22
Top = 1
Width = 97
Width = 124
Style = [cbStandardColors, cbExtendedColors, cbPrettyNames, cbCustomColors]
BorderSpacing.Right = 8
ItemHeight = 16
OnChange = cbPenColorChange
TabOrder = 0
@ -171,6 +193,7 @@ object frmEditShape: TfrmEditShape
Height = 15
Top = 5
Width = 29
BorderSpacing.Left = 8
Caption = 'Color'
FocusControl = cbPenColor
ParentColor = False
@ -180,66 +203,71 @@ object frmEditShape: TfrmEditShape
Left = 8
Height = 67
Top = 8
Width = 324
Width = 400
BorderSpacing.Right = 8
Caption = 'gbShapes'
ClientHeight = 47
ClientWidth = 320
ClientWidth = 396
TabOrder = 0
object SpeedButton1: TSpeedButton
Left = 12
Height = 32
Top = 7
Top = 4
Width = 32
BorderSpacing.Left = 8
BorderSpacing.Bottom = 8
Down = True
GroupIndex = 1
end
object SpeedButton2: TSpeedButton
Left = 49
Height = 32
Top = 7
Top = 4
Width = 32
GroupIndex = 1
end
object SpeedButton3: TSpeedButton
Left = 86
Height = 32
Top = 7
Top = 4
Width = 32
GroupIndex = 1
end
object SpeedButton4: TSpeedButton
Left = 123
Height = 32
Top = 7
Top = 4
Width = 32
GroupIndex = 1
end
object SpeedButton5: TSpeedButton
Left = 160
Height = 32
Top = 7
Top = 4
Width = 32
GroupIndex = 1
end
object SpeedButton6: TSpeedButton
Left = 197
Height = 32
Top = 7
Top = 4
Width = 32
GroupIndex = 1
end
object SpeedButton7: TSpeedButton
Left = 234
Height = 32
Top = 7
Top = 4
Width = 32
GroupIndex = 1
end
object SpeedButton8: TSpeedButton
Left = 271
Height = 32
Top = 7
Top = 4
Width = 32
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
GroupIndex = 1
end
end