Мигающий текст в 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;

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

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