pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

PowerPDF: Basic gradient support for TPRRect

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5746 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2017-02-15 06:31:55 +00:00
parent 3a01999407
commit e15e8375ca
2 changed files with 128 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
components/powerpdf/PdfDoc.pas
View File

@ -448,16 +448,21 @@ type
procedure MoveTextPoint(tx, ty: Single); { Td }
procedure SetTextMatrix(a, b, c, d, x, y: Single); { Tm }
procedure MoveToNextLine; { T* }
procedure ShowText(const s: string); { Tj }
procedure ShowTextNextLine(const s: string); { ' }
procedure ShowText(const s: string); { Tj }
procedure ShowTextNextLine(const s: string); { ' }
{* external objects *}
procedure ExecuteXObject(const xObject: string); { Do }
procedure ExecuteXObject(const xObject: string); { Do }
{* Device-dependent color space operators *}
procedure SetRGBFillColor(Value: TPdfColor); { rg }
procedure SetRGBStrokeColor(Value: TPdfColor); { RG }
(* Basic shading pattern*)
procedure SetGradientFill(shadingType:Byte;
startColor, endColor: TPdfColor; Coords: array of Double;
Extends: boolean = false);
{* utility routines *}
procedure SetPage(APage: TPdfDictionary);
procedure SetFont(const AName: string; ASize: Single);
@ -1441,7 +1446,7 @@ begin
end;
// GetColorStr
function TPDFCanvas.GetColorStr(Color: TPdfColor): string;
function TPdfCanvas.GetColorStr(Color: TPdfColor): string;
var
X: array[0..3] of Byte;
rgb: integer;
@ -2132,6 +2137,82 @@ begin
WriteString(S);
end;
procedure TPdfCanvas.SetGradientFill(shadingType: Byte; startColor,
endColor: TPdfColor; Coords: array of Double; Extends: boolean);
var
Resources, patternResource, Shading, Pattern: TPdfDictionary;
ObjectMgr: TPdfObjectMgr;
Gradient: String;
function CreateRealArray(arr: array of double): TPdfArray;
var
i: Integer;
begin
result := TPdfArray.CreateArray(Resources.ObjectMgr);
for i:=0 to high(arr) do
result.AddItem(TPdfReal.CreateReal(arr[i]));
end;
function ColorToArray(Color: TPdfColor): TPdfArray;
var
clr: record r,g,b,x: byte; end absolute Color;
begin
result := CreateRealArray([clr.r/255, clr.g/255, clr.b/255]);
end;
function CreateBoolArray(a,b: boolean): TPdfArray;
begin
result := TPdfArray.CreateArray(Resources.ObjectMgr);
result.AddItem(TPdfBoolean.CreateBoolean(a));
result.AddItem(TPdfBoolean.CreateBoolean(b));
end;
function CreateFunction2: TPdfDictionary;
begin
result := TPdfDictionary.CreateDictionary(Resources.ObjectMgr);
result.AddNumberItem('FunctionType', 2);
result.AddNumberItem('N', 1);
result.AddItem('Domain', CreateRealArray([0.0,1.0]));
result.AddItem('C0', ColorToArray(StartColor));
result.AddItem('C1', ColorToArray(EndColor));
end;
begin
ObjectMgr := FPage.ObjectMgr;
// get or create a Pattern resource
Resources := FPage.PdfDictionaryByName('Resources');
if Resources=nil then begin
Resources := TPdfDictionary.CreateDictionary(ObjectMgr);
FPage.AddItem('Resources', Resources);
end;
patternResource := Resources.PdfDictionaryByName('Pattern');
if patternResource=nil then begin
patternResource := TPdfDictionary.CreateDictionary(ObjectMgr);
Resources.AddItem('Pattern', patternResource);
end;
// create a shading dictionary
Shading := TPdfDictionary.CreateDictionary(ObjectMgr);
Shading.AddNumberItem('ShadingType', shadingType);
Shading.AddNameItem('ColorSpace', 'DeviceRGB');
Shading.AddItem('Coords', CreateRealArray(Coords));
if Extends then
Shading.AddItem('Extends', CreateBoolArray(true, true));
Shading.AddItem('Function', CreateFunction2);
ObjectMgr.AddObject(Shading); // make it a reference
// create a shading pattern
Pattern := TPdfDictionary.CreateDictionary(ObjectMgr);
Pattern.AddNameItem('Type', 'Pattern');
Pattern.AddNumberItem('PatternType', 2);
Pattern.AddItem('Shading', Shading);
// add it to pattern resource
Gradient := 'Grad'+IntToStr(patternResource.ItemCount+1);
patternResource.AddItem(Gradient, Pattern);
// start using it
WriteString('/Pattern cs'#10);
WriteString('/'+Gradient+' scn'#10);
end;
{ TPdfCanvas common routine }
// TextWidth