Hallo,
ich dachte, dass es sich vielleicht um ein generelles Problem handelt und hatte deshalb keinen Code mitgeschickt...
Also nachfolgend der Code und im Anhang ein Bild mit der Darstellung im Programm.
Delphi-Quellcode:
procedure TFAsuchen.DispoDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var Gird : TStringGrid;
Size : TSize;
begin
Gird := TStringGrid(Sender);
//Text aussgeben
Gird.Canvas.TextRect(Rect,Rect.Left, Rect.Top, Gird.Cells[ACol, ARow]);
if Dispo.Cells[8,Arow]='1' then
begin
Dispo.Canvas.Font.Color:=clblue;
end;
if Dispo.Cells[8,Arow]='2' then
begin
Dispo.Canvas.Brush.Color := clYellow;
Dispo.Canvas.Font.Color:=clblue;
end;
Dispo.Canvas.FillRect(Rect);
Dispo.Canvas.TextOut(Rect.Left, Rect.Top, Dispo.Cells[ACol, ARow]);
end;
Zu dem Bild: Die Daten stehen in den richtigen Feldern, es geht nur um die Gitternetzlinien.
Vielen Dank
Ykcim