Experts Exchange connects you with the people and services you need so you can get back to work.

Color the colom of the selected cell

A good morning to you all.

I have a string grid, with data in it.
Has 6 rows and 3 colums. Want I need to be able to do is color the colum that has the selected cell. So, If the click on a cell in coloum 2 that whole colums color becomes dark blue. Or if they selected a cell in coloum 1 that whole colums color would go dark blue.

Basically, it's getting the selected cells coloum and using that on the ondraw event - shouldn't be to hard :)

wildzero

Asked: 2004-09-17

Advertise Here

Delphi

1 Solution

LVL 23

Ferruccio AccalaiSenior developer, analyst and customer assistance Commented: 2004-09-17

I assume that you've 1 fixed row and no fixed col...

var
Form1: TForm1;
BlueCol: Integer;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
If (ACOl=BlueCOl) and (ARow > 0) then
StringGrid1.Canvas.Brush.Color := clNavy
else
StringGrid1.Canvas.Brush.Color := clWIndow ;
StringGrid1.Canvas.FillRect(Rect);
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
BlueCOl := ACol;
STringGrid1.Refresh;
end;

F68 ;-)

LVL 10

wildzeroAuthor Commented: 2004-09-17

LoL, didn't think of doing it that way - well done :)
Doing it that way also solves another problem I thought I was going to have!!

Top job and speedy reply.

LVL 23

Ferruccio AccalaiSenior developer, analyst and customer assistance Commented: 2004-09-17

Glad to have helped you :)

F68 ;-)

LVL 10

wildzeroAuthor Commented: 2004-09-17

Ohh one thing (if u got a sec)
Can I make it so when I click say, a button I can select a row in a certain cell in the string grid?
Ie, click button and on the string grid it selects stringgrid.cells[0,2]
Thought there would be a way to call stringgrid.select[0,2] but alas there isnt. If its a quick 5 seconds then sweet. Otherwise I will create a new question :)

Cheers