В скрипт Memo1 крос отчета надо добавить , чтото типа:
[Cell]
begin
CrossData1.Left := [frLeftMergin];
Memo1.Width:=CrossData1.Width;
if [Line#]=1 then
begin
Memo1.WordWrap:=True;
Memo1.WordBreak:=True;
Memo1.Font.Style:=2;
Memo1.Font.Color:=clRed;
Memo1.FillColor:=clWhite;
end
else
begin
Memo1.WordWrap:=False;
Memo1.WordBreak:=False;
Memo1.Font.Style:=2;
Memo1.Font.Color:=clBlack;
Memo1.FillColor:=clWhite;
end;
end;
вот так и делай с ним , что хош, обязательна структура c <ELSE> , в ней определяется вид остальных
строк отчета.
В скрипт Memo1 крос отчета надо добавить , чтото типа:
[Cell]
begin
CrossData1.Left := [frLeftMergin];
Memo1.Width:=CrossData1.Width;
if [Line#]=1 then
begin
Memo1.WordWrap:=True;
Memo1.WordBreak:=True;
Memo1.Font.Style:=2;
Memo1.Font.Color:=clRed;
Memo1.FillColor:=clWhite;
end
else
begin
Memo1.WordWrap:=False;
Memo1.WordBreak:=False;
Memo1.Font.Style:=2;
Memo1.Font.Color:=clBlack;
Memo1.FillColor:=clWhite;
end;
end;
вот так и делай с ним , что хош, обязательна структура c <ELSE> , в ней определяется вид остальных
строк отчета.
Скажите, а высоту CrossMemo можно поменять ?
Спасибо.
или в MasterData1.onBeforPrint добавить MasterData1.Height:=20;
а в Memo1 добавить Memo1.Height:=MasterData1.Height,
обратите внимание на if [Line#]=1 , т.е в качестве заголовка используется первая строка, это удобно при выводе StringGrid в котором первая строка и есть заголовок.
да я действительно, не понял, хотя могу сказать, что если надо создать
то что, надо , надо делать все ручками , а кросс вью , это уже собранный
в кучу объект, если его править , то только в исходных кодах.
В крос вью каждый объект имеет описатель куда , можно аналогичным образом , втулить свой обработчик. :-(
Комментарии
[Cell]
begin
CrossData1.Left := [frLeftMergin];
Memo1.Width:=CrossData1.Width;
if [Line#]=1 then
begin
Memo1.WordWrap:=True;
Memo1.WordBreak:=True;
Memo1.Font.Style:=2;
Memo1.Font.Color:=clRed;
Memo1.FillColor:=clWhite;
end
else
begin
Memo1.WordWrap:=False;
Memo1.WordBreak:=False;
Memo1.Font.Style:=2;
Memo1.Font.Color:=clBlack;
Memo1.FillColor:=clWhite;
end;
end;
вот так и делай с ним , что хош, обязательна структура c <ELSE> , в ней определяется вид остальных
строк отчета.
Ты про какой Memo1 говоришь? В объекте Cross1 Memo-полей 7 штук. Причём с совершенно разными именами.
Спасибо.
MasterData - свойство stretched : = True
можно также добавить , в Memo1
CrossData1.Left := [frLeftMergin];
Memo1.Width:=CrossData1.Width;
//---
Memo1.Height := 20;
MasterData1.Height:=Memo1.Height;
или в MasterData1.onBeforPrint добавить MasterData1.Height:=20;
а в Memo1 добавить Memo1.Height:=MasterData1.Height,
обратите внимание на if [Line#]=1 , т.е в качестве заголовка используется первая строка, это удобно при выводе StringGrid в котором первая строка и есть заголовок.
то что, надо , надо делать все ручками , а кросс вью , это уже собранный
в кучу объект, если его править , то только в исходных кодах.
В крос вью каждый объект имеет описатель куда , можно аналогичным образом , втулить свой обработчик. :-(