Бешеный StringGrid

← →
NeVIP © (2004-08-19 22:42) [0]

Бодрый день мастера!
Появился такой баг : есть Грид, у него первая
колонка отведена под чекбоксы,
если значение грида в ячейке = 1
тогда рисуется отмеченный чекбокс,
если = 0, ессесно неотмеченный.
Так вот, при клике на любую ячейку из первой
колонны, присваивается инверсное значение и
рисуется чекбокс, это при StringGridOnClick,
вот код :
// Обработка нажатия на чекбох грида if StringGrid.Col=1 then begin if StringGrid.Cells[1,StringGrid.Row]="1" then StringGrid.Cells[1,StringGrid.Row]:="0" else StringGrid.Cells[1,StringGrid.Row]:="1"; end;

Код прорисовки чекбокса: StringGridDrawCell
// Прорисовка чекбохов if ACol = 1 then begin if StringGrid.Cells[ ACol , ARow ] = "1" then DrawFrameControl(TStringGrid(Sender).Canvas.Handle,Rect,DFC_BUTTON,DFCS_CHECKED); if StringGrid.Cells[ ACol , ARow ] = "0" then DrawFrameControl(TStringGrid(Sender).Canvas.Handle,Rect,DFC_BUTTON,DFCS_BUTTONCHECK); end;
Проблема в том, что если я перемещаюсь по гриду ("выделенная ячейка"),
когда перемещаюсь по первому столбцу клавишами курсора, или колесом
прокрутки то енти долбанные чекбоксы инвертируються!!!! т.е. где
был отмеченный - "отметка" снимается и наоборот, т.е. происходит.
событие OnClick что-ли?!?!?! - брахмапутра какая-то!
Проверил с отключённой прорисовкой - тоже самое : Y=N, N=Y...
Как это лечить? перехватывать событие что мы крутим скролл или
жемём клавиши - незнаю :(

С уважением.

← →
Алхимик © (2004-08-19 23:17) [1]

Вместо StringGridClick попробуй:

procedure TForm1.StringGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var ACol,ARow : integer; begin StringGrid.MouseToCell(x,y,ACol,ARow); if ACol=1 then begin if StringGrid.Cells[1,ARow]="1" then StringGrid.Cells[1,ARow]:="0" else StringGrid.Cells[1,ARow]:="1"; end; end;

Бешеный StringGrid Найти похожие ветки