Datenformular Oberfläche

[Hobby-Programmierer]

Moin...,
versuche mal folgendes:

Delphi-Quellcode:

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 // fixe Zelle
      // feste Zellen bleiben unberührt
     end // (gdFixed in State)
     else begin // nicht fixe Zellen
      if (gdSelected in State) then begin  // markierte Zelle
        Canvas.Brush.Color:= clHighlight;  // HintergrundFarbe selektierte Zelle
        Canvas.Font.Color:= clBlack;       // Schriftfarbe

       end else begin // normale Zelle
        if Odd(ARow) then // alle ungeraden Zeilen
          Canvas.Brush.Color:= clMoneyGreen  // einfärben
         else
          Canvas.Brush.Color:= clInfoBk;     //

      end; // <> (gdFixed in State)
      Canvas.FillRect(Rect);  // Hintergrund zeichnen
      DrawText(Canvas.Handle, PChar(tText), Length(tText), Rect, tFormat); // Textausgabe
      // formatierte Textausgabe könnte auch über ExtTextOut() erfolgen
    end; // nicht fixe Zellen
  end; // with
end;