📄 unt_gra.dfm
字号:
inherited Frm_Gra: TFrm_Gra
Left = 89
Top = 102
Width = 672
Height = 422
Align = alNone
BorderIcons = [biSystemMenu]
BorderStyle = bsSizeable
Caption = #22270#32440#35835#21462
WindowState = wsNormal
PixelsPerInch = 96
TextHeight = 13
inherited Panel3: TPanel
Top = 355
Width = 664
inherited Btn_Exit: TBitBtn
Left = 448
end
end
inherited Panel4: TPanel
Width = 664
Height = 355
inherited GroupBox2: TGroupBox
Width = 664
Caption = #22270#24418#21442#25968
object Panel8: TPanel
Left = 2
Top = 18
Width = 292
Height = 92
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object Label6: TLabel
Left = 68
Top = 14
Width = 64
Height = 16
Caption = #22270#32440#21517#31216
end
object Label1: TLabel
Left = 12
Top = 44
Width = 120
Height = 16
Caption = 'AutoCAD'#25991#20214#21517#31216
end
object OpenCADfile: TSpeedButton
Left = 250
Top = 34
Width = 33
Height = 24
Caption = '...'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
OnClick = OpenCADfileClick
end
object Label14: TLabel
Left = 84
Top = 70
Width = 48
Height = 16
Caption = #27604#20363#23610
end
object DBEdtGraphName: TDBEdit
Left = 136
Top = 5
Width = 121
Height = 24
DataField = 'Graphic_Name'
DataSource = Ds_Ado
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 0
end
object EdtCADfilename: TEdit
Left = 136
Top = 34
Width = 111
Height = 24
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 1
end
object CBoxScale: TDBComboBox
Left = 136
Top = 64
Width = 121
Height = 24
DataField = 'Scale'
DataSource = Ds_Ado
ImeName = #32043#20809#25340#38899#36755#20837#27861
ItemHeight = 16
Items.Strings = (
'1:10000'
'1:5000'
'1:1000'
'1:500'
'1:100'
'1:50'
'1:10'
'1:1'
'10:1'
'50:1'
'100:1'
'500:1'
'1000:1'
'5000:1'
'10000:1')
TabOrder = 2
end
end
object RGup_G: TDBRadioGroup
Left = 294
Top = 18
Width = 368
Height = 92
Align = alClient
Caption = #35831#36873#25321#33719#21462#22270#24418#25968#25454#26041#24335
DataField = 'IsSimple'
DataSource = Ds_Ado
Items.Strings = (
#31616#21333#33719#21462'('#24037#20316#38754#12289#24055#36947#21644#26029#23618')'
#22797#26434#33719#21462'('#25152#26377#25968#25454')'
#20854#20182#25968#25454)
TabOrder = 1
end
end
inherited Panel5: TPanel
Width = 664
Height = 75
inherited Btn_Del: TBitBtn [0]
Left = 172
end
inherited Btn_Con: TBitBtn [1]
Left = 94
end
object Btn_Graphic: TBitBtn [2]
Left = 549
Top = 5
Width = 97
Height = 30
Caption = #37325#26032#32472#21046
TabOrder = 9
OnClick = Btn_GraphicClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object BtnGetCADData: TBitBtn [3]
Left = 312
Top = 5
Width = 89
Height = 30
Caption = #33719#21462
TabOrder = 8
OnClick = BtnGetCADDataClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888800008888888888888888888800008888887777887777888800008888
8444478444478888000088888444488444488888000088888844788844788888
0000888888447888447888880000888888447888447888880000888888447888
4478888800008888774478884478888800008884444478884478888800008844
7844788844788888000088447844788844788888000088447744777744777888
0000888444444444444478880000888844444444444488880000888888888888
8888888800008888888888888888888800008888888888888888888800008888
88888888888888880000}
end
object Btn_DealGra: TBitBtn [4]
Left = 432
Top = 5
Width = 89
Height = 30
Caption = #22788#29702
TabOrder = 7
OnClick = Btn_DealGraClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
inherited Btn_Prior: TBitBtn [5]
Left = 173
Top = 40
end
inherited Btn_Next: TBitBtn [6]
Left = 330
Top = 40
end
inherited Btn_First: TBitBtn [7]
Left = 32
Top = 40
end
inherited Btn_Last: TBitBtn [8]
Left = 487
Top = 40
end
inherited Btn_Add: TBitBtn [9]
Left = 16
OnClick = Btn_AddClick
end
end
inherited DBGrid1: TDBGrid
Top = 187
Width = 664
Height = 168
Columns = <
item
Expanded = False
FieldName = 'Graphic_Id'
Title.Caption = #32534#21495
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -16
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 43
Visible = True
end
item
Expanded = False
FieldName = 'Graphic_Name'
Title.Caption = #22270#32440#21517
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -16
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'IsSimple'
Title.Caption = #33719#21462#22270#24418#25968#25454#26041#24335
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -16
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 160
Visible = True
end
item
Expanded = False
FieldName = 'Entity'
Title.Caption = #23454#20307#20010#25968
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -16
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Scale'
Title.Caption = #27604#20363
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -16
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'IsDeal'
Title.Caption = #26159#21542#24050#22788#29702
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -16
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 100
Visible = True
end>
end
end
inherited GroupBox1: TGroupBox
Left = 664
Width = 0
Height = 355
end
inherited Ds_Ado: TDataSource
DataSet = Frm_data.ADOT_Graph
Left = 552
end
object OpenDialog1: TOpenDialog
Filter = 'AutoCAD'#22270#24418#25991#20214'|*.dwg'
Left = 264
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -