Показать сообщение отдельно
  #18  
Старый 11.01.2013, 01:07
sorockinalex sorockinalex вне форума
Начинающий
 
Регистрация: 08.08.2012
Сообщения: 178
Репутация: 10
По умолчанию

блин, опять та же байда, не пойму в каком месте, теперь и 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 столбца, а первый и последний скрыты...
Ответить с цитированием