📄 formstaticsymbols.dfm
字号:
object Form1: TForm1
Left = 228
Top = 217
Width = 287
Height = 280
Caption = 'Static Symbols Demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object LabelMemory: TLabel
Left = 13
Top = 169
Width = 37
Height = 13
Caption = 'Memory'
end
object LabelTime: TLabel
Left = 13
Top = 189
Width = 23
Height = 13
Caption = 'Time'
end
object LabelProgramCount: TLabel
Left = 13
Top = 150
Width = 44
Height = 13
Caption = 'Programs'
end
object LabelProgramCountValue: TLabel
Left = 78
Top = 150
Width = 3
Height = 13
end
object LabelMemoryValue: TLabel
Left = 78
Top = 169
Width = 3
Height = 13
end
object LabelTimeValue: TLabel
Left = 78
Top = 189
Width = 3
Height = 13
end
object LabelRunTimeValue: TLabel
Left = 161
Top = 189
Width = 3
Height = 13
end
object ButtonCompile: TButton
Left = 85
Top = 117
Width = 60
Height = 20
Caption = 'Compile'
TabOrder = 0
OnClick = ButtonCompileClick
end
object ButtonRelease: TButton
Left = 13
Top = 117
Width = 61
Height = 20
Caption = 'Release'
TabOrder = 1
OnClick = ButtonReleaseClick
end
object CheckBoxStatic: TCheckBox
Left = 13
Top = 98
Width = 118
Height = 13
Caption = 'Static Unit Symbols'
TabOrder = 2
OnClick = CheckBoxStaticClick
end
object RadioGroupProgramCount: TRadioGroup
Left = 13
Top = 52
Width = 209
Height = 40
Caption = ' Programs '
Columns = 4
ItemIndex = 0
Items.Strings = (
'1'
'10'
'100'
'1000')
TabOrder = 3
end
object RadioGroupStackChunkSize: TRadioGroup
Left = 13
Top = 7
Width = 209
Height = 39
Caption = 'StackChunkSize'
Columns = 3
ItemIndex = 2
Items.Strings = (
'1'
'1024'
'4096')
TabOrder = 4
OnClick = RadioGroupStackChunkSizeClick
end
object ButtonRun: TButton
Left = 156
Top = 117
Width = 61
Height = 20
Caption = 'Run'
TabOrder = 5
OnClick = ButtonRunClick
end
object DelphiWebScriptII1: TDelphiWebScriptII
Config.CompilerOptions = []
Config.MaxDataSize = 0
Config.Timeout = 0
Left = 120
Top = 64
end
object dws2FileFunctions1: Tdws2FileFunctions
Left = 168
Top = 64
end
object dws2GUIFunctions1: Tdws2GUIFunctions
Left = 176
Top = 24
end
object dws2GlobalVarsFunctions1: Tdws2GlobalVarsFunctions
Left = 168
Top = 112
end
object dws2Unit1: Tdws2Unit
Script = DelphiWebScriptII1
Arrays = <>
Classes = <
item
Name = 'A'
Constructors = <>
Fields = <>
Methods = <
item
Name = 'SetA'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetA'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetB'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetB'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetC'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetC'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetD'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetD'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetE'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetE'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetF'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetF'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetG'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetG'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetH'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetH'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetI'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetI'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetJ'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetJ'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetK'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetK'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetL'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetL'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetM'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetM'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetN'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetN'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetO'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetO'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
Name = 'SetP'
Parameters = <
item
Name = 'Value'
DataType = 'Variant'
end>
Kind = mkClassProcedure
end
item
Name = 'GetP'
Parameters = <>
ResultType = 'Variant'
Kind = mkClassFunction
end
item
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -