lazarus/components/pas2js/frmpas2jsbrowserprojectoptions.lfm
2024-04-05 18:40:22 +02:00

284 lines
7.4 KiB
Plaintext

object WebBrowserProjectOptionsForm: TWebBrowserProjectOptionsForm
Left = 381
Height = 512
Top = 232
Width = 632
Caption = 'Pas2JS Browser project options'
ClientHeight = 512
ClientWidth = 632
Position = poScreenCenter
LCLVersion = '3.99.0.0'
OnCreate = FormCreate
object CBCreateHTML: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 23
Top = 6
Width = 160
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Create initial HTML page'
Checked = True
State = cbChecked
TabOrder = 0
OnChange = CBCreateHTMLChange
end
object CBUseBrowserApp: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBUseBrowserConsole
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 151
Width = 198
BorderSpacing.Top = 6
Caption = 'Use Browser Application object'
TabOrder = 1
OnChange = CBUseBrowserAppChange
end
object CBUseBrowserConsole: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBShowUncaughtExceptions
AnchorSideTop.Side = asrBottom
Left = 38
Height = 23
Top = 122
Width = 313
BorderSpacing.Left = 32
BorderSpacing.Top = 6
Caption = 'Use Browser Console unit to display writeln() output'
TabOrder = 2
end
object BPHelpOptions: TButtonPanel
Left = 6
Height = 56
Top = 450
Width = 620
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 3
ShowButtons = [pbOK, pbCancel]
end
object CBMaintainPage: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBCreateHTML
AnchorSideTop.Side = asrBottom
Left = 38
Height = 23
Top = 35
Width = 137
BorderSpacing.Left = 32
BorderSpacing.Top = 6
Caption = 'Maintain HTML Page'
TabOrder = 4
end
object CBRunOnReady: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBMaintainPage
AnchorSideTop.Side = asrBottom
Left = 38
Height = 23
Top = 64
Width = 287
BorderSpacing.Left = 32
BorderSpacing.Top = 6
Caption = 'Run rtl when all page resources are fully loaded'
TabOrder = 5
end
object CBShowUncaughtExceptions: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBRunOnReady
AnchorSideTop.Side = asrBottom
Left = 38
Height = 23
Top = 93
Width = 209
BorderSpacing.Left = 32
BorderSpacing.Top = 6
Caption = 'Let rtl show uncaught exceptions'
TabOrder = 6
end
object CBUseWASI: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = CBUseBrowserApp
AnchorSideTop.Side = asrBottom
Left = 38
Height = 23
Top = 180
Width = 176
BorderSpacing.Left = 32
BorderSpacing.Top = 6
Caption = 'Host webassembly program'
Enabled = False
TabOrder = 7
end
object edtWasmProgram: TEdit
AnchorSideLeft.Control = CBUseWASI
AnchorSideTop.Control = CBUseWASI
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 70
Height = 32
Top = 209
Width = 556
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 32
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Enabled = False
TabOrder = 8
TextHint = 'Name of your webassembly file'
end
object CBUseModule: TCheckBox
AnchorSideLeft.Control = CBCreateHTML
AnchorSideTop.Control = edtWasmProgram
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 247
Width = 272
BorderSpacing.Top = 6
Caption = 'Create a javascript module instead of a script'
TabOrder = 9
OnChange = CBUseHTTPServerChange
end
object RunGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CBUseModule
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 165
Top = 276
Width = 620
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Run'
ClientHeight = 149
ClientWidth = 618
TabOrder = 10
object RBRunServerAt: TRadioButton
AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = SERunPort
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 49
Width = 168
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Start HTTP Server on port'
TabOrder = 4
OnChange = RBRunServerAtChange
end
object SERunPort: TSpinEdit
AnchorSideLeft.Control = RBRunServerAt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CBRunLocationOnSWS
AnchorSideTop.Side = asrBottom
Left = 180
Height = 32
Top = 44
Width = 76
BorderSpacing.Left = 6
BorderSpacing.Top = 6
MaxValue = 65354
MinValue = 1024
TabOrder = 0
Value = 3000
end
object RBRunBrowserWithURL: TRadioButton
AnchorSideLeft.Control = RBRunServerAt
AnchorSideTop.Control = CBRunServerURL
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 87
Width = 138
Caption = 'Use URL to start app'
TabOrder = 1
OnChange = RBRunBrowserWithURLChange
end
object CBRunServerURL: TComboBox
AnchorSideLeft.Control = RBRunBrowserWithURL
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SERunPort
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom
Left = 150
Height = 32
Top = 82
Width = 462
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
TabOrder = 2
end
object RBRunDefault: TRadioButton
AnchorSideTop.Control = CBRunServerURL
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 120
Width = 162
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Caption = 'Execute Run Parameters'
TabOrder = 3
OnChange = RBRunDefaultChange
end
object RBRunLocationOnSWS: TRadioButton
AnchorSideLeft.Control = RunGroupBox
AnchorSideTop.Control = CBRunLocationOnSWS
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23
Top = 11
Width = 196
BorderSpacing.Left = 6
Caption = 'Location on Simple Web Server'
Checked = True
TabOrder = 6
TabStop = True
OnChange = RBRunLocationOnSWSChange
end
object CBRunLocationOnSWS: TComboBox
AnchorSideLeft.Control = RBRunLocationOnSWS
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RunGroupBox
AnchorSideRight.Control = RunGroupBox
AnchorSideRight.Side = asrBottom
Left = 208
Height = 32
Top = 6
Width = 404
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'$NameOnly($(ProjFile))'
)
TabOrder = 5
Text = '$NameOnly($(ProjFile))'
end
end
end