paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCLIntf: small optimizations to LParamExtractLoHiWord and LParamHiWord as suggested by Maxim.

Browse Source
This commit is contained in:
Bart 2023-08-27 22:23:12 +02:00
parent b7d3481248
commit ca9f504a0d
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/winapi.inc
View File

@ -1520,13 +1520,13 @@ end;
}
procedure LParamExtractLoHiWord(const aParam: LPARAM; out LoWord, HiWord: Word);
begin
LoWord := aParam and $FFFF;
HiWord := (aParam and $FFFF0000) shr 16;
LoWord := LParamLoWord(aParam);
HiWord := LParamHiWord(aParam);
end;
function LParamHiWord(const aParam: LPARAM): Word;
begin
Result := (aParam and $FFFF0000) shr 16;
Result := (aParam shr 16) and $FFFF;
end;
function LParamLoWord(const aParam: LPARAM): Word;

2
lcl/include/winapih.inc
View File

@ -336,7 +336,7 @@ function MakeWParam(l, h: Word): WPARAM; inline;
function MakeLParam(l, h: Word): LPARAM; inline;
function MakeLResult(l, h: Word): LRESULT; inline;
procedure LParamExtractLoHiWord(const aParam: LPARAM; out LoWord, HiWord: Word);
procedure LParamExtractLoHiWord(const aParam: LPARAM; out LoWord, HiWord: Word); inline;
function LParamHiWord(const aParam: LPARAM): Word; inline;
function LParamLoWord(const aParam: LPARAM): Word; inline;

1
lcl/taskdlgemulation.pp
View File

@ -1472,7 +1472,6 @@ end;
{ ------------- end message handling ------------}
finalization
if assigned(LDefaultFont) then
LDefaultFont.Free;