Изменить фон, не закрасив картинку.

[inndim]

Не в end всё дело, у вас ошибка в этой строке:

 if Pixels[x,y]:=Form1.Color then Pixels[x,y]:=clblue;

уберите двоеточие перед знаком равно if Pixels[x,y]:=Form1.Color

[Iamloli]

Да, теперь ошибку не выкидывает.. Спасибо) Но, первое - при роботе цикла, у меня на пару секунд все тормозит, а второе - цвет не изменяется. Может причина в том, что есть не известные мне свойства форм? Что вы можете посоветовать?

[mihali4]

Application.ProcessMessages

[Iamloli]

for x:=1 to 400 do
                                 Application.ProcessMessages;
                                if Pixels|[x,y]=Form1.Color then Pixels[x,y]:=clblue;

Снова кидает ошибку, и курсор где я указал.. Ошибка гласит "Could not compile used unit 'Unit1.pas'"

[mihali4]

Во-первых, это ставят, чтобы увидеть изменения. А не до того, как делаем изменения.
Во вторых - где begin..end ?
В-третьих - у меня и без Application.ProcessMessages все прекрасно видно - как форма перекрашивается...

with Form1.canvas do
for y:=1 to Form1.Height do
for x:=1 to Form1.Width do
if Pixels[x,y]=Form1.Color then
Pixels[x,y]:=clblue;

[Iamloli]

Так, второе.. да, забыл. Все поменял, ошибок больше не кидает, но не чего не видно, кидаю всю команду.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure fon;
var y,x:integer;
begin
        with form1.canvas do
                for y:=1 to 5 do
                        for x:=1 to 400 do
                                begin
                                if Pixels[x,y]=Form1.Color then Pixels[x,y]:=clblue;
                                Application.ProcessMessages;
                                end;
                        end;

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Refresh;
with form1.Canvas do
fon;
end;

end.

[inndim]

Сделайте тогда так

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Refresh;
form1.color:=clGreen;
with form1.Canvas do
fon;
end;

А тут вот так

procedure fon;
var y,x:integer;
begin
        with form1.canvas do
                for y:=1 to 5 do
                        for x:=1 to 400 do
                                begin
                                if Pixels[x,y]=clGreen then Pixels[x,y]:=clblue;
                                Application.ProcessMessages;
                                end;
                        end;

теперь должно работать.

[Iamloli]

Отлично!)) Inndim, спасибо) Ребята, вам всем спасибо)

Хех.. Я рано закрыл топик, оказывается, если так, фон всегда будет зеленым, и на нем не чего нельзя нарисовать, я хотел протестировать с линей, но не вышло.

procedure fon;
var y,x:integer;
begin
        with form1.canvas do
                for y:=1 to Form1.Height do
                        for x:=1 to Form1.Width do
                                begin
                                if Pixels[x,y]=clGreen then Pixels[x,y]:=clblue;
                                Application.ProcessMessages;
                                end;
                        end;


procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Refresh;
with form1.Canvas do
begin
Pen.Color:=clBlack;
Pen.Style:=psDash;
Pen.Width:=5;
MoveTo(25,50);
LineTo(450,300);
form1.color:=clGreen; {все это дело перемещал, и ставил в разные места, но линия рисуется, только если удалить}
fon;
end;
end;

end.

Вот такие пироги, за то вы подкинули идеи, из-за чего не работает Floodfill

Я поменял фон, на прямоугольник, все работает.

[inndim]

Тогда пробуйте вот так:

procedure TForm1.FormActivate(Sender: TObject);
begin
 form1.color:=clGreen;
 form1.Repaint;
 with form1.Canvas do
  begin
   Pen.Color:=clred;
   Pen.Style:=psDash;
   Pen.Width:=5;
   MoveTo(25,50);
   LineTo(450,300);
  end;
 fon;
end;

p.s.
Если помог, то жмите на весы слева ниже ника.