Как подчеркнуть выбранные банды?

andreymx

if VarToStr(<FrxPrintSortTbl."pr_print">) <> '' then begin
// подчеркнуть
end else begin
// не надо
end;

1. Пытался как в QR - но в FrBand нет frame
2. Бросил на банд линию - при перемещении на bottom она с него слетает и становится частью Page.
3. Подчеркивать каждые frxText отдельно? Можно ли получить список всех frxText-ов банда?

Сеич

Можно попробовать так:

Memo := TfrxMemoView.Create(Band);
With Memo do
begin
CreateUniqueName;
SetBounds(Band.Left, Band.Top, Band.Width, Band.Height);
Frame.Typ := [ftBottom];
end;

Гаджимурадов Рустам

andreymx написал:

1. Пытался как в QR - но в FrBand нет frame
2. Бросил на банд линию - при перемещении на bottom она с него слетает и становится частью Page.
3. Подчеркивать каждые frxText отдельно? Можно ли получить список всех frxText-ов банда?

1. Нагло врешь.
2. Не надо делать с помощью линий. Гимор и работать будет медленне (и неудобно).
3. Да отдельно работай. У тебя же их не 100. У тебя их максимум 20. А список всех полей-текстов можно получить через Parent.

Кроме вышесказанного можно делать через Frame.Typ := [ftBottom]; (как тебе уже подсказали), можно работать со стилем шрифта, можно еще html-тэги использовать (фича 3.* - правда я сам еще ни разу не использовал, только смотрел, проверял - вроде пашет).

andreymx

Привет, Рустам!
Насчёт "нагло врёшь" - я уже привык, такова се ля ви, с меня как с гуся вода.
Но именно у меня почему-то именно вот эта строка не воспринимается:
MasterData1.Frame.Typ := [ftBottom];
Говорит "неопределённый идентификатор Frame".
А в QR сейчас специально глянул
QRBand1.Frame.DrawBottom := true - работает

Alex_Gol

andreymx написал:

Но именно у меня почему-то именно вот эта строка не воспринимается:
  MasterData1.Frame.Typ := [ftBottom];

Надо:
MasterData1.Frame.Typ := ftBottom;
или для других вариантов........
MasterData1.Frame.Typ := ftTop+ftBottom;
MasterData1.Frame.Typ := ftLeft+ftRight+ftTop+ftBottom;

andreymx

У меня ругается не на [ftBottom], а на MasterData1.Frame <=

Alex_Gol

andreymx написал:

У меня ругается не на [ftBottom], а на MasterData1.Frame <=

Извини за неверный синтаксис в первом ответе.
Скопировал свой текст, а потом не глядя заменил имя моего мемо на имя
из твоего примера... а это было имя бэнда...

---

Рамки устанавливаются у каждого конкретного TfrxMemoView,
например:
Memo70.Height := 16;
Memo70.Frame.Typ := ftTop;
Memo71.Height := 16;
Memo71.Frame.Typ := ftLeft+ftRight+ftTop+ftBottom;