Danke für die Infos!
Jetzt ist das Ganze doch ein wenig anders geworden. Ich habs ins DrawColumnCell gelegt, da ich dort schon ne Farbenänderung vorgenommen hab. Denkantöse um die richtigen Sachen zu finden haben dann zwar nochmal ein wenig gedauert aber hier die Lösung für das Prob:
Delphi-Quellcode:
procedure TF_Hotel_App_Inhalte.DBG_Content_EigenschaftDrawColumnCell(
Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
const i_memoLaenge = 40;
var s_ausgabe : String;
begin
with (Sender as TDBGrid) do
begin
if (D_Datenmodul.qu_app_menue_inhalte_content_eigenschaft.RecNo mod 2) = 0 then
Canvas.Brush.Color := clSkyBlue;
if Column.Field.IsBlob then
begin
Canvas.FillRect(Rect);
s_ausgabe := func_strVeraendernSpeichernLesen( copy(Column.Field.AsString, 1, i_memoLaenge) , false);
Canvas.TextOut(Rect.Left+2, Rect.Top+2, s_ausgabe);
end else begin
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Mit
func_strVeraendernSpeichernLesen wandel ich die Sonderzecihen in die richtige Ausgabe.