Ich kenne das JediGrid zwar auch net, aber folgendes sollte auch damit funktionieren. Sonst teste mal einfach mit nem Standard Grid
Delphi-Quellcode:
procedure TForm1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
const tFormat = DT_SINGLELINE or DT_CENTER or DT_VCENTER;
var tText: String;
begin
with (Sender as TStringGrid) do begin
tText:= Trim(Cells[ACol, ARow]); // Text der Zelle
if (gdFixed in State) then begin // feste Zelle?
Canvas.Brush.Color:= clBtnFace; // HintergrundFarbe
end else if (gdSelected in State) then begin // markierte Zelle
Canvas.Brush.Color:= clHighlight;
Canvas.Font.Color:= clBlack;
end else begin // normale Zelle
Canvas.Brush.Color:= clWindow;
if tText = '2' then Canvas.Brush.Color:= clgreen;
// ...
// ...
end; // <> (gdFixed in State)
Canvas.FillRect(Rect); // Hintergrund zeichnen
DrawText(Canvas.Handle, PChar(tText), Length(tText), Rect, tFormat); // Textausgabe
end; // with
end;
evtl. musst Du noch ACol, ARow in Col, Row umbenennen. DefaultDrwaing auf True
LG Mario