asked on

Multiselect in a TDBGrid

I am using D1 and WIN 3.11

I want to derive a component from TDBGrid so that the user can select more than one record. I am almost there, but my problem is that the whole row gets highlighted, not just the cell(s) within the column that the user selects.

Here is a code snippet from my component:

If (FindRecordNumber >= FRangeStart) And (FindRecordNumber <= FRangeEnd) then
If SelectedField = HighLightedField then
If SelectedIndex = Col-1 then
begin
Colour := Canvas.Brush.Color;
Canvas.Brush.Color := ClGreen;
Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,Field.AsString);
Canvas.Brush.Color := Colour;
end;

I probably got a bit carried away with my If statements, but I was trying to cover everything.

ASKER CERTIFIED SOLUTION

ZifNab

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

APS NZ

ASKER

Hi ZifNab thanks for the reply. I am wanting to select multiple cells in one column. I have experimented further within my component (TDBGrid derivative) and I have managed to do what I want to do, but when I call Invalidate
the system locks up unless I click an adjacent column. If I don't call Invalidate, the highlighting disappears as soon as I release the shift key.

ZifNab

Mmmmm....

APS NZ

ASKER

Hi ZifNab - Mmmmmm indeed. After a lot of experimenting I have now decided that I will have to just highlight the first and last items of the requested block within the column
That at least works properly. I still can't stop the Invalidating when I try to highlight all the required records.

ZifNab

jdthedj,
I soon have to make an adhanced dbgrid too. I'll try to make what you want too.

APS NZ

ASKER

Thanks ZifNab!!