pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2026-05-16 08:38:08 +02:00
Code Issues Actions Releases Activity

Fixed an issue converting a boolean to integer using Ord in Lazarus.

Browse Source 
Removed Lazarus warnings about inline functions and uninitilized variables.
This commit is contained in:
Salvador Díaz Fau
2025-12-21 19:12:15 +01:00
parent cd8ba2e117
commit 18e8c62c2a
35 changed files with 499 additions and 274 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/uCEFPostDataElement.pas
+5 -2
View File
@@ -129,12 +129,15 @@ end;
function cef_post_data_element_is_read_only(self: PCefPostDataElement): Integer; stdcall;
var
TempObject : TObject;
TempResult : boolean;
begin
Result := Ord(False);
TempResult := False;
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCefPostDataElementOwn) then
Result := Ord(TCefPostDataElementOwn(TempObject).IsReadOnly);
TempResult := TCefPostDataElementOwn(TempObject).IsReadOnly;
Result := Ord(TempResult);
end;
procedure cef_post_data_element_set_to_empty(self: PCefPostDataElement); stdcall;