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