Einfach nur Spalte von Stringgrid färben

[Die Muhkuh]

Mach mal einen Doppelklick auf "OnDrawCell" :zwinker:

[Razor90]

Okay...supi...ich habs hinbekommen...danke für eure Hilfe. mfg Razor

[DeddyH]

Nun hab ich mir die Mühe gemacht und einen Source zusammengepfriemelt... egal, nun poste ich den auch :mrgreen:

Delphi-Quellcode:

procedure TForm21.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const colors: array[Boolean] of TColor = (clWhite,clRed);
begin
  with Sender as TStringGrid do
    if (ACol >= FixedCols) and (ARow >= FixedRows) then
      begin
        Canvas.Brush.Color := colors[ACol = FixedRows];
        Canvas.FillRect(Rect);
        DrawText(Canvas.Handle,
                 PChar(Cells[ACol, ARow]),
                 -1,
                 Rect,
                 DT_CENTER or DT_VCENTER or DT_SINGLELINE);
      end; 
end;

[Razor90]

Danke nochmal an DeedyH für das Bemühen!!!