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

tvplanit: Define initial control size by GetControlClassDefaultSize. New icons in PrintPreview dialog. Consistent 3D look of TVpPrintPreview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8469 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-10 20:38:31 +00:00
parent 770f452ecf
commit d2fe2df1e7
58 changed files with 247 additions and 454 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1547,7 +1547,7 @@ begin
inc(Result, RenderCanvas.TextWidth('33'));
with TVpDayViewOpener(FDayView) do
Result := Max(Result, dvDayUpBtn.Glyph.Width + dvDayDownBtn.Glyph.Width +
dvWeekUpBtn.Glyph.Width + dvWeekDownBtn.Glyph.Width + 3*Scale96ToFont(4));
dvWeekUpBtn.Glyph.Width + dvWeekDownBtn.Glyph.Width);
end;
procedure TVpDayViewPainter.FixFontHeights;