Тема: White display
Показать сообщение отдельно
Старый 15.08.2008, 18:51   #1
Smarik
AnyKey`щик
 
Аватар для Smarik
 
Регистрация: 15.08.2008
Адрес: Кемерово
Сообщений: 17
Написано 0 полезных сообщений
(для 0 пользователей)
White display

Добрый день, такая вот проблема, какую игру не напишу на емуляторе работает хорошо, на телефоне вижу только белый цвет...за пару минут набросал простую прогу, опять белый дисплей
program NewProject;   
var   
    img:array [0..1] of image;   
    key,x,y,i,stor:integer;   
begin   
for i:=0 to 1 do   
img[i]:=LoadImage('/'+i+'.png');   
x:=50;   
y:=50;   
stor:=0;   
    repeat   
SetColor(255,255,255);   
FillRect(0,0,getWidth,GetHeight);   
    if stor=0 then     
DrawImage(img[0],x,y) else  DrawImage(img[1],x,y);   
key:=GetKeyPressed;   
    if key=KE_KEY4 then begin   
stor:=0;    
x:=x-2;   
end;   
    if key=KE_KEY6 then begin   
stor:=1;   
x:=x+2;   
end;   
repaint;   
delay(50);   
    until GetKeyClicked=KE_KEY0;   
end.
ставил midp1.0/2.0 пробовал fullscreen, устанавливал floating point ничего не помогает...p.s. Nokia 3250
Вложения
Тип файла: zip NewProgect.zip (9.8 Кб, 554 просмотров)
(Offline)
 
Ответить с цитированием