блин, опять та же байда, не пойму в каком месте, теперь и D7 версия другая стоит 7.3.4.3. build 8.1.
Вот скриншот (мультивыбор отключен, все события формы такие же как описано выше):
http://saveimg.ru/show-image.php?id=...3e6fc3c23a01c5
Может эта процедура неправильно работает всё же?
Код:
procedure TFRelEqAddEvent.EventsStringGridDrawCell(Sender:
TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
//Жирный заголовок
if ARow = 0 then
(Sender as TStringGrid).Canvas.Font.Style := [fsBold]
else
(Sender as TStringGrid).Canvas.Font.Style := [];
(Sender as TStringGrid).Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, (Sender as
TStringGrid).Cells[ACol, ARow]);
end;
Может быть потому, что в стринггриде 3 столбца, а первый и последний скрыты...