pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Fixed TPDFPrintOptions properties.

Browse Source 
Now header_footer_enabled, selection_only, landscape and backgrounds_enabled are boolean.
This commit is contained in:
Salvador Díaz Fau
2018-08-31 12:24:21 +02:00
parent 005d699601
commit d16ce93bd5
3 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/uCEFChromium.pas
View File

@@ -1462,10 +1462,10 @@ begin
aSettings.margin_bottom := FPDFPrintOptions.margin_bottom;
aSettings.margin_left := FPDFPrintOptions.margin_left;
aSettings.margin_type := FPDFPrintOptions.margin_type;
aSettings.header_footer_enabled := FPDFPrintOptions.header_footer_enabled;
aSettings.selection_only := FPDFPrintOptions.selection_only;
aSettings.landscape := FPDFPrintOptions.landscape;
aSettings.backgrounds_enabled := FPDFPrintOptions.backgrounds_enabled;
aSettings.header_footer_enabled := Ord(FPDFPrintOptions.header_footer_enabled);
aSettings.selection_only := Ord(FPDFPrintOptions.selection_only);
aSettings.landscape := Ord(FPDFPrintOptions.landscape);
aSettings.backgrounds_enabled := Ord(FPDFPrintOptions.backgrounds_enabled);
end;
end;

24
source/uCEFPDFPrintOptions.pas
View File

@@ -69,10 +69,10 @@ type
Fmargin_bottom : double;
Fmargin_left : double;
Fmargin_type : TCefPdfPrintMarginType;
Fheader_footer_enabled : integer;
Fselection_only : integer;
Flandscape : integer;
Fbackgrounds_enabled : integer;
Fheader_footer_enabled : boolean;
Fselection_only : boolean;
Flandscape : boolean;
Fbackgrounds_enabled : boolean;
public
constructor Create; virtual;
@@ -86,10 +86,10 @@ type
property margin_bottom : double read Fmargin_bottom write Fmargin_bottom;
property margin_left : double read Fmargin_left write Fmargin_left;
property margin_type : TCefPdfPrintMarginType read Fmargin_type write Fmargin_type default PDF_PRINT_MARGIN_DEFAULT;
property header_footer_enabled : integer read Fheader_footer_enabled write Fheader_footer_enabled default 0;
property selection_only : integer read Fselection_only write Fselection_only default 0;
property landscape : integer read Flandscape write Flandscape default 0;
property backgrounds_enabled : integer read Fbackgrounds_enabled write Fbackgrounds_enabled default 0;
property header_footer_enabled : boolean read Fheader_footer_enabled write Fheader_footer_enabled default False;
property selection_only : boolean read Fselection_only write Fselection_only default False;
property landscape : boolean read Flandscape write Flandscape default False;
property backgrounds_enabled : boolean read Fbackgrounds_enabled write Fbackgrounds_enabled default False;
end;
implementation
@@ -104,10 +104,10 @@ begin
Fmargin_bottom := 0;
Fmargin_left := 0;
Fmargin_type := PDF_PRINT_MARGIN_DEFAULT;
Fheader_footer_enabled := 0;
Fselection_only := 0;
Flandscape := 0;
Fbackgrounds_enabled := 0;
Fheader_footer_enabled := False;
Fselection_only := False;
Flandscape := False;
Fbackgrounds_enabled := False;
end;
end.

8
source/uFMXChromium.pas
View File

@@ -1296,10 +1296,10 @@ begin
aSettings.margin_bottom := FPDFPrintOptions.margin_bottom;
aSettings.margin_left := FPDFPrintOptions.margin_left;
aSettings.margin_type := FPDFPrintOptions.margin_type;
aSettings.header_footer_enabled := FPDFPrintOptions.header_footer_enabled;
aSettings.selection_only := FPDFPrintOptions.selection_only;
aSettings.landscape := FPDFPrintOptions.landscape;
aSettings.backgrounds_enabled := FPDFPrintOptions.backgrounds_enabled;
aSettings.header_footer_enabled := Ord(FPDFPrintOptions.header_footer_enabled);
aSettings.selection_only := Ord(FPDFPrintOptions.selection_only);
aSettings.landscape := Ord(FPDFPrintOptions.landscape);
aSettings.backgrounds_enabled := Ord(FPDFPrintOptions.backgrounds_enabled);
end;
end;