version #1.0b

GRBLize.dsk

@@ -1,65 +1,73 @@
 [Closed Files]
-File_0=TSourceModule,'E:\Dropbox\GLScene_VCL\Source\GLWin32Context.pas',0,1,159,1,182,0,0,,
-File_1=TSourceModule,'E:\Dropbox\GRBLize_XE8\glscene_view.pas',0,1,415,42,445,0,0,,
-File_2=TSourceModule,'E:\Dropbox\GRBLize_XE8\page_run.pas',0,1,503,1,537,0,0,,
-File_3=TSourceModule,'E:\Dropbox\GRBLize_XE8\import_files.pas',0,1,174,23,190,0,0,,
-File_4=TSourceModule,'E:\Dropbox\GRBLize_XE8\gcode_interpreter.pas',0,1,1,20,210,0,0,,
-File_5=TSourceModule,'E:\Dropbox\GRBLize_XE8\hpgl_import.pas',0,1,1,1,1,0,0,,
-File_6=TSourceModule,'E:\GIT Heise\GRBLize\page_job.pas',0,1,1,34,13,0,0,,
-File_7=TSourceModule,'E:\GIT Heise\GRBLize\grbl_player_main.pas',0,1,1,1,1,0,0,,
-File_8=TSourceModule,'E:\GIT Heise\GRBLize\ABOUT.PAS',0,1,29,1,30,0,0,,
-File_9=TSourceModule,'E:\Dropbox\GRBLize_XE8\drill_import.pas',0,1,42,48,53,0,0,,
-File_10=TSourceModule,'E:\Dropbox\glscene_vcl\samples\delphi\demos\computing\vertexdatageneration\uDemo.pas',0,1,1,1,1,0,0,,
-File_11=TSourceModule,'E:\Dropbox\GIT\GRBLize\glscene_view.pas',0,1,223,1,233,0,0,,
-File_12=TSourceModule,'E:\Dropbox\GLScene_VCL\Samples\Delphi\Demos\movements\SmoothNavigator\uMainForm.pas',0,1,20,82,67,0,0,,
+File_0=TSourceModule,'E:\GIT Heise\GRBLize\deviceselect.pas',0,1,19,1,1,0,0,,
+File_1=TSourceModule,'E:\Dropbox\GLScene_VCL\Source\GLWin32Context.pas',0,1,159,1,182,0,0,,
+File_2=TSourceModule,'E:\Dropbox\GRBLize_XE8\glscene_view.pas',0,1,415,42,445,0,0,,
+File_3=TSourceModule,'E:\Dropbox\GRBLize_XE8\page_run.pas',0,1,503,1,537,0,0,,
+File_4=TSourceModule,'E:\Dropbox\GRBLize_XE8\import_files.pas',0,1,174,23,190,0,0,,
+File_5=TSourceModule,'E:\Dropbox\GRBLize_XE8\gcode_interpreter.pas',0,1,1,20,210,0,0,,
+File_6=TSourceModule,'E:\Dropbox\GRBLize_XE8\hpgl_import.pas',0,1,1,1,1,0,0,,
+File_7=TSourceModule,'E:\GIT Heise\GRBLize\page_job.pas',0,1,1,34,13,0,0,,
+File_8=TSourceModule,'E:\GIT Heise\GRBLize\grbl_player_main.pas',0,1,1,1,1,0,0,,
+File_9=TSourceModule,'E:\GIT Heise\GRBLize\ABOUT.PAS',0,1,29,1,30,0,0,,
+File_10=TSourceModule,'E:\Dropbox\GRBLize_XE8\drill_import.pas',0,1,42,48,53,0,0,,
+File_11=TSourceModule,'E:\Dropbox\glscene_vcl\samples\delphi\demos\computing\vertexdatageneration\uDemo.pas',0,1,1,1,1,0,0,,
+File_12=TSourceModule,'E:\Dropbox\GIT\GRBLize\glscene_view.pas',0,1,223,1,233,0,0,,
+File_13=TSourceModule,'E:\Dropbox\GLScene_VCL\Samples\Delphi\Demos\movements\SmoothNavigator\uMainForm.pas',0,1,20,82,67,0,0,,
 
 [Modules]
-Module0=E:\Dropbox\GRBLize_XE8\page_grblsetup.pas
-Module1=E:\Dropbox\GRBLize_XE8\grbl_com.pas
-Module2=E:\Dropbox\GRBLize_XE8\grbl_player_main.pas
-Module3=E:\Dropbox\GRBLize_XE8\deviceselect.pas
-Module4=E:\Dropbox\GRBLize_XE8\ftdiclass\FTDItypes.pas
+Module0=E:\Dropbox\GRBLize_XE8\grbl_com.pas
+Module1=E:\Dropbox\GRBLize_XE8\ftdiclass\FTDItypes.pas
+Module2=E:\Dropbox\GRBLize_XE8\page_grblsetup.pas
+Module3=E:\Dropbox\GRBLize_XE8\grbl_player_main.pas
+Module4=E:\GIT Heise\GRBLize\page_grblsetup.pas
 Module5=default.htm
-Count=6
+Module6=E:\Dropbox\GRBLize_XE8\deviceselect.pas
+Count=7
 EditWindowCount=1
 
-[E:\Dropbox\GRBLize_XE8\page_grblsetup.pas]
+[E:\Dropbox\GRBLize_XE8\grbl_com.pas]
 ModuleType=TSourceModule
 FormState=0
 FormOnTop=0
 
-[E:\Dropbox\GRBLize_XE8\grbl_com.pas]
+[E:\Dropbox\GRBLize_XE8\ftdiclass\FTDItypes.pas]
 ModuleType=TSourceModule
 FormState=0
 FormOnTop=0
 
-[E:\Dropbox\GRBLize_XE8\grbl_player_main.pas]
+[E:\Dropbox\GRBLize_XE8\page_grblsetup.pas]
 ModuleType=TSourceModule
-FormState=1
+FormState=0
 FormOnTop=0
 
-[E:\Dropbox\GRBLize_XE8\deviceselect.pas]
+[E:\Dropbox\GRBLize_XE8\grbl_player_main.pas]
 ModuleType=TSourceModule
 FormState=1
 FormOnTop=0
 
-[E:\Dropbox\GRBLize_XE8\ftdiclass\FTDItypes.pas]
+[E:\GIT Heise\GRBLize\page_grblsetup.pas]
 ModuleType=TSourceModule
 FormState=0
 FormOnTop=0
 
 [default.htm]
 ModuleType=TURLModule
 
+[E:\Dropbox\GRBLize_XE8\deviceselect.pas]
+ModuleType=TSourceModule
+FormState=1
+FormOnTop=0
+
 [EditWindow0]
-ViewCount=6
-CurrentEditView=E:\Dropbox\GRBLize_XE8\page_grblsetup.pas
+ViewCount=7
+CurrentEditView=E:\Dropbox\GRBLize_XE8\grbl_com.pas
 View0=0
 View1=1
 View2=2
 View3=3
 View4=4
 View5=5
+View6=6
 PercentageSizes=1
 Create=1
 Visible=1
@@ -116,9 +124,9 @@ EditViewName=E:\Dropbox\GRBLize_XE8\ftdiclass\FTDItypes.pas
 [View3]
 CustomEditViewType=TEditView
 Module=E:\Dropbox\GRBLize_XE8\page_grblsetup.pas
-CursorX=39
-CursorY=47
-TopLine=61
+CursorX=1
+CursorY=63
+TopLine=25
 LeftCol=1
 Elisions=
 Bookmarks=
@@ -127,16 +135,27 @@ EditViewName=E:\Dropbox\GRBLize_XE8\page_grblsetup.pas
 [View4]
 CustomEditViewType=TEditView
 Module=E:\Dropbox\GRBLize_XE8\grbl_player_main.pas
-CursorX=74
-CursorY=588
-TopLine=558
+CursorX=12
+CursorY=460
+TopLine=430
 LeftCol=1
 Elisions=
 Bookmarks=
 EditViewName=E:\Dropbox\GRBLize_XE8\grbl_player_main.pas
 
 [View5]
 CustomEditViewType=TEditView
+Module=E:\GIT Heise\GRBLize\page_grblsetup.pas
+CursorX=1
+CursorY=92
+TopLine=58
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=E:\GIT Heise\GRBLize\page_grblsetup.pas
+
+[View6]
+CustomEditViewType=TEditView
 Module=E:\Dropbox\GRBLize_XE8\deviceselect.pas
 CursorX=18
 CursorY=1
@@ -147,20 +166,23 @@ Bookmarks=
 EditViewName=E:\Dropbox\GRBLize_XE8\deviceselect.pas
 
 [Breakpoints]
-Count=0
+Count=1
+Breakpoint0='E:\Dropbox\GRBLize_XE8\page_grblsetup.pas',41,'',0,1,'',1,0,0,'',1,'','','',0,''
 
 [EmbarcaderoWin32Debugger_AddressBreakpoints]
 Count=0
 
 [Watches]
-Count=7
+Count=9
 Watch0='com_isopen',256,0,18,1,0,'Überwachte Ausdrücke',1
 Watch1='com_name',256,0,18,1,0,'Überwachte Ausdrücke',1
 Watch2='ComboBoxComPort.ItemIndex',256,0,18,1,0,'Überwachte Ausdrücke',1
 Watch3='com_selected_port',256,0,18,1,0,'Überwachte Ausdrücke',1
 Watch4='my_name',256,0,18,1,0,'Überwachte Ausdrücke',1
 Watch5='DeviceName',256,0,18,1,0,'Überwachte Ausdrücke',1
 Watch6='my_str',32,0,18,1,0,'Überwachte Ausdrücke',1
+Watch7='ftdi_device_count',256,0,18,1,0,'Überwachte Ausdrücke',1
+Watch8='i',256,0,18,1,0,'Überwachte Ausdrücke',1
 
 [WatchWindow]
 WatchColumnWidth=120
@@ -299,11 +321,6 @@ Dockable=1
 StayOnTop=0
 SplitPos=111
 
-[PropInspDesignerSelection]
-ArrangeBy=Name
-SelectedItem=Action,
-ExpandedItems=Anchors=0,BorderIcons=0,Constraints=0,BevelEdges=0,Font=1,LiveBindings=0,Margins=0,StyleElements=0,Touch=0,Font.Style=1,HorzScrollBar=0,Menu=0,Padding=0
-
 [TFileExplorerForm]
 PercentageSizes=1
 Create=1

README.md

@@ -2,20 +2,27 @@
 
 ###CNC-Steuerung für GRBL-JOG Projekt
 
-Erstellt mit Delphi 2005 PE. Bitte beachten Sie unbedingt den Artikel in **[c't Hacks 4/2014](http://shop.heise.de/katalog/ct-hacks-4-2014)**. 
+Erstellt mit Delphi XE8 Starter. Bitte beachten Sie unbedingt den Artikel in **[c't Hacks 4/2014](http://shop.heise.de/katalog/ct-hacks-4-2014)**. 
 
-Ausführbare Datei (.EXE, Win32) im Verzeichnis **[/bin](https://github.com/heise/GRBLize/tree/master/bin)**, benötigt "default.job", ggf. die Beispiel-Plot-Dateien und 
-gegebenenfalls ftd2xx.dll, letzteres aber nur, falls nicht ohnehin schon im System vom FTDI-Treiber-Download 
-installiert.
+Ausführbare Datei (.EXE, Win32) im Verzeichnis 
+**[/bin](https://github.com/heise/GRBLize/tree/master/bin)**, benötigt 
+"default.job", ggf. die Beispiel-Plot-Dateien und gegebenenfalls ftd2xx.dll, 
+letzteres aber nur, falls nicht ohnehin schon im System vom FTDI-Treiber-
+Download installiert.
 
-Auf der rechten Spalte der Github-Seite finden Sie den Button "Download ZIP". Dies lädt das komplette Projekt herunter einschl. Sourcen. Nach Entpacken findet sich das Windows-Executable (32 Bit) im Unterverzeichnis /bin.
+Auf der rechten Spalte der Github-Seite finden Sie den Button "Download ZIP". 
+Dies lädt das komplette Projekt herunter einschl. Sourcen. Nach Entpacken findet 
+sich das Windows-Executable (32 Bit) im Unterverzeichnis /bin.
 
 Das Projekt befindet sich noch in Entwicklung, bitte auf evt. Updates prüfen. 
-Die passende GRBL-Steuerplatine finden Sie in unserem Github-Repo **[GRBL-JOG](https://github.com/heise/GRBL-JOG)**.
+Die passende GRBL-Steuerplatine finden Sie in unserem Github-Repo **[GRBL-
+JOG](https://github.com/heise/GRBL-JOG)**. Die neueste Version unterstützt jetzt 
+auch GRBL 0.9j sowie GRBL auf Arduino und ähnlichen Boards.
 
 ###Version History
 
-- 0.96d: Latest build, On run, will keep Z up at park position height until first mill to clear work part. 
+- 1.0b: Latest build. Supports serial COM port as well as direct FTDI serial communications. Re-written robust protocol engine. New simulation for G-Codes as a finite elements model in 3 resolutions. Some bugs fixed. Suports GRBL 0.8x and new GRBL 0.9j. New on-screen jog pad for use with other boards than GRBL-JOG. Supports GRBL running on a plain Arduino.
+- 0.96d: On run, will keep Z up at park position height until first mill to clear work part. 
 - 0.96b: bugfix on FTDI class, new "Z Feed Scaling" parameter, multiplies XY feed value for Z to prevent tool damage (<1 = slower). Also useful with c't woodmill (>1 = faster, otherwise Z feed will be too slow).
 - 0.95b: First public beta
 - 0.94a: Internal alpha, some serious bugs
@@ -25,7 +32,7 @@ Die passende GRBL-Steuerplatine finden Sie in unserem Github-Repo **[GRBL-JOG](h
 Executable for Windows XP/7/8 in folder **[/bin](https://github.com/heise/GRBLize/tree/master/bin)**. No Installation required, but configuration file "default.job" and example plot files 
 must be placed in same folder. Please see article in **[c't Hacks 4/2014](http://shop.heise.de/katalog/ct-hacks-4-2014)** for usage.
 
-Made with Delphi 2005 PE. Sources to be compiled with Borland Delphi 2005 Personal Edition (and up) for those interested in improving it. GRBLize 
+Version in Master branch made with Delphi 2005 PE. Sources to be compiled with Borland Delphi 2005 Personal Edition (and up) for those interested in improving it. GRBLize 
 uses ftdiclass component from Michael "Zipplet" Nixon, Clipper library by Angus Johnson and GLscene OpenGL component.
 
 Borland Delphi 2005 Personal Edition was downloadable for free some time ago, also included on some computer magazine CDs/DVDs as on c't 13/2005. It should be still available for free on http://delphi.developpez.com/delphi2005/

page_grblsetup.pas

@@ -41,26 +41,27 @@ procedure TForm1.BtnRescanClick(Sender: TObject);
 begin
 // Alle verfügbaren COM-Ports prüfen, Ergebnisse in Array speichern
   setDelays;
-  deviceselectbox.ListView1.Items.clear;
   SetUpFTDI;
   com_isopen:= false;
   ftdi_isopen:= false;
   com_name:='';
-  if ftdi_device_count > 0 then
+  if ftdi_device_count > 0 then begin
+    deviceselectbox.ListView1.Items.clear;
     for i := 0 to ftdi_device_count - 1 do begin
       LV := deviceselectbox.ListView1.Items.Add;
       LV.Caption := 'Device '+IntToStr(i);
       LV.SubItems.Add(ftdi_sernum_arr[i]);
       LV.SubItems.Add(ftdi_desc_arr[i]);
     end;
+    deviceselectbox.ListView1.Items[0].Selected := true;
+  end;
   deviceselectbox.ComboBoxCOMport.Items.clear;
   deviceselectbox.ComboBoxCOMport.Items.add('none (FTDI direct)');
   for i := 0 to 31 do begin
     if CheckCom(i) = 0 then begin
       deviceselectbox.ComboBoxCOMport.Items.add('COM' + IntToSTr(i) + ':');
     end;
   end;
-  deviceselectbox.ListView1.Items[0].Selected := true;
   deviceselectbox.ComboBoxCOMport.ItemIndex:= 0; // Auswahl erzwingen
   deviceselectbox.ShowModal;
   if (deviceselectbox.ModalResult=MrOK) then begin