Blockly review

Blockly/Delphi/MainUnit.pas

@@ -11,7 +11,7 @@ uses
 
 const
     // Pfad zur HTML-Datei
-    PATH_BLOCKLY = 'T:\Myc\Blockly\blockly_LLVM.html';
+    PATH_BLOCKLY = 'T:\Myc\Blockly\index.html';
 
     // Pfade zu den LLVM-Werkzeugen
     CLANG_PATH = 'clang.exe';
@@ -20,10 +20,12 @@ const
 type
     TMainForm = class( TForm )
         WebBrowser1: TWebBrowser;
-        LauchSiteButton: TButton;
-        SaveWorkspaceButton: TButton;
-        GenerateCodeButton: TButton;
         Memo: TMemo;
+    Splitter1: TSplitter;
+    ToolBar1: TToolBar;
+    RefreshButton: TSpeedButton;
+    SaveWorkspaceButton: TSpeedButton;
+    GenerateCodeButton: TSpeedButton;
         procedure FormCreate( Sender: TObject );
         procedure FormDestroy( Sender: TObject );
         procedure LauchSiteButtonClick( Sender: TObject );
@@ -83,6 +85,7 @@ end;
 procedure TMainForm.FormCreate( Sender: TObject );
 begin
     TLLVMRunner.Log := Memo.Lines;
+    LauchSiteButtonClick(Self);
 end;
 
 procedure TMainForm.FormDestroy( Sender: TObject );
@@ -104,7 +107,7 @@ var
     cmdLine: string;
     buffer: TBytes;
     bytesRead: Cardinal;
-    output, errors: string;
+    output: string;
 begin
     // Pipe für StdOut und StdErr erstellen
     sa.nLength := SizeOf( TSecurityAttributes );