DB durchsuchen und dbgrid einfärben

foxy · Verfasst: Mo 13.01.03 09:40

guden ... mal ne frage ... also durchsuchen geht soweit der findet dann den Datensatz, nur würde ich gerne wenn er das findet dies ka blau färben

zu den daten
Paradox7 DB, Daten im DBgrid ausgegeben und suche tue ich mit dem code

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

try
   Table1.Locate('Firma',Edit1.Text,[loCaseInsensitive]);
   Table1.Locate('Produktarten',Edit2.Text,[loCaseInsensitive]);
 finally
   Pagecontrol1.ActivePageIndex:=2;
   Edit1.Clear;
   Edit2.Clear;
 end;

also einfach der gefundene datensatz enfärben...

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

Mash · Hält's aus hier Beiträge: 2

Moin,

versuch's mal hiermit:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TFrmMain.DBGridQueryDrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
var
   Grid: TDBGrid;
   Schrift, Hintergrund: TColor;
begin
   Grid := TDBGrid(Sender);
   Hintergrund := clWhite;
     if (Field.FieldName = 'IrgendeinWert') then //hier zu prüfendes Feld einfügen
       if (Field.AsFloat > 0) then // Bedingung
         Schrift := clGreen
       else
         Schrift := clRed // negative Werte rot, positive Werte grün
     else
       Schrift := clBlack; // alle anderen Felder <> 'IrgendeinFeld' schwarz

  Grid.Canvas.Font.Color := Schrift;
  Grid.Canvas.Brush.Color := Hintergrund;
  Grid.DefaultDrawDataCell(Rect, Field, State);
end;

Gruß
mash

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme