Autor Téma: FastReport: TfrxDBCrossView získanie jeho TfrxMemoView  (Přečteno 492 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7392
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1

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í?
Win11 64b, Delphi 11.3.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline Radek Červinka

  • Administrátoři
  • Padawan
  • *****
  • Příspěvků: 3464
  • Karma: 112
    • Verze Delphi: D2007, DXE + 2 poslední
    • O Delphi v češtině
Re:FastReport: TfrxDBCrossView získanie jeho TfrxMemoView
« Odpověď #1 kdy: 27-09-2023, 23:11:47 »
Myslim, ze jsem to nastavoval na sloupci, ale programove mi to neslo.
Embarcadero MVP - Czech republic

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7392
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
Re:FastReport: TfrxDBCrossView získanie jeho TfrxMemoView
« Odpověď #2 kdy: 28-09-2023, 15:11:34 »

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;
« Poslední změna: 28-09-2023, 15:32:25 od Stanislav Hruška »
Win11 64b, Delphi 11.3.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7392
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
Re:FastReport: TfrxDBCrossView získanie jeho TfrxMemoView
« Odpověď #3 kdy: 29-09-2023, 08:50:38 »
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.  
Win11 64b, Delphi 11.3.1, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.