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

LCL, postscript, use selectfont instead of findfont/scalefont, fix typo in postscript example

Browse Source 
git-svn-id: trunk@17664 -
This commit is contained in:
jesus 2008-12-02 22:13:31 +00:00
parent 953046ea87
commit 7ceed3d638
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/postscript/usamplepostscriptcanvas.pas
View File

@ -120,7 +120,7 @@ var
PsCanvas.Font.Style:=[fsItalic];
FontSample('Italic Пример текста Random:ęðšćàÀâ¿€ÂáÁçÇñÑüÜ');
PsCanvas.Font.Style:=[];
FontSample('Normal Пример AQUIтESекста Random:ęðšćàÀâ¿€ÂáÁçÇñÑüÜ');
FontSample('Normal Пример текста Random:ęðšćàÀâ¿€ÂáÁçÇñÑüÜ');
PsCanvas.Font.Style:=[fsUnderline,fsBold,fsItalic];
FontSample('all Пример текста Random:ęðšćàÀâ¿€ÂáÁçÇñÑüÜ');
PsCanvas.Font.Style:=[];
@ -161,7 +161,7 @@ begin
Brush.Color:=clGreen;
Ellipse(10,260,60,310);
// ??
// pie
Brush.Color:=clTeal;
Brush.Style:=bsSolid;
RadialPie(10,360,90,440,0,60*16);

6
lcl/postscriptunicode.pas
View File

@ -337,10 +337,10 @@ begin
w := word(UStr[i]);
b := BlockFor(w);
FontIndex := IndexOfFont(Font, FontSize, 0, b);
FontIndex := IndexOfFont(Font, FontSize, FontStyle, b);
if (FontIndex<0) or (FontIndex<>FLastFontIndex) then begin
EmitSubStr;
FontStr := SelectFont(Font, FontSize, 0, b);
FontStr := SelectFont(Font, FontSize, FontStyle, b);
end;
c := byte(w-FBlocks[b].Ini);
@ -460,7 +460,7 @@ begin
i := FUsedFonts.IndexOf(EncScaledFont);
if i<0 then begin
i := FUsedFonts.Add(EncScaledFont);
OutLst.Add(format('/%s { /%s findfont %d scalefont setfont } bind def',
OutLst.Add(format('/%s { /%s %d selectfont } bind def',
[EncScaledFont,EncFont,AFontSize]));
OutLst.Add('');
end;