Sisyphus repository
Last update: 1 october 2023 | SRPMs: 18631 | Visits: 37536631
en ru br
ALT Linux repos
S:3.2.2-alt4
D:2.2.2-alt1
5.0: 2.2.4-alt1
4.1: 2.2.0-alt3
4.0: 2.2.0-alt2
3.0: 1.0.10-alt1

Group :: Development/Other
RPM: fpc

 Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

Patch: fpc-fpkeys.patch
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;
 
design & coding: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
current maintainer: Michael Shigorin