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

[Iamloli]

Наверняка мой вопрос банален, но что поделать. У меня есть картинка (ну скажем деревцо с веточками во все стороны), и все это на голубом фоне. Я хочу сделать так, что б когда солнце с неба ушло, фон менялся на темно-синий.. но при этом, у меня закрашивает весь рисунок, если б это был просто треугольник, я б его нарисовал заново, и не парился, а тут так не получиться. Подскажите как такое сотворить? Пробовал floodfill, но чего-то не чего не меняется.

[mihali4]

Ну возьмите и замените каждый голубой пиксель на синий...

[Iamloli]

Хмм.. Вообще, спасибо за идею)) Но, это придется делать через цикл, и наверняка затормозит немного программу.. Конкретных функций для таких действий нету?)

[mihali4]

Сообщение от Iamloli

наверняка затормозит немного программу

Насколько я понял, у вас процесс смены фона происходит не так уж и часто.
По функциям - смотрите хэлп, методы работы с пикселями.

Хотя проще взять "деревце" на прозрачном фоне и положить его поверх прямоугольника с фоном...

[Iamloli]

Спасибо за советы, обязательно поищу функции с пикселями.

[SoftKoc]

Если вы имеете в веду что-то похожее на заливку как в фотошопе или пайнте!!! Тогда

//Тут указываем цвет на который хотим заменить.
Form1.Canvas.Brush.Color:=clRed;

Form1.Canvas.FloodFill(100,100,clWhite,fsSurface);
//Пояснение.
Form1.Canvas.FloodFill( Координата Х, Координата У, Цвет который нужно заменить, fsSurface);

Простите насчет FloodFill. Не дочитал! =(

[DomiNick]

На чём это всё делается-то? В TImage.Canvas?
Попробуйте залить нужную область нужным цветом, а уже сверху рисовать дерево через Windows.TransparentBlt()...

[Iamloli]

Простите насчет FloodFill. Не дочитал! =(

Та ладно, надо еще раз попробовать)
Хмм.. DomiNick, я такое наверняка пока не смогу делать, еще не шибко разобрался, но все равно спасибо)
И.. я накатал процедуру, но она чего-то не пашет.. и ошибка странная " Text after final 'END.' - ignored by compiler" (курсор высвечивает сразу после then).. Где он нашел конец, мне не известно))

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
                                if Pixels[x,y]:=Form1.Color then Pixels[x,y]:=clblue;
                                      //  end;
                             //   end;
                        end;

я его потом немного усовершенствую, но пока мне интересно.. что я не так написал))

[DomiNick]

и ошибка странная " Text after final 'END.' - ignored by compiler"

Много лишних "end;"... Или что-то после закрывающего "end." написано...

[Iamloli]

Без тех end, пишет "Declaration expected but end of file found".