oidplusalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designpersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk_dos/VTSCUI.PAS @ 757

  → /trunk_dos/VTSCUI.PAS @ 758

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 757 → Rev 758

/trunk_dos/VTSCUI.PAS
3,7 → 3,7
(************************************************)
(* VTSCUI.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-19 *)
(* Revision: 2022-02-27 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - ViaThinkSoft CUI (Console User Interface) *)
365,7 → 365,7
else if sc = #$47(*POS1*) then
begin
itemIndex := 0;
iStartScope := 0;
iStartScope := itemIndex;
iEndScope := iStartScope + ListHeight;
goto doAgain;
end
375,8 → 375,25
iStartScope := itemIndex - Min(ListHeight,ListCount(items));
iEndScope := itemIndex;
goto doAgain;
end
else if sc = #$49(*PgUp*) then
begin
Dec(itemIndex, ListHeight);
if itemIndex < 0 then
itemIndex := 0;
iStartScope := itemIndex;
iEndScope := itemIndex + ListHeight;
goto doAgain;
end
else if sc = #$51(*PgDown*) then
begin
Inc(itemIndex, ListHeight);
if itemIndex > ListCount(items)-1 then
itemIndex := ListCount(items)-1;
iStartScope := itemIndex - Min(ListHeight,ListCount(items));
iEndScope := itemIndex;
goto doAgain;
end;
(* TODO: Implement PgUp and PgDown keys *)
end;
if sc = #13(*Return*) then