paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-08 02:45:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: use TShortcut from the classes unit

Browse Source 
git-svn-id: trunk@14768 -
This commit is contained in:
vincents 2008-04-06 11:30:19 +00:00
parent 8609fa32cd
commit 92bc6dea2c
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lcltype.pp
View File

@ -2582,9 +2582,6 @@ type
function CS_To_String(CompStyle: Integer): String; function CS_To_String(CompStyle: Integer): String;
// key mapping // key mapping
type
TShortCut = Low(Word)..High(Word); {should be moved to classes}
function HiWord(i: integer): word; function HiWord(i: integer): word;
function LoWord(i: integer): word; function LoWord(i: integer): word;
function Char2VK(C : Char) : Word; function Char2VK(C : Char) : Word;

1
lcl/widgetset/wsmenus.pp
View File

@ -40,6 +40,7 @@ interface
// the uses clause of the XXXintf.pp // the uses clause of the XXXintf.pp
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
uses uses
Classes,
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
// To get as little as posible circles, // To get as little as posible circles,
// uncomment only when needed for registration // uncomment only when needed for registration