Browse Source

Merged changes from original R&Q repo

Multimonitor-aware event tooltips
Fade animation for event, cl and chat tooltips
ICQ 8.3 XStatuses support
New XStatuses icons in RnQ.Theme and Fresh
Increased margins and paddings in chat
Elements alignment
Delphi XE8 compilation
oldchat
Mikanoshi 6 years ago
parent
commit
42d4a5cef8
68 changed files with 3747 additions and 2422 deletions
  1. +4
    -0
      .gitignore
  2. +1
    -0
      Distro/.gitignore
  3. +0
    -0
      Distro/RnQ1124_m.zLng
  4. +115
    -5
      Distro/RnQ1124_rus.utflng
  5. BIN
      Distro/Themes/Fresh.rtz
  6. BIN
      Distro/Themes/Fresh21.rtz
  7. BIN
      Distro/Themes/RnQ.Theme.rtz
  8. +16
    -15
      Distro/user.theme.ini
  9. +18
    -6
      README.html
  10. +0
    -1
      RnQ/.gitignore
  11. +156
    -261
      RnQ/ICQ/ICQConsts.pas
  12. +11
    -11
      RnQ/ICQ/ICQContacts.pas
  13. +79
    -59
      RnQ/ICQ/ICQv9.pas
  14. +4
    -6
      RnQ/ICQ/Protocol_ICQ.pas
  15. +2
    -2
      RnQ/ICQ/newaccountDlg.pas
  16. +214
    -212
      RnQ/ICQ/viewinfoDlg.dfm
  17. +3
    -4
      RnQ/ICQ/viewinfoDlg.pas
  18. +9
    -13
      RnQ/Prefs/antispam_fr.dfm
  19. +5
    -4
      RnQ/Prefs/chat_frOld.dfm
  20. +4
    -4
      RnQ/Prefs/connection_fr.dfm
  21. +30
    -21
      RnQ/Prefs/design_fr.dfm
  22. +3
    -0
      RnQ/Prefs/design_fr.pas
  23. +12
    -8
      RnQ/Prefs/other_fr.dfm
  24. +17
    -15
      RnQ/Prefs/tips_fr.dfm
  25. +3
    -3
      RnQ/Prefs/tips_fr.pas
  26. +24
    -0
      RnQ/Protocols_all.pas
  27. +2
    -2
      RnQ/RnQBuiltTime.inc
  28. +1
    -1
      RnQ/RnQConfig.inc
  29. +1
    -1
      RnQ/RnQMacros.pas
  30. +201
    -384
      RnQ/RnQTips.pas
  31. +6
    -6
      RnQ/RnQ_Avatars.pas
  32. +4
    -4
      RnQ/RnQdbDlg.pas
  33. +4
    -2
      RnQ/RnQx64.dpr
  34. +459
    -54
      RnQ/RnQx64.dproj
  35. +4
    -2
      RnQ/RnQx64.dproj.local
  36. BIN
      RnQ/RnQx64.res
  37. +380
    -395
      RnQ/StatusForm.pas
  38. +36
    -0
      RnQ/ViewHEventDlg.dfm
  39. +326
    -0
      RnQ/ViewHEventDlg.pas
  40. +7
    -7
      RnQ/aboutDlg.dfm
  41. +4
    -1
      RnQ/aboutDlg.pas
  42. +2
    -0
      RnQ/chatDlg.dfm
  43. +88
    -8
      RnQ/chatDlg.pas
  44. +9
    -12
      RnQ/clear.bat
  45. +2
    -2
      RnQ/globalLib.pas
  46. +19
    -20
      RnQ/historyVCL.pas
  47. +9
    -5
      RnQ/iniLib.pas
  48. +4
    -0
      RnQ/mainDlg.dfm
  49. +88
    -17
      RnQ/mainDlg.pas
  50. +2
    -2
      RnQ/prefDlg.pas
  51. +0
    -1
      RnQ/roasterLib.pas
  52. +0
    -22
      RnQ/tipDlg.dfm
  53. +0
    -477
      RnQ/tipDlg.pas
  54. +9
    -9
      RnQ/utilLib.pas
  55. +730
    -0
      for.RnQ/Compilers.inc
  56. +1
    -1
      for.RnQ/ForRnQConfig.inc
  57. +1
    -0
      for.RnQ/RQlog.dfm
  58. +6
    -0
      for.RnQ/RQlog.pas
  59. +8
    -8
      for.RnQ/RTL/RnQGraphics32.pas
  60. +13
    -153
      for.RnQ/RnQButtons.pas
  61. +52
    -7
      for.RnQ/RnQSysUtils.pas
  62. +9
    -25
      for.RnQ/clear.bat
  63. +3
    -4
      for.RnQ/for_rnq.dpk
  64. +349
    -20
      for.RnQ/for_rnq.dproj
  65. +13
    -13
      for.RnQ/for_rnq.dproj.local
  66. BIN
      for.RnQ/for_rnq.res
  67. +7
    -0
      for.RnQ/tipDlg.dfm
  68. +158
    -107
      for.RnQ/tipDlg.pas

+ 4
- 0
.gitignore View File

@ -0,0 +1,4 @@
*.identcache
*.stat
*.dproj.local
*.mes

+ 1
- 0
Distro/.gitignore View File

@ -1,6 +1,7 @@
/666666/
/plugins/
*.map
*.rsm
*.drc
*.ini.bak
common.ini


Distro/RnQ1110_m.zLng → Distro/RnQ1124_m.zLng View File


Distro/RnQ1110_rus.utflng → Distro/RnQ1124_rus.utflng View File

@ -7,7 +7,7 @@
######## Значительные изменения - Аркадий Русинов, 19.01.2007.
######## Многие строки изменены, также добавлено несколько новых, ранее не переводившихся
######## Добавлены строки для кастомной сборки - Mikanoshi, ICQ 230-490, 2014.
######## Добавлены строки для кастомной сборки - Mikanoshi, ICQ 230-490, 2014-2015.
######## Антиспам тексты изменены по моему вкусу :)
######## Users #########
@ -140,13 +140,13 @@ UIN нового пользователя
[N/A]
Недоступен
[Evil]
Злой
Дьявольски злой
[Depression]
Депрессия
[na]
Недоступен
[&Evil]
Злой
Дьявольски злой
[&Depression]
Депрессия
[At work]
@ -392,6 +392,8 @@ R&&Q проигрыватель
Переименовать
[Delete]
Удалить
[Delete selected]
Удалить выделенное
[Delete only history]
Удалить только историю
[Delete with history]
@ -503,7 +505,7 @@ HTML
[(multi-send)]
(Отправлено списком)
[%2:s %0:s, %1:s]
%2:s %0:s, %1:s
%2:s %0:s, %1:s
[%2:s %0:s, %1:s is online]
%2:s %0:s, %1:s онлайн
[%2:s %0:s, %1:s is offline]
@ -626,8 +628,114 @@ GMT
Пью кофе/чай
[Music]
Слушаю музыку
[Wrong number]
Ошиблись номером
[Squirrel]
Белочка
[Death]
Помираю
[Shrimp]
Йа креведко
[Thumbs up]
Палец вверх
[Thumbs down]
Палец вниз
[Fig]
Фигушки
[Leprechaun]
Лепрекон
[Basketball]
Баскетбол
[Dog]
Гав
[Pig]
Свинтус
[Sumo]
Сумоист
[Pacifier]
Младенец
[Black face]
Чернее ночи
[Cyclops]
Одноглазый
[Pink face]
Розовощёкий
[Balloons]
Это просто праздник какой-то!
[Riding]
Двухколёсный
[Monkey]
Обезьянничаю
[Angel]
Я просто ангел
[Groucho glasses]
Изображаю комика
[Moustache]
Отращиваю усищи
[Console games]
Консольные игры
[Dollar sign]
Here comes the money!
[Fist]
В челюсть!
[Cat]
Мур
[Rolls]
Роллы
[Ladybug]
Полети на небо
[Football]
Футбол
[Ice cream]
Кушаю мороженку
[Arrow heart]
Влюблён
[Strawberry]
Клубничка
[Donut]
Кушаю пончик
[Tongue]
Язык :P
[Broken heart]
Разбитое сердце
[Hipster]
Хипстер
[Pizza]
Поглощаю пиццу
[Lollipop]
Сосу леденец
[Candy]
Хочу сладостей
[Fuck you]
Отвалите
[Fuck you too]
Пошли вы все
[In the woods]
Я потерялся
[Overexcited]
Схожу с ума
[Alien]
Я - инопланетный разум
[With friends]
С друзьями
[Cool]
Я крут
[Chicken]
Я цыпа
[Burger]
Жру
[Business]
Бизнес
[Where am I?]
Где я?
[Cooking]
Готовлю
[Bathing]
Купаюсь
[Asleep]
Засыпаю
[Rocket]
Ракета
[Camera]
В кино
[Games]
@ -2903,6 +3011,8 @@ URL
Показывать доп. статус в меню выбора статуса
[Show XStatus as main status]
Использовать доп. статус как основной
[Show new XStatuses]
Показывать новые доп. статусы
[Extended drawing menu]
Меню с улучшенной прорисовкой
[Use system default codepage for clipboard]
@ -3310,7 +3420,7 @@ RQ-водство
# НЕПЕРЕВОДИМЫЕ
[http://RnQ.ru]
ХТТП://РнКу.ру
http://RnQ.ru
[Typing Notifications]
Оповещение о наборе текста
[none]

BIN
Distro/Themes/Fresh.rtz View File


BIN
Distro/Themes/Fresh21.rtz View File


BIN
Distro/Themes/RnQ.Theme.rtz View File


+ 16
- 15
Distro/user.theme.ini View File

@ -1,7 +1,7 @@
[contact]
font.color=333333
font.size=8
font.name=Tahoma
font.name=Arial
font.charset=DEFAULT_CHARSET
font.style=b
@ -13,21 +13,21 @@ tab.active.font.name=Ms Sans Serif
tab.active.font.charset=RUSSIAN_CHARSET
[menu]
selected.color=CFCFCF
smiles.selected.color=DEDEDE
smiles.selected.frame.color=969696
selected.color=dedede
smiles.selected.color=e4e4e4
smiles.selected.frame.color=bbbbbb
[button]
bg.selected.color=DEDEDE
frame.selected.color=969696
bg.selected.color=e4e4e4
frame.selected.color=bbbbbb
[roaster]
selection.color=DEDEDE
selection.color=e4e4e4
online.font.color=333333
offline.font.color=clGray
hint.color=F2F2F2
hint.border.color=969696
hint.color=f4f4f4
hint.border.color=bbbbbb
font.color=606060
font.size=10
@ -35,18 +35,19 @@ font.name=Verdana
font.charset=DEFAULT_CHARSET
group.font.color=565656
group.font.size=9
group.font.size=10
group.font.name=Verdana
group.font.charset=RUSSIAN_CHARSET
divisor.font.color=969696
divisor.font.color=a0a0a0
divisor.font.size=8
divisor.font.name=Verdana
divisor.font.charset=RUSSIAN_CHARSET
group.num.font.color=646464
group.num.font.size=9
group.num.font.name=Arial
group.num.font.size=10
group.num.font.name=Verdana
group.num.font.style=
group.num.font.charset=DEFAULT_CHARSET
[history]
@ -75,13 +76,13 @@ his.quoted.font.charset=DEFAULT_CHARSET
[tip]
font.color=555555
font.size=10
font.size=9
font.name=Verdana;Arial
font.charset=DEFAULT_CHARSET
bg.color=F1F1F1
border.color=CFCFCF
caption.color=F1F1F1
contact.font.color=555555
contact.font.size=10
contact.font.size=9
contact.font.name=Verdana;Arial
contact.font.charset=DEFAULT_CHARSET

+ 18
- 6
README.html View File

@ -1,8 +1,8 @@
<div style="line-height: 150%;">
<h1>R&Q 1124 Кастомная сборка</h1>
Номер сборки: 14<br>
Последнее обновление: 02.09.2014
Номер сборки: 15<br>
Последнее обновление: 25.07.2015
<br /><div style="width: 100%; height: 1px; border-top: #D3D3D3 solid 1px;"></div><br />
<u>Особенности сборки</u><br>
@ -19,16 +19,17 @@ frame.selected.color=969696
smiles.selected.color=DEDEDE
smiles.selected.frame.color=969696</pre></blockquote>
- Добавлена поддержка отображения <a href="https://developers.google.com/speed/webp/docs/webp_codec" target="_blank">WEBP</a>, ICO и TIFF в чате, открытие изображений в отдельном окне двойным щелчком или из выпадающего меню<br>
- Добавлена поддержка доп. статусов из официального клиента ICQ
- Полностью изменены заголовки вкладок чата, вместо прежних теперь кнопки, похожие на SpeedButton, переменные выше также задают цвет выделения и для них.<br>
- Полностью выпилен RTTI юнит из exe<br>
- Эффекты затухания при показе всплывающих подсказок<br>
- Значительно уменьшен размер RTTI юнита в exe<br>
- Улучшена отзывчивость интерфейса при запуске<br>
- Исправлена опция сохранения пароля в виде MD5 хэша<br>
- Функция проверки обновлений теперь сверяется с данным репо. При включении проверки версий для бета-тестеров будет проверятся номер билда, иначе - только номер основной версии.<br>
- Функция проверки обновлений теперь сверяется с данным репо. При включении проверки версий для бета-тестеров будет проверятся номер билда, иначе - только номер основной версии (которая уже давно не меняется, поэтому лучше оставить проверку билда).<br>
- Доступны 32- и 64-битные версии (сжаты UPX и MPRESS соответственно)
<br><br>
<a href="http://code.highspec.ru/Mikanoshi/rnq/blob/master/Distro/R%26Q.exe" target="_blank"><u>Скачать 32-бит exe</u></a><br>
<a href="http://code.highspec.ru/Mikanoshi/rnq/blob/master/Distro/R%26Qx64.exe" target="_blank"><u>Скачать 64-бит exe</u></a><br>
Остальные файлы дистрибутива можно найти в папке Distro.<br>
Остальные файлы дистрибутива можно найти <a href="http://code.highspec.ru/Mikanoshi/rnq/tree/master/Distro">в папке Distro</a>.<br>
В зависимости от версии нужно скопировать библиотеки из папки x32 или x64 в папку с exe.<br>
<a href="http://code.highspec.ru/Mikanoshi/rnq/blob/master/Distro/user.theme.ini" target="_blank">Настройки тем как на скрине ниже</a>
@ -38,6 +39,17 @@ smiles.selected.frame.color=969696</pre></blockquote>
<br><br>
<h2>История версий</h2>
1124 Сборка 15<br>
- Добавлены последние изменения из <a target="_blank" href="https://github.com/drapid/rnq">оригинального репо</a><br>
- Смещение иконки только вниз при нажатии на кнопки<br>
- Появление подсказок на том же экране, что и КЛ; отступы также относительно границ этого экрана<br>
- Анимация затухания при появлении и скрытии подсказок (для КЛ и чата - только при появлении)<br>
- Поддержка доп. статусов из ICQ 8.3 (в настройках можно включить возможность выставлять статусы, которые будут видны только в данной сборке R&Q и оф. клиенте)<br>
- Добавлены новые иконки доп. статусов в стандартную тему оформления и в тему Fresh 3.0<br>
- Увеличены отступы от границ окна и между сообщениями в чате<br>
- Выровнено положение многих элементов<br>
- Скомпилировано в Delphi XE8 с изменёнными исходниками RTL для уменьшения размера exe (RTTI юнит = 12-22 КБ)<br>
1124 Сборка 14<br>
- Исправлена подсказака при наведении на вкладку чата<br>
- Исправлено мигание аватара в чате<br>


+ 0
- 1
RnQ/.gitignore View File

@ -1 +0,0 @@
*.identcache

+ 156
- 261
RnQ/ICQ/ICQConsts.pas View File

@ -256,6 +256,7 @@ CAPS_sm_UTF8 = 14;
CAPS_big_MTN = 3;
CAPS_big_SecIM = 4;
CAPS_sm_Avatar = 15;
CAPS_sm_BuddyIcon = 17;
CAPS_big_Xtraz = 6;
CAPS_sm_FILE_TRANSFER = 20;
CAPS_BIG_Xtraz5 = 20;
@ -627,6 +628,7 @@ const
BART_TYPE_STATUS_STR_TOD = 13; // Time when the status string is set
BART_TYPE_STATUS_MOOD = 14; // $0E
BART_TYPE_CURRENT_AV_TRACK = 15; // XML file; Data flag should not be set
BART_TYPE_XSTATUS = 16; // Just a guess :)
// BART_TYPE_DEPART_SOUND 96 WAV/MP3/MID, <= 10K
// BART_TYPE_IM_CHROME 129 GIF/JPG/BMP wallpaper
// BART_TYPE_IM_SOUND 131 WAV/MP3, <= 10K
@ -734,276 +736,169 @@ const
'AUTH_ERR_SECUREID_MISSING', // upd 2006
'AUTH_ERR_BUMP_USER'); // upd 2006
{
const
OldXStatus : array[0..36] of record pid : String[16];
PicName : AnsiString;
Caption : String;
end =
((pid: '';
PicName: 'st_custom.none'; Caption: 'None'),
(pid: #$01#$D8#$D7#$EE#$AC#$3B#$49#$2A#$A5#$8D#$D3#$D8#$77#$E6#$6B#$92;
PicName: 'st_custom.angry'; Caption: 'Angry'),
(pid: #$5A#$58#$1E#$A1#$E5#$80#$43#$0C#$A0#$6F#$61#$22#$98#$B7#$E4#$C7;
PicName: 'st_custom.duck'; Caption: 'Duck'),
(pid: #$83#$c9#$b7#$8e#$77#$e7#$43#$78#$b2#$c5#$fb#$6c#$fc#$c3#$5b#$ec;
PicName: 'st_custom.tired'; Caption: 'Tired'),
(pid: #$e6#$01#$e4#$1c#$33#$73#$4b#$d1#$bc#$06#$81#$1d#$6c#$32#$3d#$81;
PicName: 'st_custom.party'; Caption: 'Party'),
(pid: #$8c#$50#$db#$ae#$81#$ed#$47#$86#$ac#$ca#$16#$cc#$32#$13#$c7#$b7;
PicName: 'st_custom.beer'; Caption: 'Beer'),
(pid: #$3f#$b0#$bd#$36#$af#$3b#$4a#$60#$9e#$ef#$cf#$19#$0f#$6a#$5a#$7f;
PicName: 'st_custom.thinking'; Caption: 'Thinking'),
(pid: #$f8#$e8#$d7#$b2#$82#$c4#$41#$42#$90#$f8#$10#$c6#$ce#$0a#$89#$a6;
PicName: 'st_custom.eating'; Caption: 'Eating'),
(pid: #$80#$53#$7d#$e2#$a4#$67#$4a#$76#$b3#$54#$6d#$fd#$07#$5f#$5e#$c6;
PicName: 'st_custom.tv'; Caption: 'TV'),
(pid: #$f1#$8a#$b5#$2e#$dc#$57#$49#$1d#$99#$dc#$64#$44#$50#$24#$57#$af;
PicName: 'st_custom.friends'; Caption: 'Friends'),
(pid: #$1b#$78#$ae#$31#$fa#$0b#$4d#$38#$93#$d1#$99#$7e#$ee#$af#$b2#$18;
PicName: 'st_custom.coffee'; Caption: 'Coffee'),
(pid: #$61#$BE#$E0#$DD#$8B#$DD#$47#$5D#$8D#$EE#$5F#$4B#$AA#$CF#$19#$A7;
PicName: 'st_custom.music'; Caption: 'Music'),
(pid: #$48#$8e#$14#$89#$8a#$ca#$4a#$08#$82#$aa#$77#$ce#$7a#$16#$52#$08;
PicName: 'st_custom.business'; Caption: 'Business'),
(pid: #$10#$7a#$9a#$18#$12#$32#$4d#$a4#$b6#$cd#$08#$79#$db#$78#$0f#$09;
PicName: 'st_custom.camera'; Caption: 'Camera'),
(pid: #$6f#$49#$30#$98#$4f#$7c#$4a#$ff#$a2#$76#$34#$a0#$3b#$ce#$ae#$a7;
PicName: 'st_custom.funny'; Caption: 'Funny'),
(pid: #$12#$92#$e5#$50#$1b#$64#$4f#$66#$b2#$06#$b2#$9a#$f3#$78#$e4#$8d;
PicName: 'st_custom.phone'; Caption: 'Phone'),
(pid: #$d4#$a6#$11#$d0#$8f#$01#$4e#$c0#$92#$23#$c5#$b6#$be#$c6#$cc#$f0;
PicName: 'st_custom.games'; Caption: 'Games'),
(pid: #$60#$9d#$52#$f8#$a2#$9a#$49#$a6#$b2#$a0#$25#$24#$c5#$e9#$d2#$60;
PicName: 'st_custom.college'; Caption: 'College'),
(pid: #$63#$62#$73#$37#$a0#$3f#$49#$ff#$80#$e5#$f7#$09#$cd#$e0#$a4#$ee;
PicName: 'st_custom.shopping'; Caption: 'Shopping'),
(pid: #$1f#$7a#$40#$71#$bf#$3b#$4e#$60#$bc#$32#$4c#$57#$87#$b0#$4c#$f1;
PicName: 'st_custom.sick'; Caption: 'Sick'),
(pid: #$78#$5e#$8c#$48#$40#$d3#$4c#$65#$88#$6f#$04#$cf#$3f#$3f#$43#$df;
PicName: 'st_custom.sleeping'; Caption: 'Sleeping'),
(pid: #$a6#$ed#$55#$7e#$6b#$f7#$44#$d4#$a5#$d4#$d2#$e7#$d9#$5c#$e8#$1f;
PicName: 'st_custom.surfing'; Caption: 'Surfing'),
(pid: #$12#$d0#$7e#$3e#$f8#$85#$48#$9e#$8e#$97#$a7#$2a#$65#$51#$e5#$8d;
PicName: 'st_custom.internet'; Caption: 'Internet'),
(pid: #$ba#$74#$db#$3e#$9e#$24#$43#$4b#$87#$b6#$2f#$6b#$8d#$fe#$e5#$0f;
PicName: 'st_custom.engineering'; Caption: 'Engineering'),
(pid: #$63#$4f#$6b#$d8#$ad#$d2#$4a#$a1#$aa#$b9#$11#$5b#$c2#$6d#$05#$a1;
PicName: 'st_custom.typing'; Caption: 'Typing'),
(pid: #$2C#$E0#$E4#$E5#$7C#$64#$43#$70#$9C#$3A#$7A#$1C#$E8#$78#$A7#$DC;
PicName: 'st_custom.unk'; Caption: 'Barbecue'),
(pid: #$10#$11#$17#$C9#$A3#$B0#$40#$f9#$81#$AC#$49#$E1#$59#$FB#$D5#$D4;
PicName: 'st_custom.ppc'; Caption: 'PPC'),
(pid: #$16#$0C#$60#$BB#$DD#$44#$43#$f3#$91#$40#$05#$0F#$00#$E6#$C0#$09;
PicName: 'st_custom.mobile'; Caption: 'Mobile'),
(pid: #$64#$43#$C6#$AF#$22#$60#$45#$17#$B5#$8C#$D7#$DF#$8E#$29#$03#$52;
PicName: 'st_custom.man'; Caption: 'Man'),
(pid: #$16#$F5#$B7#$6F#$A9#$D2#$40#$35#$8C#$C5#$C0#$84#$70#$3C#$98#$FA;
PicName: 'st_custom.wc'; Caption: 'WC'),
//QIP
(pid: #$63#$14#$36#$FF#$3F#$8A#$40#$D0#$A5#$CB#$7B#$66#$E0#$51#$B3#$64;
PicName: 'st_custom.quest'; Caption: 'Quest'),
(pid: #$B7#$08#$67#$F5#$38#$25#$43#$27#$A1#$FF#$CF#$4C#$C1#$93#$97#$97;
PicName: 'st_custom.geometry'; Caption: ''),
(pid: #$DD#$CF#$0E#$A9#$71#$95#$40#$48#$A9#$C6#$41#$32#$06#$D6#$F2#$80;
PicName: 'st_custom.love'; Caption: 'Love'),
// In R&Q added :)))
(pid: #$3f#$b0#$bd#$36#$af#$3b#$4a#$60#$9e#$ef#$cf#$19#$0f#$6a#$5a#$7E;
PicName: 'st_custom.cigarette'; Caption: 'Smoking'),
(pid: #$e6#$01#$e4#$1c#$33#$73#$4b#$d1#$bc#$06#$81#$1d#$6c#$32#$3d#$82;
PicName: 'st_custom.sex'; Caption: 'Sex'),
// pid: #$3E#$DD#$CF#$0E#$A9#$71#$95#$40#$48#$A9#$C6#$41#$32#$06#$D6#$F2;
// PicName: 'st_custom.'; Caption:
(pid: #$D4#$E2#$B0#$BA#$33#$4E#$4F#$A5#$98#$D0#$11#$7D#$BF#$4D#$3C#$C8;
PicName: 'st_custom.search'; Caption:'In search'),
(pid: #$00#$72#$D9#$08#$4A#$D1#$43#$DD#$91#$99#$6F#$02#$69#$66#$02#$6F;
PicName: 'st_custom.diary'; Caption:'Diary')
);
XStatus6 : array[0..26] of record pid : AnsiString;
PicName : AnsiString;
Caption : String;
end =
((pid: '';
PicName: 'st_custom.none'; Caption: 'None'),
(pid: 'icqmood23';
PicName: 'st_custom.angry'; Caption: 'Angry'),
(pid: 'icqmood1';
PicName: 'st_custom.duck'; Caption: 'Duck'),
(pid: 'icqmood2';
PicName: 'st_custom.tired'; Caption: 'Tired'),
(pid: 'icqmood3';
PicName: 'st_custom.party'; Caption: 'Party'),
(pid: 'icqmood4';
PicName: 'st_custom.beer'; Caption: 'Beer'),
(pid: 'icqmood5';
PicName: 'st_custom.thinking'; Caption: 'Thinking'),
(pid: 'icqmood6';
PicName: 'st_custom.eating'; Caption: 'Eating'),
(pid: 'icqmood7';
PicName: 'st_custom.tv'; Caption: 'TV'),
(pid: 'icqmood8';
PicName: 'st_custom.friends'; Caption: 'Friends'),
(pid: 'icqmood9';
PicName: 'st_custom.coffee'; Caption: 'Coffee'),
(pid: 'icqmood10';
PicName: 'st_custom.music'; Caption: 'Music'),
(pid: 'icqmood11';
PicName: 'st_custom.business'; Caption: 'Business'),
(pid: 'icqmood12';
PicName: 'st_custom.camera'; Caption: 'Camera'),
(pid: 'icqmood13';
PicName: 'st_custom.funny'; Caption: 'Funny'),
(pid: 'icqmood14';
PicName: 'st_custom.phone'; Caption: 'Phone'),
(pid: 'icqmood15';
PicName: 'st_custom.games'; Caption: 'Games'),
(pid: 'icqmood16';
PicName: 'st_custom.college'; Caption: 'College'),
(pid: 'icqmood0';
PicName: 'st_custom.shopping'; Caption: 'Shopping'),
(pid: 'icqmood17';
PicName: 'st_custom.sick'; Caption: 'Sick'),
(pid: 'icqmood18';
PicName: 'st_custom.sleeping'; Caption: 'Sleeping'),
(pid: 'icqmood19';
PicName: 'st_custom.surfing'; Caption: 'Surfing'),
(pid: 'icqmood20';
PicName: 'st_custom.internet'; Caption: 'Internet'),
(pid: 'icqmood21';
PicName: 'st_custom.engineering'; Caption: 'Engineering'),
(pid: 'icqmood22';
PicName: 'st_custom.typing'; Caption: 'Typing'),
// In R&Q added :)))
(pid: 'icqmood32';
PicName: 'st_custom.cigarette'; Caption: 'Smoking'),
(pid: 'icqmood33';
PicName: 'st_custom.sex'; Caption: 'Sex')
);
}
type
XStatusFlags = (xsf_Old, xsf_6);
XStatusFlagsSet = set of XStatusFlags;
const
XStatusArray:
array [0 .. 43] of record flags: XStatusFlagsSet;
pidOld:
RawByteString;
pid6:
RawByteString;
PicName:
TPicName;
Caption:
String;
XStatusArray: array [0 .. 98] of record flags: XStatusFlagsSet;
pidOld: RawByteString;
pid6: RawByteString;
PicName: TPicName;
Caption: String;
end
= ((flags: [xsf_Old, xsf_6]; pidOld: ''; pid6: ''; PicName: 'st_custom.none'; Caption: 'None'),
(flags: [xsf_Old, xsf_6];
pidOld: #$01#$D8#$D7#$EE#$AC#$3B#$49#$2A#$A5#$8D#$D3#$D8#$77#$E6#$6B#$92; pid6: 'icqmood23';
PicName: 'st_custom.angry'; Caption: 'Angry'), (flags: [xsf_Old, xsf_6];
pidOld: #$5A#$58#$1E#$A1#$E5#$80#$43#$0C#$A0#$6F#$61#$22#$98#$B7#$E4#$C7; pid6: 'icqmood1';
PicName: 'st_custom.duck'; Caption: 'Duck'), (flags: [xsf_Old, xsf_6];
pidOld: #$83#$c9#$b7#$8e#$77#$e7#$43#$78#$b2#$c5#$fb#$6c#$fc#$c3#$5b#$ec; pid6: 'icqmood2';
PicName: 'st_custom.tired'; Caption: 'Tired'), (flags: [xsf_Old, xsf_6];
pidOld: #$e6#$01#$e4#$1c#$33#$73#$4b#$d1#$bc#$06#$81#$1d#$6c#$32#$3d#$81; pid6: 'icqmood3';
PicName: 'st_custom.party'; Caption: 'Party'), (flags: [xsf_Old, xsf_6];
pidOld: #$8c#$50#$db#$ae#$81#$ed#$47#$86#$ac#$ca#$16#$cc#$32#$13#$c7#$b7; pid6: 'icqmood4';
PicName: 'st_custom.beer'; Caption: 'Beer'), (flags: [xsf_Old, xsf_6];
pidOld: #$3f#$b0#$bd#$36#$af#$3b#$4a#$60#$9e#$ef#$cf#$19#$0f#$6a#$5a#$7f; pid6: 'icqmood5';
PicName: 'st_custom.thinking'; Caption: 'Thinking'), (flags: [xsf_Old, xsf_6];
pidOld: #$f8#$e8#$d7#$b2#$82#$c4#$41#$42#$90#$f8#$10#$c6#$ce#$0a#$89#$a6; pid6: 'icqmood6';
PicName: 'st_custom.eating'; Caption: 'Eating'), (flags: [xsf_Old, xsf_6];
pidOld: #$80#$53#$7d#$e2#$a4#$67#$4a#$76#$b3#$54#$6d#$fd#$07#$5f#$5e#$c6; pid6: 'icqmood7';
PicName: 'st_custom.tv'; Caption: 'TV'), (flags: [xsf_Old, xsf_6];
pidOld: #$f1#$8a#$b5#$2e#$dc#$57#$49#$1d#$99#$dc#$64#$44#$50#$24#$57#$af; pid6: 'icqmood8';
PicName: 'st_custom.friends'; Caption: 'Friends'), (flags: [xsf_Old, xsf_6];
pidOld: #$1b#$78#$ae#$31#$fa#$0b#$4d#$38#$93#$d1#$99#$7e#$ee#$af#$b2#$18; pid6: 'icqmood9';
PicName: 'st_custom.coffee'; Caption: 'Coffee'), (flags: [xsf_Old, xsf_6];
pidOld: #$61#$BE#$E0#$DD#$8B#$DD#$47#$5D#$8D#$EE#$5F#$4B#$AA#$CF#$19#$A7; pid6: 'icqmood10';
PicName: 'st_custom.music'; Caption: 'Music'), (flags: [xsf_Old, xsf_6];
pidOld: #$48#$8e#$14#$89#$8a#$ca#$4a#$08#$82#$aa#$77#$ce#$7a#$16#$52#$08; pid6: 'icqmood11';
PicName: 'st_custom.business'; Caption: 'Business'), (flags: [xsf_Old, xsf_6];
pidOld: #$10#$7a#$9a#$18#$12#$32#$4d#$a4#$b6#$cd#$08#$79#$db#$78#$0f#$09; pid6: 'icqmood12';
PicName: 'st_custom.camera'; Caption: 'Camera'), (flags: [xsf_Old, xsf_6];
pidOld: #$6f#$49#$30#$98#$4f#$7c#$4a#$ff#$a2#$76#$34#$a0#$3b#$ce#$ae#$a7; pid6: 'icqmood13';
PicName: 'st_custom.funny'; Caption: 'Funny'), (flags: [xsf_Old, xsf_6];
pidOld: #$12#$92#$e5#$50#$1b#$64#$4f#$66#$b2#$06#$b2#$9a#$f3#$78#$e4#$8d; pid6: 'icqmood14';
PicName: 'st_custom.phone'; Caption: 'Phone'), (flags: [xsf_Old, xsf_6];
pidOld: #$d4#$a6#$11#$d0#$8f#$01#$4e#$c0#$92#$23#$c5#$b6#$be#$c6#$cc#$f0; pid6: 'icqmood15';
PicName: 'st_custom.games'; Caption: 'Games'), (flags: [xsf_Old, xsf_6];
pidOld: #$60#$9d#$52#$f8#$a2#$9a#$49#$a6#$b2#$a0#$25#$24#$c5#$e9#$d2#$60; pid6: 'icqmood16';
PicName: 'st_custom.college'; Caption: 'College'), (flags: [xsf_Old, xsf_6];
pidOld: #$63#$62#$73#$37#$a0#$3f#$49#$ff#$80#$e5#$f7#$09#$cd#$e0#$a4#$ee; pid6: 'icqmood0';
PicName: 'st_custom.shopping'; Caption: 'Shopping'), (flags: [xsf_Old, xsf_6];
pidOld: #$1f#$7a#$40#$71#$bf#$3b#$4e#$60#$bc#$32#$4c#$57#$87#$b0#$4c#$f1; pid6: 'icqmood17';
PicName: 'st_custom.sick'; Caption: 'Sick'), (flags: [xsf_Old, xsf_6];
pidOld: #$78#$5e#$8c#$48#$40#$d3#$4c#$65#$88#$6f#$04#$cf#$3f#$3f#$43#$df; pid6: 'icqmood18';
PicName: 'st_custom.sleeping'; Caption: 'Sleeping'), (flags: [xsf_Old, xsf_6];
pidOld: #$a6#$ed#$55#$7e#$6b#$f7#$44#$d4#$a5#$d4#$d2#$e7#$d9#$5c#$e8#$1f; pid6: 'icqmood19';
PicName: 'st_custom.surfing'; Caption: 'Surfing'), (flags: [xsf_Old, xsf_6];
pidOld: #$12#$d0#$7e#$3e#$f8#$85#$48#$9e#$8e#$97#$a7#$2a#$65#$51#$e5#$8d; pid6: 'icqmood20';
PicName: 'st_custom.internet'; Caption: 'Internet'), (flags: [xsf_Old, xsf_6];
pidOld: #$ba#$74#$db#$3e#$9e#$24#$43#$4b#$87#$b6#$2f#$6b#$8d#$fe#$e5#$0f; pid6: 'icqmood21';
PicName: 'st_custom.engineering'; Caption: 'Engineering'), (flags: [xsf_Old, xsf_6];
pidOld: #$63#$4f#$6b#$d8#$ad#$d2#$4a#$a1#$aa#$b9#$11#$5b#$c2#$6d#$05#$a1; pid6: 'icqmood22';
PicName: 'st_custom.typing'; Caption: 'Typing'),
// 25
(flags: [xsf_Old]; pidOld: #$2C#$E0#$E4#$E5#$7C#$64#$43#$70#$9C#$3A#$7A#$1C#$E8#$78#$A7#$DC;
PicName: 'st_custom.unk'; Caption: 'Barbecue'), (flags: [xsf_Old];
pidOld: #$10#$11#$17#$C9#$A3#$B0#$40#$f9#$81#$AC#$49#$E1#$59#$FB#$D5#$D4;
PicName: 'st_custom.ppc'; Caption: 'PPC'), (flags: [xsf_Old];
pidOld: #$16#$0C#$60#$BB#$DD#$44#$43#$f3#$91#$40#$05#$0F#$00#$E6#$C0#$09;
PicName: 'st_custom.mobile'; Caption: 'Mobile'), (flags: [xsf_Old];
pidOld: #$64#$43#$C6#$AF#$22#$60#$45#$17#$B5#$8C#$D7#$DF#$8E#$29#$03#$52;
PicName: 'st_custom.man'; Caption: 'Man'), (flags: [xsf_Old];
pidOld: #$16#$F5#$B7#$6F#$A9#$D2#$40#$35#$8C#$C5#$C0#$84#$70#$3C#$98#$FA; PicName: 'st_custom.wc';
Caption: 'WC'),
// QIP
// 30
= ((flags: [xsf_Old, xsf_6]; pidOld: ''; pid6: ''; PicName: 'st_custom.none'; Caption: 'None'),
(flags: [xsf_Old, xsf_6]; pidOld: #$16#$0C#$60#$BB#$DD#$44#$43#$f3#$91#$40#$05#$0F#$00#$E6#$C0#$09;
pid6: 'status_mobile'; PicName: 'st_custom.mailrumobile'; Caption: 'Mail.ru mobile'),
(flags: [xsf_Old, xsf_6]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$75;
pid6: 'status_chat'; PicName: 'st_custom.f4c'; Caption: 'Free for chat'),
(flags: [xsf_Old, xsf_6]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$76;
pid6: '0icqmood63'; PicName: 'st_custom.home'; Caption: 'At home'),
(flags: [xsf_Old, xsf_6]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$77;
pid6: '0icqmood21'; PicName: 'st_custom.atwork'; Caption: 'At work'),
(flags: [xsf_Old, xsf_6]; pidOld: #$ba#$74#$db#$3e#$9e#$24#$43#$4b#$87#$b6#$2f#$6b#$8d#$fe#$e5#$0f;
pid6: '0icqmood64'; PicName: 'st_custom.engineering'; Caption: 'Engineering'),
(flags: [xsf_Old, xsf_6]; pidOld: #$48#$8e#$14#$89#$8a#$ca#$4a#$08#$82#$aa#$77#$ce#$7a#$16#$52#$08;
pid6: '0icqmood11'; PicName: 'st_custom.business'; Caption: 'Business'),
(flags: [xsf_Old, xsf_6]; pidOld: #$63#$14#$36#$FF#$3F#$8A#$40#$D0#$A5#$CB#$7B#$66#$E0#$51#$B3#$64; //Quest
pid6: 'icqmood209'; PicName: 'st_custom.whereami'; Caption: 'Where am I?'),
(flags: [xsf_Old, xsf_6]; pidOld: #$64#$43#$C6#$AF#$22#$60#$45#$17#$B5#$8C#$D7#$DF#$8E#$29#$03#$52;
pid6: '0icqmood18'; PicName: 'st_custom.asleep'; Caption: 'Asleep'),
(flags: [xsf_Old, xsf_6]; pidOld: #$78#$5e#$8c#$48#$40#$d3#$4c#$65#$88#$6f#$04#$cf#$3f#$3f#$43#$df;
pid6: '0icqmood70'; PicName: 'st_custom.sleeping'; Caption: 'Sleeping'),
(flags: [xsf_Old, xsf_6]; pidOld: #$B7#$08#$67#$F5#$38#$25#$43#$27#$A1#$FF#$CF#$4C#$C1#$93#$97#$97; //Geometry
pid6: '0icqmood74'; PicName: 'st_custom.doublerainbow'; Caption: 'Double Rainbow'),
(flags: [xsf_Old, xsf_6]; pidOld: #$12#$d0#$7e#$3e#$f8#$85#$48#$9e#$8e#$97#$a7#$2a#$65#$51#$e5#$8d;
pid6: '0icqmood20'; PicName: 'st_custom.internet'; Caption: 'Internet'),
(flags: [xsf_Old, xsf_6]; pidOld: #$63#$62#$73#$37#$a0#$3f#$49#$ff#$80#$e5#$f7#$09#$cd#$e0#$a4#$ee;
pid6: '0icqmood0'; PicName: 'st_custom.shopping'; Caption: 'Shopping'),
(flags: [xsf_Old, xsf_6]; pidOld: #$D4#$E2#$B0#$BA#$33#$4E#$4F#$A5#$98#$D0#$11#$7D#$BF#$4D#$3C#$C8; //In search
pid6: '0icqmood38'; PicName: 'st_custom.rocket'; Caption: 'Rocket'),
(flags: [xsf_Old, xsf_6]; pidOld: #$60#$9d#$52#$f8#$a2#$9a#$49#$a6#$b2#$a0#$25#$24#$c5#$e9#$d2#$60;
pid6: '0icqmood16'; PicName: 'st_custom.college'; Caption: 'College'),
(flags: [xsf_Old, xsf_6]; pidOld: #$12#$92#$e5#$50#$1b#$64#$4f#$66#$b2#$06#$b2#$9a#$f3#$78#$e4#$8d;
pid6: '0icqmood14'; PicName: 'st_custom.phone'; Caption: 'Phone'),
(flags: [xsf_Old, xsf_6]; pidOld: #$00#$72#$D9#$08#$4A#$D1#$43#$DD#$91#$99#$6F#$02#$69#$66#$02#$6F;
pid6: '0icqmood22'; PicName: 'st_custom.typing'; Caption: 'Typing'),
(flags: [xsf_Old, xsf_6]; pidOld: #$1f#$7a#$40#$71#$bf#$3b#$4e#$60#$bc#$32#$4c#$57#$87#$b0#$4c#$f1;
pid6: '0icqmood17'; PicName: 'st_custom.sick'; Caption: 'Sick'),
(flags: [xsf_Old, xsf_6]; pidOld: #$f8#$e8#$d7#$b2#$82#$c4#$41#$42#$90#$f8#$10#$c6#$ce#$0a#$89#$a6;
pid6: '0icqmood80'; PicName: 'st_custom.eating'; Caption: 'Eating'),
(flags: [xsf_Old, xsf_6]; pidOld: #$f8#$e8#$d7#$b2#$82#$c4#$41#$42#$90#$f8#$10#$c6#$ce#$0a#$89#$a6; //Eating
pid6: '0icqmood6'; PicName: 'st_custom.cooking'; Caption: 'Cooking'),
(flags: [xsf_Old, xsf_6]; pidOld: #$1b#$78#$ae#$31#$fa#$0b#$4d#$38#$93#$d1#$99#$7e#$ee#$af#$b2#$18;
pid6: '0icqmood9'; PicName: 'st_custom.coffee'; Caption: 'Coffee'),
(flags: [xsf_Old, xsf_6]; pidOld: #$8c#$50#$db#$ae#$81#$ed#$47#$86#$ac#$ca#$16#$cc#$32#$13#$c7#$b7;
pid6: '0icqmood4'; PicName: 'st_custom.beer'; Caption: 'Beer'),
(flags: [xsf_Old, xsf_6]; pidOld: #$3f#$b0#$bd#$36#$af#$3b#$4a#$60#$9e#$ef#$cf#$19#$0f#$6a#$5a#$7E;
pid6: 'icqmood202'; PicName: 'st_custom.cigarette'; Caption: 'Smoking'),
(flags: [xsf_Old, xsf_6]; pidOld: #$16#$F5#$B7#$6F#$A9#$D2#$40#$35#$8C#$C5#$C0#$84#$70#$3C#$98#$FA;
pid6: '0icqmood68'; PicName: 'st_custom.wc'; Caption: 'WC'),
(flags: [xsf_Old, xsf_6]; pidOld: #$5A#$58#$1E#$A1#$E5#$80#$43#$0C#$A0#$6F#$61#$22#$98#$B7#$E4#$C7;
pid6: '0icqmood1'; PicName: 'st_custom.duck'; Caption: 'Bathing'),
(flags: [xsf_Old, xsf_6]; pidOld: #$d4#$a6#$11#$d0#$8f#$01#$4e#$c0#$92#$23#$c5#$b6#$be#$c6#$cc#$f0;
pid6: '0icqmood15'; PicName: 'st_custom.games'; Caption: 'Games'),
(flags: [xsf_Old, xsf_6]; pidOld: #$3f#$b0#$bd#$36#$af#$3b#$4a#$60#$9e#$ef#$cf#$19#$0f#$6a#$5a#$7f;
pid6: '0icqmood5'; PicName: 'st_custom.thinking'; Caption: 'Thinking'),
(flags: [xsf_Old, xsf_6]; pidOld: #$61#$BE#$E0#$DD#$8B#$DD#$47#$5D#$8D#$EE#$5F#$4B#$AA#$CF#$19#$A7;
pid6: '0icqmood3'; PicName: 'st_custom.music'; Caption: 'Music'),
(flags: [xsf_Old, xsf_6]; pidOld: #$DD#$CF#$0E#$A9#$71#$95#$40#$48#$A9#$C6#$41#$32#$06#$D6#$F2#$80;
pid6: '0icqmood61'; PicName: 'st_custom.love'; Caption: 'Love'),
(flags: [xsf_Old, xsf_6]; pidOld: #$e6#$01#$e4#$1c#$33#$73#$4b#$d1#$bc#$06#$81#$1d#$6c#$32#$3d#$82;
pid6: '0icqmood61'; PicName: 'st_custom.sex'; Caption: 'Sex'),
(flags: [xsf_Old, xsf_6]; pidOld: #$83#$c9#$b7#$8e#$77#$e7#$43#$78#$b2#$c5#$fb#$6c#$fc#$c3#$5b#$ec;
pid6: '0icqmood2'; PicName: 'st_custom.tired'; Caption: 'Tired'),
(flags: [xsf_Old, xsf_6]; pidOld: #$6f#$49#$30#$98#$4f#$7c#$4a#$ff#$a2#$76#$34#$a0#$3b#$ce#$ae#$a7;
pid6: '0icqmood13'; PicName: 'st_custom.funny'; Caption: 'Funny'),
(flags: [xsf_Old, xsf_6]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$70;
pid6: '0icqmood72'; PicName: 'st_custom.depression'; Caption: 'Depression'),
(flags: [xsf_Old, xsf_6]; pidOld: #$01#$D8#$D7#$EE#$AC#$3B#$49#$2A#$A5#$8D#$D3#$D8#$77#$E6#$6B#$92;
pid6: '0icqmood23'; PicName: 'st_custom.angry'; Caption: 'Angry'),
(flags: [xsf_Old, xsf_6]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$79; //Evil
pid6: '0icqmood33'; PicName: 'st_custom.evil'; Caption: 'Evil'),
(flags: [xsf_Old, xsf_6]; pidOld: #$a6#$ed#$55#$7e#$6b#$f7#$44#$d4#$a5#$d4#$d2#$e7#$d9#$5c#$e8#$1f;
pid6: '0icqmood19'; PicName: 'st_custom.surfing'; Caption: 'Surfing'),
(flags: [xsf_Old, xsf_6]; pidOld: #$80#$53#$7d#$e2#$a4#$67#$4a#$76#$b3#$54#$6d#$fd#$07#$5f#$5e#$c6;
pid6: '0icqmood7'; PicName: 'st_custom.tv'; Caption: 'TV'),
(flags: [xsf_Old, xsf_6]; pidOld: #$10#$7a#$9a#$18#$12#$32#$4d#$a4#$b6#$cd#$08#$79#$db#$78#$0f#$09;
pid6: '0icqmood12'; PicName: 'st_custom.camera'; Caption: 'Camera'),
(flags: [xsf_Old, xsf_6]; pidOld: #$63#$4f#$6b#$d8#$ad#$d2#$4a#$a1#$aa#$b9#$11#$5b#$c2#$6d#$05#$a1;
pid6: '0icqmood84'; PicName: 'st_custom.diary'; Caption: 'Diary'),
(flags: [xsf_Old, xsf_6]; pidOld: #$16#$0C#$60#$BB#$DD#$44#$43#$f3#$91#$40#$05#$0F#$00#$E6#$C0#$09;
pid6: '0icqmood71'; PicName: 'st_custom.mobile'; Caption: 'Mobile'),
(flags: [xsf_Old, xsf_6]; pidOld: #$10#$11#$17#$C9#$A3#$B0#$40#$f9#$81#$AC#$49#$E1#$59#$FB#$D5#$D4;
pid6: '0icqmood71'; PicName: 'st_custom.ppc'; Caption: 'PPC'),
(flags: [xsf_Old, xsf_6]; pidOld: #$e6#$01#$e4#$1c#$33#$73#$4b#$d1#$bc#$06#$81#$1d#$6c#$32#$3d#$81; //Party
pid6: '0icqmood3'; PicName: 'st_custom.party'; Caption: 'Party'),
(flags: [xsf_Old, xsf_6]; pidOld: #$f1#$8a#$b5#$2e#$dc#$57#$49#$1d#$99#$dc#$64#$44#$50#$24#$57#$af; //Friends
pid6: '0icqmood3'; PicName: 'st_custom.friends'; Caption: 'With friends'),
(flags: [xsf_Old, xsf_6]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$78; //Lunch
pid6: '0icqmood66'; PicName: 'st_custom.burger'; Caption: 'Burger'),
(flags: [xsf_Old, xsf_6]; pidOld: #$2C#$E0#$E4#$E5#$7C#$64#$43#$70#$9C#$3A#$7A#$1C#$E8#$78#$A7#$DC;
pid6: '0icqmood80'; PicName: 'st_custom.unk'; Caption: 'Barbecue'),
(flags: [xsf_6]; pid6: '0icqmood31'; PicName: 'st_custom.chicken'; Caption: 'Chicken'),
(flags: [xsf_6]; pid6: '0icqmood32'; PicName: 'st_custom.cool'; Caption: 'Cool'),
(flags: [xsf_6]; pid6: 'icqmood205'; PicName: 'st_custom.wrongnumber'; Caption: 'Wrong number'),
(flags: [xsf_6]; pid6: '0icqmood28'; PicName: 'st_custom.death'; Caption: 'Death'),
(flags: [xsf_6]; pid6: '0icqmood50'; PicName: 'st_custom.overexcited'; Caption: 'Overexcited'),
(flags: [xsf_6]; pid6: 'icqmood201'; PicName: 'st_custom.inthewoods'; Caption: 'In the woods'),
(flags: [xsf_6]; pid6: '0icqmood34'; PicName: 'st_custom.alien'; Caption: 'Alien'),
(flags: [xsf_6]; pid6: '0icqmood55'; PicName: 'st_custom.thumbsup'; Caption: 'Thumbs up'),
(flags: [xsf_6]; pid6: 'icqmood217'; PicName: 'st_custom.thumbsdown'; Caption: 'Thumbs down'),
(flags: [xsf_6]; pid6: 'icqmood215'; PicName: 'st_custom.fig'; Caption: 'Fig'),
(flags: [xsf_6]; pid6: '0icqmood53'; PicName: 'st_custom.fist'; Caption: 'Fist'),
(flags: [xsf_6]; pid6: '0icqmood45'; PicName: 'st_custom.fuckyou'; Caption: 'Fuck you'),
(flags: [xsf_6]; pid6: '0icqmood39'; PicName: 'st_custom.fuckyoutoo'; Caption: 'Fuck you too'),
(flags: [xsf_6]; pid6: '0icqmood75'; PicName: 'st_custom.basketball'; Caption: 'Basketball'),
(flags: [xsf_6]; pid6: '0icqmood27'; PicName: 'st_custom.football'; Caption: 'Football'),
(flags: [xsf_6]; pid6: '0icqmood40'; PicName: 'st_custom.leprechaun'; Caption: 'Leprechaun'),
(flags: [xsf_6]; pid6: '0icqmood48'; PicName: 'st_custom.candy'; Caption: 'Candy'),
(flags: [xsf_6]; pid6: '0icqmood56'; PicName: 'st_custom.lollipop'; Caption: 'Lollipop'),
(flags: [xsf_6]; pid6: '0icqmood69'; PicName: 'st_custom.pizza'; Caption: 'Pizza'),
(flags: [xsf_6]; pid6: '0icqmood43'; PicName: 'st_custom.icecream'; Caption: 'Ice cream'),
(flags: [xsf_6]; pid6: '0icqmood65'; PicName: 'st_custom.strawberry'; Caption: 'Strawberry'),
(flags: [xsf_6]; pid6: '0icqmood54'; PicName: 'st_custom.donut'; Caption: 'Donut'),
(flags: [xsf_6]; pid6: '0icqmood79'; PicName: 'st_custom.rolls'; Caption: 'Rolls'),
(flags: [xsf_6]; pid6: '0icqmood76'; PicName: 'st_custom.arrowheart'; Caption: 'Arrow heart'),
(flags: [xsf_6]; pid6: '0icqmood42'; PicName: 'st_custom.tongue'; Caption: 'Tongue'),
(flags: [xsf_6]; pid6: '0icqmood60'; PicName: 'st_custom.brokenheart'; Caption: 'Broken heart'),
(flags: [xsf_6]; pid6: '0icqmood73'; PicName: 'st_custom.ladybug'; Caption: 'Ladybug'),
(flags: [xsf_6]; pid6: '0icqmood37'; PicName: 'st_custom.dollarsign'; Caption: 'Dollar sign'),
(flags: [xsf_6]; pid6: '0icqmood81'; PicName: 'st_custom.consolegames'; Caption: 'Console games'),
(flags: [xsf_6]; pid6: '0icqmood41'; PicName: 'st_custom.moustache'; Caption: 'Moustache'),
(flags: [xsf_6]; pid6: '0icqmood36'; PicName: 'st_custom.beaglepuss'; Caption: 'Groucho glasses'),
(flags: [xsf_6]; pid6: '0icqmood67'; PicName: 'st_custom.angel'; Caption: 'Angel'),
(flags: [xsf_6]; pid6: '0icqmood26'; PicName: 'st_custom.pacifier'; Caption: 'Pacifier'),
(flags: [xsf_6]; pid6: '0icqmood35'; PicName: 'st_custom.riding'; Caption: 'Riding'),
(flags: [xsf_6]; pid6: '0icqmood78'; PicName: 'st_custom.balloons'; Caption: 'Balloons'),
(flags: [xsf_6]; pid6: 'icqmood200'; PicName: 'st_custom.shrimp'; Caption: 'Shrimp'),
(flags: [xsf_6]; pid6: 'icqmood218'; PicName: 'st_custom.squirrel'; Caption: 'Squirrel'),
(flags: [xsf_6]; pid6: '0icqmood30'; PicName: 'st_custom.monkey'; Caption: 'Monkey'),
(flags: [xsf_6]; pid6: '0icqmood57'; PicName: 'st_custom.pig'; Caption: 'Pig'),
(flags: [xsf_6]; pid6: '0icqmood58'; PicName: 'st_custom.cat'; Caption: 'Cat'),
(flags: [xsf_6]; pid6: '0icqmood47'; PicName: 'st_custom.dog'; Caption: 'Dog'),
(flags: [xsf_6]; pid6: '0icqmood51'; PicName: 'st_custom.blackface'; Caption: 'Black face'),
(flags: [xsf_6]; pid6: '0icqmood44'; PicName: 'st_custom.pinkface'; Caption: 'Pink face'),
(flags: [xsf_6]; pid6: '0icqmood29'; PicName: 'st_custom.cyclops'; Caption: 'Cyclops'),
(flags: [xsf_6]; pid6: '0icqmood24'; PicName: 'st_custom.hipster'; Caption: 'Hipster'),
(flags: [xsf_6]; pid6: '0icqmood25'; PicName: 'st_custom.kissfacepaint'; Caption: 'Kiss'),
(flags: [xsf_6]; pid6: '0icqmood59'; PicName: 'st_custom.sumo'; Caption: 'Sumo'),
// Old
(flags: [xsf_Old]; pidOld: #$f1#$8a#$b5#$2e#$dc#$57#$49#$1d#$99#$dc#$64#$44#$50#$24#$57#$af;
PicName: 'st_custom.friends'; Caption: 'Friends'),
(flags: [xsf_Old]; pidOld: #$63#$14#$36#$FF#$3F#$8A#$40#$D0#$A5#$CB#$7B#$66#$E0#$51#$B3#$64;
PicName: 'st_custom.quest'; Caption: 'Quest'), (flags: [xsf_Old];
pidOld: #$B7#$08#$67#$F5#$38#$25#$43#$27#$A1#$FF#$CF#$4C#$C1#$93#$97#$97;
PicName: 'st_custom.geometry'; Caption: ''), (flags: [xsf_Old];
pidOld: #$DD#$CF#$0E#$A9#$71#$95#$40#$48#$A9#$C6#$41#$32#$06#$D6#$F2#$80;
PicName: 'st_custom.love'; Caption: 'Love'),
// In R&Q added :)))
// 33
(flags: [xsf_Old, xsf_6];
pidOld: #$3f#$b0#$bd#$36#$af#$3b#$4a#$60#$9e#$ef#$cf#$19#$0f#$6a#$5a#$7E; pid6: 'icqmood32';
PicName: 'st_custom.cigarette'; Caption: 'Smoking'), (flags: [xsf_Old, xsf_6];
pidOld: #$e6#$01#$e4#$1c#$33#$73#$4b#$d1#$bc#$06#$81#$1d#$6c#$32#$3d#$82; pid6: 'icqmood33';
PicName: 'st_custom.sex'; Caption: 'Sex'),
// pid: #$3E#$DD#$CF#$0E#$A9#$71#$95#$40#$48#$A9#$C6#$41#$32#$06#$D6#$F2;
// PicName: 'st_custom.'; Caption:
PicName: 'st_custom.quest'; Caption: 'Quest'),
(flags: [xsf_Old]; pidOld: #$B7#$08#$67#$F5#$38#$25#$43#$27#$A1#$FF#$CF#$4C#$C1#$93#$97#$97;
PicName: 'st_custom.geometry'; Caption: 'Geometry'),
(flags: [xsf_Old]; pidOld: #$D4#$E2#$B0#$BA#$33#$4E#$4F#$A5#$98#$D0#$11#$7D#$BF#$4D#$3C#$C8;
PicName: 'st_custom.search'; Caption: 'In search'), (flags: [xsf_Old];
pidOld: #$00#$72#$D9#$08#$4A#$D1#$43#$DD#$91#$99#$6F#$02#$69#$66#$02#$6F;
PicName: 'st_custom.diary'; Caption: 'Diary'),
// Added in Agent
(flags: []; pidOld: #$CD#$56#$43#$A2#$C9#$4C#$47#$24#$B5#$2C#$DC#$01#$24#$A1#$D0#$CD;
PicName: 'st_custom.search'; Caption: 'In search'),
(flags: [xsf_Old]; pidOld: #$CD#$56#$43#$A2#$C9#$4C#$47#$24#$B5#$2C#$DC#$01#$24#$A1#$D0#$CD; // Not used in new XStatuses
PicName: 'st_custom.sex'; Caption: 'Sex'),
(flags: [xsf_Old]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$70;
PicName: 'status.depression'; Caption: 'Depression'), (flags: [xsf_Old];
pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$75; PicName: 'status.f4c';
Caption: 'Free for chat'), (flags: [xsf_Old];
pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$76; PicName: 'status.home';
Caption: 'At home'), (flags: [xsf_Old];
pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$77; PicName: 'status.work';
Caption: 'At work'), (flags: [xsf_Old];
pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$78; PicName: 'status.lunch';
Caption: 'Lunch'), (flags: [xsf_Old];
pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$79; PicName: 'status.evil';
Caption: 'Evil')
(flags: [xsf_Old]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$78;
PicName: 'status.lunch'; Caption: 'Lunch'),
(flags: [xsf_Old]; pidOld: #$B7#$07#$43#$78#$F5#$0C#$77#$77#$97#$77#$57#$78#$50#$2D#$05#$79;
PicName: 'status.evil'; Caption: 'Evil')
);
// XStatus6Set = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,


+ 11
- 11
RnQ/ICQ/ICQContacts.pas View File

@ -13,13 +13,13 @@ uses
{$IFDEF RNQ_AVATARS}
Graphics,
{$ENDIF RNQ_AVATARS}
{$IFNDEF NOT_USE_GDIPLUS}
{$IFDEF USE_GDIPLUS}
GDIPAPI,
GDIPOBJ,
RnQGraphics,
{$ELSE}
RnQGraphics32,
{$ENDIF NOT_USE_GDIPLUS}
{$ENDIF USE_GDIPLUS}
ICQConsts,
types, RDGlobal, RnQProtocol;
@ -442,16 +442,16 @@ var
begin
s1 := '';
if fProto.isOnline then
begin
// begin
if xStatusStr > '' then
s1 := xStatusStr
else
if xStatusDesc > '' then
s1 := xStatusDesc
else
if ICQ6Status > '' then
s1 := ICQ6Status
end;
s1 := xStatusStr;
// else
// if xStatusDesc > '' then
// s1 := xStatusDesc
// else
// if ICQ6Status > '' then
// s1 := ICQ6Status
// end;
if (s1 > '') then
if status <> ICQConsts.SC_ONLINE then
result := getTranslation(status2ShowStr[status]) +' ('+ s1 +')'


+ 79
- 59
RnQ/ICQ/ICQv9.pas View File

@ -892,11 +892,6 @@ uses
Base64, //ZLibEx,
RDFileUtil, RnQCrypt,
// rtf2html,
{$IFNDEF NOT_USE_GDIPLUS}
RnQGraphics,
{$ELSE}
// RnQGraphics32,
{$ENDIF NOT_USE_GDIPLUS}
{$IFDEF RNQ_AVATARS}
RnQ_Avatars,
{$ENDIF}
@ -2933,48 +2928,44 @@ else
)+
TLV(BART_TYPE_STATUS_MOOD, XStatusArray[curXStatus].pid6));
}
xStsTLV := TLV($1D, word_BEasStr(BART_TYPE_STATUS_STR) +
AnsiChar(BART_FLAGS_DATA) +
// Length_B( Length_BE(StrToUTF8(ExtStsStrings[curXStatus].Desc))+
Length_B( Length_BE(StrToUTF8(curXStatusStr.Desc))+
Length_BE('') // 'iso-8859-1'
)
+
TLV(BART_TYPE_STATUS_MOOD, '')
{
word_BEasStr(BART_TYPE_STATUS_MOOD) +
AnsiChar(BART_FLAGS_DATA)+
// Length_B(XStatusArray[curXStatus].pid6)
Length_B('')
}
);
Pck := TLV(6, getFullStatusCode)
// + TLV(8, #0#0)
+ TLV(8, #$0A#$07) // From ICQ7.6 beta
// +TLV(8, #$22#01)
+ TLV($C, dc)
// +TLV($11, #1#$2C#$35#$FB#$3B)
// +TLV($12, #0#0)
+ TLV($1F, #0#0)
+ xStsTLV;
xStsTLV := TLV($1D,
word_BEasStr(BART_TYPE_STATUS_STR) +
AnsiChar(BART_FLAGS_DATA) +
// Length_B(Length_BE(StrToUTF8(ExtStsStrings[curXStatus].Desc))+
Length_B(Length_BE(StrToUTF8(curXStatusStr.Desc)) + Length_BE('')) + // 'iso-8859-1'
word_BEasStr(BART_TYPE_STATUS_MOOD) +
Length_BE(XStatusArray[curXStatus].pid6)
);
Pck := TLV(6, getFullStatusCode)
// + TLV(8, #0#0)
+ TLV(8, #$0A#$07) // From ICQ7.6 beta
// + TLV(8, #$22#01)
+ TLV($C, dc)
// + TLV($11, #1#$2C#$35#$FB#$3B)
// + TLV($12, #0#0)
+ TLV($1F, #0#0)
+ xStsTLV;
if StFirst then
begin
sendSNAC(1,$1E, Pck );
begin
sendSNAC(1, $1E, Pck);
sleep(100);
end;
end;
// else
if
if
{$IFDEF UseNotSSI}
useSSI and
useSSI and
{$ENDIF UseNotSSI}
sendVis
then
sendVisibility;
sendVis
then
sendVisibility;
if not StFirst then
begin
sleep(100);
sendSNAC(1,$1E, Pck );
end;
begin
sleep(100);
sendSNAC(1, $1E, Pck);
end;
// ssi_
{pkt.createSNAC(1,$11,0);
@ -4756,11 +4747,12 @@ var
ofs : Integer;
s : RawByteString;
pS : PAnsiChar;
moodText : String;
moodText, xStatusText : String;
cap, capSm : RawByteString;
found, status_changed : Boolean;
i : Integer;
t : Byte;
t2: word;
nickFlags : Int64;
skipIt, moodPresText, moodPresIcon : Boolean;
oldPic : TPicName;
@ -4958,7 +4950,7 @@ FORWARD_MOBILE 0x00080000 If no active instances forward to mobile
moodPresIcon := False;
moodText := '';
//{$IFDEF RNQ_AVATARS}
i := findTLV($1D, snac,ofs); // Expressions
i := findTLV($1D, snac, ofs); // Expressions
if i>0 then
begin
s:=getTLV(@snac[i]);
@ -5002,7 +4994,7 @@ FORWARD_MOBILE 0x00080000 If no active instances forward to mobile
if t > 0 then
begin
i := word_BEat(@s[5]);
if (i +6) <= length(s) then
if (i + 6) <= length(s) then
begin
if i >0 then
// moodText := excludeTrailingCRLF(unUTF( unUTF(copy(s, 7, i))))
@ -5013,9 +5005,29 @@ FORWARD_MOBILE 0x00080000 If no active instances forward to mobile
end
else
moodText := '';
;
i := 4 + t;
end;
$10:
begin
moodPresText := True;
t := Byte(s[4]);
if t > 0 then
begin
i := word_BEat(@s[5]);
if (i + 6) <= length(s) then
begin
if i > 0 then
xStatusText := excludeTrailingCRLF(unUTF(copy(s, 7, i)))
else
xStatusText := '';
end;
end
else
xStatusText := '';
i := 4 + t;
end;
$0D, // STATUS_STR_TOD - Time when the status string is set
$0F: // CURRENT_AV_TRACK - XML file; Data flag should not be set
begin
@ -5119,11 +5131,12 @@ FORWARD_MOBILE 0x00080000 If no active instances forward to mobile
if moodPresText then
begin
if cont.xStatusDesc <> moodText then
begin
status_changed := True;
cont.xStatusDesc := moodText;
end;
if (cont.xStatusDesc <> moodText) or (cont.xStatusStr <> xStatusText) then
begin
status_changed := True;
cont.xStatusDesc := moodText;
cont.xStatusStr := xStatusText;
end;
end;
end;
@ -5198,10 +5211,10 @@ end;
procedure TicqSession.parseStatus(const snac: RawByteString; ofs:integer; cont : TICQcontact; isInvis : Boolean = false; Status_changed : Boolean = False);
var
newStatus:TICQstatus;
newInvis:boolean;
code:integer;
i : Integer;
newStatus: TICQstatus;
newInvis: boolean;
code: integer;
i: Integer;
begin
if (not cont.isAIM) and (not existsTLV(6, snac,ofs)) then
begin
@ -7371,8 +7384,6 @@ begin
if SupportUTF then
s := s + CAPS_sm2big(CAPS_sm_UTF8);
if UseCryptMsg then
begin
s := s + BigCapability[CAPS_big_CryptMsg].v;
@ -7388,12 +7399,21 @@ begin
// s := s + CAPS_sm2big(10);
// s:= s+ XStatus6[curXStatus].pid;
if {UseOldXSt and} (curXStatus > 0) then
s:= s+ XStatusArray[curXStatus].pidOld;
if (curXStatus > 0) and not (XStatusArray[curXStatus].pidOld = '') then
s := s + XStatusArray[curXStatus].pidOld;
s := s +
// ICQ 8.3 caps
//#$09#$46#$13#$50#$4C#$7F#$11#$D1#$82#$22#$44#$45#$53#$54#$00#$00 +
//#$09#$46#$13#$51#$4C#$7F#$11#$D1#$82#$22#$44#$45#$53#$54#$00#$00 +
//#$09#$46#$13#$53#$4C#$7F#$11#$D1#$82#$22#$44#$45#$53#$54#$00#$00 +
//#$09#$46#$13#$54#$4C#$7F#$11#$D1#$82#$22#$44#$45#$53#$54#$00#$00 +
//#$C8#$95#$3A#$9F#$21#$F1#$4F#$AA#$B0#$B2#$6D#$E6#$63#$AB#$F5#$B7 +
//#$35#$CA#$0A#$C9#$E4#$67#$48#$AB#$9D#$FA#$1D#$23#$41#$F0#$08#$32 +
//#$F2#$3D#$D3#$84#$7B#$52#$40#$EC#$B5#$CE#$10#$64#$59#$A4#$C9#$7D +
//#$6D#$61#$69#$6C#$72#$75#$40#$69#$08#$00#$02#$00#$D6#$1B#$00#$00 +
{$IFDEF usesDC}
CAPS_sm2big(CAPS_sm_FILE_TRANSFER)+
CAPS_sm2big(CAPS_sm_FILE_TRANSFER) +
{$ENDIF usesDC}
CAPS_sm2big(CAPS_sm_NEW_STAT)


+ 4
- 6
RnQ/ICQ/Protocol_ICQ.pas View File

@ -39,8 +39,7 @@ interface
procedure sendICQaddedYou(cnt : TRnQContact);
procedure sendICQautomsgreq(cnt : TRnQContact);
procedure ChangeXStatus(pICQ : TICQSession; const st : Byte;
const StName : String = ''; const StText : String = ''
;const ChgdUseOldXSt : Boolean = false);
const StName : String = ''; const StText : String = '');
procedure loggaICQPkt(const prefix : String; what:TwhatLog; data:RawByteString='');
// function findICQViewInfo(c:TRnQContact):TviewInfoFrm;
@ -308,8 +307,7 @@ begin
end; // addToRoster
procedure ChangeXStatus(pICQ : TICQSession; const st : Byte;
const StName : String = ''; const StText : String = ''
;const ChgdUseOldXSt : Boolean = false);
const StName : String = ''; const StText : String = '');
var
b : Boolean;
begin
@ -515,7 +513,7 @@ begin
result := getTranslation(status2ShowStr[TICQstatus(s)])
end;
function status2imgName(s: byte; inv:boolean=FALSE):AnsiString;
function status2imgName(s: byte; inv:boolean=FALSE):TPicName;
const
prefix = 'status.';
begin
@ -545,7 +543,7 @@ if inv then
result := INVIS_PREFIX + result;
end; // status2imgdx
function status2imgNameExt(s: byte; inv:boolean=FALSE; extSts : byte= 0):AnsiString;
function status2imgNameExt(s: byte; inv:boolean=FALSE; extSts : byte= 0):TPicName;
const
prefix = 'status.';
begin


+ 2
- 2
RnQ/ICQ/newaccountDlg.pas View File

@ -9,11 +9,11 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
{$IFNDEF NOT_USE_GDIPLUS}
{$IFDEF USE_GDIPLUS}
RnQGraphics,
{$ELSE}
RnQGraphics32,
{$ENDIF NOT_USE_GDIPLUS}
{$ENDIF USE_GDIPLUS}
StdCtrls,
RnQProtocol,
icqv9, RnQDialogs, RnQButtons, ExtCtrls;


+ 214
- 212
RnQ/ICQ/viewinfoDlg.dfm View File

@ -35,7 +35,7 @@ object viewinfoFrm: TviewinfoFrm
ExplicitHeight = 0
object Label7: TLabel
Left = 3
Top = 264
Top = 275
Width = 29
Height = 13
Caption = 'About'
@ -44,7 +44,7 @@ object viewinfoFrm: TviewinfoFrm
end
object Label8: TLabel
Left = 227
Top = 75
Top = 78
Width = 51
Height = 13
Alignment = taRightJustify
@ -53,7 +53,7 @@ object viewinfoFrm: TviewinfoFrm
end
object Label2: TLabel
Left = 39
Top = 75
Top = 78
Width = 35
Height = 13
Alignment = taRightJustify
@ -61,8 +61,8 @@ object viewinfoFrm: TviewinfoFrm
Transparent = True
end
object Label14: TLabel
Left = 34
Top = 168
Left = 35
Top = 174
Width = 39
Height = 13
Alignment = taRightJustify
@ -70,8 +70,8 @@ object viewinfoFrm: TviewinfoFrm
Transparent = True
end
object Label13: TLabel
Left = 221
Top = 121
Left = 222
Top = 126
Width = 56
Height = 13
Alignment = taRightJustify
@ -79,8 +79,8 @@ object viewinfoFrm: TviewinfoFrm
Transparent = True
end
object Label17: TLabel
Left = 221
Top = 144
Left = 222
Top = 150
Width = 56
Height = 13
Alignment = taRightJustify
@ -88,8 +88,8 @@ object viewinfoFrm: TviewinfoFrm
Transparent = True
end
object Label18: TLabel
Left = 221
Top = 167
Left = 222
Top = 174
Width = 56
Height = 13
Alignment = taRightJustify
@ -98,7 +98,7 @@ object viewinfoFrm: TviewinfoFrm
end
object Label20: TLabel
Left = 326
Top = 236
Top = 246
Width = 21
Height = 13
Alignment = taRightJustify
@ -107,9 +107,9 @@ object viewinfoFrm: TviewinfoFrm
end
object mailBtn: TRnQSpeedButton
Left = 197
Top = 48
Top = 51
Width = 20
Height = 20
Height = 21
Hint = 'Send an e-mail'
Flat = True
Font.Charset = DEFAULT_CHARSET
@ -123,8 +123,8 @@ object viewinfoFrm: TviewinfoFrm
OnClick = mailBtnClick
end
object birthageLbl: TLabel
Left = 52
Top = 189
Left = 54
Top = 198
Width = 19
Height = 13
Alignment = taRightJustify
@ -132,26 +132,26 @@ object viewinfoFrm: TviewinfoFrm
Transparent = True
end
object XstatusBtn: TRnQSpeedButton
Left = 396
Top = 257
Width = 23
Height = 22
Left = 398
Top = 267
Width = 21
Height = 21
Hint = 'Read XStatus'
Flat = True
OnClick = XstatusBtnClick
end
object StatusBtn: TRnQSpeedButton
Left = 399
Top = 94
Width = 22
Height = 20
Left = 401
Top = 99
Width = 20
Height = 21
Hint = 'Status'
Flat = True
OnClick = StatusBtnClick
end
object Label3: TLabel
Left = 0
Top = 94
Left = 2
Top = 98
Width = 71
Height = 21
Alignment = taRightJustify
@ -162,9 +162,9 @@ object viewinfoFrm: TviewinfoFrm
object aboutBox: TMemo
AlignWithMargins = True
Left = 3
Top = 280
Top = 292
Width = 418
Height = 112
Height = 100
Align = alBottom
MaxLength = 480
ScrollBars = ssVertical
@ -172,7 +172,7 @@ object viewinfoFrm: TviewinfoFrm
end
object ipBox: TEdit
Left = 281
Top = 71
Top = 75
Width = 140
Height = 21
TabStop = False
@ -182,7 +182,7 @@ object viewinfoFrm: TviewinfoFrm
end
object genderBox: TComboBox
Left = 77
Top = 71
Top = 75
Width = 140
Height = 21
Style = csDropDownList
@ -190,7 +190,7 @@ object viewinfoFrm: TviewinfoFrm
end
object countryBox: TComboBox
Left = 77
Top = 163
Top = 171
Width = 140
Height = 21
Style = csDropDownList
@ -199,7 +199,7 @@ object viewinfoFrm: TviewinfoFrm
end
object lang1Box: TComboBox
Left = 281
Top = 117
Top = 123
Width = 140
Height = 21
Style = csDropDownList
@ -208,7 +208,7 @@ object viewinfoFrm: TviewinfoFrm
end
object lang2Box: TComboBox
Left = 281
Top = 140
Top = 147
Width = 140
Height = 21
Style = csDropDownList
@ -217,7 +217,7 @@ object viewinfoFrm: TviewinfoFrm
end
object lang3Box: TComboBox
Left = 281
Top = 163
Top = 171
Width = 140
Height = 21
Style = csDropDownList
@ -225,9 +225,9 @@ object viewinfoFrm: TviewinfoFrm
TabOrder = 15
end
object smsChk: TCheckBox
Left = 220
Top = 212
Width = 188
Left = 225
Top = 221
Width = 196
Height = 17
Caption = 'SMS-able'
TabOrder = 22
@ -246,7 +246,7 @@ object viewinfoFrm: TviewinfoFrm
end
object lastBox: TLabeledEdit
Left = 281
Top = 26
Top = 27
Width = 140
Height = 21
EditLabel.Width = 49
@ -258,7 +258,7 @@ object viewinfoFrm: TviewinfoFrm
end
object firstBox: TLabeledEdit
Left = 77
Top = 25
Top = 27
Width = 140
Height = 21
EditLabel.Width = 50
@ -270,8 +270,8 @@ object viewinfoFrm: TviewinfoFrm
end
object emailBox: TLabeledEdit
Left = 77
Top = 48
Width = 119
Top = 51
Width = 117
Height = 21
EditLabel.Width = 28
EditLabel.Height = 13
@ -294,7 +294,7 @@ object viewinfoFrm: TviewinfoFrm
end
object uinBox: TLabeledEdit
Left = 281
Top = 48
Top = 51
Width = 140
Height = 21
EditLabel.Width = 18
@ -306,8 +306,8 @@ object viewinfoFrm: TviewinfoFrm
end
object statusBox: TLabeledEdit
Left = 281
Top = 94
Width = 119
Top = 99
Width = 117
Height = 21
EditLabel.Width = 31
EditLabel.Height = 13
@ -319,7 +319,7 @@ object viewinfoFrm: TviewinfoFrm
end
object cityBox: TLabeledEdit
Left = 77
Top = 117
Top = 123
Width = 140
Height = 21
EditLabel.Width = 19
@ -331,7 +331,7 @@ object viewinfoFrm: TviewinfoFrm
end
object stateBox: TLabeledEdit
Left = 77
Top = 140
Top = 147
Width = 140
Height = 21
EditLabel.Width = 26
@ -343,7 +343,7 @@ object viewinfoFrm: TviewinfoFrm
end
object zipBox: TLabeledEdit
Left = 77
Top = 233
Top = 243
Width = 140
Height = 21
EditLabel.Width = 14
@ -355,7 +355,7 @@ object viewinfoFrm: TviewinfoFrm
end
object timeBox: TLabeledEdit
Left = 279
Top = 233
Top = 243
Width = 38
Height = 21
EditLabel.Width = 36
@ -367,7 +367,7 @@ object viewinfoFrm: TviewinfoFrm
end
object cellularBox: TLabeledEdit
Left = 77
Top = 209
Top = 219
Width = 140
Height = 21
EditLabel.Width = 35
@ -378,18 +378,18 @@ object viewinfoFrm: TviewinfoFrm
TabOrder = 21
end
object birthBox: TDateTimePicker
Left = 220
Top = 186
Width = 92
Height = 21
Left = 223
Top = 195
Width = 89
Height = 22
Date = 39050.677962962960000000
Time = 39050.677962962960000000
TabOrder = 18
OnChange = birthBoxChange
end
object ageSpin: TRnQSpinEdit
Left = 219
Top = 186
Left = 223
Top = 195
Width = 55
Height = 22
Decimal = 0
@ -402,7 +402,7 @@ object viewinfoFrm: TviewinfoFrm
end
object birthageBox: TComboBox
Left = 77
Top = 186
Top = 195
Width = 140
Height = 21
Style = csDropDownList
@ -415,8 +415,8 @@ object viewinfoFrm: TviewinfoFrm
end
object xstatusBox: TLabeledEdit
Left = 77
Top = 257
Width = 313
Top = 267
Width = 318
Height = 21
EditLabel.Width = 37
EditLabel.Height = 13
@ -427,9 +427,9 @@ object viewinfoFrm: TviewinfoFrm
end
object BirthLBox: TDateTimePicker
Left = 336
Top = 186
Top = 195
Width = 85
Height = 21
Height = 22
Date = 38421.000000000000000000
Format = 'dd.MM.yyyy'
Time = 38421.000000000000000000
@ -438,7 +438,7 @@ object viewinfoFrm: TviewinfoFrm
end
object BirthLChk: TCheckBox
Left = 314
Top = 188
Top = 197
Width = 18
Height = 17
Alignment = taLeftJustify
@ -454,7 +454,7 @@ object viewinfoFrm: TviewinfoFrm
end
object gmtBox: TComboBox
Left = 353
Top = 233
Top = 243
Width = 66
Height = 21
Style = csDropDownList
@ -462,7 +462,7 @@ object viewinfoFrm: TviewinfoFrm
end
object MarStsBox: TComboBox
Left = 77
Top = 94
Top = 99
Width = 140
Height = 21
Style = csDropDownList
@ -472,13 +472,9 @@ object viewinfoFrm: TviewinfoFrm
object WorkTS: TTabSheet
Caption = '&Work'
ImageIndex = 6
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel
Left = 32
Top = 187
Top = 196
Width = 39
Height = 13
Alignment = taRightJustify
@ -488,7 +484,7 @@ object viewinfoFrm: TviewinfoFrm
object WkpgEdt: TLabeledEdit
Left = 8
Top = 23
Width = 336
Width = 313
Height = 21
EditLabel.Width = 49
EditLabel.Height = 13
@ -498,31 +494,33 @@ object viewinfoFrm: TviewinfoFrm
end
object workCityEdt: TLabeledEdit
Left = 77
Top = 131
Top = 139
Width = 140
Height = 21
EditLabel.Width = 19
EditLabel.Height = 13
EditLabel.Caption = 'City'
LabelPosition = lpLeft
LabelSpacing = 6
ReadOnly = True
TabOrder = 5
end
object workStateEdt: TLabeledEdit
Left = 77
Top = 158
Top = 166
Width = 140
Height = 21
EditLabel.Width = 26
EditLabel.Height = 13
EditLabel.Caption = 'State'
LabelPosition = lpLeft
LabelSpacing = 6
ReadOnly = True
TabOrder = 6
end
object WorkCntryBox: TComboBox
Left = 77
Top = 185
Top = 193
Width = 140
Height = 21
Style = csDropDownList
@ -531,7 +529,7 @@ object viewinfoFrm: TviewinfoFrm
end
object workZipEdt: TLabeledEdit
Left = 77
Top = 212
Top = 220
Width = 140
Height = 21
CharCase = ecLowerCase
@ -539,6 +537,7 @@ object viewinfoFrm: TviewinfoFrm
EditLabel.Height = 13
EditLabel.Caption = 'Zip'
LabelPosition = lpLeft
LabelSpacing = 6
MaxLength = 9
ReadOnly = True
TabOrder = 8
@ -546,66 +545,70 @@ object viewinfoFrm: TviewinfoFrm
end
object WorkCellEdit: TLabeledEdit
Left = 77
Top = 239
Top = 247
Width = 140
Height = 21
EditLabel.Width = 35
EditLabel.Height = 13
EditLabel.Caption = 'Cellular'
LabelPosition = lpLeft
LabelSpacing = 6
ReadOnly = True
TabOrder = 9
end
object WorkPosEdit: TLabeledEdit
Left = 77
Top = 50
Top = 58
Width = 140
Height = 21
EditLabel.Width = 37
EditLabel.Height = 13
EditLabel.Caption = 'Position'
LabelPosition = lpLeft
LabelSpacing = 6
ReadOnly = True
TabOrder = 2
end
object WorkDeptEdit: TLabeledEdit
Left = 77
Top = 77
Top = 85
Width = 140
Height = 21
EditLabel.Width = 57
EditLabel.Height = 13
EditLabel.Caption = 'Department'
LabelPosition = lpLeft
LabelSpacing = 6
ReadOnly = True
TabOrder = 3
end
object WorkCompanyEdit: TLabeledEdit
Left = 77
Top = 104
Top = 112
Width = 140
Height = 21
EditLabel.Width = 45
EditLabel.Height = 13
EditLabel.Caption = 'Company'
LabelPosition = lpLeft
LabelSpacing = 6
ReadOnly = True
TabOrder = 4
end
object GoWkPgBtn: TRnQButton
Left = 350
Top = 21
Width = 71
Height = 25
Left = 327
Top = 22
Width = 87
Height = 23
Hint = 'Open this address'
Caption = 'GO'
TabOrder = 1
OnClick = GoWkPgBtnClick
end
object StsMsgEdit: TLabeledEdit
Left = 15
Top = 327
Width = 329
Left = 8
Top = 311
Width = 313
Height = 21
EditLabel.Width = 50
EditLabel.Height = 13
@ -613,10 +616,10 @@ object viewinfoFrm: TviewinfoFrm
TabOrder = 10
end
object RnQButton2: TRnQButton
Left = 15
Top = 354
Width = 90
Height = 25
Left = 327
Top = 310
Width = 87
Height = 23
Caption = 'Apply'
TabOrder = 11
OnClick = RnQButton2Click