|
Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
Delphi 11 Alexandria
|
AW: Suchfunktion im StringGrid
23. Feb 2015, 15:18
Delphi-Quellcode:
if AnsiPos(edtSuchen.Text, cells[acol, arow]) > 0 then
Canvas.Brush.Color := clred
else
Canvas.Brush.Color := $00FFEBDF;
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
|