paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 06:00:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

iPro: publish PrintSettings even if printing is not supported. Forms cannot be loaded otherwise.

Browse Source 
git-svn-id: trunk@46064 -
This commit is contained in:
juha 2014-08-22 23:00:14 +00:00
parent 0918c19e5a
commit eba8a702cc
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/iphtml.pas
View File

@ -2383,7 +2383,6 @@ type
var cancel: boolean) var cancel: boolean)
of object; of object;
{$IFDEF Html_Print}
TIpHtmlPrintSettings = class(TPersistent) TIpHtmlPrintSettings = class(TPersistent)
private private
FMarginTop: Double; FMarginTop: Double;
@ -2399,7 +2398,6 @@ type
property MarginRight: Double read FMarginRight write FMarginRight; property MarginRight: Double read FMarginRight write FMarginRight;
property MarginBottom: Double read FMarginBottom write FMarginBottom; property MarginBottom: Double read FMarginBottom write FMarginBottom;
end; end;
{$ENDIF}
{ TIpHtmlCustomPanel } { TIpHtmlCustomPanel }
@ -2535,9 +2533,7 @@ type
property LinkColor: TColor read FLinkColor write FLinkColor default clBlue; property LinkColor: TColor read FLinkColor write FLinkColor default clBlue;
property MarginHeight: Integer read FMarginHeight write FMarginHeight default 10; property MarginHeight: Integer read FMarginHeight write FMarginHeight default 10;
property MarginWidth: Integer read FMarginWidth write FMarginWidth default 10; property MarginWidth: Integer read FMarginWidth write FMarginWidth default 10;
{$IFDEF Html_Print}
property PrintSettings: TIpHtmlPrintSettings read FPrintSettings write FPrintSettings; property PrintSettings: TIpHtmlPrintSettings read FPrintSettings write FPrintSettings;
{$ENDIF}
property ShowHints: Boolean read FShowHints write FShowHints default True; property ShowHints: Boolean read FShowHints write FShowHints default True;
property TextColor: TColor read FTextColor write FTextColor default clBlack; property TextColor: TColor read FTextColor write FTextColor default clBlack;
property Title: string read GetTitle; property Title: string read GetTitle;
@ -2581,11 +2577,9 @@ type
property FlagErrors; property FlagErrors;
property LinkColor; property LinkColor;
property PopupMenu; property PopupMenu;
{$IFDEF Html_Print}
property PrintSettings; property PrintSettings;
property MarginHeight; property MarginHeight;
property MarginWidth; property MarginWidth;
{$ENDIF}
property ShowHints; property ShowHints;
property TabOrder; property TabOrder;
property TabStop; property TabStop;