FastReport: TfrxDBCrossView získanie jeho TfrxMemoView

[Stanislav Hruška]

V helpe som nič nenašiel.Všetkým bez rozdielu chcem nastaviť veľkosť fontu. Ale neviem ich programovo získať!
Ako sa to robí?

[Radek Červinka]

Myslim, ze jsem to nastavoval na sloupci, ale programove mi to neslo.

[Stanislav Hruška]

Try to use TfrxDBCrossView(frxReport1.FindObject('DBCross1')).CellMemos.Font

Kód: Delphi [Vybrat]

1.   TfrxDBCrossView(CrossView).CellMemos[0].Font.Size := FFontSize.Value;
2.   TfrxDBCrossView(CrossView).CellMemos[1].Font.Size := FFontSize.Value;
3.   TfrxDBCrossView(CrossView).CellHeaderMemos[0].Font.Size := FFontSize.Value;
4.   TfrxDBCrossView(CrossView).RowMemos[0].Font.Size := FFontSize.Value;
5.   TfrxDBCrossView(CrossView).ColumnMemos[0].Font.Size := FFontSize.Value;
6.   TfrxDBCrossView(CrossView).RowMemos[0].Font.Size := FFontSize.Value;

[Stanislav Hruška]

Ešte jedno doplnenie. Ak sú v bunke použité podmienky

Kód: Delphi [Vybrat]

1. TfrxDBCrossView(CrossView).CellMemos[0].Highlights.Items[1].Font.Size := FFontSize.Value;
2. TfrxDBCrossView(CrossView).CellMemos[0].Highlights.Items[2].Font.Size := FFontSize.Value;
3.  
4.  
5. //  Samozrejme, je možné použiť cykly
6.   for var I := 0 to TfrxDBCrossView(CrossView).CellFields.Count -1 do
7.     TfrxDBCrossView(CrossView).CellMemos[I].Font.Size := FFontSize.Value;
8.