diff --git a/src/forms/fTrainSpeed.dfm b/src/forms/fTrainSpeed.dfm index 5da77c26..710fdaf0 100644 --- 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 index ade0872e..2839146a 100644 --- 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;