Viewing a memo field type in dbgrid

[ffabio]

Ciao ragazzi sto cercando di visualizzare un campo memo in una dbgrid .

Ho un campo note, mi piacerebbe visualizzarlo tutto magari con le scol bar per poterlo
leggerlo.

Ho trovato questo codice : ma mi da errore Dec (R.Bottom, 2);
identifier not foud R ?

qualcuno ha qualche idea

Procedure TForm1.DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
A: TRect;
begin
A: = Rect;
Dec (R.Bottom, 2);
if Column.Field = Table1Memo Then
begin
if not (in gdSelected State) then
DBGrid1.Canvas.FillRect (Rect);
DBGrid1.Canvas.TextRect (R, R.Left, R.Top,
Table1Memo.AsString, Integer (AlignmentFlags_WordBreak));
end;
end;

[Stilgar]

Prova a rinominare la variabile a in r 😊

[xinyiman]

Consiglio spassionato, evita come la peste i memo dentro una grid. Sono brutti da vedere e difficili da gestire. Piuttosto fai un cast del campo e fallo diventare un varchar di mille caratteri ad esempio.

[ffabio]

xinyiman dici ? ma riesco a fare la cella piu' corta su piu' righe e scorrevole

[xinyiman]

Questo non te lo so dire. non ne ho mai avuto necessità. Altrimenti metti una TMemo fuori dalla griglia e la popoli al cambio di riga della griglia. Poi quando ottieni un onchange sulla TMemo automaticamente ne salvi il contenuto nel campo che visualizzi attraverso la memo. Non è elegantissimo ma fa il suo lavoro dignitosamente e così non ti serve neanche il cast

[Stilgar]

Come è andato il cambio della variabile?

[ffabio]

Ciao Stilgar ma .... si quella era ok

poi mi dava errore su Table1Memo .....
e non saprei cosa vuole ... mi rimane sempre il dubbio di come sarebbe venuto.


Adesso provo seguire la strada di xinyiman .

[Stilgar]

poi mi dava errore su Table1Memo .....

Che errore ti dava?

[Avogadro]

" evita come la peste i memo dentro una grid. Sono brutti da vedere e difficili da gestire"

Concordo.

Personalmente io risolvo così: non metto i campi meno nella dbgrid, setto la medesima  a "read only" e per l'editing mi poggio su una form dove utilizzo l'oggetto memo per editare i campi in cui è richiesto molto testo.

Questo approccio si è rivelato molto piu' comodo che stare li a fare editing nelle stiminzite righe della dbgrid.

E' possibile gestire sia l'ampiezza, sia l'altezza delle righe di una dbgrid in maniera tale che il testo sia intermente visibile ed editabile a run-time  e se serve posso postare il codice che ho usato; purtuttavia questo approccio, seppur comodo, diventa pesanate quando si hanno molti record da scorrere , per applicazioni in remoto la cosa diventa ingestibile se non si ha una rete adeguata.

In sintesi: mettere sulla db grid solo i campi essenziali (e magari metterla read only per prevenire modifiche accidentali dei dati); per l'edit poggiarsi su una form che si apre a run time usando in essa i componenti dell' ide che sono molto comodi, memo* e scroll box compresi.

Unica difficoltà: ho problemi con il rich text; sulla libreria RX di Delphi c'era un buon componente rich text ma non trovo la versione per Lazarus.

Saluti


* per passare il testo dal campo al memo e viceversa basta "vedere" entrambi come una stringa di caratteri.