Выравнивание текста на канве по правому краю

[shonty]

Здравствуйте.

Составил график функции. В зависимости от введённых аргументов, значения на оси Y меняются от двузначных до 7-ми значных.

Естественно, что возникает желание выровнять их по правому краю.

Такая возможность существует? (или придётся Label-ей на канву набросать)


(На рисунке вывод только около одной засечки, но будет против каждой.)

[Foreseen]

Попробуй так

Form1.Canvas.TextOut(x-Form1.Canvas.TextWidth(s), y, s);

[shonty]

Спасибо большое Работает

а то я уже в гугл закинул "lazarus canvas text align right" , а тут так всё просто))))

[min@y™]

зацени мою самоделку

// Начальная точка вывода текста на канве внутри прямоугольника Rect
// с выравниванием горизонтальным и вертикальным
// для вывода предельных величин графика функции (по углам)
function GetTextPosition(const Text: string;                 // текст
                         const Canvas: TCanvas;              // канва
                         const Rect: TRect;                  // прямоугольник отрисовки
                         const TextMargin: Integer;          // размер полей
                         const Alignment: TAlignment;        // гориз. выравнивание
                         const Layout: TTextLayout): TPoint; // верт. выравнивание
var
  th, tw: Integer;
begin
  tw:= Canvas.TextWidth(Text);
  th:= Canvas.TextHeight(Text);

  case Alignment of
    taLeftJustify  : Result.x:= TextMargin;
    taCenter       : Result.x:= ((Rect.Right - Rect.Left) div 2) - (tw div 2);
    taRightJustify : Result.x:= (Rect.Right - Rect.Left) - tw - TextMargin;
  end; //case

  case Layout of
    tlTop:    Result.y:= TextMargin;
    tlCenter: Result.y:= ((Rect.Bottom - Rect.Top) div 2) - (th div 2);
    tlBottom: Result.y:= (Rect.Bottom - Rect.Top) - th - TextMargin;
  end; // case
end;

[shonty]

min@y™, извини, но не смог заценить твоё творение. Я нутром чувствую, что твой код - это высший пилотаж, но вот так и не смог его запустить, из-за моего весьма скромного опыта в программировании.

[min@y™]

не смог его запустить

даже экспериметировать не стал?
дать тебе программу-лабу, где он используется?

[Аватар]

А зачем чего-то придумывать? Все уже придумали. drawtext например

[shonty]

Вчера вечером юзал но не долго.
Скинь если не сложно пример. Или хотя бы скрин для наглядности.

[shonty]

Вчера вечером юзал но не долго.
Скинь если не сложно пример. Или хотя бы скрин для наглядности.

[min@y™]

Сообщение от shonty

Вчера вечером юзал но не долго.
Скинь если не сложно пример. Или хотя бы скрин для наглядности.

вотъ.
ёёёёёёёё