Farbe von Textkomp. auf DBCtrlGrid aufgrund Feldwert ändern?

**mschaefer**

Moin, moin

Habe ein DBText abgeleitet und möchte seinen Wert auf einem TDBCtrlGrid anzeigen lassen.
Es handelt sich um einen Zahlenwert, der in dem zugehörigen Datenbankfeld vorliegt.

FRAGE: Wie ist es möglich auf eine TDBCtrlGrid das TDBText1-Feld in verschienden Farben
anzeigen zu lassen in Abhängigkeit des Zahlenwertes (z.B.: gerade/ungerade) ?

zusammenfalten · markieren

Delphi-Quellcode:

			unit DBText1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls;

{                                                                              }

type

  TDBText1 = class(TDBText)

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

  published

  end;

procedure Register;

{                                                                              }

implementation

{                                                                              }

procedure Register;

begin

  RegisterComponents('Beispiele', [TDBText1]);

end;

constructor TDBText1.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  ControlStyle      := ControlStyle + [csReplicatable];

end;

destructor TDBText1.Destroy;

begin

  inherited Destroy;

end;

{                                                                              }

end.

Viele Grüße // Martin

Farbe von Textkomp. auf DBCtrlGrid aufgrund Feldwert ändern?

Farbe von Textkomp. auf DBCtrlGrid aufgrund Feldwert ändern?

Forumregeln