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

lcl: change KeysToShiftState and ShiftStateToKeys to get, return PtrUInt instead of word

Browse Source 
git-svn-id: trunk@20547 -
This commit is contained in:
paul 2009-06-09 11:11:03 +00:00
parent 3e08363bbb
commit d5c624193e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/forms.pp
View File

@ -1465,9 +1465,9 @@ type
destructor Destroy; override;
end;
function KeysToShiftState(Keys: Word): TShiftState;
function KeysToShiftState(Keys: PtrUInt): TShiftState;
function KeyDataToShiftState(KeyData: Longint): TShiftState;
function ShiftStateToKeys(ShiftState: TShiftState): Word;
function ShiftStateToKeys(ShiftState: TShiftState): PtrUInt;
function WindowStateToStr(const State: TWindowState): string;
function StrToWindowState(const Name: string): TWindowState;
@ -1613,7 +1613,7 @@ begin
end;}
//------------------------------------------------------------------------------
function KeysToShiftState(Keys:Word): TShiftState;
function KeysToShiftState(Keys: PtrUInt): TShiftState;
begin
Result := [];
if Keys and MK_Shift <> 0 then Include(Result, ssShift);
@ -1631,7 +1631,7 @@ begin
Result := MsgKeyDataToShiftState(KeyData);
end;
function ShiftStateToKeys(ShiftState: TShiftState): Word;
function ShiftStateToKeys(ShiftState: TShiftState): PtrUInt;
begin
Result := 0;
if ssShift in ShiftState then Result := Result or MK_SHIFT;