SpkToolbar: Support RTL layout of buttons within panes.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8956 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2023-10-13 09:33:12 +00:00
parent d3bbef0991
commit 2ff41ccea4
2 changed files with 95 additions and 24 deletions
--- a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas
+++ b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas
@@ -1807,7 +1807,7 @@ begin
    fontColor := TColorTools.ColorToGrayscale(fontColor);

  // Text
-  if FShowCaption then
+  if FShowCaption and (FCaption <> '') then
  begin
    ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
    ABuffer.Canvas.Font.Color := fontColor;