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

tvplanit: Preparing for multi-line day captions in TVpGanttView. Not working yet.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8429 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-30 21:39:47 +00:00
parent b915c3008e
commit dcfa500d6e
3 changed files with 50 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpganttviewpainter.pas
View File

@ -280,6 +280,12 @@ begin
strLen := RenderCanvas.TextWidth(str);
P := Point((R.Left + R.Right - strLen) div 2, (R.Top + R.Bottom - strH) div 2);
TPSTextOut(RenderCanvas, Angle, RenderIn, P.X, P.Y, str);
// To do: replace above code for multi-line text, ie.
// strLen := GetCanvasTextWidth(RenderCanvas, FDayFont, str);
// TPSTextRect(RencerCanvas, Angle, RenderIn, R, P.X, P.Y, str);
// BUT: TPSTextRect does not yet exist...
end;
end;