TOPIC:

//--- ct9999 -----------------
procedure TcyBaseSpeedButton.DrawCaption(aRect: TRect; aState: TButtonState; Hot: Boolean; GlyphExists: Boolean);
var
  aAlignment: TAlignment;
  aTextLayout: TTextLayout;
  DrawStyle: LongInt;
  TmpFont: TFont;
  xTextStyle:TTextStyle;
begin
  if Caption = '' then EXIT;

  aAlignment := taCenter;
  aTextLayout := tlCenter;

  if GlyphExists
  then
    case Layout of
      blGlyphLeft:   aAlignment := taLeftJustify;
      blGlyphRight:  aAlignment := taRightJustify;
      blGlyphTop:    aTextLayout := tlTop;
      blGlyphBottom: aTextLayout := tlBottom;
    end;

  DrawStyle := cyGraphics.DrawTextFormatFlags(0, aAlignment, aTextLayout, FWordWrap);
 // DrawStyle := DrawTextBiDiModeFlags(DrawStyle);      ct9999

  if FCaptionOrientation = coHorizontal
  then begin
    xTextStyle:=Canvas.TextStyle;
    xTextStyle.Alignment:=taCenter;
    xTextStyle.Layout:= tlCenter;
    Canvas.TextRect(aRect,0,0,Caption,xTextStyle);
  end
  else begin
    // Use Canvas.Font because already assigned on DrawButton and can be changed on BeforePaint event !
    TmpFont := cyCreateFontIndirect(Canvas.Font, FCaptionOrientation);
    try
      Canvas.Font.Assign(TmpFont);
      cyDrawVerticalText(Canvas, Caption, aRect, DrawStyle, FCaptionOrientation, aAlignment, aTextLayout);
    finally
      TmpFont.Free;
    end;
  end;
end;
//---------------------------