В делфи на форме не распознаётся цвет.

[Rin]

почему при закрашивании формы любым цветом, а именно
with Form1.Canvas do
begin
Pen.Color:=clgreen;
Brush.Color:=clgreen;
Rectangle (0,0,ClientWidth div 2,ClientHeight div 2);
end;
форма не воспринимает этот цвет?
Проверяю
if Form1.Canvas.Pixels[1,1] =ClGreen then Label1.Caption:='1'
else Label1.Caption:='0';
А делфа на форме, большшШШШШИИИим таким шрифтом,в Label1.Caption выводит "0"! 0_о

[Alex Cones]

if Form1.Canvas.Pixels[1,1] =ClGreen then Label1.Caption:='1'
else Label1.Caption:='0';

Так попробуй:

if Form1.Canvas.Pixels[0,0] =ClGreen then Label1.Caption:='1'
else Label1.Caption:='0';

[Rin]

а что это изменит? прямоуголник включает в себя точки в интервале [0..ClientWidth div 2] по Х и [0..ClientHeight div 2] по У.
ClientWidth div 2 равна 234.
ClientHeight div 2 равна 247.
так что дело не в координатах.(((

[Alex Cones]

Дык, а Вы уверены, что прямоугольник закрашенный?

[Rin]

форма создаётся. 1\4 формы закрашена зелёным цветом, но Label1.caption=0. Вот это-то меня и смушает)))). %)

[Rin]

попробуй, проверь сам в делфе. это удивительно, но это факт.

[Alex Cones]

Смотрим:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Form1.Canvas do
begin
Pen.Color:=clgreen;
Brush.Color:=clgreen;
Rectangle (0,0,ClientWidth div 2,ClientHeight div 2);
end;
if Form1.Canvas.Pixels[1,1] =ClGreen then Label1.Caption:='1'
else Label1.Caption:='0';
end;

Факт? Какой факт?

[Rin]

у меня немного сложнее)))

procedure TForm1.FormPaint(Sender: TObject);
begin
{ Canvas.Brush.Color := clBlack;
Canvas.Rectangle(us.X, us.Y, us.X +20, us.Y+20);
c;}
with Form1.Canvas do
begin
Pen.Color:=clgreen;
Brush.Color:=clgreen;
Rectangle(0,0,ClientWidth div 2,ClientHeight div 2);
if Form1.Canvas.Pixels[1,1] =ClGreen then Label1.Caption:='1'
else Label1.Caption:='0';
end;
end;

[Rin]

через кнопку он делает. Чтож это уже что-то.
Я просто игру пишу. у меня есть объект типа точка : us: TPoint;
с помощью этой точки создаю квадрат Canvas.Rectangle(us.X, us.Y, us.X +20, us.Y+20); , который управляется стрелочками.
надо , чтобы этот квадрат не заходил за границы. как раз зелёного цвета.
то есть if Form1.Canvas.Pixels[us.X+1,us.Y+1] =ClGreen then "вернуть точку на прежнее место, так как он залез за границы."
он за них проходил на ура. Вот и решил проверить, а форма то вообще цвет различает , и ввёл Label. В моём случае форма не различала цвета, т.к. label1. caption на форме был равен нулю.

[Rin]

спасибо тебе,Alex Cones! правда, так проблема и не решилась))), но вопрос иссяк.