Репозитории 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 |
Группа :: Разработка/Прочее
Пакет: 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;