diff --git a/utils/forms/formutils.simba b/utils/forms/formutils.simba index 78a66fbe..9de3d2af 100644 --- a/utils/forms/formutils.simba +++ b/utils/forms/formutils.simba @@ -1776,44 +1776,44 @@ end; function GetProcAddr(handle: PtrUInt; name: PChar): Pointer; external 'GetProcAddress@kernel32.dll '+ WINAPI_CC; {$ELSE} -function ShowWindow(hwnd: TOSWindow; nCmdShow: UInt32): LongBool; +function ShowWindow({$H-}hwnd: TOSWindow; nCmdShow: UInt32){$H+}: LongBool; begin WriteLn('ShowWindow() is not implemented for this operating system!'); Result := False; end; -function SetWindowAttribute(hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: Pointer; cbAttribute: DWORD): UInt32; +function SetWindowAttribute({$H-}hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: Pointer; cbAttribute: DWORD){$H+}: UInt32; begin WriteLn('SetWindowAttribute() is not implemented for this operating system!'); Result := 0; end; -function SetWindowAttribute(hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: LongBool): UInt32; overload; +function SetWindowAttribute({$H-}hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: LongBool){$H+}: UInt32; overload; begin WriteLn('SetWindowAttribute() is not implemented for this operating system!'); Result := 0; end; -function SetWindowDarkTitleBar(hwnd: TOSWindow): UInt32; +function SetWindowDarkTitleBar({$H-}hwnd: TOSWindow){$H+}: UInt32; begin WriteLn('SetWindowDarkTitleBar() is not implemented for this operating system!'); Result := 0; end; -function SetWindowTheme(hwnd: TOSWindow; pszSubAppName: PWideChar; pszSubIdList: PWideChar): UInt32; +function SetWindowTheme({$H-}hwnd: TOSWindow; pszSubAppName: PWideChar; pszSubIdList: PWideChar){$H+}: UInt32; begin WriteLn('SetWindowTheme() is not implemented for this operating system!'); Result := 0; end; -function SetWindowTheme(hwnd: TOSWindow; pszSubAppName: WideString; pszSubIdList: PWideChar = nil): UInt32; overload; +function SetWindowTheme({$H-}hwnd: TOSWindow; pszSubAppName: WideString; pszSubIdList: PWideChar = nil){$H+}: UInt32; overload; begin WriteLn('SetWindowTheme() is not implemented for this operating system!'); Result := 0; end; -function GetProcAddr(handle: PtrUInt; name: PChar): Pointer; +function GetProcAddr({$H-}handle: PtrUInt; name: PChar){$H+}: Pointer; begin WriteLn('GetProcAddr() is not implemented for this operating system!'); Result := nil; diff --git a/utils/items/consumables.simba b/utils/items/consumables.simba index 94ce4736..568a7ae1 100644 --- a/utils/items/consumables.simba +++ b/utils/items/consumables.simba @@ -363,4 +363,4 @@ end; Global TotalConsumableCost variable used to track the amount of money spent in by consuming consumables. *) var - TotalConsumableCost: Int32; + {$H-}TotalConsumableCost: Int32; {$H+}