paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 11:40:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: remove obsolete and WRONG cBrushStyle array. Items were in wrong order

Browse Source 
git-svn-id: trunk@33235 -
This commit is contained in:
juha 2011-11-02 23:15:51 +00:00
parent bd2c6d9b5c
commit ef93f8effc
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/postscriptcanvas.pas
View File

@ -205,12 +205,6 @@ Type
end;
Const
cBrushStyle : Array[TBrushStyle] of String =
('bsClear', 'bsSolid', 'bsBDiagonal',
'bsFDiagonal', 'bsCross', 'bsDiagCross',
'bsHorizontal', 'bsVertical', 'bsImage', 'bsPattern');
cFontPSMetrics : Array[0..12] of TFontPSMetrics =(
(Name : 'Courier';
ULPos : -100; ULThickness : 50; Ascender : 604; Descender : -186;
@ -920,6 +914,8 @@ end;
//Use SetBorder and SetFill for initialize 1 or 2 sequence
procedure TPostScriptPrinterCanvas.SetBrushFillPattern(Lst: TStringList;
SetBorder, SetFill: Boolean);
var
s: string;
begin
If not Assigned(Lst) then Exit;
@ -938,7 +934,8 @@ begin
else
begin
UpdateLineColor(Brush.Color);
write(Format('/%s findfont %% a pattern font patternfill',[cBrushStyle[Brush.Style]]));
WriteStr(s, Brush.Style);
write(Format('/%s findfont %% a pattern font patternfill',[s]));
Write(Lst);
write('patternfill');
end;