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