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

Мигающий текст в StringGrid   Найти похожие ветки 

← →
ksu ©   (2005-03-15 13:36) [0]

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

---

← →
Алхимик ©   (2005-03-15 14:33) [1]

Я знаю.

---

← →
Megabyte ©   (2005-03-15 15:29) [2]

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

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

---

← →
mozart   (2005-03-15 15:37) [3]

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

---

← →
_1   (2005-03-15 15:39) [4]

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

---

← →
дык   (2005-03-15 16:59) [5]

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;

---

← →
Алхимик ©   (2005-03-16 09:17) [6]

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

---

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

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



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