StringGrid Двойной Alignment в ячейках

[Yuran]

Доброе время!

Использую компонент TAdvStringGrid

Все устраивает.

Хотелось бы в некоторых ячейках реализовать "Двойное выравнивание"

Чтоб часть текста была прибита к левой стороне, а другая часть к правой.

Вот так
-----------------------
| Anna Iwano 3500|
-----------------------
Изменяем ширину колонки и получаем
--------------------------
| Anna Iwanowa..3500|
--------------------------
или вот
---------------------------------------
| Anna.Iwanowa ................ 3500|
---------------------------------------

Готового решения в этом компоненте не нашел.

Придумал реализацию так
1. вычисляем ширину колонки в пикселях. (Это известно) ШК
2. Вычисляем ширину ПРАВОГО текста в пикселях ШПТ
3. Вычисляем ширину ЛЕВОГО текста в пикселях ШЛТ
4. Рассчитываем ширину всего текста ШВТ
5. Задаем ШПТ = ШК-ШЛТ


Вопрос!!!
Как ЗАДАТЬ длину текста в пикселях? Или как расчитать кол-во символов чтоб длина в пикселях была такая-то!

[Yuran]

txtLeft :='Добрый день!';
txtRight:='300';
txt:=' ';
While Canvas.TextWidth(txtLeft)>sg.ColWidth-Canvas.TextWidth(txtRight) do
  delete(txtLeft,length(txtLeft),1);

txt:=txtLeft+' '+txtRight;

Что думаете? Может есть другой способ?

[Аватар]

Может есть другой способ?

Разбить на две колонки и не сушить мозг

[Yuran]

Разбить на две колонки и не сушить мозг

Ломается форматирование.

Нужно в одной колонке.

[Toxa]

var
txtl : string;//левый текст
txtr : string;//правый текст
res : string;//текст нужной длины
len : integer;//нужная ширина текста в пикселях
begin
while textwidth(txtl+txtr) < len do
 txtl:= txtl+' ';
res := txtl+txtr;
end;

а еще можно на OnDraw рисовать текст вручную в ячейках в нужных позициях