Einzelnen Beitrag anzeigen

DaCoda

Registriert seit: 21. Jul 2006
Ort: Hamburg
158 Beiträge
 
Delphi 12 Athens
 
#1

Ein TDBRichedit zu einem TfrxRichview zuweisen mit Formatierung

  Alt 4. Jan 2025, 19:30
Datenbank: MariaDB • Version: 10 • Zugriff über: FireDAC
Wie kann ich einem TfrxRichView den kompletten inhalt eines TDBRichEdit zuweisen mit Formatierung ?

So habe ich es versucht, aber die Formatierung fehlt (?)

Code:
procedure TfrmMain.btnPrintRecipeClick(Sender: TObject);
var
  PictureView: TfrxPictureView;
  RichView: TfrxRichView;
  MemoView: TfrxMemoView;
begin
  if dmMain.tblRezepte.RecordCount > 0 then begin
    try
      PictureView := dmMain.frxReport.FindObject('Picture') as TfrxPictureView;
      PictureView.Picture.bitmap.FreeImage;
      PictureView.Picture.assign(dbiBild.Picture);

      RichView := dmMain.frxReport.FindObject('RichText') as TfrxRichView;
      RichView.Clear;
      RichView.RichEdit.Text := dbreRezept.Text;

      MemoView := dmMain.frxReport.FindObject('Memo') as TfrxMemoView;
      MemoView.Clear;
      MemoView.Text := dbreRezept.Text;

      dmMain.frxReport.PrepareReport(True);
      dmMain.frxReport.ShowPreparedReport;
    except
      // TODO
    end;
  end;
end;
Debuggers don’t remove bugs, they only show them in slow-motion.
  Mit Zitat antworten Zitat