В программе есть такой изврат. Модальная форма, на ней фрейм, во фрейме панель, на панели StringGrid. Проблема в том, что я не могу никак поменять Size шрифта в StringGrid'e.
Вот так не работает:
Код:
1 2 3 4 5 | procedure TFrame1 . StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer ;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1 . Canvas . Font . Size:= 24 ;
end ;
|
Вот так работает (из главной формы):
Код:
1 | Form6 . Frame11 . StringGrid1 . Font . Size:= 4 ;
|
Но шрифт меньше 8 поставить нельзя. Никто не в курсе почему?