Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как запонить отмечиние ячейки в TStringGrid [D7, Win2k, WinXP]

integery © (2005-09-14 13:33:00)
использую TStringGrid , установил
[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect]
отметил несколько ячеєк и хочу заполнить их нулями , как ето зделать.

integery (2005-09-14 14:48:00) [1]
добавил roz.Canvas.DrawFocusRect(Rect);
и заработало но линии какието толстие

integery (2005-09-14 14:29:00) [2]
появилась новая проблемка
я использую
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:06:00) [3]
всем спасибо

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;

MBo (2005-09-14 13:59:00) [4]
Хелп прочитан?

integery (2005-09-14 13:43:00) [5]
подробние пожалуста!!!

MBo (2005-09-14 13:38:00) [6]
с помощью StringGrid.Selection

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »