matrixFont/source/fm_map.lfm

160 lines
3.8 KiB
Plaintext

object fmMap: TfmMap
Left = 338
Height = 428
Top = 177
Width = 749
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'fmMap'
ClientHeight = 428
ClientWidth = 749
Constraints.MinHeight = 300
Constraints.MinWidth = 400
DesignTimePPI = 120
OnCreate = FormCreate
OnShow = FormShow
Position = poMainFormCenter
ShowHint = True
LCLVersion = '3.0.0.3'
Scaled = False
object sgMap: TStringGrid
Left = 0
Height = 372
Top = 0
Width = 749
Align = alClient
AutoFillColumns = True
BorderStyle = bsNone
ColCount = 0
DefaultColWidth = 80
DoubleBuffered = True
FixedCols = 0
FixedRows = 0
GridLineColor = cl3DLight
GridLineWidth = 0
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking, goSmoothScroll]
ParentDoubleBuffered = False
RowCount = 0
TabOrder = 0
TitleStyle = tsNative
UseXORFeatures = True
OnChangeBounds = sgMapChangeBounds
OnDblClick = sgMapDblClick
OnDrawCell = sgMapDrawCell
OnSelection = sgMapSelection
OnSelectCell = sgMapSelectCell
end
object pMapControls: TPanel
Left = 0
Height = 56
Top = 372
Width = 749
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 8
ChildSizing.HorizontalSpacing = 10
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 1
ClientHeight = 56
ClientWidth = 749
TabOrder = 1
object lbMapCols: TLabel
Left = 8
Height = 40
Top = 8
Width = 64
Caption = 'Столбцы:'
Layout = tlCenter
ParentColor = False
end
object cbMapWidth: TComboBox
Left = 82
Height = 28
Top = 14
Width = 125
BorderSpacing.CellAlignVertical = ccaCenter
ItemHeight = 20
ItemIndex = 3
Items.Strings = (
'2'
'4'
'8'
'16'
'32'
'64'
)
Style = csDropDownList
TabOrder = 0
Text = '16'
OnChange = sgMapChangeBounds
end
object lbMapOffset: TLabel
Left = 227
Height = 40
Top = 8
Width = 78
BorderSpacing.Left = 20
Caption = 'Дистанция:'
Layout = tlCenter
ParentColor = False
end
object seSpaceX: TSpinEdit
Left = 315
Height = 28
Hint = 'Дистанция между символами по горизонтали'
Top = 14
Width = 63
BorderSpacing.CellAlignVertical = ccaCenter
MaxValue = 16
OnChange = sgMapChangeBounds
TabOrder = 1
Value = 2
end
object seSpaceY: TSpinEdit
Left = 388
Height = 28
Hint = 'Дистанция между символами по вертикали'
Top = 14
Width = 63
BorderSpacing.CellAlignVertical = ccaCenter
MaxValue = 16
OnChange = sgMapChangeBounds
TabOrder = 3
Value = 2
end
object tbControls: TToolBar
Left = 461
Height = 40
Top = 8
Width = 51
Align = alNone
AutoSize = True
BorderSpacing.CellAlignVertical = ccaCenter
ButtonHeight = 40
ButtonWidth = 50
Caption = 'tbControls'
EdgeInner = esNone
EdgeOuter = esNone
Images = fmMain.ImListNew16A
ParentShowHint = False
ShowHint = True
TabOrder = 2
TabStop = True
object ToolButton1: TToolButton
Left = 1
Top = 0
Action = fmMain.acMapExport
end
end
end
object SaveDlg: TSaveDialog
Title = 'Экспорт изображения карты символов'
Filter = 'Portable Network Graphics File|*.png'
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
Left = 96
Top = 56
end
end