фотки

[www12]

cherepets
дай

[im_zorg]

лови примерно так)))

uses canvas; 
    Var     
    x,y, xi, yi,xs, ys, xs1, ys1, state, i,w,h,vibor: integer; 
    im: image; 
    youimage: array [1..5] of image;
Begin  
            w:=getwidth;h:=getheight; 
            xi:=w; 
            yi:=h;
            xs:=GetWidth; 
            ys:=GetHeight; 
            xs1:=GetStringWidth('вверх'); 
            ys1:=GetStringHeight('вверх'); 
            vibor:=1;
            for i:=1 to 5 do
            begin
                        im:=LoadImage('/'+i+'.png');
                        youimage[i]:=canvas.resize_image(im,w,h); 
            end;
            repeat 
            state:=GetKeyClicked; 
            if (state=KE_KEY2)  or (state=-6) then if vibor>1 then vibor:=vibor-1;
            if (state=KE_KEY8)  or (state=-7) then if vibor<5 then vibor:=vibor+1; 
            DrawImage(youimage[vibor],0,0);
            SetColor(0, 0, 255);  
            FillRect(xs-xs1,ys-ys1,xs1,ys1); FillRect(0,ys-ys1,xs1,ys1);  
            SetColor(0, 255, 0);  
            DrawText('вверх',xs-xs1+5,ys-ys1); 
            DrawText('вниз',0,ys-ys1); 
            Repaint; 
            Delay(20); 
            setcolor(255,255,255);
            FillRect(0,0,xs,ys); 
            until false; 
End. 


картинки 1.png 2.png ... 5.png