Delphi XE2 FireMonkey HD Applications Raise Runtime Error 231 on Mac OS X

Many users have encountered the problem when running FireMonkey HD Applications on Mac OS X without 3D hardware HAL. When this application is run, it either freezes or produces the following error:

We have researched this problem and found a solution from Embarcadero. If a Mac OS X computer has no 3D hardware HAL, you need to set the global variable FMX.Types.GlobalUseHWEffects to False. Example:

However, this solution is not a panacea. Sometimes HD Applications continue to freeze or raise the error even with FMX.Types.GlobalUseHWEffects set to False. In this case, you need to modify the FMX.Filter.pas unit. Do the following:

1. Copy the FMX.Filter.pas and FMX.Defines.inc files from the $(BDS)sourcefmx folder to your project folder.
2. In the files copied to your project folder replace the code of the FilterByName and FilterClassByName functions with the following code:
   
   function FilterByName(const AName: string): TFilter; var i: Integer; begin Result := nil; if not GlobalUseHWEffects or (Filters = nil) then // <-- change this line Exit; for i := 0 to Filters.Count - 1 do if CompareText(TFilterClass(Filters.Objects[i]).FilterAttr.Name, AName) = 0 then begin Result := TFilterClass(Filters.Objects[i]).Create; Exit; end; end; function FilterClassByName(const AName: string): TFilterClass; var i: Integer; begin Result := nil; if not GlobalUseHWEffects or (Filters = nil) then // <-- change this line Exit; for i := 0 to Filters.Count - 1 do if CompareText(TFilterClass(Filters.Objects[i]).FilterAttr.Name, AName) = 0 then begin Result := TFilterClass(Filters.Objects[i]); Exit; end; end;

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

   function FilterByName(const AName: string): TFilter; var   i: Integer; begin   Result := nil;   if not GlobalUseHWEffects or (Filters = nil) then // <-- change this line     Exit;   for i := 0 to Filters.Count - 1 do     if CompareText(TFilterClass(Filters.Objects[i]).FilterAttr.Name, AName) = 0   then   begin     Result := TFilterClass(Filters.Objects[i]).Create;     Exit;   end; end;   function FilterClassByName(const AName: string): TFilterClass; var   i: Integer; begin   Result := nil;   if not GlobalUseHWEffects or (Filters = nil) then // <-- change this line     Exit;   for i := 0 to Filters.Count - 1 do     if CompareText(TFilterClass(Filters.Objects[i]).FilterAttr.Name, AName) = 0     then     begin       Result := TFilterClass(Filters.Objects[i]);       Exit;     end; end;

3. Add the FMX.Filter unit to the USES section of your project:
   
   program Project1; uses FMX.Forms, FMX.Types, FMX.Filter, // <-- add unit Unit1 in 'Unit1.pas' {Form1};

   1 2 3 4 5 6 7

   program Project1;   uses   FMX.Forms,   FMX.Types,   FMX.Filter, // <-- add unit   Unit1 in 'Unit1.pas' {Form1};

After such modifications your applications will run successfully on Mac OS X without 3D hardware HAL; however, 3D effects will not be available for it.

Updated:
This trick is not required for Rad Studio XE2 with Update 3 and higher.

delphi, macos development, rad studio, tips and tricks