Daten in einem DBGrid anders anzeigen (nicht TField.OnGetText)

[Der schöne Günther]

Ich habe ein TDataSet . Sagen wir, es hat nur eine Text-Spalte.
Und jetzt möchte ich im linken TDBGrid den Text anzeigen während der rechte TDBGrid den Text rückwärts anzeigen soll.

Arg konstruiert, aber ich denke das reicht.

Wie tue ich das? Das OnGetText -Event des Feldes der Tabelle setzen macht ja keinen Sinn, das beinflusst ja beide DBGrids.

[mkinzler]

Z.B. als berechnetes Feld

[TRomano]

Und das berechnete Feld "machst" Du entweder im SQL-Statement oder in den Methoden des TField ...

[Der schöne Günther]

Gibt es keine Möglichkeit die ohne die Datenkomponente (z.B. Query) jedes mal anzufassen wenn man an der ANZEIGE etwas drehen will. Ich kann doch nicht z.B. ständig vier Felder zurückgeben, wenn ich einmal in Zentimetern, einmal in Zoll. Einmal mit Nachkommastellen, einmal ohne...

[mkinzler]

Du kannst das auch "in" der Datenbank machen oder wenn es um die Anzeige geht, bei der Anzeige.

[Der schöne Günther]

Ich kenne mich mit Datenbanken nicht wirklich aus, deshalb so dumme Fragen.

Was ist denn die "Anzeige"? Ich dachte das sei mein TDBGrid .
Bei diesem komischen TDataSource -Proxy habe ich auch nichts gefunden.

[mkinzler]

Man kann das Zeichnen der Spalten im Grid auch selber durchführen (Ownerdraw) bzw. wenn es nur um die Formatierung der Werte geht, dass im TField erledigen.
Oder mann macht das bei der Abfrage

SQL-Code:

select 
  <Feld>, ReverseString(<Feld>) as MirrorFeld, ...

[Der schöne Günther]

Nein, wenn man das im TField (z.B. OnGetText ) macht wirkt sich dass ja auch auf alle anderen Anzeigen (z.B. andere TDBGrids) aus.

Das mit dem OwnerDraw scheint genau das zu sein wonach ich gesucht habe. Zwar unnötig umständlich, aber damit komme ich ans Ziel. Vielen Dank

[mm1256]

Ich benutze immer den Canvas des DBGrid um abweichende Anzeigen zu realisieren. "OnDrawColumnCell" ist dein Freund:

Delphi-Quellcode:

procedure TMyGrid.GridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.FieldName = 'MeinSpeziellesTextFeld') then
  with (Sender as TDBGrid).Canvas do begin
    . . .
  end;
end;

[Der schöne Günther]

Ganz genauso (nur ohne das with ) habe ich es auch gemacht, wieder etwas gelernt

Delphi-Quellcode:

   TDBGridHelper = class helper for TDBGrid
      public procedure writeText(const inRect: TRect; const text: String);
   end;

procedure TForm1.DBGrid1DrawColumnCell(
   Sender: TObject;
   const Rect: TRect;
   DataCol: Integer;
   Column: TColumn;
   State: TGridDrawState
);
var
   displayText: String;
begin
   if (Column.FieldName='someFancyField') and Assigned(Column.Field) then begin
      displayText := '***' + Column.Field.DisplayText + '***';
      (Sender as TDBGrid).writeText(Rect, displayText);
   end else
      (Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TDBGridHelper.writeText(
   const inRect: TRect;
   const text: String
);
const
   someMagicOffsetPx = 2; // Siehe TDBGrid::DefaultDrawColumnCell
begin
   Canvas.FillRect(inRect);
   Canvas.TextRect(
      inRect,
      inRect.Left + someMagicOffsetPx,
      inRect.Top + someMagicOffsetPx,
      text
   );
end;