Misc packages: Adjust to changes in Laz/main (deprecated OffsetRect), less hints and warnings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8838 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-15 23:33:46 +00:00
parent d060e53a49
commit 7940c5f9df
36 changed files with 65 additions and 51 deletions

View File

@ -204,6 +204,7 @@ function GetComputerName : string;
var
len : cardinal;
begin
Result := '';
len := MAX_COMPUTERNAME_LENGTH + 1;
SetLength(result, len);
if Windows.GetComputerName(PChar(result), len) then begin