'#13#10;
DefPrint = 'parent.mainFrame.focus(); parent.mainFrame.print();';
LinkPrint = 'parent.location = "%s";';
DefRefresh = 'parent.location = "result?report=" + frRepName + "&multipage=" + frMultipage;';
LinkRefresh = 'parent.location = "%s";';
{ TfrxHTMLExport }
constructor TfrxHTMLExport.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FExportPictures := True;
FExportStyles := True;
FFixedWidth := True;
FUseJpeg := True;
FUseGif := False;
FServer := False;
FPrintLink := '';
FBackground := False;
FCentered := False;
FBackImage := TBitmap.Create;
FilterDesc := frxGet(8210);
DefaultExt := frxGet(8211);
FEmptyLines := True;
end;
class function TfrxHTMLExport.GetDescription: String;
begin
Result := frxResources.Get('HTMLexport');
end;
function TfrxHTMLExport.TruncReturns(const Str: WideString): WideString;
begin
if Copy(Str, Length(Str) - 1, 2) = #13#10 then
Result := Copy(Str, 1, Length(Str) - 2)
else
Result := Str;
end;
function TfrxHTMLExport.ChangeReturns(const Str: String): String;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(Str) do
begin
if Str[i] = '&' then
Result := Result + '&'
else if (i < Length(Str)) and (Str[i] = #13) and (Str[i + 1] = #10) then
Result := Result + ' '
else if Str[i] = '"' then
Result := Result + '"'
else if (Str[i] <> #10) then
Result := Result + Str[i]
end;
end;
procedure TfrxHTMLExport.WriteExpLn(const str: String);
begin
if Length(str) > 0 then
begin
Exp.Write(str[1], Length(str));
Exp.Write(#13#10, 2);
end;
end;
procedure TfrxHTMLExport.ExportPage;
var
i, x, y, dx, dy, fx, fy, pbk: Integer;
dcol, drow: Integer;
text, s, s1, sb, si, su: String;
Vert, Horiz: String;
obj: TfrxIEMObject;
EStyle: TfrxIEMStyle;
St, buff: String;
hlink, newpage: Boolean;
jpg : TJPEGImage;
tableheader, columnWidths: String;
procedure AlignFR2AlignExcel(HAlign: TfrxHAlign; VAlign: TfrxVAlign;
var AlignH, AlignV: String);
begin
if HAlign = haLeft then
AlignH := 'Left'
else if HAlign = haRight then
AlignH := 'Right'
else if HAlign = haCenter then
AlignH := 'Center'
else if HAlign = haBlock then
AlignH := 'Justify'
else
AlignH := '';
if VAlign = vaTop then
AlignV := 'Top'
else if VAlign = vaBottom then
AlignV := 'Bottom'
else if VAlign = vaCenter then
AlignV := 'Middle'
else
AlignV := '';
end;
begin
WriteExpLn('');
WriteExpLn('');
WriteExpLn('');
WriteExpLn('');
if Length(Report.ReportOptions.Name) > 0 then
s := Report.ReportOptions.Name
else
s := ChangeFileExt(ExtractFileName(frxUnixPath2WinPath(Report.FileName)), '');
WriteExpLn('' + UTF8Encode(s) + '');
if FExportStyles then
begin
WriteExpLn('');
end;
WriteExpLn('');
WriteExpLn('');
WriteExpLn('');
if FFixedWidth then
st := ' width="' + IntToStr(Round((FMatrix.MaxWidth - FMatrix.Left) / Xdivider)) + '"'
else
st := '';
if FCentered then
st := st + ' align="center"';
tableheader := '');
columnWidths := '
';
for x := 0 to FMatrix.Width - 2 do
begin
dcol := Round((FMatrix.GetXPosById(x + 1) - FMatrix.GetXPosById(x)) / Xdivider);
columnWidths := columnWidths + '
';
end;
if FMatrix.Width < 2 then
columnWidths := columnWidths + '
';
columnWidths := columnWidths + '
';
WriteExpLn(columnWidths);
pbk := 0;
st := '';
newpage := False;
for y := 0 to FMatrix.Height - 2 do
begin
if ShowProgress and (not FMultipage) then
if FProgress.Terminated then
break;
drow := Round((FMatrix.GetYPosById(y + 1) - FMatrix.GetYPosById(y)) / Ydivider);
s := '';
if FMatrix.PagesCount > pbk then
if Round(FMatrix.GetPageBreak(pbk)) <= Round(FMatrix.GetYPosById(y + 1)) then
begin
Inc(pbk);
if ShowProgress and (not FMultipage) then
FProgress.Tick;
newpage := True;
end;
if drow = 0 then
drow := 1;
WriteExpLn('
');
if newpage then
begin
WriteExpLn('');
newpage := False;
if y < FMatrix.Height - 2 then
begin
WriteExpLn('');
WriteExpLn(tableheader + ' class="page_break">');
WriteExpLn(columnWidths);
end;
end;
end;
if FMultipage or (FMatrix.Height < 2) then
WriteExpLn('');
WriteExpLn('