Подскажите как боротся с шириной колонок в Grid.
Программно указываю курсор данных, указываю ширину всех колонок.
При первом открытии все нормально, а вот когда повторно делаешь, то ширина колонок становиться в соответствии с типом данных в этом курсоре.

И он как бы игнорирует что я ему явно задаю размеры.
Что делать?

gr1='thisform.grid1.'

bbb="select SchKod, Naim, KodFidera, KodTr, NomerSch, TipSch, KFTR, Poteri, Tarif*1000 as Tarif, ;
PokazS*1000 as PokazS, PokazN*1000 as PokazN, Priz from SchFider where SchKod like '"+permkr+"%'"
sqlexec(aaa,bbb,'fider')

select SchKod, Naim, KodFidera, KodTr, NomerSch, TipSch, KFTR, Poteri, round(Tarif/1000,3) as Tarif,;
round(PokazS/1000,3) as PokazS, round(PokazN/1000,3) as PokazN, Priz from Fider into cursor Fider

&gr1.recordsource=.null.
&gr1.recordsource='fider'
&gr1.visible=.t.
&gr1.Column1.width=40
&gr1.Column2.width=90
&gr1.Column3.width=45
&gr1.Column4.width=55
&gr1.Column5.width=50
&gr1.Column6.width=50
&gr1.Column7.width=40
&gr1.Column8.width=40
&gr1.Column9.width=40
&gr1.Column10.width=50
&gr1.Column11.width=50
&gr1.Column12.width=25
&gr1.Column1.header1.caption='ÊîäÑ÷'
&gr1.Column2.header1.caption='Íàèìåíîâàíèå'
&gr1.Column3.header1.caption='ÊîäÔèä'
&gr1.Column4.header1.caption='ÊîäÒð'
&gr1.Column5.header1.caption='ÍîìåðÑ÷'
&gr1.Column6.header1.caption='ÒèïÑ÷'
&gr1.Column7.header1.caption='ÊÒÒ'
&gr1.Column8.header1.caption='Ïîòåðè'
&gr1.Column9.header1.caption='Òàðèô'
&gr1.Column10.header1.caption='Áûëî'
&gr1.Column11.header1.caption='Ñòàëî'
&gr1.Column12.header1.caption='Ï'
&gr1.FontSize=7
&gr1.refresh

Я делаю вот так!
Что здесь не так?

Спасибо за подсказку, но я уже в проблеме разобрался.
Нужно было размер щрифта ставить не для всей таблицы, а для каждого Header.

Как ни странно, после этого заработало.

На счет макроподстановки просто старая привычка, теперь переделал:

with thisform.grid1
.recordsource=.null.
.recordsource='fider'
.visible=.f.
.visible=.t.
.Column1.width=40
.Column2.width=90
.Column3.width=45
.Column4.width=55
.Column5.width=50
.Column6.width=50
.Column7.width=40
.Column8.width=40
.Column9.width=40
.Column10.width=50
.Column11.width=50
.Column12.width=25
.Column1.header1.caption='ÊîäÑ÷'
.Column2.header1.caption='Íàèìåíîâàíèå'
.Column3.header1.caption='ÊîäÔèä'
.Column4.header1.caption='ÊîäÒð'
.Column5.header1.caption='ÍîìåðÑ÷'
.Column6.header1.caption='ÒèïÑ÷'
.Column7.header1.caption='ÊÒÒ'
.Column8.header1.caption='Ïîòåðè'
.Column9.header1.caption='Òàðèô'
.Column10.header1.caption='Áûëî'
.Column11.header1.caption='Ñòàëî'
.Column12.header1.caption='Ï'
endwith
i=1
do while i<13
gr1='thisform.grid1.Column'+alltrim(str(i))+'.'
&gr1.Header1.FontSize=7
i=i+1
enddo