paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 19:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Intermediate UI patch to show a bug.

Browse Source 
git-svn-id: trunk@899 -
This commit is contained in:
lazarus 2002-02-09 01:47:18 +00:00
parent c07bd9ed79
commit c402ffdf5a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2688,7 +2688,7 @@ end;
Creates a new PChar. Replaces the first ampersand with an underscore
and deletes all other ampersands.
-------------------------------------------------------------------------------}
Function Ampersands2Underscore(Src: PChar) : PChar;
function Ampersands2Underscore(Src: PChar) : PChar;
var
i, j: Longint;
ShortenChars, FirstAmpersand, NewLength, SrcLength: integer;
@ -2752,7 +2752,11 @@ end;
{ =============================================================================
$Log$
Revision 1.87 2002/09/03 20:02:01 lazarus
Intermediate UI patch to show a bug.
Revision 1.86 2002/09/03 11:32:51 lazarus
Added shortcut keys to labels
Support for alphabetically sorting the properties
Standardize message and add shortcuts ala Kylix