Работа с рисунками в делфи

[Igoreha010]

Уважаемы форумчане, прошу поделиться мудростью и обьяснить неразумному как заставить двигаться картинки с помощью делфи.
Очень бы помог рабочий пример, а то не как не разобраться и не понять.

[grom333]

Передвижение рисунка происходит при изменении свойств height и width.

image1.height:=image1.height+5; 
image1.width:=image1.width+5;

Поэксперементируйте

[Naive]

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

Передвижение рисунка происходит при изменении свойств height и width.

image1.height:=image1.height+5; 
image1.width:=image1.width+5;

Поэксперементируйте

А разве не left и top? height и width - это вроде как размеры...

[DomiNick]

Слишком абстрактный вопрос.....

Какие картинки? Где они? Как выводятся? Как должны двигаться? и.т.д.

[Igoreha010]

unit1; interface

uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs;

type

TForml = class(TForm)

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Forml: TForm1;

sky,aplane: TBitMap; // битовые образы: небо и самолет

implementation

($R *.DFM}

procedure TForm1.FormPaint(Sender: TObject);

begin

// создать битовые образы

sky := TBitMap.Create;

aplane := TBitMap.Create;

// загрузить картинки

sky.LoadFromFile('sky.bmp');

aplane.LoadFromFile('aplane.bmp') ;

Form1.Canvas.Draw(0,0,sky); // отрисовка фона

Form1.Canvas.Draw(20,20,aplane); // отрисовка левого самолета

aplane.Transparent:=True;

// теперь элементы рисунка, цвет которых совпадает с цветом

// левой нижней точки битового образа, не отрисовываются Form1.Canvas.Draw(120,20,aplane);

// отрисовка правого самолета

// освободить память sky.free; aplane.free;

end;

end.

нашел в инете пример, но запустить не могу
говорит error in module unit1: declaration in class TForm1 is missing or incorrect
как исправить ошибку? я так понял что на форме что то не указал.....
пробовал адреса к кортинкам поточнее указывать... не помогло...
подскажите кто знает

[DomiNick]

нашел в инете пример, но запустить не могу
говорит error in module unit1: declaration in class TForm1 is missing or incorrect
как исправить ошибку? я так понял что на форме что то не указал.....

Эх...) В Делфи нельзя просто делать Ctrl+C/Ctrl+V найденного где-то кода, она такого ой как не любит...
К тому же там специфические опечатки - полагаю кто-то сканировал пример из книги и распознавал FineReader'ом...

При создании обычного (пустого) проекта VCL в коде есть var Form1: TForm1; - тут задаются глобальные (общие для модуля) переменные... Можно конечно и создавать битмапы как в примере, но почему не взять TImage? Вполне подходит...

Image1.Picture.LoadFromFile('c:\pict1.bmp');
Image1.AutoSize:=True;
Image1.Left:=10;
Image1.Top:=20;
. . .

[Igoreha010]

А если еще чуть чуть подробнее про написание... а то графика никак не дается.

учебник, когда уже в них будут нормальные примеры((( с хорошим описанием....
помогите добрые форумчане...

[Ybn2]

Для начало определись, что за картинка, вернее сам рисуешь на форме - это одно, а если загружаешь из файла - это другое,тут нужен компонент image. Во вторых что значит двигается, в самой картинке меняеться что-то или просто бегает из угла в угол.

[Stilet]

procedure TForm1.FormPaint(Sender: TObject);

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

[Igoreha010]

картинка должна бегать из угла в угол.... ее взять из файла.
как просто сделать? и желательно по подробнее