Anzeige der Daten im DBGrid zur Laufzeit ändern

[eddy]

Hallo kico,

vielleicht hilft Dir das weiter:

Code:

procedure TFBP.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Grid : TDBGrid;
  x, y : integer;
begin
  // selektierte Zeile wird original angezeigt
  if (gdSelected in State) or (gdFocused in State) then exit; 
  // alle anderen Zeilen
  Grid:= TDBGrid(Sender);
  s := lowercase(Grid.Columns.Items[DataCol].FieldName);     // wenn man den Feldnamen verwendet
  // die Spalte "einheit" enthält ST, PR, ....
  // im Beispiel wird "ST" zu "Stück", "PR" zu "Paar", 
  //   also kann man aus "0" auch "bestellt" machen
  // das funktioniert sowohl bei Feldern vom Typ ftString als auch vom Typ ftFloat   
  if s = 'einheit' then begin 
    tx := Grid.DataSource.DataSet.FieldByName(s).AsVariant;
    x := rect.Left+12;
    y := rect.Top+2;
    if tx = 'ST' then Grid.Canvas.TextOut(x, y, 'Stück');
    if tx = 'PR' then Grid.Canvas.TextOut(x, y, 'Paar');
  end;
end;

Ganz perfekt ist das Ganze leider nicht, da ich nicht herausgefunden haben, wie man den
ursprünglichen Inhalt des Feldes unterdrücken kann. Der Fehler wird sichtbar, wenn man die
Spalte breit genug zieht. Dann steht links "Stück" und irgendwo rechts daneben das originale "ST"
(Problem siehe Bild)

Aber vielleicht weiß da ja auch noch jemand eine Lösung.

mfg
eddy