Раскраска StringGrid-а

← →
killer © (2004-05-06 14:13) [0]

В событии StringGrid-а DrawCell раскрашиваю StringGrid... а как мне узнать цвет другой какойнибудь уже прорисованной ячейки (над ней которая)?

StringGrid1.Canvas.Brush.Color:=...;
StringGrid.Canvas.FillRect(Rect);
SetBkMode(Handle, TRANSPARENT);
SetTextAlign(Handle, TA_LEFT);
StringGrid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StringGrid.Cells[ACol, ARow]);

← →
pasha_golub © (2004-05-06 14:20) [1]

Так ты ж ее раскрашиваешь. Полосатость нужна?
Если да:
procedure XXX.DrawCell(...); begin with Sender as Tstringgrdid do begin if Odd(ARow) then Brush.Canvas.Color := clRed else Brush.Canvas.Color := clGreen; ... end; end;

← →
killer © (2004-05-06 14:28) [2]

у меня что-то вылетает на строке
Brush.Canvas.Color := clRed;

← →
killer © (2004-05-06 14:28) [3]

пишет: [Error] Unit1.pas(40): Undeclared identifier: "Canvas"

← →
Mim1 © (2004-05-06 14:30) [4]

а ты brush и canvas местами поменяй.

← →
TUser © (2004-05-06 14:31) [5]

Canvas.Brush

Наверное лучше запоминать, какую ячейку ты покрасил в какой цвет.

← →
killer © (2004-05-06 14:36) [6]

TUser Мне кажется можно в массиве сохранять... :)))

← →
TUser © (2004-05-06 14:39) [7]

Это и называется - запомнить.

← →
pasha_golub © (2004-05-06 14:44) [8]

Ой, да ошибся. :-)

← →
killer © (2004-05-06 15:07) [9]

pasha_golub а так посмотреть каким цветом ячейка над этой ячейкой нельзя... да?

← →
pasha_golub © (2004-05-06 15:20) [10]

killer © (06.05.04 15:07) [9]
Тебе полосатость нужна? Или нет?

if Odd(ARow) then
showmessage("clRed")
else
showmessage("clGreen")

pasha_golub Да... но в зависимости от данных в таблице... т.е. 1 и 2 и 3 могут быть вподрят быть закрашеными...

так в чем проблема?

if uslovie = 1 then Brush.Canvas.Color := clRed;
if uslovie = 2 then Brush.Canvas.Color := clGreen;
и т.д....

это-то понятно.. но мне надо какраз закрасить тем цветом который над яцейкой... одну строку... а потом в зависимости от данных следующую... :)))

> killer

Ну если тебе нужен именно цвет определённой ячейки (хотя я так и не понял, зачем), то попробуй так (за правильность не ручаюсь):

function GetColor(ColNumber, RowNumber: Integer): TColor;
var
Rect: TRect;
begin
Rect := StringGridName.CellRect(ColNumber, RowNumber);
Result := StringGridName.Canvas.Pixels[Rect.Left + 2, Rect.Top + 2];
end;

Раскраска StringGrid-а Найти похожие ветки