Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Stringgrid   Найти похожие ветки 

← →
Lower_   (2005-09-04 20:21) [0]

Здраствуйте.
Скажите, как сделать так, чтобы,
если в ячейках Stringgrid не было данных - он ее не
выделял.
if (grid.Row >2) and (length(grid.Cells[3,grid.Row]) > 0) then
нет выделения.

---

← →
Defunct ©   (2005-09-04 20:50) [1]

В OnDrawCell

 with TStringGrid( Sender ) do
 begin
    if Cells[ACol, ARow] = "" {либо ваше условие} then
    with Canvas do
    begin
       Pen.Color := Color;
       Brush.Color := Color;
       FillRect( Rect );
    end;
 end

---

← →
begin...end ©   (2005-09-04 21:07) [2]

> Lower_   (04.09.05 20:21)

> Скажите, как сделать так, чтобы,
> если в ячейках Stringgrid не было данных - он ее не
> выделял.

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
 ARow: Integer; var CanSelect: Boolean);
begin
 CanSelect := (Sender as TStringGrid).Cells[ACol, ARow] <> ""
end

P.S. Из свойства Options исключите goRangeSelect.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c