Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ADMIN, Nextik  
Вывод сообщения
12121Дата: Четверг, 01.01.2009, 17:40 | Сообщение # 1
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Маленькая процедурка для вывода сообщений. Пробуем .
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
Награды: 2
Репутация: « 594 »
Статус: Offline
Спасибо. Вещь нужная. а о KEmulator ми знаем. тож хорошая вещь. cool
 
13GetДата: Четверг, 01.01.2009, 21:22 | Сообщение # 3
Новичок
Группа: Пользователи
Сообщений: 19
Награды: 0
Репутация: « 0 »
Статус: Offline
12121, Спасибо. нормальная вещь. Тока попробуй сделать ешо так, што би если текст виходит за предели экрана, то перенести на следующую строку продолжение. Вот тут в конше админ кинул пример миллионера, но надо сделать штоб если текст >, то перенести. Попробуй сделать. А за прошедуру пасибки wacko
 
netgothДата: Среда, 22.04.2009, 10:19 | Сообщение # 4
Группа: Удаленные





12121
Спасибо.
Замечательная идея решения проблемы good
 
  • Страница 1 из 1
  • 1
Поиск: