Add help in fTrainSpeed.

kmzbrnoI · Jan 26, 2023 · 6bd21b8 · 6bd21b8
1 parent 4c78002
commit 6bd21b8
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 0 deletions.
diff --git a/src/forms/fTrainSpeed.dfm b/src/forms/fTrainSpeed.dfm
@@ -63,5 +63,12 @@ object F_TrainSpeed: TF_TrainSpeed
       Caption = 'Smazat'
       OnClick = MI_DeleteClick
     end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object MI_Help: TMenuItem
+      Caption = 'N'#225'pov'#283'da'
+      OnClick = MI_HelpClick
+    end
   end
 end
diff --git a/src/forms/fTrainSpeed.pas b/src/forms/fTrainSpeed.pas
@@ -15,6 +15,8 @@   TF_TrainSpeed = class(TForm)
     PM_Speeds: TPopupMenu;
     MI_NewRecord: TMenuItem;
     MI_Delete: TMenuItem;
+    N1: TMenuItem;
+    MI_Help: TMenuItem;
     procedure MI_NewRecordClick(Sender: TObject);
     procedure PM_SpeedsPopup(Sender: TObject);
     procedure MI_DeleteClick(Sender: TObject);
@@ -28,6 +30,7 @@   TF_TrainSpeed = class(TForm)
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure LV_SpeedsKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure MI_HelpClick(Sender: TObject);
   private
     E_LV: TEdit;
     editRow: TListItem;
@@ -61,6 +64,23 @@ procedure TF_TrainSpeed.MI_DeleteClick(Sender: TObject);
     Self.LV_Speeds.DeleteSelected();
 end;
 
+procedure TF_TrainSpeed.MI_HelpClick(Sender: TObject);
+begin
+  Application.MessageBox('Každý øádek obsahuje rychlost v km/h a kritéria zadávané jako regulární výrazy.'+#13#10+
+    'Øádky se zpracovávají postupnì odshora dolù. Pokud souprava vyhoví kritériím v øádku, je jí nastavena rychlost v onom øádku.'+#13#10+
+    'Kritéria jsou tvoøena typem vlaku a tøídou pøechodnosti hnacích vozidel. Všechna hnací vozidla musí vyhovìt regulárnímu výrazu tøídy pøechodnosti.'+#13#10+
+    'Pøíklad tabulky:'+#13#10+
+    '90 Sc|Ec|Ic|Ex|R .*'+#13#10+
+    '60 Pn|Vn .*'+#13#10+
+    '70 .* .*'+#13#10+
+    'Tento pøíklad zajistí, že soupravy typu Sc, Ec, Ic, Ec a R pojedou rychlosti 90 km/h, soupravy typu Pn a Vn 60 km/h a všechny ostatní soupravy rychlostí 70 km/h.'+#13#10+
+    'Vždy je tøeba uvést poslední øádek, kterému vyhoví všechny soupravy.'+#13#10+
+    'Úprava øádku se provádí dvojklikem.'+#13#10+
+    'Pokud je rychlostní tabulka v jízdní cestì pro další návìst povolující jízdu prázdná, pøebírají se rychlosti pro další návìst nepovolující jízdu.'+#13#10+
+    'Pokud je rychlostní tabulka v trati pro sudý smìr prázdná, pøebírají se rychlosti pro lichý smìr.',
+    'Nápovìda', MB_ICONINFORMATION OR MB_OK);
+end;
+
 procedure TF_TrainSpeed.MI_NewRecordClick(Sender: TObject);
 begin
   var LI: TListItem;