TStringGrid OnDrawCell - Bestimmte Felder makieren

[Mazen]

Der Ansatz gefällt mir. Scheint übersichtlicher und auch was die Performance angeht besser zu sein.

Allerdings hab ich noch ein paar Fragen.

Delphi-Quellcode:

var
  f : TFormat;
begin
  f := TFormat (StringGrid1.Objects [ACol, ARow]); *1
  if Assigned (f) then
    begin
      StringGrid1.Canvas.Font.Color := f.Color;
      StringGrid1.Canvas.Font.Style := f.Style;
      // usw.
    end
end;

*1 Du erzeugst hier doch erst eine neue Instanz der Klasse TFormat oder nicht? Dementsprechend wären die Werte f.Color und f.Style doch immer dieselben, und zwar die, die im Konstruktor vergeben wurden? Oder nicht?

[DeddyH]

Nö, das ist ein harter Typecast.

[Mazen]

Nach längerem überlegen hab ichs glaub ich.
Ich muss im Vorfeld also ein Objekt der Klasse TFormat erzeugen und die dem Objekt-Array das Stringgrids zuweisen.
Und das kann ich dann wie oben auswerten?!
Ich werds so einfach mal probieren.

[DeddyH]

So isses. Da Objects ja nun einmal TObject enthält, musst Du auf TFormat casten, wenn Du an dessen Properties und Methoden herankommen willst.

[Volker Z.]

Zitat:

*1 Du erzeugst hier doch erst eine neue Instanz der Klasse TFormat oder nicht? Dementsprechend wären die Werte f.Color und f.Style doch immer dieselben, und zwar die, die im Konstruktor vergeben wurden? Oder nicht?

Nein. Die Instanz der Formatklasse legst Du beim "Füllen" Deines Grids an.

Delphi-Quellcode:

f := TFormat.Create;
f.Color := clRed;
f.Style := [fsBold];

StringGrid1.Cells[1, 1]    := 'Testdaten';
StringGrid1.Objects [1, 1] := f;

So sollte es tun.

Im Destructor dann noch über alle Zeilen, Spalten laufen Assigned (StringGrid1.Object[i, j]) testen und ggf. freigeben.

Gruß

[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

StringGridAlignment(StringGrid1,Rect,ACol,ARow,c.TextAlign,false); Und gesetzt wird der Wert hier

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ß