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

tvplanit: DPI-aware font sizes of planner controls.

Browse Source 
Publish some missing inherited properties of VpCalendar
Move "GetTimeFormat" from FullDemo to unit vpmisc.
Remove some hints/warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5078 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-08-08 18:29:24 +00:00
parent d961a31803
commit 1276eb57b8
15 changed files with 103 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vptasklistpainter.pas
View File

@ -252,6 +252,7 @@ var
begin
RenderCanvas.Brush.Color := TaskHeadAttrColor;
RenderCanvas.Font.Assign(FTaskList.TaskHeadAttributes.Font);
RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI);
if FTaskList.DrawingStyle = dsFlat then delta := 1 else delta := 2;
HeadRect.Left := RealLeft + delta;
@ -321,6 +322,7 @@ begin
else
HeadStr := RSTaskTitleNoResource;
RenderCanvas.Font.Assign(TaskHeadAttributes.Font);
RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI);
TPSTextOut(
RenderCanvas,
Angle,
@ -396,6 +398,7 @@ begin
end;
RenderCanvas.Font.Assign(Font);
RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI);
for I := StartLine to pred(tlAllTaskList.Count) do begin
Task := tlAllTaskList[I];
if (LineRect.Top + Trunc(RowHeight * 0.5) <= RealBottom) then begin
@ -528,6 +531,7 @@ end;
procedure TVpTaskListPainter.MeasureRowHeight;
begin
RenderCanvas.Font.Assign(FTaskList.Font);
RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI);
RowHeight := RenderCanvas.TextHeight(VpProductName) + TextMargin * 2;
end;