Ответ: фотки
 

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

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

Ответ: фотки
 

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


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

Ответ: фотки
 

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

Ответ: фотки
 

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.

Ответ: фотки
 

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

Ответ: фотки
 

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.

Ответ: фотки
 

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

Ответ: фотки
 

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

Ответ: фотки
 

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

Ответ: фотки
 

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

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

Ответ: фотки
 

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

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

Ответ: фотки
 

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

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

Ответ: фотки
 

Надо 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.
Скачай вот Здесь

Ответ: фотки
 

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

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


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

Ответ: фотки
 

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