Discussion :

[AlainBourgeois]

Bonjour,

j'ai une table oracle avec un champs clob comprenant un texte RTF.
J'aimerais afficher (pas éditer) cette valeur dans un TDBCtrlGrid.
Le composant TDBRichEdit ne peut être placé dans un TDBCtrlGrid.
Je peux y placer un TDBMemo, mais le champs est illisible.

Y a-t'il moyen d'afficher le texte non formatté dans le TDBMemo?
Comment?

Merci,
Alain

[totoche76]

Hello,

Suggestions:
- un champ calculé sur ton TQuery + un TDBRichEdit masqué sur le TForm: sur l'événement OnCalcFields du TQuery, tu récupères le contenu du TDBRichEdit et tu l'affectes à ton champ calculé. Le TDBMemo affiche le contenu du champ calculé.
- Si tu as définis les champs sur ton TQuery, travailles sur le OnGetText du champ correspondant à ton RTF (en utilisant un TDBRichEdit ou un TRichEdit bidons ou n'importe quoi qui te renverras le texte sous une forme "présentable")

[AlainBourgeois]

"Si tu as définis les champs sur ton TQuery, travailles sur le OnGetText du champ correspondant à ton RTF".
J'ai essayé, l'évènement OnGetText n'est même pas déclenché (bcb 2010).

[totoche76]

J'ai essayé, l'évènement OnGetText n'est même pas déclenché (bcb 2010).

Le TDBMemo et le TxxxField pointent sur le même champ ?
Est-ce qu'il y'a au moins un OnGetText qui fonctionne (j'imagine que tu as d'autres champs affichés dans ton TDBCtrlGrid) ?

[AlainBourgeois]

En effet, le OnGetText est bien déclenché pour les autres champs.
Pour mon memo (qui est ReadOnly), il n'est pas déclenché.

J'ai essayé ceci dans le OnGetText d'un autre champs:

Code :

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

1
2
3
4
5
6
7
8
9
 
TRichEdit * toto=new TRichEdit(this);
TStringStream *x=new TStringStream(SQLevDetORDERCOMMENT->AsString);
toto->Parent=this;
toto->Lines->LoadFromStream(x);
toto->PlainText=true;
DBMemo2->Text=toto->Lines->Text;
delete x;
delete toto;

mais j'ai un run-time error:
Field 'ORDERCOMMENT' cannot be modified.
sur la ligne DBMemo2->Text=toto->Lines->Text;

Donc, ca ne marche pas. Et je ne veux pas non plus que le champs soit modifié sans formattage, je veux juste l'afficher.

[totoche76]

Hello

Tu as encore la possibilité d'utiliser un champ calculé affiché dans un TDBMemo. La difficulté sera alors de récupérer le RTF sans son formatage:

Code :

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

1
2
3
4
5
void __fastcall TForm4::Query1CalcFields(TDataSet *DataSet)
{
  // ChampTest: champ calculé de type String
  Query1ChampTest->AsString = /**/Query1Notes->AsString;/**/ 
}

Si tu n'affiches qu'un seul panneau dans ton TDBCtrlGrid, tu peux encore dériver un composant de TDBRichEdit, et dans son constructeur mettre:

Code :

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

1
2
3
4
5
__fastcall TDBRichEditEx::TDBRichEditEx(TComponent* Owner)
: TDBRichEdit(Owner)
{
  ControlStyle = ControlStyle << csReplicatable;
}

Cela aura au moins le mérite d'afficher le contenu du RichEdit pour l'enregistrement courant.