Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизИзменение цвета ячеек grid-а Найти похожие ветки
← →
Юлия (2002-10-26 17:51) [0]Уважаемые мастера, помогите пожалуйста сделать такую вещь: на экране – таблица, состоящая из кнопок, как в сапере. При нажатии на любую ячейку меняется ее цвет. Совсем необязательно, чтобы были кнопки, главное, чтобы на щелчки мыши реагировали. Как такое сделать? Какой метод использовать?
← →
down (2002-10-26 18:33) [1]обрабатывать события OnMouseDown, OnDrawCell
← →
Юлия (2002-10-26 19:48) [2]Как поменять цвет ячейки grid-а? (string/draw/RXDraw)?
Какая команда?
← →
777 (2002-10-26 20:26) [3]
var P:Tpoint;
.......
procedure TForm1.FormCreate(Sender: TObject);
begin
P.X:=-1;
P.Y:=-1;
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol=P.X)and(ARow=P.Y)then
begin
StringGrid1.Canvas.Brush.Color:=clred;
StringGrid1.Canvas.FillRect(rect);
end;
end;
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
P.X:=StringGrid1.Col;
P.Y:=StringGrid1.Row;
StringGrid1.Refresh;
end;
← →
Юлия (2002-10-26 20:50) [4]Спасибо, А как узнать цвет ячейки, по которой "кликнули"?
← →
777 (2002-10-26 21:00) [5]Если я правильно понял, уже нажатые кнопки так закрашенными и остаются.
Можно объявить глобальную переменную в указанном коде,
например CurrColor:TColor, и присваивать ей значение в обработчике
OnMouseDown
...
CurrColor:=StringGrid1.Canvas.Pixels[x,y];
...
потом при StringGrid1DrawCell
...
if (ACol=P.X)and(ARow=P.Y) and(CurrColor<>clRed)then
...
← →
TTCustomDelphiMaster (2002-10-26 21:01) [6]
> А как узнать цвет ячейки, по которой "кликнули"?
Хранить его где нибуть. Можно и в самом TStringGrid:
StringGrid1.Objects[i,j] := Pointer(Color);
Color := integer(StringGrid1.Objects[i,j]))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c