Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
14-1127463420
ANB
2005-09-23 12:17
2005.10.16
Слово в кроссворде из 6 букв


6-1119603331
chery
2005-06-24 12:55
2005.10.16
Какая доля пакета "тратится" на служебную инфу?


1-1127421199
Евгений Р.
2005-09-23 00:33
2005.10.16
Сумма прописью на английском


1-1127427995
sashok
2005-09-23 02:26
2005.10.16
Val(ReadOut.Text, op1, Code);


8-1116960003
Eraser
2005-05-24 22:40
2005.10.16
Формирование wav файла из данных в фотмате PCM