HI Tobias,

I've tried something like this:

procedure TfmMainForm.edLoggingGetDisplayText(Sender: TObject; ACol, ARow:
Integer; var AString: String);
var
tmpFld: TIB_Column;
begin
with TIB_Grid(Sender).DataSource.Dataset do begin
if Active and (ARow > 0) then begin
BufferRowNum := TIB_Grid(Sender).DataRow[ARow];
if BufferRowNum > 0 then begin
tmpFld :=
TIB_Grid(Sender).GridFields[TIB_Grid(Sender).DataCol[ACol]];
if Assigned(tmpFld) then begin
if tmpFld.IsNull then begin
AString := '<null>';
end else begin
if (tmpFld.FieldName = 'ALTERWERTBLOB') or (tmpFld.FieldName =
'NEUERWERTBLOB') then begin
AString := '(BLOB)';
end else begin
// AString := tmpFld.AsString;
end;
end;
end;
end;
end;
end;
end;

But there is a strange behavior when scrolling in the IB_Grid. Wrong values
are displayed in the cells.

Thomas

> -----Original Message-----
> From: Tobias Giesen [mailto:tobias_subscriber@...]
> Sent: Tuesday, August 14, 2001 2:22 PM
> To: IBObjects@yahoogroups.com
> Subject: RE: [IBO] Customizing TIB_Grid (2)
>
>
> Hi!
>
> I think you should be able to do that using the OnGetDisplayText event. If
> you need to change the appearance for editing cells also, you must use
> OnGetEditText and OnSetEditText, too.
>
> Cheers,
> Tobias
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>
>