Tfrxdbcrossview
Имеем процедуру:
В нее надо воткнуть обработку всех TfrxMemoView из TfrxDbCrossView, который лежит в отчете.
Отличительная черта этих TfrxMemoView - свойство Tag = 1.
Это могут быть заголовки Row, Column или TotalData, GrandTotalData
Каким образом добраться до свойства Text этих самых TfrxMemoView в TfrxDbCrossView из RunTime.
Перепробовал много вариантов - почему-то свойство читает как пустую строку.
Помогите, плиз.
procedure ReadReportsCaptions( AfrxReport: TfrxReport );
var
Index: Integer;
MemoText: string;
begin
with AfrxReport.Pages[1] do
for Index := 0 to AllObjects.Count - 1 do
if TfrxView( AllObjects[Index] ) is TfrxMemoView then
begin
if ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Tag = 1 then
begin
MemoText := ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Memo.Text;
if Length( MemoText ) > 0 then
( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Memo.Text := ErgoFastLocalizer.ReadCaption( ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Name, ( TfrxView( AllObjects[Index] ) as TfrxMemoView ).Memo.Text );
end;
end;
end;
В нее надо воткнуть обработку всех TfrxMemoView из TfrxDbCrossView, который лежит в отчете.
Отличительная черта этих TfrxMemoView - свойство Tag = 1.
Это могут быть заголовки Row, Column или TotalData, GrandTotalData
Каким образом добраться до свойства Text этих самых TfrxMemoView в TfrxDbCrossView из RunTime.
Перепробовал много вариантов - почему-то свойство читает как пустую строку.
Помогите, плиз.