|
Помогите!
| |
| Ph@ntom | Дата: Четверг, 04.06.2009, 13:01 | Сообщение # 121 |
|
Группа: Удаленные
| а можно ли в МР импортировать картинки с других папок кроме res , например (/'image/menu/title.png') ?
|
| |
| |
| Ph@ntom | Дата: Пятница, 05.06.2009, 18:03 | Сообщение # 122 |
|
Группа: Удаленные
| Помогите!!! Как запаковать и извлеч картинки и прочюю информацию в DAT файлы(типа таких)?
|
| |
| |
| Ph@ntom | Дата: Пятница, 05.06.2009, 18:05 | Сообщение # 123 |
|
Группа: Удаленные
| Вот написал программу которая выводит на екран время телефона.Но есть одна загвоздка : после отрисовки картинок они так и остаются тойсть показывает то время которое появилося при запуске программи.Как можно зделать чтобы время менялось?
program Clock;
var
q,w:integer;
ss,z,x:string;
img1,img2,img3,img4,img5,img6,img7,img8,img9,img10,img11,img12:image;
begin
img12:=loadImage('/5.png');
img1:=loadImage('/6.png');
img2:=loadImage('/7.png');
img3:=loadImage('/8.png');
img4:=loadImage('/9.png');
img5:=loadImage('/im@ge.png');
img6:=loadImage('/rozdel.png');
img7:=loadImage('/0.png');
img8:=loadImage('/1.png');
img9:=loadImage('/2.png');
img10:=loadImage('/3.png');
img11:=loadImage('/4.png');
drawimage(img5,0,0);
drawimage(img6,110,166);
q:=getHour(getCurrentTime);
w:=getMinute(getCurrentTime);
if q=25 then q:=1;
if q=26 then q:=24;
if q=24 then q:=0;
z:=integertostring(q)+':';//+integertostring(w);
if w=0 then z:=z+'0';
if (w>=0)and(w<9) then z:=z+'0';
if w=0 then z:=z+'0';
z:=z+integertostring(w);
repaint;
if q=24 then q:=0;
if q=0 then begin
drawimage(img7,60,166);
drawimage(img7,85,166);
repaint;
end; if q=23 then begin
drawimage(img9,60,166);
drawimage(img10,85,166);
repaint;
end; ........ if q=1 then begin
drawimage(img7,60,166);
drawimage(img8,85,166);
repaint;
end; if w=0 then begin
drawimage(img7,123,166);
drawimage(img7,148,166);
repaint;
end; if w=1 then begin
drawimage(img7,123,166);
drawimage(img8,148,166);
repaint;
end; ........ if w=59 then begin
drawimage(img12,123,166);
drawimage(img4,148,166);
repaint;
end;
repeat
until GetKeyClicked = KE_KEY0 ;
end.
|
| |
| |
| admin | Дата: Пятница, 05.06.2009, 19:33 | Сообщение # 124 |
 Admin
Группа: Администраторы
Сообщений: 244
| Вся загвоздка в этом
Code
repeat
until GetKeyClicked = KE_KEY0 ;
end.
Мидлет работает, но когда доходит до этого встает, ожидая нажатия 0, когда 0 нажат, то мидлет прерывается
|
| |
| |
| Ph@ntom | Дата: Пятница, 05.06.2009, 22:09 | Сообщение # 125 |
|
Группа: Удаленные
| а как правильно?
|
| |
| |
| 12121 | Дата: Пятница, 05.06.2009, 22:27 | Сообщение # 126 |
|
Программист
Группа: Проверенные
Сообщений: 357
| repeat поставь после загрузки картинок. Сразу после него сделай очистку экрана.
Убери все repaint кроме одного который поставь вместо того repeat который сейчас
|
| |
| |
| Ph@ntom | Дата: Воскресенье, 07.06.2009, 15:57 | Сообщение # 127 |
|
Группа: Удаленные
| прощу кому не затруднит написать код программы чтобы приложение работало так как эта анимация?
Сообщение отредактировал Ph@ntom - Воскресенье, 07.06.2009, 18:22 |
| |
| |
| 12121 | Дата: Воскресенье, 07.06.2009, 19:42 | Сообщение # 128 |
|
Программист
Группа: Проверенные
Сообщений: 357
| Посмотри мой пример в конце этой темы
http://mobilepascal.ucoz.ru/forum/4-138-1
|
| |
| |
| Ph@ntom | Дата: Воскресенье, 14.06.2009, 15:19 | Сообщение # 129 |
|
Группа: Удаленные
| а как создать градиент (плавный переход от одного цвета в другой)?
Сообщение отредактировал Ph@ntom - Воскресенье, 14.06.2009, 15:19 |
| |
| |
| admin | Дата: Воскресенье, 14.06.2009, 19:57 | Сообщение # 130 |
|
Admin
Группа: Администраторы
Сообщений: 244
| Ну мона воспользоваться либой, либо написать код что-то типа
Сначало ставишь цвет Setcolor(r,g,b) - где r,g,b увеличиваешь циклом
|
| |
| |
| 95worm6892 | Дата: Пятница, 10.07.2009, 16:38 | Сообщение # 131 |
|
Группа: Удаленные
| А кто знает как шрифты (png) прикручивать к тексту.И как ипортировать текст из файла, чтобы быстро?
|
| |
| |
| admin | Дата: Пятница, 10.07.2009, 18:53 | Сообщение # 132 |
|
Admin
Группа: Администраторы
Сообщений: 244
| Чтобы быстро текст - Либ_Реслоад
Чтобы подразумеваешь под"прикручивать к тексту"?? Подключать Штоль??
|
| |
| |
| 95worm6892 | Дата: Четверг, 16.07.2009, 19:43 | Сообщение # 133 |
|
Группа: Удаленные
| Quote (ADMIN) Чтобы быстро текст - Либ_Реслоад Чтобы подразумеваешь под"прикручивать к тексту"?? Подключать Штоль??
Ну чтобы текст был написан шрифтом который я сделаю в (png). Очень часто в играх это встречается. И еще вопрос как сделать, чтобы полоса(ы) в телефоне не появлялись (экран чистым был)? И какая команда для Либ_Реслоад нужна?
|
| |
| |
| admin | Дата: Пятница, 17.07.2009, 17:40 | Сообщение # 134 |
|
Admin
Группа: Администраторы
Сообщений: 244
| Quote (95worm6892) Ну чтобы текст был написан шрифтом который я сделаю в (png).
Ну это либа font32 там пример но все подробно обьясняет, А ты на каком тестишь телефоне??
Я знаю, что на самсунгах такая фигня с некоторыми шрифтами есть - попробуй другой шрифт задействовать
|
| |
| |
| 95worm | Дата: Среда, 22.07.2009, 16:30 | Сообщение # 135 |
 Новичок
Группа: Пользователи
Сообщений: 11
Награды: 0
Репутация:
« 0 »
Статус: Offline
| Aгa попробую. Кaк рaз у мeня сaмсунг.
|
| |
| |
|
