Blockly test

2025-06-10 22:31:16 +02:00
parent 0e598d595e
commit 7516bd3d9d
9 changed files with 2089 additions and 0 deletions
@@ -0,0 +1,68 @@
+object MainForm: TMainForm
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 872
+  ClientWidth = 1010
+  FormFactor.Width = 320
+  FormFactor.Height = 480
+  FormFactor.Devices = [Desktop]
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  DesignerMasterStyle = 0
+  object WebBrowser1: TWebBrowser
+    Align = Top
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Size.Width = 1010.000000000000000000
+    Size.Height = 633.000000000000000000
+    Size.PlatformDefault = False
+    WindowsEngine = EdgeOnly
+    OnDidFinishLoad = WebBrowser1DidFinishLoad
+  end
+  object LauchSiteButton: TButton
+    Anchors = [akLeft, akBottom]
+    Position.X = 24.000000000000000000
+    Position.Y = 744.000000000000000000
+    TabOrder = 1
+    Text = 'Lauch Site'
+    TextSettings.Trimming = None
+    OnClick = LauchSiteButtonClick
+  end
+  object SaveWorkspaceButton: TButton
+    Anchors = [akLeft, akBottom]
+    Position.X = 24.000000000000000000
+    Position.Y = 774.000000000000000000
+    Size.Width = 97.000000000000000000
+    Size.Height = 22.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 2
+    Text = 'Save Workspace'
+    TextSettings.Trimming = None
+    OnClick = SaveWorkspaceButtonClick
+  end
+  object GenerateCodeButton: TButton
+    Anchors = [akLeft, akBottom]
+    Position.X = 24.000000000000000000
+    Position.Y = 804.000000000000000000
+    Size.Width = 97.000000000000000000
+    Size.Height = 22.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 3
+    Text = 'Generate Code'
+    TextSettings.Trimming = None
+    OnClick = GenerateCodeButtonClick
+  end
+  object Memo: TMemo
+    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
+    DataDetectorTypes = []
+    Anchors = [akRight, akBottom]
+    Position.X = 144.000000000000000000
+    Position.Y = 641.000000000000000000
+    Size.Width = 841.000000000000000000
+    Size.Height = 223.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 4
+    Viewport.Width = 837.000000000000000000
+    Viewport.Height = 219.000000000000000000
+  end
+end