StringGrid: Aussehen ändern

[Tubos]

Hallo;

kann man in einem Stringgrid
a) die Schrift in den Zellen zentrieren?
b) Eine Hintergrundfarbe für einzelne Zeilen / Spalten oder Zellen festlegen?
Wenn ja, wie?

[toms]

Hi,

Zitat:

a) die Schrift in den Zellen zentrieren?

stringgrid zentrieren delphi

Zitat:

b) Eine Hintergrundfarbe für einzelne Zeilen / Spalten oder Zellen festlegen?

stringgrid farben delphi

[Tubos]

Danke!

[Tubos]

Der Code zum Text ausrichten funktioniert bei mir nicht:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 

  procedure WriteText(StringGrid: TStringGrid; ACanvas: TCanvas; const ARect: TRect; 
    const Text: string; Format: Word); 
  const 
    DX = 2; 
    DY = 2; 
  var 
    S: array[0..255] of Char; 
    B, R: TRect; 
  begin 
    with Stringgrid, ACanvas, ARect do 
    begin 
      case Format of 
        DT_LEFT: ExtTextOut(Handle, Left + DX, Top + DY, 
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text), Length(Text), nil); 

        DT_RIGHT: ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY, 
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text), 
            Length(Text), nil); 

        DT_CENTER: ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text)) div 2, 
            Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect, 
            StrPCopy(S, Text), Length(Text), nil); 
      end; 
    end; 
  end; 

  procedure Display(StringGrid: TStringGrid; const S: string; Alignment: TAlignment); 
  const 
    Formats: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER); 
  begin 
    WriteText(StringGrid, StringGrid.Canvas, Rect, S, Formats[Alignment]); 
  end; 
begin 
  // Right-justify columns 0-2 
  // Spalten 0-2 rechts ausrichten. 
  if ACol in [0..2] then 
    Display(StringGrid1, StringGrid1.Cells[ACol, ARow], taRightJustify) 

    // Center the first row 
    // Erste zeile zentrieren 
    if ARow = 0 then 
      Display(StringGrid1, StringGrid1.Cells[ACol, ARow], taCenter) 
  end;

Es sind weiterhin alle Zellen links ausgerichtet.

[kiar]

das sollte funktionieren:

Delphi-Quellcode:

 
with grid do
 begin
   Rect:= Cellrect(ACol, ARow);
   Canvas.Brush.color:=clred;
   Canvas.FillRect(Rect);
   DrawText(Canvas.Handle, PChar(sText),
            length(sText), Rect, DT_Singleline or DT_Center or DT_VCenter);
end;

das ganze im drawcell des grid's
raik