📄 unit1.dfm
字号:
object Form1: TForm1
Left = 89
Top = 161
Width = 605
Height = 511
Caption = 'RIP protocol '
Color = 14338458
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 24
Top = 72
Width = 159
Height = 13
Caption = 'please enter matrix of cost'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 344
Top = 72
Width = 228
Height = 13
Caption = 'matrix of shortest path between all node'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 264
Width = 576
Height = 13
Caption =
'----------------------------------------------------------------' +
'----------------------------------------------------------------' +
'----------------------------------------------------------------'
end
object Label4: TLabel
Left = 8
Top = 48
Width = 576
Height = 13
Caption =
'----------------------------------------------------------------' +
'----------------------------------------------------------------' +
'----------------------------------------------------------------'
end
object Label5: TLabel
Left = 8
Top = 8
Width = 317
Height = 19
Caption = 'Product by : NEDA AZADI 860816793'
Color = 12615680
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label6: TLabel
Left = 8
Top = 320
Width = 214
Height = 13
Caption = 'Please enter row(I) and column (J) of '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 336
Width = 162
Height = 13
Caption = 'link that you want to destroy'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 80
Top = 408
Width = 5
Height = 13
Caption = 'I'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 128
Top = 408
Width = 7
Height = 13
Caption = 'J'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 344
Top = 288
Width = 220
Height = 13
Caption = 'matrix of shortest path after link failure'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Button2: TButton
Left = 240
Top = 192
Width = 75
Height = 25
Caption = '&Start'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button2Click
end
object Edit1: TEdit
Left = 568
Top = 288
Width = 17
Height = 21
TabOrder = 1
Visible = False
end
object Edit2: TEdit
Left = 568
Top = 320
Width = 9
Height = 21
TabOrder = 2
Visible = False
end
object Edit3: TEdit
Left = 448
Top = 8
Width = 73
Height = 21
TabOrder = 3
Visible = False
OnExit = Edit3Exit
OnKeyPress = Edit3KeyPress
end
object SG: TStringGrid
Left = 24
Top = 104
Width = 169
Height = 153
BiDiMode = bdRightToLeftNoAlign
ColCount = 10
DefaultColWidth = 15
DefaultRowHeight = 15
FixedColor = clTeal
FixedCols = 0
RowCount = 9
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
ParentBiDiMode = False
TabOrder = 4
OnKeyPress = SGKeyPress
end
object Memo1: TMemo
Left = 360
Top = 104
Width = 161
Height = 153
Lines.Strings = (
'')
TabOrder = 5
Visible = False
end
object Button1: TButton
Left = 240
Top = 344
Width = 89
Height = 25
Caption = 'Reconstruct'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button1Click
end
object Edit4: TEdit
Left = 72
Top = 384
Width = 25
Height = 21
TabOrder = 7
end
object Edit5: TEdit
Left = 120
Top = 384
Width = 25
Height = 21
TabOrder = 8
end
object Memo2: TMemo
Left = 360
Top = 312
Width = 161
Height = 153
Lines.Strings = (
'')
TabOrder = 9
Visible = False
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -