Heb de code aangepast.
De dubbele letters zijn weg, en er wordt pas vanaf rij 1 gekleurd :-)
Nu nog even gaan stoeien met het voorbeeld wat PSTERK voorstelt, kijken of ik dit voor elkaar krijg.
(Kun je mischien een klein stukje voorbeeld code geven ??)
Delphi Code:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
CelTekst : String;
const
grens = 2;
begin
CelTekst := StringGrid1.Cells[ACol, ARow];
if (ACol = 1) and (ARow > 0) then // bestandsnaam in kolom 1, en vanaf rij 1
begin
if not FileExists(IncludeTrailingBackslash(edt2.Text) + CelTekst + '.pdf') then
begin
StringGrid1.Canvas.Font.Color := clRed;
end
else
begin
StringGrid1.Canvas.Font.Color := clWindowText;
end;
end;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left + grens, Rect.Top + grens, CelTekst);
end;
Bookmarks