View previous topic :: View next topic |
Author |
Message |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 05 Oct 2005 11:37 Post subject: Обсуждение написание модуля на харборе УРОК4 |
|
|
Итак коллеги пришло время нового занятия....
Оно будет небольшим так как за ним будет раскрытие таинства создания массива в режимее вода/корректировки перебираемого пробелом
Чтобы не тратить время могу описать как с помощью горячих клавиш вызвать произвольную функцию, а может есть у кого какое-то конкретное пожелание ? |
|
Back to top |
|
 |
Марина
Joined: 27 Aug 2002 Posts: 501 Location: Кондрина Марина Александровна Occupation: ОАО БКО программист Interests: Боровичи Новгородской обл
|
Posted: 05 Oct 2005 12:53 Post subject: |
|
|
Дружище, не томите! Нет мочи больше ждать горячих клавиш! Вызовите любую функцию, даже притянутую за уши, даже просто Hello world |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 06 Oct 2005 13:10 Post subject: |
|
|
Итак первое - создадим файл inkey.ch (можно и без него но с ним лучше)
В 12 версии он есть в BIN\include
и при компилировании должен сам добавляться вроде как - я не проверял
Code: | #ifndef HB_INKEY_CH_
#define HB_INKEY_CH_
/* Input event masks */
#define INKEY_MOVE 1
#define INKEY_LDOWN 2
#define INKEY_LUP 4
#define INKEY_RDOWN 8
#define INKEY_RUP 16
#define INKEY_MMIDDLE 32 /* Mask for middle button events */
#define INKEY_MWHEEL 64 /* Mask for mouse wheel events */
#define INKEY_KEYBOARD 128
#define INKEY_ALL 255
/* Mouse events */
#define K_MOUSEMOVE 1001
#define K_LBUTTONDOWN 1002
#define K_LBUTTONUP 1003
#define K_RBUTTONDOWN 1004
#define K_RBUTTONUP 1005
#define K_LDBLCLK 1006
#define K_RDBLCLK 1007
#define K_MBUTTONDOWN 1008 // Middle Button Down
#define K_MBUTTONUP 1009 // Middle Button Up
#define K_MDBLCLK 1010 // Middle Button Double Click
#define K_MMLEFTDOWN 1011 // Mouse Move Left Down
#define K_MMRIGHTDOWN 1012 // Mouse Move Right Down
#define K_MMMIDDLEDOWN 1013 // Mouse Move Middle Down
#define K_MWFORWARD 1014 // Mouse Wheel Forward
#define K_MWBACKWARD 1015 // Mouse Wheel Backward
#define K_NCMOUSEMOVE 1016 // Non-Client Area Mouse Movement
#define K_MINMOUSE 1001
#define K_MAXMOUSE 1016
/* Cursor movement keys */
#define K_UP 5 /* Up arrow, Ctrl-E */
#define K_DOWN 24 /* Down arrow, Ctrl-X */
#define K_LEFT 19 /* Left arrow, Ctrl-S */
#define K_RIGHT 4 /* Right arrow, Ctrl-D */
#define K_HOME 1 /* Home, Ctrl-A */
#define K_END 6 /* End, Ctrl-F */
#define K_PGUP 18 /* PgUp, Ctrl-R */
#define K_PGDN 3 /* PgDn, Ctrl-C */
#define K_CTRL_UP 397 /* * Ctrl-Up arrow */
#define K_CTRL_DOWN 401 /* * Ctrl-Down arrow */
#define K_CTRL_LEFT 26 /* Ctrl-Left arrow, Ctrl-Z */
#define K_CTRL_RIGHT 2 /* Ctrl-Right arrow, Ctrl-B */
#define K_CTRL_HOME 29 /* Ctrl-Home, Ctrl-] */
#define K_CTRL_END 23 /* Ctrl-End, Ctrl-W */
#define K_CTRL_PGUP 31 /* Ctrl-PgUp, Ctrl-Hyphen */
#define K_CTRL_PGDN 30 /* Ctrl-PgDn, Ctrl-^ */
#define K_ALT_UP 408 /* * Alt-Up arrow */
#define K_ALT_DOWN 416 /* * Alt-Down arrow */
#define K_ALT_LEFT 411 /* * Alt-Left arrow */
#define K_ALT_RIGHT 413 /* * Alt-Right arrow */
#define K_ALT_HOME 407 /* * Alt-Home */
#define K_ALT_END 415 /* * Alt-End */
#define K_ALT_PGUP 409 /* * Alt-PgUp */
#define K_ALT_PGDN 417 /* * Alt-PgDn */
/* Misc. keys */
#define K_ENTER 13 /* Enter, Ctrl-M */
#define K_INTRO 13 /* */
#define K_RETURN 13 /* Return, Ctrl-M */
#define K_SPACE 32 /* Space bar */
#define K_ESC 27 /* Esc, Ctrl-[ */
#define K_CTRL_ENTER 10 /* Ctrl-Enter */
#define K_CTRL_RETURN 10 /* Ctrl-Return */
#define K_CTRL_RET 10 /* Ctrl-Return (Compatibility) */
#define K_CTRL_PRTSCR 379 /* * Ctrl-Print Screen */
#define K_CTRL_QUESTION 309 /* Ctrl-? */
#define K_ALT_ENTER 284 /* * Alt-Enter */
#define K_ALT_RETURN 284 /* * Alt-Return */
#define K_ALT_EQUALS 387 /* * Alt-Equals */
#define K_ALT_ESC 257 /* * Alt-Esc */
/* Keypad keys */
#define KP_CENTER 332 /* * Keypad 5 */
#define KP_ALT_ENTER 422 /* * Keypad Alt-Enter */
#define KP_CTRL_5 399 /* * Keypad Ctrl-5 */
#define KP_CTRL_SLASH 405 /* * Keypad Ctrl-/ */
#define KP_CTRL_ASTERISK 406 /* * Keypad Ctrl-* */
#define KP_CTRL_MINUS 398 /* * Keypad Ctrl-- */
#define KP_CTRL_PLUS 400 /* * Keypad Ctrl-+ */
#define KP_ALT_5 5 /* * Keypad Alt-5 */
#define KP_ALT_SLASH 420 /* * Keypad Alt-/ */
#define KP_ALT_ASTERISK 311 /* * Keypad Alt-* */
#define KP_ALT_MINUS 330 /* * Keypad Alt-- */
#define KP_ALT_PLUS 334 /* * Keypad Alt-+ */
/* Editing keys */
#define K_INS 22 /* Ins, Ctrl-V */
#define K_DEL 7 /* Del, Ctrl-G */
#define K_BS 8 /* Backspace, Ctrl-H */
#define K_TAB 9 /* Tab, Ctrl-I */
#define K_SH_TAB 271 /* Shift-Tab */
#define K_CTRL_INS 402 /* * Ctrl-Ins */
#define K_CTRL_DEL 403 /* * Ctrl-Del */
#define K_CTRL_BS 127 /* Ctrl-Backspace */
#define K_CTRL_TAB 404 /* * Ctrl-Tab */
#define K_ALT_INS 418 /* * Alt-Ins */
#define K_ALT_DEL 419 /* * Alt-Del */
#define K_ALT_BS 270 /* * Alt-Backspace */
#define K_ALT_TAB 421 /* * Alt-Tab */
#define K_CTRL_SH_TAB 423 /* * Ctrl-Shift-Tab */
#define K_SH_BS 423 /* * Shift-Backspace */
//#ifdef HB_EXT_SHIFT_KEYS_CODES
/* extended shift key codes, none in Clipper */
#define K_SH_LEFT 424 /* * Shift-Left */
#define K_SH_UP 425 /* * Shift-Up */
#define K_SH_RIGHT 426 /* * Shift-Right */
#define K_SH_DOWN 427 /* * Shift-Down */
#define K_SH_INS 428 /* * Shift-Ins */
#define K_SH_DEL 429 /* * Shift-Del */
#define K_SH_HOME 430 /* * Shift-Home */
#define K_SH_END 431 /* * Shift-End */
#define K_SH_PGUP 432 /* * Shift-PgUp */
#define K_SH_PGDN 433 /* * Shift-PgDn */
#define K_SH_RETURN 434 /* * Shift-Enter */
#define K_SH_ENTER 434 /* * Shift-Enter */
//#endif
#ifndef HB_CTRL_KEYS_CODES
/* Clipper compatible control keys */
#define K_CTRL_A 1 /* Ctrl-A, Home */
#define K_CTRL_B 2 /* Ctrl-B, Ctrl-Right arrow */
#define K_CTRL_C 3 /* Ctrl-C, PgDn, Ctrl-ScrollLock */
#define K_CTRL_D 4 /* Ctrl-D, Right arrow */
#define K_CTRL_E 5 /* Ctrl-E, Up arrow */
#define K_CTRL_F 6 /* Ctrl-F, End */
#define K_CTRL_G 7 /* Ctrl-G, Del */
#define K_CTRL_H 8 /* Ctrl-H, Backspace */
#define K_CTRL_I 9 /* Ctrl-I, Tab */
#define K_CTRL_J 10 /* Ctrl-J */
#define K_CTRL_K 11 /* Ctrl-K */
#define K_CTRL_L 12 /* Ctrl-L */
#define K_CTRL_M 13 /* Ctrl-M, Return */
#define K_CTRL_N 14 /* Ctrl-N */
#define K_CTRL_O 15 /* Ctrl-O */
#define K_CTRL_P 16 /* Ctrl-P */
#define K_CTRL_Q 17 /* Ctrl-Q */
#define K_CTRL_R 18 /* Ctrl-R, PgUp */
#define K_CTRL_S 19 /* Ctrl-S, Left arrow */
#define K_CTRL_T 20 /* Ctrl-T */
#define K_CTRL_U 21 /* Ctrl-U */
#define K_CTRL_V 22 /* Ctrl-V, Ins */
#define K_CTRL_W 23 /* Ctrl-W, Ctrl-End */
#define K_CTRL_X 24 /* Ctrl-X, Down arrow */
#define K_CTRL_Y 25 /* Ctrl-Y */
#define K_CTRL_Z 26 /* Ctrl-Z, Ctrl-Left arrow */
#else
/* New control keys that do not overlap with other codes */
#define K_CTRL_A 513 /* Ctrl-A */
#define K_CTRL_B 514 /* Ctrl-B */
#define K_CTRL_C 515 /* Ctrl-C */
#define K_CTRL_D 516 /* Ctrl-D */
#define K_CTRL_E 517 /* Ctrl-E */
#define K_CTRL_F 518 /* Ctrl-F */
#define K_CTRL_G 519 /* Ctrl-G */
#define K_CTRL_H 520 /* Ctrl-H */
#define K_CTRL_I 521 /* Ctrl-I */
#define K_CTRL_J 522 /* Ctrl-J */
#define K_CTRL_K 523 /* Ctrl-K */
#define K_CTRL_L 524 /* Ctrl-L */
#define K_CTRL_M 525 /* Ctrl-M */
#define K_CTRL_N 526 /* Ctrl-N */
#define K_CTRL_O 527 /* Ctrl-O */
#define K_CTRL_P 528 /* Ctrl-P */
#define K_CTRL_Q 529 /* Ctrl-Q */
#define K_CTRL_R 530 /* Ctrl-R */
#define K_CTRL_S 531 /* Ctrl-S */
#define K_CTRL_T 532 /* Ctrl-T */
#define K_CTRL_U 533 /* Ctrl-U */
#define K_CTRL_V 534 /* Ctrl-V */
#define K_CTRL_W 535 /* Ctrl-W */
#define K_CTRL_X 536 /* Ctrl-X */
#define K_CTRL_Y 537 /* Ctrl-Y */
#define K_CTRL_Z 538 /* Ctrl-Z */
#endif
/* Alt keys */
#define K_ALT_A 286 /* Alt-A */
#define K_ALT_B 304 /* Alt-B */
#define K_ALT_C 302 /* Alt-C */
#define K_ALT_D 288 /* Alt-D */
#define K_ALT_E 274 /* Alt-E */
#define K_ALT_F 289 /* Alt-F */
#define K_ALT_G 290 /* Alt-G */
#define K_ALT_H 291 /* Alt-H */
#define K_ALT_I 279 /* Alt-I */
#define K_ALT_J 292 /* Alt-J */
#define K_ALT_K 293 /* Alt-K */
#define K_ALT_L 294 /* Alt-L */
#define K_ALT_M 306 /* Alt-M */
#define K_ALT_N 305 /* Alt-N */
#define K_ALT_O 280 /* Alt-O */
#define K_ALT_P 281 /* Alt-P */
#define K_ALT_Q 272 /* Alt-Q */
#define K_ALT_R 275 /* Alt-R */
#define K_ALT_S 287 /* Alt-S */
#define K_ALT_T 276 /* Alt-T */
#define K_ALT_U 278 /* Alt-U */
#define K_ALT_V 303 /* Alt-V */
#define K_ALT_W 273 /* Alt-W */
#define K_ALT_X 301 /* Alt-X */
#define K_ALT_Y 277 /* Alt-Y */
#define K_ALT_Z 300 /* Alt-Z */
#define K_ALT_1 376 /* Alt-1 */
#define K_ALT_2 377 /* Alt-2 */
#define K_ALT_3 378 /* Alt-3 */
#define K_ALT_4 379 /* Alt-4 */
#define K_ALT_5 380 /* Alt-5 */
#define K_ALT_6 381 /* Alt-6 */
#define K_ALT_7 382 /* Alt-7 */
#define K_ALT_8 383 /* Alt-8 */
#define K_ALT_9 384 /* Alt-9 */
#define K_ALT_0 385 /* Alt-0 */
/* Function keys */
#define K_F1 28 /* F1, Ctrl-Backslash */
#define K_F2 -1 /* F2 */
#define K_F3 -2 /* F3 */
#define K_F4 -3 /* F4 */
#define K_F5 -4 /* F5 */
#define K_F6 -5 /* F6 */
#define K_F7 -6 /* F7 */
#define K_F8 -7 /* F8 */
#define K_F9 -8 /* F9 */
#define K_F10 -9 /* F10 */
#define K_F11 -40 /* * F11 */
#define K_F12 -41 /* * F12 */
/* Control-function keys */
#define K_CTRL_F1 -20 /* Ctrl-F1 */
#define K_CTRL_F2 -21 /* Ctrl-F2 */
#define K_CTRL_F3 -22 /* Ctrl-F4 */
#define K_CTRL_F4 -23 /* Ctrl-F3 */
#define K_CTRL_F5 -24 /* Ctrl-F5 */
#define K_CTRL_F6 -25 /* Ctrl-F6 */
#define K_CTRL_F7 -26 /* Ctrl-F7 */
#define K_CTRL_F8 -27 /* Ctrl-F8 */
#define K_CTRL_F9 -28 /* Ctrl-F9 */
#define K_CTRL_F10 -29 /* Ctrl-F10 */
#define K_CTRL_F11 -44 /* * Ctrl-F11 */
#define K_CTRL_F12 -45 /* * Ctrl-F12 */
/* Alt-function keys */
#define K_ALT_F1 -30 /* Alt-F1 */
#define K_ALT_F2 -31 /* Alt-F2 */
#define K_ALT_F3 -32 /* Alt-F3 */
#define K_ALT_F4 -33 /* Alt-F4 */
#define K_ALT_F5 -34 /* Alt-F5 */
#define K_ALT_F6 -35 /* Alt-F6 */
#define K_ALT_F7 -36 /* Alt-F7 */
#define K_ALT_F8 -37 /* Alt-F8 */
#define K_ALT_F9 -38 /* Alt-F9 */
#define K_ALT_F10 -39 /* Alt-F10 */
#define K_ALT_F11 -46 /* * Alt-F11 */
#define K_ALT_F12 -47 /* * Alt-F12 */
/* Shift-function keys */
#define K_SH_F1 -10 /* Shift-F1 */
#define K_SH_F2 -11 /* Shift-F2 */
#define K_SH_F3 -12 /* Shift-F3 */
#define K_SH_F4 -13 /* Shift-F4 */
#define K_SH_F5 -14 /* Shift-F5 */
#define K_SH_F6 -15 /* Shift-F6 */
#define K_SH_F7 -16 /* Shift-F7 */
#define K_SH_F8 -17 /* Shift-F8 */
#define K_SH_F9 -18 /* Shift-F9 */
#define K_SH_F10 -19 /* Shift-F10 */
#define K_SH_F11 -42 /* * Shift-F11 */
#define K_SH_F12 -43 /* * Shift-F12 */
#endif /* HB_INKEY_CH_ */ |
Last edited by nordk on 06 Oct 2005 13:47; edited 1 time in total |
|
Back to top |
|
 |
Марина
Joined: 27 Aug 2002 Posts: 501 Location: Кондрина Марина Александровна Occupation: ОАО БКО программист Interests: Боровичи Новгородской обл
|
Posted: 06 Oct 2005 13:44 Post subject: |
|
|
А такой inkey.ch не подключен к самому БЭСТу? |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 06 Oct 2005 13:45 Post subject: |
|
|
Перед функцией main() вставим строчку
#include "inkey.ch"
Дальше смотрим на параметр 30 функции InitList()
Это массив содержащий в себе 3 массива для ctrl,shift и alt соответственно
Допустим хотим SHIFT-F5
Тогда создаем aHotKey
Code: | aHotKey:={{},{{'F5 - моя функция',K_SH_F5,{||myfunction()},1}},{}} |
Ну и разумеется после нашего главного RETURN NIL
Пишем
Code: | FUNCTION myfunction()
SayAndWait("OK")
RETURN 2 |
И сам Initlist меняем на
Code: | work->(Initlist(nTop,nBot,cColHead,aBlockCols,cCurProc,;
_aHeads,aRef,aPic,aWhen,,;
nUniMode,bDel,,,,;
,,,,,;
,,cFindMacro,,, ;
,,,,aHotKey)) |
|
|
Back to top |
|
 |
Марина
Joined: 27 Aug 2002 Posts: 501 Location: Кондрина Марина Александровна Occupation: ОАО БКО программист Interests: Боровичи Новгородской обл
|
Posted: 06 Oct 2005 14:09 Post subject: |
|
|
Что такое 2 после return? Всегда ли 2? |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 06 Oct 2005 14:57 Post subject: |
|
|
Марина wrote: | Что такое 2 после return? Всегда ли 2? |
Это появилось у меня после FileEval - когда я не знал почему не всегда экран обновлялся. Вполне возможно что здесь ничего возвращать не надо - ставьте Nil в конц |
|
Back to top |
|
 |
Марина
Joined: 27 Aug 2002 Posts: 501 Location: Кондрина Марина Александровна Occupation: ОАО БКО программист Interests: Боровичи Новгородской обл
|
Posted: 06 Oct 2005 15:36 Post subject: |
|
|
Я попробовала возвращать 0 вместо 2 - после возврата происходит выход из вызвавшего initlist. |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 06 Oct 2005 15:39 Post subject: |
|
|
Спасибо за помощь
Значит таки возвращаем значение в соответствии с правилами обновления экрана cCurProc - а значит 2 для полного обновления экра |
|
Back to top |
|
 |
GVA
Joined: 16 Oct 2003 Posts: 99 Location: Gaponenko Occupation: HDM Interests: Москва
|
Posted: 08 Oct 2005 15:11 Post subject: |
|
|
[quote="nordk"]Перед функцией main() вставим строчку
#include "inkey.ch"
Я понимаю, что мы учимся. Но одновременно и готовим учебное пособие.
Значит расчитано оно на начинающих и не факт что люди имели опыт работы с подключением файлов описаний и т.п.
значит пишем по крайней мере #include ".\bin\include\inkey.ch"
Однако !Крик души!
Уже достало, что создаем проект в головной папке. А если их уже около десятка? Разместить в отдельной типа Project не получается, главное что отладчик видит исходники, только если они лежат именно в корне. Опять же если пользоваться полным набором include, как это и было повсеместно принято, то выскакивают ошибки при компиляции что файлы ***.сh недоступны, если на них есть ссылки из ранее определенных.
Значит, раз учимся программировать давайте, наконец, определимся со средо |
|
Back to top |
|
 |
Титов Александр
Joined: 26 Jul 2002 Posts: 975 Location: Титов Александр Александрович Occupation: Компания БЭСТ Interests: Москва
|
Posted: 08 Oct 2005 16:01 Post subject: |
|
|
[quote="GVA"] nordk wrote: | Перед функцией main() вставим строчку
#include "inkey.ch"
Я понимаю, что мы учимся. Но одновременно и готовим учебное пособие.
Значит расчитано оно на начинающих и не факт что люди имели опыт работы с подключением файлов описаний и т.п.
значит пишем по крайней мере #include ".\bin\include\inkey.ch"
Однако !Крик души!
Уже достало, что создаем проект в головной папке. А если их уже около десятка? Разместить в отдельной типа Project не получается, главное что отладчик видит исходники, только если они лежат именно в корне. Опять же если пользоваться полным набором include, как это и было повсеместно принято, то выскакивают ошибки при компиляции что файлы ***.сh недоступны, если на них есть ссылки из ранее определенных.
Значит, раз учимся программировать давайте, наконец, определимся со средой. |
Добрый день!
Если работать в среде программирования, вызываемой по F11, то в автомате и исходники попадут в папку PRO\PLUGIN\Source и отладчик их увидит, и про путь к инклудам тоже не надо помнить, он возьмется какой надо. Если хотите работать независимо, задайте путь к исходникам в отладчике. _________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
Back to top |
|
 |
itman

Joined: 05 Apr 2002 Posts: 1247 Location: Ильин Е.Ю. Occupation: Cio Interests: Кинель
|
Posted: 08 Oct 2005 16:08 Post subject: |
|
|
Можно поступить следующим образом:
Создать папку для проектов
отдельный проект в отдельной папке
внутри программные файлы и все что необходимо
отдельный батник (z.bat) содержимое которого уже в принципе приводилось ранее
только после компилляции еще две команды на копирование собранного плагина в папку по назначению
и исходника в корневой
и запускать потом к примеру так
z {Enter} или же
z /b {enter} для режима отладки.
Если использовать far то можно пойти далее просто в меню добавить
комманду на сборку и сборку с отладкой. а в каждом проекте файл из предыдущего z.bat.
а редактировать тексты в far manager с установленным Colorer
 |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 10 Oct 2005 10:51 Post subject: |
|
|
Вот видите - теперь и самостоятельно решаются вопросы
Однако хочу сделать акцент на 12 версии а значит мы будем работать в папке source и это будет правильным подходом.
Для тех - кому такая палочка-выручалочка не нужна, думаю и подсказки не нужны как в своей папке работать.
Моя вина в том, что я сам все в корень складываю вместе с инклудами - уже столько всего в корне скопилось, вот и упустил необходимость проговорить организацию хранения текстовиков... |
|
Back to top |
|
 |
shura_k
Joined: 10 Oct 2003 Posts: 342 Location: Александр Occupation: Специалист Interests: Калининград
|
Posted: 10 Oct 2005 13:17 Post subject: |
|
|
Немного не в тему урока, но всё-таки
Как сделать множественное выделени и потом это обработать? (INS,Grey+) |
|
Back to top |
|
 |
nordk
Joined: 27 Jun 2005 Posts: 1000 Location: Горбунов Константин Occupation: БЭСТ-Партнер Interests: СПб
|
Posted: 10 Oct 2005 13:28 Post subject: |
|
|
В планах стоит от вас такой вопросик
Завтра достаточно объемная тема по организации массива на ввод по клавише пробел. Если вопросов будет немного то в пятницу эту тему начнем, если много то в понедельник-вторник. |
|
Back to top |
|
 |
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © phpBB Group
|