Recent

Author Topic: Minor bug in TBCMDButton -I think!  (Read 2423 times)

mike_p

  • New Member
  • *
  • Posts: 19
Minor bug in TBCMDButton -I think!
« on: November 26, 2021, 06:39:20 am »
TBCMDButton appears to ignore the size set for Font property.

in the methods TCustomBCMDButton.Paint and TCustomBCMDButton.CalculatePreferredSize
 
Code: Pascal  [Select][+][-]
  1. if FTextProportional then
  2.     bmp.FontHeight := Round(Height * FTextProportionalRatio)
  3.   else
  4.     bmp.FontHeight := 0;
  5.  
should perhaps be
 
Code: Pascal  [Select][+][-]
  1. if FTextProportional then
  2.     bmp.FontHeight := Round(Height * FTextProportionalRatio)
  3.   else
  4.     bmp.FontHeight := Font.Height;
  5.  
« Last Edit: November 26, 2021, 08:43:55 am by mike_p »

 

TinyPortal © 2005-2018