Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37042974
en ru br
Репозитории ALT
S:3.2.2-alt4
D:2.2.2-alt1
5.1: 2.2.4-alt4.M50P.1
4.1: 2.2.0-alt3
4.0: 2.2.0-alt2
3.0: 1.0.10-alt1
www.altlinux.org/Changes

Группа :: Разработка/Прочее
Пакет: fpc

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: fpc-fpkeys.patch
Скачать


--- ./packages/ide/fpkeys.pas.orig	2009-06-27 17:45:33.000000000 +0400
+++ ./packages/ide/fpkeys.pas	2013-02-03 07:24:58.451724360 +0400
@@ -40,6 +40,7 @@
       PL : Array [1..NumWantedKeys] of PInputLine;
       KeyOK : Array [1..NumWantedKeys] of boolean;
       PST,PST2 : PAdvancedStaticText;
+      PST3,PST4 : PAdvancedStaticText;
       Constructor Init(Const ATitle : String);
      {Procedure HandleEvent(var E : TEvent);virtual;}
      function Execute : Word;Virtual;
@@ -194,6 +195,12 @@
     NiceEscape(chr(ShiftPrefix))+'" Ctrl prefix = "'+NiceEscape(chr(CtrlPrefix))+'"'));
   Insert(PST2);
   InsertButtons(@Self);
+  R.Move(0,2);
+  New(PST3,init(R,'Press Esc or Enter for Exit...'));
+  Insert(PST3);
+  R.Move(0,1);
+  New(PST4,init(R,'                          '));
+  Insert(PST4);
 end;
 
 function TKeyDialog.Execute : Word;
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin