Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

Chargement RichMemo


Sujet :

Lazarus Pascal

  1. #1
    Membre du Club
    Chargement RichMemo
    Bonjour

    J'ai un problème avec richmemo, je charge un fichier rtf avec
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    RichMemo1.Lines.LoadFromFile('monfichier.rtf');

    tous les caractères sont affichés ({\rtf1\ansi\ansicpg1252\deff0\deflang1033\deflangfe1036\deftab708{\fonttbl{\f0.....)

  2. #2
    Expert confirmé
    hello,
    pour charger un fichier rtf avec le composant richmemo, il faut utiliser la fonction LoadRichText comme ceci par exemple :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    var
      FS: TFileStream;  
    begin
      FS := TFileStream.Create('example.rtf', fmOpenRead or fmShareDenyNone);
      try
        RichMemo1.LoadRichText(FS);
      finally
        FS.Free
      end;
    end;


    Ami calmant, J.P
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  3. #3
    Membre du Club
    merci
    le fichier s'affiche bien mais je n'arrive pas à l'imprimer avec RichMemo.print

  4. #4
    Membre du Club
    L'impression marche, je n'avait pas initialisé TPrintParams.

###raw>template_hook.ano_emploi###