📄 unit1.dfm
字号:
object Form1: TForm1
Left = 94
Top = 119
Width = 623
Height = 572
Caption = 'Visual Graph ActiveX'#25554#20214#37096#20998#21151#33021#28436#31034#65292#24744#21487#20197#24320#21457#33258#24049#30340#36229#32423#22270#24418#31995#32479#65281#65281
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
ShowHint = True
WindowState = wsMaximized
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 615
Height = 538
ActivePage = TabSheet4
Align = alClient
TabIndex = 3
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #28436#31034#25991#26723
object Panel3: TPanel
Left = 134
Top = 0
Width = 473
Height = 511
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
TabOrder = 0
object vgctrl1: Tvgctrl
Left = 6
Top = 6
Width = 461
Height = 506
Align = alClient
TabOrder = 0
ControlData = {
545046300D544D7957696E436F6E74726F6C00044C656674020603546F700206
05576964746803CD010648656967687403FA010000}
end
end
object ListBox2: TListBox
Left = 0
Top = 0
Width = 134
Height = 511
Align = alLeft
ItemHeight = 12
Items.Strings = (
#39068#33394#28216#25103
#34920#26684#35745#31639
#21160#24577#26834#22270
#26041#22359#28216#25103
#21160#30011#20043#19968
#21160#30011#20043#20108
#21160#30011#20043#19977
#31649#29702#27969#31243
#20132#20114#35774#22791
#36830#26438#21407#29702
#36830#32447#20351#29992
#26354#32447#22270#24418
#22825#24179#21407#29702
#25968#23398#20989#25968
#25991#23383#21333#20803
#25644#31665#28216#25103
#20027#25509#32447#22270
#30005#32593#22320#22270
#31383#21475#20307#31995
#22810#39029#30011#38754
#35843#29992'C++'
'baobiao-1'
'baobiao-2'
'baobiao-3'
'baobiao-4'
'baobiao-5'
'baobiao-6'
'baobiao-7'
'baobiao-8'
'baobiao-9'
'baobiao-10'
'baobiao-11'
'baobiao-12'
'baobiao-13'
'baobiao-14'
'baobiao-15'
'baobiao-16'
'baobiao-17'
'baobiao-18')
TabOrder = 1
OnClick = ListBox2Click
end
end
object TabSheet2: TTabSheet
Caption = #25191#34892#21629#20196
ImageIndex = 1
object Panel2: TPanel
Left = 0
Top = 0
Width = 133
Height = 511
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
133
511)
object ListBox1: TListBox
Left = 0
Top = 0
Width = 133
Height = 389
Align = alTop
Anchors = [akLeft, akTop, akRight, akBottom]
ItemHeight = 12
Items.Strings = (
'Text1=This.AddUnit("Text",10,10,200,200)'
'Text1.Text='#39'Hello World!'#39
'Text1.FontName="Arial"'
'Text1.FontSize=24'
'Text1.FontBold=true'
'Text1.Angle=45'
'Text1.TextAlign=5'
'Text1.FontColor=$FF'
'Text1.Pattern=8'
'Text1.FontUnderLine=2'
'Text1.BackColor=$FF0000'
'-------------------------------'
'R=This.AddUnit("Shape",10,10,100,100 )'
'R.Type="Rect"'
'R.BackColor =$C0C0C0'
'R.LineColor = $FF'
'R.Height =200'
'R.Width = 200'
'R.LineType = 3'
'R.SetPropertyValue( "Corner", 50 )'
'R.Pattern =$F2'
'R.FrontColor = 0'
'R.BackColor =$FF'
'-------------------------------'
'ln=AddUnit("Line",10,10,100,100 )'
'ln.LineWidth = 8'
'ln.StartArrow=1'
'ln.EndArrow=1'
'ln.Pattern=0'
'ln.PointCount=3'
'ln.Points[2].x=200'
'ln.Points[2].y=10'
'ln.Refresh()'
'-------------------------------'
'e=AddUnit("Shape",10,10,200,200)'
'e.Type="Circle"'
'e.LineWidth=3'
'e.LineColor=$FF'
'e.Pattern =$F1'
'e.FrontColor=0'
'e.BackColor=$FF'
'-------------------------------'
'a=AddUnit("Shape",10,10,200,200)'
'a.Type="Arc"'
'a.SetPropertyValue( "StartAngle", 45 )'
'a.SetPropertyValue( "EndAngle", 270 )'
'a.LineWidth=6'
'-------------------------------'
'a=AddUnit("Shape",10,10,200,200)'
'a.Type="Arc"'
'a.SetPropertyValue( "StartAngle", 45 )'
'a.SetPropertyValue( "EndAngle", 270 )'
'a.Pattern=1'
'a.BackColor=$FF00'
'-------------------------------'
'ln=AddUnit("Line",10,10,100,100 )'
'ln.Pattern=1'
'ln.BackColor=$FF'
'ln.PointCount=3'
'ln.Points[2].x=200'
'ln.Points[2].y = 10'
'ln.Refresh()'
'-------------------------------'
#39#27880#37322#65306#19968#34892#34920#26684#29983#25104
'i=0'
'x = 10'
'while i < 5'
' d = AddUnit( "Text", x, 10, 100, 28 )'
' x = x + d.Width'
' d.Text = Str( i, 0 )'
' i = i + 1'
'wend'
'-------------------------------'
#39#27880#37322#65306#22810#34892#34920#26684#29983#25104
'i=0'
'x = 10'
'Selection.Clear()'
'while i < 5'
' d = AddUnit( "Text", x, 10, 100, 28 )'
' x = x + d.Width'
' d.Text = Str( i, 0 )'
' Selection.Add(d)'
' i = i + 1'
'wend'
'i = 0'
'y = 10+28'
'while i < 4'
' CopyGroup(Selection)'
' Selection.MoveTo( 10, y )'
' y = y + 28'
' i = i + 1'
'wend'
'-------------------------------'
#39#27880#37322#65306#22810#34892#34920#26684#29983#25104
'i=0'
'x = 10'
'Selection.Clear()'
'while i < 5'
' d = AddUnit( "Text", x, 10, 100, 28 )'
' x = x + d.Width'
' d.Text = Str( i, 0 )'
' Selection.Add(d)'
' i = i + 1'
'wend'
'i = 0'
'y = 10+28'
'while i < 4'
' CopyGroup(Selection)'
' Selection.MoveTo( 10, y )'
' y = y + 28'
' i = i + 1'
'wend'
#39#27880#37322#65306#36873#25321#25152#26377#25991#23383#21333#20803
'Selection.Clear()'
'i=0'
'n = UnitCount'
'while i < n'
' d = Units[i]'
' Selection.Add(d)'
' i = i + 1'
'wend'
#39#27880#37322#65306#35774#32622#36793#26694
'Selection.SetBorder( 9,9,9,9,5,5)'
'-------------------------------'
#39#27880#37322#65306#25991#23383#21333#20803#25968#32452
'i=0'
'x = 10'
'Selection.Clear()'
'while i < 5'
' d = AddUnit( "Text", x, 10, 100, 28 )'
' Selection.Add( d )'
' x = x + d.Width'
' i = i + 1'
'wend'
'g=AddGroup()'
'i = 0'
'while i < 5'
' g.Units[i].Text="'#25968#32452#20803#32032'"+ Str(i,0)'
' i = i + 1'
'wend'
'-------------------------------'
#39#27880#37322#65306#25991#23383#21333#20803#25968#23383#26684#24335
'y = 10'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -