mirror of
https://gitlab.com/riva-lab/matrixFont
synced 2025-04-23 22:43:19 +03:00
160 lines
3.8 KiB
Plaintext
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
|