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

tvplanit: Translate shape editor. Fix pen and brush style combos. Auto-position controls.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4935 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-08 10:04:20 +00:00
parent 6df0384a65
commit fb4a5f60f6
17 changed files with 780 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,143 +1,139 @@
object frmEditShape: TfrmEditShape
Left = 455
Height = 314
Top = 209
Left = 772
Height = 243
Top = 248
Width = 363
HorzScrollBar.Page = 362
VertScrollBar.Page = 313
BorderStyle = bsDialog
Caption = 'Edit Shape'
ClientHeight = 314
ClientHeight = 243
ClientWidth = 363
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
ShowHint = True
LCLVersion = '1.7'
object rgShapeType: TRadioGroup
Left = 8
Height = 88
Top = 8
Width = 345
AutoFill = True
Caption = ' Shape '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 68
ClientWidth = 341
Columns = 3
ItemIndex = 0
Items.Strings = (
'Rectangle'
'TopLine'
'BottomLine'
'LeftLine'
'RightLine'
'TLToBRLine'
'BLToTRLine'
'Ellipse'
)
TabOrder = 0
end
object btnOk: TButton
Left = 192
Height = 25
Top = 280
Top = 203
Width = 75
Caption = 'OK'
Default = True
OnClick = btnOkClick
TabOrder = 3
TabOrder = 2
end
object btnCancel: TButton
Left = 272
Height = 25
Top = 280
Top = 203
Width = 75
Cancel = True
Caption = 'Cancel'
OnClick = btnCancelClick
TabOrder = 4
TabOrder = 3
end
object gbBrush: TGroupBox
Left = 188
Height = 158
Top = 100
Left = 186
Height = 86
Top = 88
Width = 165
Caption = ' Brush '
ClientHeight = 138
ClientHeight = 66
ClientWidth = 161
TabOrder = 2
object Label1: TLabel
Left = 6
TabOrder = 1
object lblBrushStyle: TLabel
Left = 8
Height = 15
Top = 111
Top = 35
Width = 28
Caption = 'Style:'
FocusControl = cbBrushStyle
ParentColor = False
end
object cbBrushStyle: TComboBox
Left = 48
Left = 52
Height = 22
Top = 108
Width = 99
Top = 32
Width = 97
ItemHeight = 16
OnChange = cbBrushStyleChange
OnDrawItem = cbBrushStyleDrawItem
Style = csOwnerDrawFixed
TabOrder = 0
end
object lblBrushColor: TLabel
Left = 8
Height = 15
Top = 5
Width = 32
Caption = 'Color:'
FocusControl = cbBrushColor
ParentColor = False
end
object cbBrushColor: TColorBox
Left = 52
Height = 22
Top = 1
Width = 97
Style = [cbStandardColors, cbExtendedColors, cbPrettyNames, cbCustomColors]
ItemHeight = 16
OnChange = cbBrushColorChange
TabOrder = 1
end
end
object gbPen: TGroupBox
Left = 8
Height = 205
Top = 100
Height = 140
Top = 88
Width = 165
Caption = ' Pen '
ClientHeight = 187
ClientHeight = 120
ClientWidth = 161
TabOrder = 1
object Label2: TLabel
TabOrder = 0
object lblPenStyle: TLabel
Left = 8
Height = 15
Top = 103
Top = 35
Width = 28
Caption = 'Style:'
FocusControl = cbPenStyle
ParentColor = False
end
object Label3: TLabel
object lblPenWidth: TLabel
Left = 8
Height = 15
Top = 132
Top = 64
Width = 35
Caption = 'Width:'
FocusControl = edPenWidth
ParentColor = False
end
object Label4: TLabel
object lblPenMode: TLabel
Left = 8
Height = 15
Top = 160
Top = 92
Width = 34
Caption = 'Mode:'
FocusControl = cbPenMode
ParentColor = False
end
object cbPenStyle: TComboBox
Left = 52
Height = 22
Top = 100
Top = 32
Width = 97
ItemHeight = 16
OnChange = cbPenStyleChange
OnDrawItem = cbPenStyleDrawItem
Style = csOwnerDrawFixed
TabOrder = 0
end
object cbPenMode: TComboBox
Left = 52
Height = 21
Top = 156
Height = 23
Top = 88
Width = 97
ItemHeight = 15
TabOrder = 1
@ -145,7 +141,7 @@ object frmEditShape: TfrmEditShape
object udPenWidth: TUpDown
Left = 98
Height = 23
Top = 128
Top = 60
Width = 11
Associate = edPenWidth
Min = 0
@ -156,10 +152,97 @@ object frmEditShape: TfrmEditShape
object edPenWidth: TEdit
Left = 52
Height = 23
Top = 128
Top = 60
Width = 46
OnChange = edPenWidthChange
TabOrder = 2
Text = '0'
end
object cbPenColor: TColorBox
Left = 52
Height = 22
Top = 1
Width = 97
Style = [cbStandardColors, cbExtendedColors, cbPrettyNames, cbCustomColors]
ItemHeight = 16
OnChange = cbPenColorChange
TabOrder = 4
end
object lblPenColor: TLabel
Left = 8
Height = 15
Top = 5
Width = 29
Caption = 'Color'
FocusControl = cbPenColor
ParentColor = False
end
end
object gbShapes: TGroupBox
Left = 8
Height = 67
Top = 8
Width = 324
Caption = 'gbShapes'
ClientHeight = 47
ClientWidth = 320
TabOrder = 4
object SpeedButton1: TSpeedButton
Left = 12
Height = 32
Top = 7
Width = 32
Down = True
GroupIndex = 1
end
object SpeedButton2: TSpeedButton
Left = 49
Height = 32
Top = 7
Width = 32
GroupIndex = 1
end
object SpeedButton3: TSpeedButton
Left = 86
Height = 32
Top = 7
Width = 32
GroupIndex = 1
end
object SpeedButton4: TSpeedButton
Left = 123
Height = 32
Top = 7
Width = 32
GroupIndex = 1
end
object SpeedButton5: TSpeedButton
Left = 160
Height = 32
Top = 7
Width = 32
GroupIndex = 1
end
object SpeedButton6: TSpeedButton
Left = 197
Height = 32
Top = 7
Width = 32
GroupIndex = 1
end
object SpeedButton7: TSpeedButton
Left = 234
Height = 32
Top = 7
Width = 32
GroupIndex = 1
end
object SpeedButton8: TSpeedButton
Left = 271
Height = 32
Top = 7
Width = 32
GroupIndex = 1
end
end
end