[SOLVED] find object TfrView or TfrMemoView
lazarus / 31-LCL

----------------------------------------------------------------------
Maverich · 2012-04-15 15:12

ex:
aMemoView: TfrMemoView;
aMemo: TfrView;
aText: TfrObject;
...
//Fixed
aText := frReport1.FindObject('Memo4')
aText.Memo.Text := 'new caption on Memo4';

//wrong - then FindObject metod returns a frObject type
aMemo := frReport1. FindObject (' Memo4 ');

How to proceed ?

----------------------------------------------------------------------
Maverich · 2012-04-15 15:57

I solved it:
aMemoView := frReport1.FindObject('COMUNE') as TfrMemoView;
aMemo := frReport1.FindObject('COMUNE') as TfrView;

ex:

aMemoView := frReport1.FindObject('COMUNE') as TfrMemoView;
aMemoView.Alignment := taRightJustify;
aMemoView.FillColor := clBlue;
aMemoView.Font.Color := clWhite;
aMemoView.FrameColor:= clRed;
aMemoView.Frames:=[frbBottom, frbLeft, frbRight, frbTop];