Lazarus

Programming => Graphics => Graphics and Multimedia => BGRABitmap and LazPaint => Topic started by: mike_p on November 26, 2021, 06:39:20 am

Title: Minor bug in TBCMDButton -I think!
Post by: mike_p 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.