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

Вниз

как запонить отмечиние ячейки в TStringGrid   Найти похожие ветки 

 
integery   (2005-09-14 13:33) [0]

использую TStringGrid  , установил
[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect]  
отметил несколько ячеєк и хочу  заполнить их нулями , как ето зделать.


 
MBo ©   (2005-09-14 13:38) [1]

с помощью StringGrid.Selection


 
integery   (2005-09-14 13:43) [2]

подробние пожалуста!!!


 
MBo ©   (2005-09-14 13:59) [3]

Хелп прочитан?


 
integery   (2005-09-14 14:06) [4]

всем спасибо

for i:=roz.Selection.Left to roz.Selection.Right do
       begin
       for j:=roz.Selection.Top to roz.Selection.Bottom do
        begin
        if roz.Cells[i,j] = "0"  then roz.Cells[i,j] := "1"  else roz.Cells[i,j] := "0" ;

        end;
       end;


 
integery   (2005-09-14 14:29) [5]

появилась новая проблемка
я использую
procedure TForm1.rozDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
begin
    if roz.Cells[ACol, ARow] = "0" then roz.Canvas.Brush.color := clRed
                                        else
                                             roz.canvas.brush.Color := clMoneyGreen;

 if (ACol > 0) and (ARow > 0) then
 begin
       roz.Canvas.FillRect(Rect);

 end;
end;

при етом вибор несколько ячее неработаєт!!! што делать


 
integery   (2005-09-14 14:48) [6]

добавил roz.Canvas.DrawFocusRect(Rect);
и заработало но линии какието толстие



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

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
14-1125781643
}|{yk
2005-09-04 01:07
2005.10.02
Мы сделали это!!!!


1-1126069684
wertolet
2005-09-07 09:08
2005.10.02
компонент не удаляется в дизайнтайм


2-1124432607
Гость22
2005-08-19 10:23
2005.10.02
Как из Делфи запустить архивирование файлов (напр с: *.doc) с ..


14-1126106890
NewWonder
2005-09-07 19:28
2005.10.02
Стал старостой


1-1126092225
oSa
2005-09-07 15:23
2005.10.02
Обработка математических выражений