nochmals StringGridDrawcell

[Keldorn]

Zitat von fl63:

4spaltige Wiederholung der Zelle 1,1 und keine Farbe

dann liegt das problem wahrscheinlich an acol und arow:

Zitat:

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

...

das A vor Acol und Arow ist sehr wichtig (du mußt es auch noch im interfaceTeil ändern)

Ansonsten verwendest du mit with (sender asstringgrid) do ... cells[col,row] nicht die beiden Übergebenen col und row sondern sg1.col und sg1.row = die aktuell selektierte Zelle. Damit steht dann auch immer das gleiche in allen Zellen drin.

Gruß Frank