mORMot and Open Source friends
Check-in [bb167cc1e3]
Check-in [bb167cc1e3]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | {984} included SynPDF patch by falcon_b |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bb167cc1e332144a6d4cdf1aba9d792c |
| User & Date: | ab 2015-02-26 20:04:38 |
|
2015-02-26
| ||
| 20:25 | {985} small documentation clarification about the licensing terms: the framework is MPL/GPL/LGPL - only its documentation is pure GPL! check-in: 2d71d11f55 user: ab tags: trunk | |
| 20:04 | {984} included SynPDF patch by falcon_b check-in: bb167cc1e3 user: ab tags: trunk | |
| 20:01 | {983} fix typing error in last commit check-in: 738d0fb53d user: ab tags: trunk | |
Changes to SynPdf.pas.
30 31 32 33 34 35 36 37 38 39 40 41 42 43 .... 8530 8531 8532 8533 8534 8535 8536 8537 8538 8539 8540 8541 8542 8543 8544 .... 8553 8554 8555 8556 8557 8558 8559 8560 8561 8562 8563 8564 8565 8566 8567 |
Contributor(s): Alexander (chaa) aweste CoMPi Damien (ddemars) David Mead (MDW) Harald Simon Ondrej (reddwarf) Sinisa (sinisav) Pierre le Riche MChaos Marsh ................................................................................ P := fRawPages.List[i]; P.FlushVCLCanvas; if P.fVCLMetaFileCompressed<>'' then begin P.SetVCLCurrentMetaFile; try FCanvas.SetPage(P); FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0, fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleBottom, fDisableTextClipping); finally FreeAndNil(P.fVCLCurrentMetaFile); end; inherited SaveToStreamDirectPageFlush; end; end; ................................................................................ P := fRawPages.List[fRawPages.Count-1]; if (P=FCanvas.FPage) and (P.fVCLMetaFileCompressed='') and (P.fVCLCurrentMetaFile<>nil) and (P.fVCLCurrentCanvas<>nil) then begin FreeAndNil(P.fVCLCurrentCanvas); // manual P.SetVCLCurrentMetaFile try FCanvas.FContents.FSaveAtTheEnd := false; // force flush NOW FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0, fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleBottom, fDisableTextClipping); finally FreeAndNil(P.fVCLCurrentMetaFile); end; end; end; inherited SaveToStreamDirectPageFlush; |
> | | |
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 .... 8531 8532 8533 8534 8535 8536 8537 8538 8539 8540 8541 8542 8543 8544 8545 .... 8554 8555 8556 8557 8558 8559 8560 8561 8562 8563 8564 8565 8566 8567 8568 |
Contributor(s): Alexander (chaa) aweste CoMPi Damien (ddemars) David Mead (MDW) FalconB Harald Simon Ondrej (reddwarf) Sinisa (sinisav) Pierre le Riche MChaos Marsh ................................................................................ P := fRawPages.List[i]; P.FlushVCLCanvas; if P.fVCLMetaFileCompressed<>'' then begin P.SetVCLCurrentMetaFile; try FCanvas.SetPage(P); FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0, fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleTop, fDisableTextClipping); finally FreeAndNil(P.fVCLCurrentMetaFile); end; inherited SaveToStreamDirectPageFlush; end; end; ................................................................................ P := fRawPages.List[fRawPages.Count-1]; if (P=FCanvas.FPage) and (P.fVCLMetaFileCompressed='') and (P.fVCLCurrentMetaFile<>nil) and (P.fVCLCurrentCanvas<>nil) then begin FreeAndNil(P.fVCLCurrentCanvas); // manual P.SetVCLCurrentMetaFile try FCanvas.FContents.FSaveAtTheEnd := false; // force flush NOW FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0, fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleTop, fDisableTextClipping); finally FreeAndNil(P.fVCLCurrentMetaFile); end; end; end; inherited SaveToStreamDirectPageFlush; |
Changes to SynopseCommit.inc.
1 |
'1.18.983'
|
| |
1 |
'1.18.984'
|