Added support for Lazarus/FPC (windows 32bit)

source/uCEFContextMenuParams.pas

@@ -10,7 +10,7 @@
 // For more information about CEF4Delphi visit :
 //         https://www.briskbard.com/index.php?lang=en&pageid=cef
 //
-//        Copyright � 2018 Salvador D�az Fau. All rights reserved.
+//        Copyright � 2018 Salvador Diaz Fau. All rights reserved.
 //
 // ************************************************************************
 // ************ vvvv Original license and comments below vvvv *************
@@ -37,6 +37,10 @@
 
 unit uCEFContextMenuParams;
 
+{$IFDEF FPC}
+  {$MODE OBJFPC}{$H+}
+{$ENDIF}
+
 {$IFNDEF CPUX64}
   {$ALIGN ON}
   {$MINENUMSIZE 4}
@@ -98,7 +102,7 @@ begin
     begin
       TempSL := TCefStringListOwn.Create;
 
-      if (PCefContextMenuParams(FData).get_dictionary_suggestions(PCefContextMenuParams(FData), TempSL.Handle) <> 0) then
+      if (PCefContextMenuParams(FData)^.get_dictionary_suggestions(PCefContextMenuParams(FData), TempSL.Handle) <> 0) then
         begin
           TempSL.CopyToStrings(suggestions);
           Result := True;
@@ -108,102 +112,102 @@ end;
 
 function TCefContextMenuParamsRef.GetEditStateFlags: TCefContextMenuEditStateFlags;
 begin
-  Result := PCefContextMenuParams(FData).get_edit_state_flags(PCefContextMenuParams(FData));
+  Result := PCefContextMenuParams(FData)^.get_edit_state_flags(PCefContextMenuParams(FData));
 end;
 
 function TCefContextMenuParamsRef.GetFrameCharset: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_frame_charset(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_frame_charset(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetFrameUrl: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_frame_url(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_frame_url(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetLinkUrl: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_link_url(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_link_url(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetMediaStateFlags: TCefContextMenuMediaStateFlags;
 begin
-  Result := PCefContextMenuParams(FData).get_media_state_flags(PCefContextMenuParams(FData));
+  Result := PCefContextMenuParams(FData)^.get_media_state_flags(PCefContextMenuParams(FData));
 end;
 
 function TCefContextMenuParamsRef.GetMediaType: TCefContextMenuMediaType;
 begin
-  Result := PCefContextMenuParams(FData).get_media_type(PCefContextMenuParams(FData));
+  Result := PCefContextMenuParams(FData)^.get_media_type(PCefContextMenuParams(FData));
 end;
 
 function TCefContextMenuParamsRef.GetMisspelledWord: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_misspelled_word(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_misspelled_word(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetTitleText: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_title_text(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_title_text(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetPageUrl: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_page_url(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_page_url(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetSelectionText: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_selection_text(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_selection_text(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetSourceUrl: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_source_url(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_source_url(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetTypeFlags: TCefContextMenuTypeFlags;
 begin
-  Result := PCefContextMenuParams(FData).get_type_flags(PCefContextMenuParams(FData));
+  Result := PCefContextMenuParams(FData)^.get_type_flags(PCefContextMenuParams(FData));
 end;
 
 function TCefContextMenuParamsRef.GetUnfilteredLinkUrl: ustring;
 begin
-  Result := CefStringFreeAndGet(PCefContextMenuParams(FData).get_unfiltered_link_url(PCefContextMenuParams(FData)));
+  Result := CefStringFreeAndGet(PCefContextMenuParams(FData)^.get_unfiltered_link_url(PCefContextMenuParams(FData)));
 end;
 
 function TCefContextMenuParamsRef.GetXCoord: Integer;
 begin
-  Result := PCefContextMenuParams(FData).get_xcoord(PCefContextMenuParams(FData));
+  Result := PCefContextMenuParams(FData)^.get_xcoord(PCefContextMenuParams(FData));
 end;
 
 function TCefContextMenuParamsRef.GetYCoord: Integer;
 begin
-  Result := PCefContextMenuParams(FData).get_ycoord(PCefContextMenuParams(FData));
+  Result := PCefContextMenuParams(FData)^.get_ycoord(PCefContextMenuParams(FData));
 end;
 
 function TCefContextMenuParamsRef.IsCustomMenu: Boolean;
 begin
-  Result := PCefContextMenuParams(FData).is_custom_menu(PCefContextMenuParams(FData)) <> 0;
+  Result := PCefContextMenuParams(FData)^.is_custom_menu(PCefContextMenuParams(FData)) <> 0;
 end;
 
 function TCefContextMenuParamsRef.IsEditable: Boolean;
 begin
-  Result := PCefContextMenuParams(FData).is_editable(PCefContextMenuParams(FData)) <> 0;
+  Result := PCefContextMenuParams(FData)^.is_editable(PCefContextMenuParams(FData)) <> 0;
 end;
 
 function TCefContextMenuParamsRef.IsPepperMenu: Boolean;
 begin
-  Result := PCefContextMenuParams(FData).is_pepper_menu(PCefContextMenuParams(FData)) <> 0;
+  Result := PCefContextMenuParams(FData)^.is_pepper_menu(PCefContextMenuParams(FData)) <> 0;
 end;
 
 function TCefContextMenuParamsRef.IsSpellCheckEnabled: Boolean;
 begin
-  Result := PCefContextMenuParams(FData).is_spell_check_enabled(PCefContextMenuParams(FData)) <> 0;
+  Result := PCefContextMenuParams(FData)^.is_spell_check_enabled(PCefContextMenuParams(FData)) <> 0;
 end;
 
 function TCefContextMenuParamsRef.HasImageContents: Boolean;
 begin
-  Result := PCefContextMenuParams(FData).has_image_contents(PCefContextMenuParams(FData)) <> 0;
+  Result := PCefContextMenuParams(FData)^.has_image_contents(PCefContextMenuParams(FData)) <> 0;
 end;
 
 class function TCefContextMenuParamsRef.UnWrap(data: Pointer): ICefContextMenuParams;