Проблема с шириной столбцов в StringGrid

[Риндера]

Здасти еще разок.
Объясните мне пожалуйста, что за зверь этот СтрингГрид, никак не дрессируется?

Например:
Почему при ширине 180, ширине столбика 30 и количестве столбиков 6, в последнем стобике не достает чуть ли не половины? Есть версия, что из-за того, что отключен ScrollBar.

И еще:
StringGrid лежит в GroupBox. И вот этот код работает как-то криво:

Xm := Mouse.CursorPos.X - Main.Left - GroupBox1.Left;
Ym := Mouse.CursorPos.Y - Main.Top - GroupBox1.Top - 25;
if (Xm > StringGrid1.Left) and (Xm < StringGrid1.Left + StringGrid1.Width) and
  (Ym > StringGrid1.Top) and (Ym < StringGrid1.Top + StringGrid1.Height) then
    begin
    (Sender as TButton).Left := round(Xm / StringGrid1.ColCount) * StringGrid1.ColCount + StringGrid1.Left;
    (Sender as TButton).Top := StringGrid1.Top;
    //showmessage(inttostr(Xm)+'; '+inttostr(Ym));
    end;

По идее кнопочка должна становиться ровно в ту ячейку, где находился курсор, на момент исполнения кода, но становится значительно правее.

Просвятите пожалуйста ^_^

[Stilet]

StringGrid1.CellRect(Колонка, стрка) Даст координаты ячейки, так что тебе не придется ничего выдумывать.

Есть версия, что из-за того, что отключен ScrollBar.

Логичная версия. Проверь ее - отключи скроллбары

где находился курсор

Какой? Мышиный? Ячейка выделена, или просто мышка на нее наведена?

[Риндера]

StringGrid1.CellRect(Колонка, стрка) Даст координаты ячейки, так что тебе не придется ничего выдумывать.

За это отдельное спасибо) Тут координаты верхнего левого угла?

Логичная версия. Проверь ее - отключи скроллбары

В том-то и дело. Я думаю, что в ширину 180 включается скроллбар, а посколько он у меня выключен, реальная ширина не 180, поэтому у последнего столбика и не достает ширины...

Какой? Мышиный? Ячейка выделена, или просто мышка на нее наведена?

Мышиный. Событие срабатывает, когда мы перетаскиваем кнопку на ячейку и отпускаем. Вот и отслеживаю, где находился курсор. Знаю что извращенка, но что ж поделать)))

[Utkin]

Кто такой Main.Left ?

[Риндера]

Main - название формы, Left - это left ))))

[Utkin]

Тебе нужно первести мышиные координаты в колонки StringGrid'a. Верно? Тогда возможно (могу ошибаться) все дело в неверном пересчете координат мышки. Проверь как они обсчитываются. И еще один вариант - ты учитываешь первую, заголовочную колонку?

[Риндера]

Utkin, у меня нет заголовочных колонок. Считаю колонки с нуля. СтрингГрид у меня фактически выступает просто как сеточка под кнопки, чтобы их можно было красиво и ровно выстроить после перемещения.
И да, скорее всего не правильно считаю...

[Utkin]

Скорее всего ты неверно представляешь, что находится в Mouse.CursorPos.Х
Поэксперементируй с его значениями при наведении его на твой StringGrid. То есть, представь сначала какая там должна быть координата и получи фактическую.

[Риндера]

Представляю, эксперементировала))))
Кстати теперь всё работает как нужно

Безо всяких модификаций в Mouse.CursorPos.Х кладется позиция курсора по X на экране. Независимо какие там формы у меня и еще что.

А можно у СтрингГрида запретить выделение ячейки? А то как-то некрасиво смотрится эта синяя ячейка.

[Mad_Cat]

StringGrid без выделенной ячейки

procedure TForm.sgrDrawCells(Sender: TObject; Col, Row: Longint; Rect: TRect;
  State: TGridDrawState);
var
  ACol: longint absolute Col;
  ARow: longint absolute Row;
  Buf: array[byte] of char;
begin
  if State = gdFixed then
    Exit;

  with sgrGrid do
  begin
    Canvas.Font := Font;
    Canvas.Font.Color := clWindowText;
    Canvas.Brush.Color := clWindow;

    Canvas.FillRect(Rect);
    StrPCopy(Buf, Cells[ACol, ARow]);
    DrawText(Canvas.Handle, Buf, -1, Rect,
      DT_SINGLELINE or DT_VCENTER or DT_NOCLIP or DT_LEFT);
  end;
end;

from delphiworld