Einzelnen Beitrag anzeigen

apm

Registriert seit: 22. Nov 2010
28 Beiträge
 
#6

AW: DBGrid Darstellungs-Text "umwandeln"

  Alt 15. Mär 2013, 12:06
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.
  Mit Zitat antworten Zitat