Discussion :

[kurkaine]

Bonsoir,

Mon TQRMemo est utilisé comme un composant QRDB, c'est à dire lié à une table. C'est parceque je veux écrire du texte en vertical que je dois passer par ce composant, donc effectué un traitement pour chaque enregistrement dans ma table (sinon j'aurai directement utilisé un QRLabel). Lorsque je veux imprimer les docs, il n'y a pas de mise à jour dans les Mémos, ils contienent tous la même valeurs correspondant au premier enregistrement de ma table.

Du coup, ou mettre le code permettant le traitement d'un Memo correspondant pour chaque enregistrement dans ma table ????

[jordy16]

salut ,

tu le place ou ton QRMemo ??

Tu le mets bien ans une bande détail ??

[kurkaine]

Dans un Détail. Je vais essayer de positionner dans un autre composant pour voir.

Mais sur le principe, c'est possible d'utiliser un TQRMemo comme un champ TQRDB ?

[kurkaine]

ça n'imprime pas. J'ai fait plein de test, mais je ne suis pas parvenu à imprimer un TQRMemo différent pour chaque enregistrement. Si qq'un sait ocmment faire

[Sunchaser]

Bonjour,

A mon humble avis, il te faut coder l'affichage dans l'évènement OnBeforePrint de la bande de détail qui contient le TQRMemo.
(Si ce n'est pas déja fait, évidemment)
Le TQRMemo n'est pas un composant fait pour afficher directement la valeur d'un champ d'une table, il ne 'suit' donc pas le 'déroulement' de la table au moment de l'affichage.
(A chaque fois qu'une nouvelle DetailBand est affichée, tu es sur que tu es sur un autre enregsitrement, non ?)
C'est donc peut être pour ça que c'est toujour la même valeur affichée....
Ca vaudrais donc le coup de pouvoir jeter un oeil sur ton code.

@ +

[kurkaine]

En fait, mon code est basique, le voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    AnsiString str = QRDBText6->DataSet->FieldByName(QRDBText6->DataField)->AsString; //-- Récupère la valeur du DBText --//
 
    //-- Premier Memo -//
    LOGFONT lgfont;
    QRMemo1->Font->Size = 10;
    QRMemo1->Font->Name = "Times New Roman";
 
    if(GetObject(QRMemo1->Font->Handle, sizeof(LOGFONT), &lgfont))
    {
        lgfont.lfHeight = 12;
        lgfont.lfEscapement = 900;
        lgfont.lfOrientation = 900;
        lgfont.lfWeight = FW_BOLD;
        StrPCopy(lgfont.lfFaceName, "Times New Roman");
        lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS;
        QRMemo1->Font->Handle = CreateFontIndirect(&lgfont);
        SetGraphicsMode(QRMemo1->Handle, GM_ADVANCED);
        QRMemo1->Lines->Text= str;
    }

Il permet d'afficher un texte d'un QRDBxxx en verticale. Je passe par un QMemo car on ne peut pas le faire directement avec un DBxxx. Donc voici le code, je ne sais pas ou le mettre pour l'afficher à chaque fois. J'ai essayé tous les évènements associés au QReport, BeforePreview, BeforePrint... Rien à faire.

[Sunchaser]

Bonjour,

J'ai mis le même code dans l'évènement OnPrint du TQRBDText qui contient les valeurs a afficher dans le TQRMemo et .... ben ça semble fonctionner.
Petite modif :
tu n'as plus besoin dans ce cas de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AnsiString str = QRDBText1->DataSet->FieldByName(QRDBText1->DataField)->AsString; //-- Récupère la valeur du DBText --//

puisque la fonction a dans ses parametres la valeur du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
void __fastcall TForm::QRDBTextPrint(TObject *sender, AnsiString &Value)

Cela ne marche pas chez toi ?

@ +