|
Основной форум Сюда все проблемы связанные с программированием. |
15.07.2008, 12:07
|
#1
|
Нуждающийся
Регистрация: 03.07.2008
Сообщений: 57
Написано 0 полезных сообщений (для 0 пользователей)
|
Фон в Кавас!
Народ подскажите как изменить фон в кавас?
|
(Offline)
|
|
15.07.2008, 14:07
|
#2
|
Оператор ЭВМ
Регистрация: 05.07.2008
Сообщений: 30
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Фон в Кавас!
Почитайка справку
|
(Offline)
|
|
15.07.2008, 14:47
|
#3
|
Нуждающийся
Регистрация: 07.07.2008
Адрес: Zp-UA
Сообщений: 58
Написано 4 полезных сообщений (для 11 пользователей)
|
Ответ: Фон в Кавас!
formAddImage
function formAddImage(i:image):integer;
Вставляет изображение на форму. Функция возвращает ID вставленного изображения.
var
image_id: integer;
begin
image_id := formAddImage(loadImage('/logo.png'));
showForm;
delay(2000);
end.
См. также: showForm, formRemove
|
Лень глянуть?
|
(Offline)
|
|
15.07.2008, 15:03
|
#4
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Фон в Кавас!
Сообщение от KeipL
Лень глянуть?
|
При чем здесь форма?
И вообще, что подразумевается под изменением фона - заливка цветом или вывод фонового изображения?
Если заливка - нужно просто перед рисованием основного изображения нарисовать на канвасе прямоугольник нужного цвета на весь экран, если изображение, то нужно вывести его с помощью DrawImage, и потом рисовать на нем.
|
(Offline)
|
|
15.07.2008, 15:11
|
#5
|
Нуждающийся
Регистрация: 03.07.2008
Сообщений: 57
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Фон в Кавас!
Сообщение от ViNT
При чем здесь форма?
И вообще, что подразумевается под изменением фона - заливка цветом или вывод фонового изображения?
Если заливка - нужно просто перед рисованием основного изображения нарисовать на канвасе прямоугольник нужного цвета на весь экран, если изображение, то нужно вывести его с помощью DrawImage, и потом рисовать на нем.
|
Ну над чтоб полнотью во всей проге задний фон был голубого цвета!
|
(Offline)
|
|
15.07.2008, 15:34
|
#6
|
Разработчик
Регистрация: 06.04.2008
Сообщений: 541
Написано 196 полезных сообщений (для 637 пользователей)
|
Ответ: Фон в Кавас!
Если пользуешься не формой, а канвой, то просто при перерисовке в начале пишешь:
SetColor(0,0,127);
FillRect(0,0,ScrW,ScrH);
Где ScrW, ScrH- ширина и высота экрана.
|
(Offline)
|
|
15.07.2008, 15:55
|
#7
|
Нуждающийся
Регистрация: 03.07.2008
Сообщений: 57
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Фон в Кавас!
ещё вопросик как сделать обновления DrawText вот например:
пишу ААА потом пишу БББ. и происходит наложение а не замена текста(
DrawText('ААА', 0, 0);
Delay(2000);
DrawText('БББ', 0, 0);
Repaint;
Delay(1000);
Последний раз редактировалось Seregakz, 15.07.2008 в 16:05.
|
(Offline)
|
|
15.07.2008, 16:37
|
#8
|
Разработчик
Регистрация: 06.04.2008
Сообщений: 541
Написано 196 полезных сообщений (для 637 пользователей)
|
Ответ: Фон в Кавас!
Точно так же: зарисовываешь весь экран прямоугольником, а потом рисуешь все, что нужно. Вообще, обычно перед обновлением экрана принято так делать.
|
(Offline)
|
|
15.07.2008, 16:44
|
#9
|
Нуждающийся
Регистрация: 03.07.2008
Сообщений: 57
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Фон в Кавас!
плз приведи пример исходником =)
прост мне надо будет постоянно менять этот текст.
вот на этом исправь как надо:
Program NewProjectNEW; Begin DrawText('Привет!', 5, 5); Delay(2000); DrawText('ППППППП', 5, 5); Repaint; Delay(999999999); End.
|
(Offline)
|
|
15.07.2008, 17:10
|
#10
|
Оператор ЭВМ
Регистрация: 11.11.2007
Сообщений: 26
Написано 6 полезных сообщений (для 10 пользователей)
|
Ответ: Фон в Кавас!
Вот тебе пример:
Program NewProjectNEW; var ScrW,ScrH: integer; procedure cls; begin setcolor(0,0,127); fillrect(0,0,ScrW,ScrH); setcolor(255,255,255); end; Begin ScrW:=getwidth; ScrH:=getheight; cls; DrawText('Привет!', 5, 5); repaint; Delay(2000); cls; DrawText('ППППППП', 5, 5); Repaint; Delay(999999999); End.
|
(Offline)
|
|
15.07.2008, 17:15
|
#11
|
Нуждающийся
Регистрация: 03.07.2008
Сообщений: 57
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Фон в Кавас!
Сообщение от vitalik1
Вот тебе пример:
Program NewProjectNEW; var ScrW,ScrH: integer; procedure cls; begin setcolor(0,0,127); fillrect(0,0,ScrW,ScrH); setcolor(255,255,255); end; Begin ScrW:=getwidth; ScrH:=getheight; cls; DrawText('Привет!', 5, 5); repaint; Delay(2000); cls; DrawText('ППППППП', 5, 5); Repaint; Delay(999999999); End.
|
тута фон меняется а мне надо что ваше нечего не менялось кроме текста !!!!!!
чтоб фон был стандартной темы в телефоне!
|
(Offline)
|
|
15.07.2008, 17:26
|
#12
|
Оператор ЭВМ
Регистрация: 11.11.2007
Сообщений: 26
Написано 6 полезных сообщений (для 10 пользователей)
|
Ответ: Фон в Кавас!
Ну тогда или закрашивай только текст так:
setcolor(0,0,0); DrawText('Привет!', 5, 5); repaint; Delay(2000); setcolor(255,255,255);//цвет фона DrawText('Привет!', 5, 5); setcolor(0,0,0); DrawText('ППППППП', 5, 5); Repaint; Delay(999999999);
или так
setcolor(0,0,0); DrawText('Привет!', 5, 5); repaint; Delay(2000); setcolor(255,255,255);//цвет фона fillrect(5,5,getstringwidth('Привет!'),getstringheight('Привет!')); setcolor(0,0,0); DrawText('ППППППП', 5, 5); Repaint; Delay(999999999);
или перерисовывай все на экране
|
(Offline)
|
|
15.07.2008, 17:28
|
#13
|
Нуждающийся
Регистрация: 03.07.2008
Сообщений: 57
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Фон в Кавас!
Сообщение от vitalik1
Ну тогда или закрашивай только текст так:
setcolor(0,0,0); DrawText('Привет!', 5, 5); repaint; Delay(2000); setcolor(255,255,255);//цвет фона DrawText('Привет!', 5, 5); setcolor(0,0,0); DrawText('ППППППП', 5, 5); Repaint; Delay(999999999);
или так
setcolor(0,0,0); DrawText('Привет!', 5, 5); repaint; Delay(2000); setcolor(255,255,255);//цвет фона fillrect(5,5,getstringwidth('Привет!'),getstringheight('Привет!')); setcolor(0,0,0); DrawText('ППППППП', 5, 5); Repaint; Delay(999999999);
или перерисовывай все на экране
|
ну вот пример проги который мне нужен:
то есть без смены фона без смены цвета текста всё как обычно но чтоб прост меняло текст:
Program NewProjectNEW; Begin DrawText('Привет!', 5, 5); Delay(2000); DrawText('ППППППП', 5, 5); Repaint; Delay(999999999); End.
|
(Offline)
|
|
15.07.2008, 17:29
|
#14
|
Оператор ЭВМ
Регистрация: 11.11.2007
Сообщений: 26
Написано 6 полезных сообщений (для 10 пользователей)
|
Ответ: Фон в Кавас!
чтоб фон был стандартной темы в телефоне надо использовать формы
|
(Offline)
|
|
15.07.2008, 17:35
|
#15
|
Оператор ЭВМ
Регистрация: 11.11.2007
Сообщений: 26
Написано 6 полезных сообщений (для 10 пользователей)
|
Ответ: Фон в Кавас!
но если текст не затереть цветом фона то следующий текст наложиться на него
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 20:38.
|