фотки

[cherepets]

http://forum.boolean.name/showthread.php?t=3515

а вобще мне кажется ты пытаешься сказать, что у вас разные разрешения экрана

[www12]

ни че не поняла
а можно че нить до писать например сюда

var img: image; 
Begin 
img:=LoadImage('/image.png'); 

DrawImage(img,0,0); 
Repaint; 
Delay(5000); 
End.

и чтоб картинка читалась как и у меня так и у моей подруги

[www12]

ну да у нас разные разрешения экрана а как сделать чтоб мидлет сам узнавал какое разрешения экрана и подстраивался под мобильник

[DIMMON4IK]

var img,newimg: image; w,h:integer;
Begin
img:=LoadImage('/image.png');
w:=getwidth;h:=getheight;
if w<h then
newimg:=canvas.resize_image(img,w,trunc((getimageH eight(img)*w)/getimagewidth(img)));
if w>h then
newimg:=canvas.resize_image(img,trunc((getimageWid th(img)*h)/getimageheight(img)),h);
if w=h then img:=newimg;
DrawImage(newimg,0,0);
Repaint;
Delay(5000);
End.

[www12]

не компилируется где то ошибка

[DIMMON4IK]

uses canvas;
var img,newimg: image; w,h:integer;
Begin
img:=LoadImage('/image.png');
w:=getwidth;h:=getheight;
if w<h then
newimg:=canvas.resize_image(img,w,trunc((getimageH eight(img)*w)/getimagewidth(img)));
if w>h then
newimg:=canvas.resize_image(img,trunc((getimageWid th(img)*h)/getimageheight(img)),h);
if w=h then img:=newimg;
DrawImage(newimg,0,0);
Repaint;
Delay(5000);
End.

[www12]

все равно не компилируется где то ошибка

[DIMMON4IK]

в "getimageH eight" и "getimageWid th" убери пробелы
А вообще такие ошибки нужно исправлять самой, а не ждать ответа на такую елементарщину

[www12]

все равно некомпилируется

[cherepets]

рискну предположить что из указанной мной темы ты не скачала библиотеку (Lib_im.class) и не положила в папочку MidletPascal\Libs.

сделай это и попробуй заново скомпилить код от DIMMON4IK

[www12]

скачала я библиотеку вот здесь http://mobilepascal.ru/load/53-1-0-52 только эта библиотека называется "' загрузки изображении по HTTP"

не понимаю зачем мне библиотека для "' загрузки изображении по HTTP"
вывод со всего сказанного все равно не компилируется
помогите кто может может че нить другое написать можно?

[www12]

библиотеку скачала и поместила в папку как сказал cherepets

все равно ни че не компилируется

[im_zorg]

Надо lib_canvas
uses canvas;
var img,newimg: image; w,h:integer;
Begin
img:=LoadImage('/image.png');
w:=getwidth;h:=getheight;
if w<h then
newimg:=canvas.resize_image(img,w,trunc((getimageH eight(img)*w)/getimagewidth(img)));
if w>h then
newimg:=canvas.resize_image(img,trunc((getimageWid th(img)*h)/getimageheight(img)),h);
if w=h then img:=newimg;
DrawImage(newimg,0,0);
Repaint;
Delay(5000);
End.
Скачай вот Здесь

[www12]

библиотеку Lib_canvas скопировала ее в папку Libs и все больше ее не как не надо устанавливать

а то при компиляции у меня МП виснит почему


как устанавливать библиотеку

[www12]

спасибо всем сама разобралась прочитала форум и нашла ответы вот дура надо было раньше так сделать