Извините, ничего не найдено.

www12 · 05.05.2010, 22:52

cherepets
дай

im_zorg · 06.05.2010, 07:25

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


			
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