paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 01:41:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

tuborpower ipro: added DefaultFontSize from Dieter

Browse Source 
git-svn-id: trunk@14410 -
This commit is contained in:
mattias 2008-03-04 20:51:29 +00:00
parent 944b28741c
commit 753945f7af
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/turbopower_ipro/iphtml.pas
View File

@ -2197,6 +2197,7 @@ type
StartPos : Integer;
FFixedTypeface: string; {!!.10}
FDefaultTypeFace: string;
FDefaultFontSize: integer;
ParmBuf: PChar; {!!.12}
ParmBufSize: Integer; {!!.12}
procedure ResetCanvasData;
@ -2449,6 +2450,7 @@ type
property FlagErrors : Boolean read FFlagErrors write FFlagErrors;
property FixedTypeface: string read FFixedTypeface write FFixedTypeface;
property DefaultTypeFace: string read FDefaultTypeFace write FDefaultTypeFace;
property DefaultFontSize: integer read FDefaultFontSize write FDefaultFontSize;
property HtmlNode : TIpHtmlNodeHtml read FHtml;
procedure LoadFromStream(S : TStream);
procedure Render(TargetCanvas: TCanvas; TargetPageRect : TRect;
@ -2760,6 +2762,7 @@ type
FFlagErrors: Boolean;
FFixedTypeface: string; {!!.10}
FDefaultTypeFace: string;
FDefaultFontSize: integer;
FHotURL: string;
FDataProvider: TIpAbstractHtmlDataProvider;
URLStack : TStringList;
@ -2805,6 +2808,7 @@ type
function GetVersion : string;
procedure SetVersion(const Value : string);
procedure SetDefaultTypeFace(const Value: string);
procedure SetDefaultFontSize(const Value: integer);
public
function GetPrintPageCount: Integer;
constructor Create(AOwner: TComponent); override;
@ -2854,6 +2858,8 @@ type
read FFixedTypeface write FFixedTypeface; {!!.10}
property DefaultTypeFace: string
read FDefaultTypeFace write SetDefaultTypeFace;
property DefaultFontSize: integer
read FDefaultFontSize write SetDefaultFontSize;
property HotURL : string read FHotURL;
property LinkColor : TColor
read FLinkColor write FLinkColor default clBlue;
@ -2905,6 +2911,7 @@ type
property Enabled; {!!.10}
property FixedTypeface; {!!.10}
property DefaultTypeFace;
property DefaultFontSize;
property FactBAParag; //JMN
property FlagErrors;
property LinkColor;
@ -8215,7 +8222,7 @@ begin
{$ENDIF}
end else
Defaultprops.FontName := FDefaultTypeface;
Defaultprops.FontSize := 12;
Defaultprops.FontSize := FDefaultFontSize;
DefaultProps.BaseFontSize := 3;
Defaultprops.FontBaseline := 0;
DefaultProps.VAlignment := hva3Baseline;
@ -17006,6 +17013,7 @@ begin
Html := TIpHtml.Create;
Html.FixedTypeface := Viewer.FixedTypeface; {!!.10}
Html.DefaultTypeFace := Viewer.DefaultTypeFace;
Html.DefaultFontSize := Viewer.DefaultFontSize;
FFlagErrors := FlagErrors;
FMarginWidth := MarginWidth;
FMarginheight := MarginHeight;
@ -18051,6 +18059,7 @@ begin
FAllowTextSelect := True;
FixedTypeface := 'Courier New'; {!!.10}
DefaultTypeFace := Graphics.DefFontData.Name;
DefaultFontSize := 12;
FPrintSettings := TIpHtmlPrintSettings.Create; {!!.10}
FFactBAParag := 1;
end;
@ -18350,6 +18359,7 @@ begin
NewHtml.BgColor := BgColor; //JMN
NewHtml.FixedTypeface := FixedTypeface; {!!.10}
NewHtml.DefaultTypeFace := DefaultTypeFace;
NewHtml.DefaultFontSize := FDefaultFontSize;
MasterFrame.SetHtml(NewHtml);
end;
{ LazDebug
@ -18499,6 +18509,17 @@ begin
end;
end;
procedure TIpHtmlCustomPanel.SetDefaultFontSize(const Value: integer);
begin
if FDefaultFontSize<>Value then begin
FDefaultFontSize := Value;
if (MasterFrame<>nil)and(MasterFrame.Html<>nil) then begin
MasterFrame.Html.DefaultFontSize := FDefaultFontSize;
Invalidate;
end;
end;
end;
procedure TIpHtmlCustomPanel.SetFactBAParag(const Value: Real); //JMN
var
V: Real;