Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c