TStringGrid OnDrawCell - Bestimmte Felder makieren

[Volker Z.]

Zitat:

Nö, das ist ein harter Typecast.

Stimmt. Besser:

Delphi-Quellcode:

var
  f : TFormat;
begin
  if StringGrid1.Objects [ACol, ARow] is TFormat then
    begin
      f := TFormat (StringGrid1.Objects [ACol, ARow]);

      StringGrid1.Canvas.Font.Color := f.Color;
      StringGrid1.Canvas.Font.Style := f.Style;
      // usw.
    end
end;

Gruß

[Mazen]

Vielen Dank :)
Funktioniert genau so wie ich es mir vorgestellt habe. Problem bei meiner Methode wäre auch gewesen wenn ich noch weitere Formatierungen hätte vornehmen wollen wäre das in einem Chaos geendet^^

Kann mir jemand sagen wo hierbei mein Fehler bei der Textausrichtung ist?
Den Codeschnipsel hab ich so gefunden:

Delphi-Quellcode:

procedure TfrmMain.StringGridAlignment(Grid: TStringGrid; Rect: TRect; ACol, ARow: Integer;
  Alignment: TAlignment; LineBreak: Boolean);
var
  TextOut: string;
begin
  Grid.Canvas.FillRect(Rect);
  TextOut := Grid.Cells[ACol,ARow];
  if LineBreak = false then
  begin
    if Alignment = taLeftJustify then
      DrawText(Grid.Canvas.Handle, PChar(TextOut), StrLen(PChar(TextOut)), Rect,DT_LEFT);
    if Alignment = taCenter then
      DrawText(Grid.Canvas.Handle, PChar(TextOut), StrLen(PChar(TextOut)), Rect,DT_CENTER);
    if Alignment = taRightJustify then
      DrawText(Grid.Canvas.Handle, PChar(TextOut), StrLen(PChar(TextOut)), Rect,DT_RIGHT);
  end
  else
  begin
    if Alignment = taLeftJustify then
      DrawText(Grid.Canvas.Handle, PChar(TextOut), StrLen(PChar(TextOut)),
      Rect,DT_LEFT+DT_WORDBREAK);
    if Alignment = taCenter then
      DrawText(Grid.Canvas.Handle, PChar(TextOut), StrLen(PChar(TextOut)), Rect,
      DT_CENTER+DT_WORDBREAK);
    if Alignment = taRightJustify then
      DrawText(Grid.Canvas.Handle, PChar(TextOut), StrLen(PChar(TextOut)), Rect,
      DT_RIGHT+DT_WORDBREAK);
  end;
end;

Aufgerufen wird es in OnDrawCell

Delphi-Quellcode:

StringGridAlignment(StringGrid1,Rect,ACol,ARow,c.TextAlign,false);

Und gesetzt wird der Wert hier

Delphi-Quellcode:

c.TextAlign := taCenter;

Hab auch mal probiert im OnDrawCell direkt "taCenter" einzugeben. Hat aber nicht funktioniert, daher muss es an dem oberen Codeschnipsel liegen.

[DeddyH]

Versuch es mal mit DT_LEFT or DT_SINGLELINE.

[Mazen]

Geht leider auch nicht. Der Text bleibt linksbündig.

[Volker Z.]

Zitat:

Geht leider auch nicht. Der Text bleibt linksbündig.

Liege ich mit meiner Vermutung richtig, dass Du Zelleninhalte verarbeiten möchtest, die mehr Platz in Anspruch nehmen als das Rect bietet (LineBreak)?

Wenn ja, dann versuch mal die Zellenhöhe anzupassen vor dem Zeichnen (Drawtext).

Gruß

[Mazen]

Nein, die Texte in den Zellen sind ausnahmslos kürzer als die Zellen breit sind.
Und einen Linebreak hab ich auch keinen in meinem Text.

[Bummi]

hasst Du dem Debugger mal geprüft ob Du in

Delphi-Quellcode:

if Alignment = taCenter then

ankommst?

[Mazen]

Ja hab ich schon gemacht. Da kommt er hin.

[Volker Z.]

Zitat:

Und einen Linebreak hab ich auch keinen in meinem Text.

Sorry war von mir vielleicht missverständlich formuliert; ich meinte den Parameter LineBreak

Zitat:

Hab auch mal probiert im OnDrawCell direkt "taCenter" einzugeben. Hat aber nicht funktioniert, daher muss es an dem oberen Codeschnipsel liegen.

Wenn ich das Code-Schnipsel kopiere und in StringGrid1DrawCell folgendes Aufrufe

Delphi-Quellcode:

StringGridAlignment (StringGrid1, Rect, ACol, ARow, taCenter, False)

wird der Zelleninhalt zentriert ausgegeben.

Gruß

[Mazen]

Lasse ich die letzte Zeile, also

Delphi-Quellcode:

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

weg, dann ist der Text zwar zentriert, aber nicht mehr fett :/
Laut Hilfe soll es für TextRec() einen fünften Parameter geben, "Textflag", setze ich den aber kommt die Meldung "zu viele Parameter"...