Mir ist aufgefallen, dass du mit
Delphi-Quellcode:
Canvas.Brush.Color := clBlue;
Canvas.Font.Color := clWhite;
Canvas.Font.Style := [fsbold];
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
Canvas.FrameRect(Rect);
eine mir ungewohnt erscheinende Art der Ausgabe verwendest. Offensichtlich funktioniert sie, aber üblicherweise schaut das eher so aus..
Delphi-Quellcode:
Canvas.Brush.Color := clBlue;
Canvas.FillRect(Rect);
Canvas.Font.Color := clWhite;
Canvas.Font.Style := [fsbold];
Canvas.Textout(Canvas.Handle,Rect.Left+2,Rect.Top+2,PChar(Cells[acol,arow]),length(cells[acol,arow]));
Flackert es auch mit dieser Ausgabeversion?