expertcad/SRC/Main/U_CAD.dfm
2025-05-12 10:21:16 +03:00

712 lines
24 KiB
Plaintext

object F_CAD: TF_CAD
Left = 274
Top = 261
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
HorzScrollBar.Color = clBtnFace
HorzScrollBar.ParentColor = False
HorzScrollBar.Style = ssFlat
VertScrollBar.Color = clBtnFace
VertScrollBar.ParentColor = False
BorderStyle = bsNone
Caption = #1051#1080#1089#1090
ClientHeight = 541
ClientWidth = 852
Color = clWindow
Constraints.MinHeight = 24
Constraints.MinWidth = 100
Ctl3D = False
DefaultMonitor = dmMainForm
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMinimized
OnActivate = FormActivate
OnCanResize = FormCanResize
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnMouseWheel = FormMouseWheel
OnMouseWheelDown = FormMouseWheelDown
OnMouseWheelUp = FormMouseWheelUp
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object sDiv: TSplitter
Left = 0
Top = 464
Width = 852
Height = 3
Cursor = crVSplit
Align = alBottom
Color = clBtnFace
ParentColor = False
ResizeStyle = rsUpdate
OnCanResize = sDivCanResize
OnMoved = sDivMoved
ExplicitTop = 461
ExplicitWidth = 790
end
object PCad: TPowerCad
Left = 0
Top = 0
Width = 852
Height = 464
HelpContext = 68000
Margins.Left = 0
RulerVisible = False
VerticalZero = vzTop
HorizontalZero = vzLeft
Align = alClient
BevelOuter = bvNone
OnKeyDown = PCadKeyDown
OnKeyUp = PCadKeyUp
ZoomScale = 80
GuidesVisible = False
BackGround = clBtnFace
PageColor = clBtnFace
Grids = True
GridType = grtLine
CenterGuide = False
PageGuide = False
DrawShadow = True
DrawPageBorder = True
GridColor = clSilver
GuideColor = clGreen
RulerColor = clBtnFace
GridStep = 1.000000000000000000
WorkHeight = 297.000000000000000000
WorkWidth = 210.000000000000000000
PageLayout = plA4
PageOrient = poLandscape
GuideTrace = gtNone
SnapToGuides = False
SnapToNearPoint = False
SnapToGrids = False
ScrollBars = True
RulerSystem = rsMetric
DrawInCursor = False
DetailWindow = False
DetailWidth = 100
DetailHeight = 100
DetailScale = 100
DetailStyle = dsZoom
Isometric = False
OnSurfaceMove = PCadSurfaceMove
OnSurfaceMouseDown = PCadSurfaceMouseDown
OnSurfaceMouseUp = PCadSurfaceMouseUp
OnSurfaceLeave = PCadSurfaceLeave
OnSurfaceClick = PCadSurfaceClick
OnSurfaceDblClick = PCadSurfaceDblClick
OnSurfaceDragDrop = PCadSurfaceDragDrop
OnSurfaceDragOver = PCadSurfaceDragOver
OnSurfaceEndDrag = PCadSurfaceEndDrag
OnScaleChanged = PCadScaleChanged
DefaultBrushColor = clWhite
DefaultTextHeight = 8.000000000000000000
MapScale = 50.000000000000000000
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'GOST'
Font.Style = []
UndoCount = 10
RulerMode = rmWorld
OnSelectionChange = PCadSelectionChange
OnObjectInserted = PCadObjectInserted
OnFigureMoved = PCadFigureMoved
OnBeforeDelete = PCadBeforeDelete
OnAfterDelete = PCadAfterDelete
OnMapScaleChanged = PCadMapScaleChanged
PopStyle = psNone
OnPopMenuClicked = PCadPopMenuClicked
OnGUIEvent = PCadGUIEvent
OnToolChanged = PCadToolChanged
object HorScroll: TScrollBar
Left = 0
Top = 449
Width = 852
Height = 15
Align = alBottom
BiDiMode = bdLeftToRight
Ctl3D = False
LargeChange = 10
PageSize = 0
ParentBiDiMode = False
ParentCtl3D = False
TabOrder = 1
OnScroll = HorScrollScroll
end
object VerScroll: TScrollBar
Left = 837
Top = 0
Width = 15
Height = 449
Align = alRight
Kind = sbVertical
LargeChange = 10
PageSize = 0
TabOrder = 2
OnScroll = VerScrollScroll
end
end
object panProtocol: TPanel
Left = 0
Top = 467
Width = 852
Height = 24
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object mProtocol: TcxMemo
Left = 2
Top = 2
HelpContext = 69000
Align = alClient
Constraints.MinHeight = 20
ParentFont = False
ParentShowHint = False
Properties.Alignment = taLeftJustify
Properties.ReadOnly = True
Properties.ScrollBars = ssVertical
Properties.OnChange = mProtocolPropertiesChange
ShowHint = False
Style.BorderStyle = ebsNone
Style.Edges = [bLeft, bTop, bRight, bBottom]
Style.HotTrack = False
Style.LookAndFeel.Kind = lfFlat
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfFlat
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfFlat
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfFlat
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 20
Width = 848
end
end
object sbView: TStatusBar
Left = 0
Top = 522
Width = 852
Height = 19
HelpContext = 70000
BiDiMode = bdLeftToRight
Panels = <
item
Width = 170
end
item
Width = 220
end
item
Width = 150
end>
ParentBiDiMode = False
ParentShowHint = False
ShowHint = True
end
object panView: TRzPanel
Left = 0
Top = 491
Width = 852
Height = 31
Align = alBottom
BorderOuter = fsNone
GradientColorStart = clBtnFace
TabOrder = 3
VisualStyle = vsClassic
DesignSize = (
852
31)
object tbView: TToolBar
Left = 2
Top = -2
Width = 848
Height = 31
HelpContext = 73000
Align = alNone
Anchors = [akLeft, akRight]
ButtonHeight = 31
ButtonWidth = 31
Caption = 'tbView'
Color = clBtnFace
Constraints.MinWidth = 786
EdgeInner = esLowered
Images = FSCS_Main.imagePanel
List = True
ParentColor = False
TabOrder = 0
TabStop = True
Transparent = False
object tbShowRuler: TToolButton
Left = 0
Top = 0
Action = FSCS_Main.aShowRuler
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbShowGrid: TToolButton
Left = 31
Top = 0
Action = FSCS_Main.aShowGrid
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbShowGuides: TToolButton
Left = 62
Top = 0
Action = FSCS_Main.aShowGuideLines
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbSnapGrid: TToolButton
Left = 93
Top = 0
Action = FSCS_Main.aSnaptoGrid
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbSnapGuides: TToolButton
Left = 124
Top = 0
Action = FSCS_Main.aSnaptoGuides
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbSnapNearObject: TToolButton
Left = 155
Top = 0
Action = FSCS_Main.aSnaptoNearObject
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object ToolButton4: TToolButton
Left = 186
Top = 0
Width = 10
HelpContext = 73000
ImageIndex = 17
Style = tbsSeparator
end
object LabelHighlight: TLabel
Left = 196
Top = 0
Width = 45
Height = 31
Alignment = taRightJustify
AutoSize = False
Caption = 'Highlight:'
Constraints.MinWidth = 45
ParentShowHint = False
ShowHint = True
Layout = tlCenter
end
object tbShowConnFullness: TToolButton
Left = 241
Top = 0
Action = FSCS_Main.aShowConnFullness
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbShowCableFullness: TToolButton
Left = 272
Top = 0
Action = FSCS_Main.aShowCableFullness
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbShowCableChannelFullness: TToolButton
Left = 303
Top = 0
Action = FSCS_Main.aShowCableChannelFullness
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbShowDefectObjects: TToolButton
Left = 334
Top = 0
Action = FSCS_Main.aShowDefectObjects
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbShowDisconnectedObjects: TToolButton
Left = 365
Top = 0
Action = FSCS_Main.aShowDisconnectedObjects
DropdownMenu = PopupMenuDisconected
ParentShowHint = False
ShowHint = True
Style = tbsDropDown
end
object ToolButton2: TToolButton
Left = 411
Top = 0
Width = 11
ImageIndex = 17
Style = tbsDivider
end
object tbShowTracesLengthLimit: TToolButton
Left = 422
Top = 0
Action = FSCS_Main.aShowTracesLengthLimit
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object tbNoMoveConnectedObjects: TToolButton
Left = 453
Top = 0
Action = FSCS_Main.aNoMoveConnectedObjects
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object ToolButton5: TToolButton
Left = 484
Top = 0
Width = 12
HelpContext = 73000
ImageIndex = 17
Style = tbsSeparator
end
object tbDecView: TToolButton
Left = 496
Top = 0
Action = FSCS_Main.aDec1pt
ParentShowHint = False
ShowHint = True
end
object tbIncView: TToolButton
Left = 527
Top = 0
Action = FSCS_Main.aInc1pt
ParentShowHint = False
ShowHint = True
end
object tbActualsize: TToolButton
Left = 558
Top = 0
Action = FSCS_Main.aAllScreen
AllowAllUp = True
ParentShowHint = False
ShowHint = True
end
object ToolButton1: TToolButton
Left = 589
Top = 0
Width = 8
ImageIndex = 17
Style = tbsSeparator
end
object tbShowPathLengthType: TToolButton
Left = 597
Top = 0
DropdownMenu = FSCS_Main.pmShowPathLengthType
ImageIndex = 187
ParentShowHint = False
ShowHint = True
Style = tbsDropDown
OnClick = tbDropDownClick
end
object tbShowPathTraceLengthType: TToolButton
Left = 643
Top = 0
DropdownMenu = FSCS_Main.pmShowPathTraceLengthType
ImageIndex = 18
ParentShowHint = False
ShowHint = True
Style = tbsDropDown
OnClick = tbDropDownClick
end
object tbShowTransparency: TToolButton
Left = 689
Top = 0
Caption = 'ShowTransPArency'
ImageIndex = 19
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = tbShowTransparencyClick
end
object cbManualCableTracingMode: TToolButton
Left = 720
Top = 0
Hint = #1056#1077#1078#1080#1084' '#1088#1091#1095#1085#1086#1081' '#1087#1088#1086#1082#1083#1072#1076#1082#1080' '#1082#1072#1073#1077#1083#1103'('#1076#1083#1103' '#1101#1083#1077#1082#1090#1088#1080#1082#1080')'
ImageIndex = 99
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = cbManualCableTracingModeClick
end
object cbMagnetToWalls: TToolButton
Left = 751
Top = 0
Hint = #1055#1088#1080#1084#1072#1075#1085#1080#1095#1080#1074#1072#1085#1080#1077' '#1082' '#1089#1090#1077#1085#1072#1084#13#1047#1072#1078#1084#1080#1090#1077' SHIFT '#1076#1083#1103' '#1074#1088#1077#1084#1077#1085#1085#1086#1075#1086' '#1086#1090#1082#1083#1102#1095#1077#1085#1080#1103
Caption = 'cbMagnetToWalls'
Down = True
ImageIndex = 220
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = cbMagnetToWallsClick
end
object cbMagnetWalls: TToolButton
Left = 782
Top = 0
ImageIndex = 221
Style = tbsCheck
end
end
end
object ApplicationEvents1: TApplicationEvents
OnMessage = ApplicationEvents1Message
Left = 106
Top = 26
end
object lng_Forms: TsiLangLinked
Version = '6.5.2'
StringsTypes.Strings = (
'TIB_STRINGLIST'
'TSTRINGLIST')
SmartExcludeProps.Strings = (
'edtAnswer2.Font'
'lblProgID.Font'
'btnOk.Font'
'btnCancel.Font'
'TF_Registration.Font'
'edtAnswer1.Font')
UseDefaultLanguage = True
NumOfLanguages = 7
LangDispatcher = F_LNG.siLangDisp
LangDelim = 1
LangNames.Strings = (
'RUS'
'UKR'
'ENG'
'GER'
'FRA'
'SPA'
'RUS_ARH')
Language = 'RUS'
ExcludedProperties.Strings = (
'Category'
'SecondaryShortCuts'
'HelpKeyword'
'InitialDir'
'HelpKeyword'
'ActivePage'
'ImeName'
'DefaultExt'
'FileName'
'FieldName'
'PickList'
'DisplayFormat'
'EditMask'
'KeyList'
'LookupDisplayFields'
'DropDownSpecRow'
'TableName'
'DatabaseName'
'IndexName'
'MasterFields')
Left = 70
Top = 26
TranslationData = {
73007400430061007000740069006F006E0073005F0055006E00690063006F00
640065000D000A00540046005F0043004100440001001B043804410442040100
100440043A04430448040100530068006500650074000100010001005000E100
670069006E006100010001000D000A004C006900730074006F00660063006F00
6E006E006500630074006500640064006900730063006F006E006E0065006300
740065006400310001004C0069007300740020006F006600200063006F006E00
6E00650063007400650064002F0064006900730063006F006E006E0065006300
74006500640001004C0069007300740020006F006600200063006F006E006E00
650063007400650064002F0064006900730063006F006E006E00650063007400
6500640001004C0069007300740020006F006600200063006F006E006E006500
63007400650064002F0064006900730063006F006E006E006500630074006500
6400010001000100010001000D000A004D004900740065006D005F0043006F00
6E006E0050006F0069006E007400730001001F043E0434043A043B044E044704
35043D043D044B043504200042043E044704350447043D044B04350420003A04
3E043C043F043E043D0435043D0442044B0401001F04560434043A043B044E04
470435043D045604200042043E044704350447043D04560420003A043E043C04
3F043E043D0435043D0442043804010043006F006E006E006500630074006500
6400200070006F0069006E007400200063006F006D0070006F006E0065006E00
74007300010001000100010001000D000A004D004900740065006D005F004300
6F006E006E004C0069006E00650001001F043E0434043A043B044E0447043504
3D043D044B04350420003B0438043D04350439043D044B04350420003A043E04
3C043F043E043D0435043D0442044B0401001F04560434043A043B044E044704
35043D04560420003B0456043D04560439043D04560420003A043E043C043F04
3E043D0435043D0442043804010043006F006E006E0065006300740065006400
20006C0069006E00650061007200200063006F006D0070006F006E0065006E00
74007300010001000100010001000D000A004D004900740065006D005F004E00
6F00740043006F006E006E0050006F0069006E00740001001D04350420003F04
3E0434043A043B044E04470435043D043D044B043504200042043E0447043504
47043D044B04350420003A043E043C043F043E043D0435043D0442044B040100
1D04350420003F04560434043A043B044E04470435043D045604200042043E04
4704350447043D04560420003A043E043C043F043E043D0435043D0442043804
01004E006F007400200063006F006E006E006500630074006500640020007000
6F0069006E007400200063006F006D0070006F006E0065006E00740073000100
01000100010001000D000A004D004900740065006D005F004E006F0074004300
6F006E006E004C0069006E00650001001D04350420003F043E0434043A043B04
4E04470435043D043D044B04350420003B0438043D04350439043D044B043504
20003A043E043C043F043E043D0435043D0442044B0401001D04350420003F04
560434043A043B044E04470435043D04560420003B0456043D04560439043D04
560420003A043E043C043F043E043D0435043D044204380401004E006F007400
200063006F006E006E006500630074006500640020006C0069006E0065006100
7200200063006F006D0070006F006E0065006E00740073000100010001000100
01000D000A004D004900740065006D005F004300610062006C0065004E006F00
430061006E0061006C0001001A043004310435043B043804200032043D043504
20003A043004310435043B044C043D044B04450420003A0430043D0430043B04
3E04320401001A043004310435043B045604200037043E0432043D0456042000
3A043004310435043B044C043D043804450420003A0430043D0430043B045604
320401004300610062006C0065007300200077006900740068006F0075007400
20006300610062006C00650020006300680061006E006E0065006C0073000100
01000100010001000D000A007400620056006900650077000100740062005600
69006500770001000100010001000100010001000D000A004C00610062006500
6C0048006900670068006C006900670068007400010048006900670068006C00
69006700680074003A0001000100010001000100010001000D000A0074006200
530068006F0077005400720061006E00730070006100720065006E0063007900
0100530068006F0077005400720061006E00730050004100720065006E006300
790001000100010001000100010001000D000A0073007400480069006E007400
73005F0055006E00690063006F00640065000D000A004D004900740065006D00
5F004300610062006C0065004E006F00430061006E0061006C0001001A043004
310435043B043804200032043D04350420003A0430043D0430043B043E043204
01001A043004310435043B045604200037043E0432043D04560420003A043004
3D0430043B045604320401004300610062006C006500730020006F0075007400
730069006400650020006300680061006E006E0065006C007300010001000100
010001000D000A00630062004D0061006E00750061006C004300610062006C00
6500540072006100630069006E0067004D006F00640065000100200435043604
38043C0420004004430447043D043E04390420003F0440043E043A043B043004
34043A04380420003A043004310435043B044F04280034043B044F0420004D04
3B0435043A044204400438043A0438042900010020043504360438043C042000
4004430447043D043E04570420003F0440043E043A043B04300434043A043804
20003A043004310435043B044F042000280034043B044F04200035043B043504
3A044204400438043A043804290001004D0061006E00750061006C0020006300
610062006C006500200072006F007500740069006E00670020006D006F006400
65002000280065006C00650063007400720069006300610020006F006E006C00
79002900010001000100010001000D000A007300740044006900730070006C00
610079004C006100620065006C0073005F0055006E00690063006F0064006500
0D000A007300740046006F006E00740073005F0055006E00690063006F006400
65000D000A00540046005F0043004100440001004D0053002000530061006E00
730020005300650072006900660001004D0053002000530061006E0073002000
5300650072006900660001004D0053002000530061006E007300200053006500
7200690066000100010001004D0053002000530061006E007300200053006500
720069006600010001000D000A005000430061006400010047004F0053005400
010047004F0053005400010047004F005300540001000100010047004F005300
5400010001000D000A0073006200560069006500770001005300650067006F00
650020005500490001005400610068006F006D00610001005400610068006F00
6D0061000100010001005400610068006F006D006100010001000D000A007300
74004D0075006C00740069004C0069006E00650073005F0055006E0069006300
6F00640065000D000A007300740053007400720069006E00670073005F005500
6E00690063006F00640065000D000A00730074004F0074006800650072005300
7400720069006E00670073005F0055006E00690063006F00640065000D000A00
7300740043006F006C006C0065006300740069006F006E0073005F0055006E00
690063006F00640065000D000A00730074004300680061007200530065007400
73005F0055006E00690063006F00640065000D000A00540046005F0043004100
44000100440045004600410055004C0054005F00430048004100520053004500
54000100440045004600410055004C0054005F00430048004100520053004500
54000100440045004600410055004C0054005F00430048004100520053004500
54000100440045004600410055004C0054005F00430048004100520053004500
54000100440045004600410055004C0054005F00430048004100520053004500
5400010041004E00530049005F00430048004100520053004500540001004400
45004600410055004C0054005F00430048004100520053004500540001000D00
0A0050004300610064000100440045004600410055004C0054005F0043004800
410052005300450054000100440045004600410055004C0054005F0043004800
410052005300450054000100440045004600410055004C0054005F0043004800
410052005300450054000100440045004600410055004C0054005F0043004800
410052005300450054000100440045004600410055004C0054005F0043004800
41005200530045005400010041004E00530049005F0043004800410052005300
450054000100440045004600410055004C0054005F0043004800410052005300
4500540001000D000A0073006200560069006500770001004400450046004100
55004C0054005F00430048004100520053004500540001004400450046004100
55004C0054005F00430048004100520053004500540001004400450046004100
55004C0054005F00430048004100520053004500540001004400450046004100
55004C0054005F00430048004100520053004500540001004400450046004100
55004C0054005F004300480041005200530045005400010041004E0053004900
5F0043004800410052005300450054000100440045004600410055004C005400
5F00430048004100520053004500540001000D000A00}
end
object TimerFindSnap: TTimer
Enabled = False
Interval = 500
OnTimer = TimerFindSnapTimer
Left = 128
Top = 376
end
object TimerMovePan: TTimer
Enabled = False
Interval = 1
OnTimer = TimerMovePanTimer
Left = 88
Top = 320
end
object PopupMenuDisconected: TPopupMenu
Images = FSCS_Main.imagePanel
OwnerDraw = True
OnPopup = PopupMenuDisconectedPopup
Left = 288
Top = 224
object Highlightdisconnected1: TMenuItem
Action = FSCS_Main.aShowDisconnectedObjects
AutoCheck = True
end
object Listofconnecteddisconnected1: TMenuItem
Caption = 'List of connected/disconnected'
object MItem_ConnPoints: TMenuItem
Caption = #1055#1086#1076#1082#1083#1102#1095#1077#1085#1085#1099#1077' '#1090#1086#1095#1077#1095#1085#1099#1077' '#1082#1086#1084#1087#1086#1085#1077#1085#1090#1099
end
object MItem_ConnLine: TMenuItem
Caption = #1055#1086#1076#1082#1083#1102#1095#1077#1085#1085#1099#1077' '#1083#1080#1085#1077#1081#1085#1099#1077' '#1082#1086#1084#1087#1086#1085#1077#1085#1090#1099
end
object MItem_NotConnPoint: TMenuItem
Caption = #1053#1077' '#1087#1086#1076#1082#1083#1102#1095#1077#1085#1085#1099#1077' '#1090#1086#1095#1077#1095#1085#1099#1077' '#1082#1086#1084#1087#1086#1085#1077#1085#1090#1099
end
object MItem_NotConnLine: TMenuItem
Caption = #1053#1077' '#1087#1086#1076#1082#1083#1102#1095#1077#1085#1085#1099#1077' '#1083#1080#1085#1077#1081#1085#1099#1077' '#1082#1086#1084#1087#1086#1085#1077#1085#1090#1099
end
object MItem_CableNoCanal: TMenuItem
Caption = #1050#1072#1073#1077#1083#1080' '#1074#1085#1077' '#1082#1072#1073#1077#1083#1100#1085#1099#1093' '#1082#1072#1085#1072#1083#1086#1074
Hint = #1050#1072#1073#1077#1083#1080' '#1074#1085#1077' '#1082#1072#1085#1072#1083#1086#1074
end
end
end
object TimerDblClk: TTimer
Enabled = False
Interval = 100
OnTimer = TimerDblClkTimer
Left = 208
Top = 352
end
object TimerShowPopup: TTimer
Interval = 300
OnTimer = TimerShowPopupTimer
Left = 248
Top = 72
end
end