| 12121 | Дата: Четверг, 01.01.2009, 17:40 | Сообщение # 1 |
|
Программист
Группа: Проверенные
Сообщений: 357
| Маленькая процедурка для вывода сообщений. Пробуем .
procedure soob(t: string);
var n,m,r,n1: integer;
begin
n:= getStringWidth(t);m:= getStringHeight(t);{ n - ширина m - высота строки текста }
setColor(145,135,255);fillrect((getWidth - n) / 2-5,(getHeight - m) / 2-5,n+10,m+10);{ очищаем прямоугольник под текст }
setColor(140,10,35); if n<=getWidth then drawText(t, (getWidth - n) / 2,(getHeight - m) / 2); { центруем и печатаем если целиком помещается на экране }
else begin r:=n-getWidth; for n1:=0 to r do begin { вычисляем сколько пикселей не влезло }
setColor(145,135,255);fillrect((getWidth - n) / 2-3,(getHeight - m) / 2-3,n+6,m+6); { если не очистить просто смажется }
setColor(140,10,35);drawText(t,0-n1,(getHeight - m) / 2);repaint; delay(10);{ центруем и печатаем }
if n1=0 then delay(2000);end;end; { задержка что б прочесть начало строки }
repaint;delay(2000);
end;
begin
soob('сообщение');
soob('KEmulator Lite v0.9.7 это хороший эмулятор телефона. Рекомендую');
delay (20000); end.
Сообщение отредактировал 12121 - Четверг, 01.01.2009, 17:53 |
| |
| |
| admin | Дата: Четверг, 01.01.2009, 21:06 | Сообщение # 2 |
 Admin
Группа: Администраторы
Сообщений: 244
| Спасибо. Вещь нужная. а о KEmulator ми знаем. тож хорошая вещь. 
|
| |
| |
| 13Get | Дата: Четверг, 01.01.2009, 21:22 | Сообщение # 3 |
 Новичок
Группа: Пользователи
Сообщений: 19
Награды: 0
Репутация:
« 0 »
Статус: Offline
| 12121, Спасибо. нормальная вещь. Тока попробуй сделать ешо так, што би если текст виходит за предели экрана, то перенести на следующую строку продолжение. Вот тут в конше админ кинул пример миллионера, но надо сделать штоб если текст >, то перенести. Попробуй сделать. А за прошедуру пасибки 
|
| |
| |
| netgoth | Дата: Среда, 22.04.2009, 10:19 | Сообщение # 4 |
|
Группа: Удаленные
| 12121
Спасибо.
Замечательная идея решения проблемы 
|
| |
| |
