Нужно отрисовать текст с левой стороны(LeftMargin) и сделать его вертикальным - Компонент RxLib

[Михаил Юрьевич]

Подскажите кто работал с компонентом RXLib -> Rxpopupmenu

Нужно отрисовать текст с левой стороны(LeftMargin) и сделать его вертикальным
Отрисовываю так

	
procedure TForm1.RxPopupMenu1DrawMargin(Sender: TMenu; Rect: TRect);
const
  Txt = 'Text';
begin
  with RxPopupMenu1.Canvas.Font do begin
    Size := 20;
    Color := clWhite;
    ExtTextOut(RxPopupMenu1.Canvas.Handle, Rect.Left, Rect.Bottom-50, ETO_CLIPPED,
    @Rect,Txt, Length(Txt), nil);
  end;

Текст отрисовывается , но в горизонтальном положении

[Михаил Юрьевич]

Этот вопрос победил,нарисовался другой
Фон всего меню окрасил в цвет,и фон перекрыл текст

procedure TForm1.RxPopupMenu1DrawItem(Sender: TMenu; Item: TMenuItem;
  Rect: TRect; State: TMenuOwnerDrawState);
begin
 RxPopupMenu1.DefaultDrawMargin(Rect,RGB(0,0,200), RGB(0,0,200));

  end;