ALT Linux repos
Group :: Development/Other
RPM: fpc
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: fpc-fpkeys.patch
Download
Download
--- ./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;