Выравнивание по ширине

Chaosbringer

Действия, присваиваем мемке переменную (большой длинны строку). У мемки выравнивание по ширине, в мемке несколько строк.

Что ожидаем: Все строки выравняются по ширине, может быть за исключением посленей

Что получаем: Выравнивается только 1 строка в мемке.

Если на этапе дизайна весь этот текст туда кинуть, то все ОК, но это не технически неосуществимо, строка вычисляется.

Временное решение

В модулеfrxGrapUtils.pas
if Align = haBlock then
begin
GetMem(spaceAr, SizeOf(Integer) * n);
spaceCount := CountSpaces;
// if spaceCount = 0 then //ChaosBringer
// Align := haLeft else //ChaosBringer
extraSize := Abs(dx) - Sz;
end
else
spaceCount := 0;

Решение некорректное, но работает так как требуется.
Исходник указан для 3-йки, но аналогичная проблема была замечена и в демке 4-ки.

AlexTZ

Пришлите отчет или пример, поясняющий суть проблемы. Повторить не удалось.

Chaosbringer

Берем демку, любой отчет, кладем мемку на страницу, далее в коде пишем
memo1.memo.add('Действия, присваиваем мемке переменную (большой длинны строку). У мемки выравнивание по ширине, в мемке несколько строк. Что ожидаем: Все строки выравняются по ширине, может быть за исключением последней Что получаем: Выравнивается только 1 строка в мемке.Если на этапе дизайна весь этот текст туда кинуть, то все ОК, но это не технически неосуществимо, строка вычисляется.');

Ставим в дизайнере выравнивание мемки по ширине и нажимаем просмотр

AlexTZ

Поправлено, глюк в TWideStrings...

Chaosbringer

Классно, жаль у нас тройка пока, четвертую версию тоже купим, но не сегодня

не могли бы правильный код для 3-йки привести, если он не очень большой?

AlexTZ

в frxUnicodeUtils.pas:

function TWideStrings.Add(const S: WideString): Integer;
var
PWStr: ^TWString;
begin
New(PWStr);
PWStr^.WString := S;
PWStr^.Obj := nil;
Result := FWideStringList.Add(PWStr);
end;

Chaosbringer

Спасибо, работает

malor

Строю фастрепортовскую форму. Накидал несколько Memo-элементов рядом с друг другом, у них разная ширина. Можно ли в FastReport как в MS Excel выровнять выделенные элементы(там ячейки, а тут разумеется мемки в данном случае) по ширине? Кнопка либо в контекстном меню команда есть соответствующая для такого действия ?