paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, implements textrect clipping in Postscriptprintercanvas

Browse Source 
git-svn-id: trunk@37131 -
This commit is contained in:
jesus 2012-05-01 20:50:57 +00:00
parent 415a969db2
commit 567bfeb0a1
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/postscriptcanvas.pas
View File

@ -2258,10 +2258,21 @@ end;
procedure TPostScriptPrinterCanvas.TextRect(ARect: TRect; X, Y: integer;
const Text: string; const Style: TTextStyle);
var
OldClip: TRect;
begin
{$IFDEF VerboseLCLTodos}{$WARNING TPostScriptPrinterCanvas.TextRect is not yet fully implemented!}{$ENDIF}
//TODO: clipping, layout, etc.
//TODO: layout, etc.
if Style.Clipping then begin
OldClip := GetClipRect;
SetClipRect(ARect);
end;
TextOut(X,Y, Text);
if Style.Clipping then
SetClipRect(OldClip);
end;
function IsMaxClip(ARect:TRect):boolean;