| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Мигающий текст в StringGrid [D5]

ksu ©   (2005-03-15 13:36:00) 

Кто знает можно ли заставить мигать текст в ячейке StringGrid

---

Алхимик   (2005-03-16 09:17:00) [1]

Ну что Вы все в оффтоп ударились?
Человек не спрашивал КАКили МОЖНО ЛИ...
Он спрашивал КТО!.
p.s. Статистику наверно собирает. :)

---

дык   (2005-03-15 16:59:00) [2]

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var Canvas: TCanvas;
begin
 Canvas := Grid.Canvas;
 if (ACol = 2)and(ARow = 2) then
 begin
   case GridTimer.Tag of
     0: Canvas.Font.Color := clRed;
     1: Canvas.Font.Color := clWhite;
   end;
 end else
   Canvas.Font.Color := clBlack;

 Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, Grid.Cells[ACol, ARow]);
end;

procedure TForm1.GridTimerTimer(Sender: TObject);
var R: TRect;
begin
 GridTimer.Tag := (GridTimer.Tag + 1)mod 2;
 //Grid.Invalidate;
 R := Grid.CellRect(2, 2);
 InvalidateRect(Grid.Handle, @R, True);
end;

---

_1   (2005-03-15 15:39:00) [3]

Мигать текстом можно в одной ячейке, хотя конечно,когда весь грид мигает получается намного нарядней,

---

mozart   (2005-03-15 15:37:00) [4]

На сколько я знаю - в СтрингГриде нет возможности менять свойство какой-то одной ячейки конкретной (кроме конечно Текста)....
Но, заставить моргать ячейки всего Грида - это можно ;)

---

Megabyte   (2005-03-15 15:29:00) [5]

> Алхимик ©   (15.03.05 14:33) [1]
> Я знаю.

Точно, Алхимик врать не будет.

---

Алхимик   (2005-03-15 14:33:00) [6]

Я знаю.

---

Наверх