DBGrid нарисовать на заголовке

[AndreyF]

Здравствуйте, ребята.
Сколько времени уже потратил, ничего не получается, подскажите пожалуйста, как нарисовать у DBGrid что-нибудь на заголовке?
Обрабатываю событие:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
   MyRect: TRect;
begin
   Form1.DBGrid1.Canvas.Ellipse(0,0,20,20);//так конечно рисует на DBGrid, но не на нужном заголовке
   Form1.DBGrid1.Canvas.Ellipse(MyRect.Left,MyRect.Right,MyRect.Bottom,MyRect.Top);//а если так то MyRect.Left=10724032 и MyRect.Top=4590854345 и т.д.
end;

Как узнать координаты заголовка?

[shock-in]

может так?

procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   MyRect: TRect;
begin
   Form1.DBGrid1.Canvas.Ellipse(x,y,x+20,y+20);
   Form1.DBGrid1.Canvas.Ellipse(MyRect.Left,MyRect.Right,MyRect.Bottom,MyRect.Top);
end;

[mihali4]

Отталкиваемся от ширины колонки в пикселях:

DBGrid1.Columns.Items[2].Width

Это ширина 3-го поля...

[AndreyF]

координаты мыши считывать - не совсем подходит, не красиво рисуется фигура в заголовке.
думаю правильно - надо от ширины столбца отталкиваться, только не могу вычислить выбранный столбец
делаю так:

DBGrid1.Columns.Items[DBGrid1.SelectedIndex].Width;

это работает только, когда я по сетке нажимаю, а когда по заголовку SelectedIndex=0.
Как узнать номер выбранного столбца узнать?

[mihali4]

Вопросы странные какие-то...

procedure TForm1.DBGrid2TitleClick(Column: TColumn);
begin
Label1.Caption:=IntToStr(Column.Index);
end;

Не забудьте, что вам нужно будет суммировать ширины всех предыдущих столбцов и еще добавить ширину столбца-индикатора - примерно 12 пикселов.
Ну, и зазорчик сделать между вертикальной линией и рисунком - еще 4-6 пикселов.

[AndreyF]

Вопросы странные какие-то...

Я просто так пытался написать DBGrid1.Column.Index, а надо просто Column.Index в процедуре procedure TForm1.DBGrid2TitleClick(Column: TColumn);

С шириной вроде разобрался:

var
   i,w: Integer;
begin
    w:=0;
    for i:=0 to Column.Index do w:=w+1+Form1.DBGrid1.Columns.Items[i].Width;

это всё хорошо, только если столбцы вправо не листать, а у меня их порядка 40 полей, так вот когда вправо перемещаюсь по столбцам, получается, что нажимаю на заголовок 25 столбца, а на самом экране вижу то только 7-8 столцов, а ширина то считается всех 25 столбцов, так как поститать ширину всех видимых в данный момент столбцов или узнать какие в данный момент видны столбцы?
и как вычислить отступ сверху самого прямоугольника заголовка столбца в DBGrid?

DBGrid у меня находится не в самом верху формы, сначала расположен toolbar, а ниже сам DBGrid?

[mihali4]

25 столбцов??? Мрак... Ну и нравы...
Если следовать правилам "юзабилити", то в ДБГрид выводят только основные параметры, причем весьма желательно, чтобы горизонтального скролла не было и в помине.
А все второстепенные показатели отображаются под ДБГридом в наборе либо ДБЭдитов (при условии запрета редактирования), либо ДБТекстов.