Merge pull request #458 from Sharpe49/timetable-editor-file-extension

Added .timetable-or file extension in the timetable editor
Partially linked to this old issue: https://bugs.launchpad.net/or/+bug/1889011

Author: cjakeman

Source/Contrib/TimetableEditor/unit1.lfm

@@ -10,7 +10,7 @@ object Form1: TForm1
   OnCreate = FormCreate
   Position = poScreenCenter
   ShowHint = True
-  LCLVersion = '1.2.2.0'
+  LCLVersion = '2.0.12.0'
   object Panel1: TPanel
     Left = 0
     Height = 56
@@ -2182,15 +2182,15 @@ object Form1: TForm1
     OnSelectCell = gridSelectCell
   end
   object OpenDialog1: TOpenDialog
-    left = 792
-    top = 16
+    Left = 792
+    Top = 16
   end
   object SaveDialog1: TSaveDialog
-    left = 792
+    Left = 792
   end
   object gridpopup: TPopupMenu
-    left = 552
-    top = 88
+    Left = 552
+    Top = 88
     object MenuItem1: TMenuItem
       Caption = 'automatic column width'
       OnClick = MenuItem1Click
@@ -2223,7 +2223,7 @@ object Form1: TForm1
     end
   end
   object SaveDialog2: TSaveDialog
-    left = 758
-    top = 76
+    Left = 758
+    Top = 76
   end
 end

Source/Contrib/TimetableEditor/unit1.pas

@@ -516,10 +516,10 @@ procedure TForm1.SpeedButton3Click(Sender: TObject);  // speichern
     //savedialog1.Title:='Zeitplan speichern';
     savedialog1.Title:=DLGsave;
     savedialog1.InitialDir:=UTF8ToSys(getroutepath+'Activities\Openrails');
-    //savedialog1.Filter:='Openrails Zeitplan|*.timetable_or';
-    savedialog1.Filter:='Openrails timetable (*.timetable_or)|*.timetable_or';
+    //savedialog1.Filter:='Open Rails Zeitplan|*.timetable-or';
+    savedialog1.Filter:='Open Rails timetable|*.timetable-or;*.timetable_or';
     if ttfilename <> '' then savedialog1.filename:=ttfilename
-    else savedialog1.filename:=title+'.timetable_or';
+    else savedialog1.filename:=title+'.timetable-or';
     save:=true;
     but:=1;
     if (savedialog1.Execute) and (savedialog1.FileName<>'') then begin
@@ -598,8 +598,8 @@ procedure TForm1.SpeedButton2Click(Sender: TObject);  // öffnen
   cols:=tstringlist.create;
   //opendialog1.Title:='Zeitplan öffnen';
   opendialog1.Title:=DLGopenTT;
-  //opendialog1.Filter:='Openrails Zeitplan|*.timetable_or';
-  opendialog1.Filter:='Openrails timetable (*.timetable_or)|*.timetable_or';
+  //opendialog1.Filter:='Open Rails Zeitplan|*.timetable-or';
+  opendialog1.Filter:='Open Rails timetable|*.timetable-or;*.timetable_or';
   opendialog1.filename:='';
   if (opendialog1.execute) and (opendialog1.FileName<>'') then begin
     resetgrid;
@@ -842,7 +842,7 @@ procedure TForm1.SpeedButton15Click(Sender: TObject);
   slist:=tstringlist.create;
   cols:=tstringlist.create;
   opendialog1.Title:=DLGImportTT;
-  opendialog1.Filter:='Openrails timetable|*.timetable_or';
+  opendialog1.Filter:='Open Rails timetable|*.timetable-or;*.timetable_or';
   if (opendialog1.execute) and (opendialog1.FileName<>'') then begin
     fces:=tcharencStream.create;
     fces.reset;