Высокая и узкая,лифт висит посередине
\\и я кажется понял как вы предлагали управлять картинкой свойством top
Код: Выделить всё
вот так . только проблемма в чем он не плавно перемещается ,а с 1 го этажа скачком выше 3 го и потом до упора в границу окна программы ,время таймера влияет только на время между этими скачками, shx менял ставил вплоть до 1 --эффекта по моему вообще нет
procedure TForm1.tmr1Timer(Sender: TObject);
begin
img2.top:=y+shx;//òåêóùàÿ êîîðäèíàòà + øàã
if y>500 then shx:=shx*-1;// îãðàíè÷åíèå ñïðàâà
if y<0 then shx:=shx*-1;//îãðàíè÷åíèå ñëåâà
img1.canvas.Draw(0,0,Dom);//âîçîáíîâëåíèå ôîíà
img2.canvas.Draw(60,0,lift);//äâèæåíèå êîðàáëÿ
end;
выпилил почти все то что мне казалось ненужным
время таймера это время между скачками.пробовал поставить дробное значение щага , не прокатило
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
img1: TImage;
img2: TImage;
tmr1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//Îïèñàíèå òèïîâ ïåðåìåííûõ
var
Form1: TForm1;
Dom:tbitmap;//ÃÐÀÔÈ×ÅÑÊÈÉ ÎÁÐÀÇ äîìà
lift:TBITMAP;//ÃÐÀÔÈ×ÅÑÊÈÉ ÎÁÐÀÇ ëèôòà
implementation
{$R *.DFM}
//Ñòàðò ãëàâíîé ôîðìû
procedure TForm1.FormCreate(Sender: TObject);
begin
Dom:=tbitmap.Create;//
lift:=tbitmap.Create;//
//
Dom.LoadFromFile('Dom.bmp');//Çàãðóçèòü â ïåðåìåííóþ 'Dom' ôàéë 'Dom.bmp'
//
lift.LoadFromFile('lift.bmp');//Çàãðóçèòü â ïåðåìåííóþ 'lift' ôàéë 'lift.bmp'
end;
//Ðàáîòà òàéìåðà äâèæåíèå ëèôòà
procedure TForm1.tmr1Timer(Sender: TObject);
begin
img2.top:=+1;//òåêóùàÿ êîîðäèíàòà + øàã
end;
end.
