Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS

←   Март 2008   →
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi

Новое направление Портала RusFAQ.ru: MosHoster.ru - Профессиональный хостинг РАССЫЛКИ ПОРТАЛА RUSFAQ.RU / КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi Выпуск № 1090 от 12.03.2008, 19:35 Администратор: Калашников О.А. В рассылке: Подписчиков: 443, Экспертов: 61 В номере: Вопросов: 4, Ответов: 6 Нам важно Ваше мнение об этой рассылке. Оценить этот выпуск рассылки >> Вопрос № 126263: Добрый день, уважаемые Эксперты. Подскажите, пожалуйста, какие существуют способы добавления элементов управления в компонент TVirtualStringTree? Необходимо добавить кнопки, точнее картинки, и научить дерево отслеживать их события: клик, MouseMove и ... Вопрос № 126281: Здравствуйте! Несколько вопросов из моего экзаменационного теста. Переменная - это а)объект, способный принимать различные значения; б)значения чисел; в)меняющееся число; г)динамический объект. Оператор - это ... Вопрос № 126284: Здравствуйте, помогите пожалуйста... На форме мы открываем текстовый файл, это я сделаю =).. Далее при нажатии на кнопку самое длинное слово должно выделиться, и при нажатии на эту же кнопку(если это возможно, а если нет то на др.) должно вы... Вопрос № 126321: Уважаемые эксперты, помогите написать программу на Delphi которая удаляет лишние пробелы. Напрмер: Дана строка, состоящая из слов, разделенных пробелами. Пробел считается лишним, если он стоит в начале строки; стоит в конце строки; след... Вопрос № 126.263 Добрый день, уважаемые Эксперты. Подскажите, пожалуйста, какие существуют способы добавления элементов управления в компонент TVirtualStringTree? Необходимо добавить кнопки, точнее картинки, и научить дерево отслеживать их события: клик, MouseMove и т.п. Пробовал реализовать так: в событии OnNodePaint просто из ImageList-а рисовал картинку в нужном месте ноды, запоминал координаты. Затем в OnMouseMove дерева следил за координатами курсора - если он соответствовал области картинки (кнопки) - то делал курсор crHandPoint, иначе crDefault. Это позволяло создать иллюзию того что картинка является элементом управления. Аналогично в событии OnMouseDown виртуального дерева исходя из полученных координат определял, был произведен клик на картинке (кнопке) или нет. Мне кажется это очень громоздкий способ, поэтому спрашиваю Вашего совета - как можно реализовать описанный функционал ещё? Заранее благодарен, Роман. Отправлен: 06.03.2008, 19:24 Вопрос задал: Roman rk (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, Roman rk! Вам необходимо обрабатывать событие onCreateEditor - в нем Вы можете создаватьконтрол, привязанный к дереву, и событие OnNewText - Для записи значения. Пример можно посмотреть на сайте производителя www.soft-gems.net (там есть целый пакет редакторов для VirtualTreeViewVirtualStringTree) Ответ отправил: Лукьяненко Алексей Валериевич (статус: Студент) Ответ отправлен: 06.03.2008, 19:34 Оценка за ответ: 5 Комментарий оценки: Спасибо:) Вопрос № 126.281 Здравствуйте! Несколько вопросов из моего экзаменационного теста. Переменная - это а)объект, способный принимать различные значения; б)значения чисел; в)меняющееся число; г)динамический объект. Оператор - это а)функция, которая оперирует с данными; б)законченная фраза языка, предписание, команда; в)алгоритм действия программы, написанной на данном языке; г)процедура обработки данных. Синтаксис языка программирования - это а)набор правил расстановки знаков препинания; б)система правил, определяющая допустимые конструкции языка; в)интерпретация отдельных языковых конструкций языка; г)фиксированный набор основных символов, допускаемых для составления программы. Отправлен: 06.03.2008, 21:57 Вопрос задала: Lili (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Евсюков Виталий Евгеньевич Здравствуйте, Huge-Goblin! 1 - скорее а 2 - б 3 - б --------- I Aear can ven na Mar Ответ отправил: Евсюков Виталий Евгеньевич (статус: 3-ий класс) Ответ отправлен: 06.03.2008, 22:44 Вопрос № 126.284 Здравствуйте, помогите пожалуйста... На форме мы открываем текстовый файл, это я сделаю =).. Далее при нажатии на кнопку самое длинное слово должно выделиться, и при нажатии на эту же кнопку(если это возможно, а если нет то на др.) должно выделяться следующие слово также длинное. Вот собственно и все. Заранее благодарен, кто поможет!!! Отправлен: 06.03.2008, 22:45 Вопрос задал: Makavely (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Лысенков Антон Анатольевич Здравствуйте, Makavely! В приложении решение, не обессудьте что без комментарием. Если что непонятно прошу в мини-форум Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,StrUtils; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type Twords = record myword: string; position: integer; end; var Form1: TForm1; words: array of Twords; q: integer; implementation {$R *.dfm} procedure SortArray (var Arr : array of twords; n : Integer); var i,j: Integer; Temp: Twords; begin for i := 1 to n do begin Temp := Arr [i]; j := i - 1; while length(Temp.myword) < length(Arr [j].myword) do begin Arr [j + 1] := Arr [j]; Dec (j); if j < 0 then Break; end; Arr [j + 1] := Temp; end; end; procedure CreateArray; var s,ss: string; offset,i,j:integer; begin s:=Form1.Memo1.Text; while pos(#$D#$A,s)<>0 do begin j:=pos(#$D#$A,s); insert(' ',s,j); delete(s,j+2,2); end; Setlength(words,0); offset:=1; i:=1; while posex(' ',s,offset)<>0 do begin ss:=copy(S,offset,posex(' ',s,offset)-offset+1); if trim(ss)<>'' then begin Setlength(words,length(words)+1); words[length(words)-1].myword:=Trim(copy(S,offset,posex(' ',s,offset)-offset)); words[length(words)-1].position:=i; i:=posex(' ',s,offset)+1; offset:=words[length(words)-1].position+length(words[length(words)-1].myword)+1; end else begin inc(offset); inc(i); end; end; SortArray(words,length(words)); q:=length(words)-1; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Memo1.Lines.LoadFromFile('C: est.txt'); end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.SetFocus; Memo1.SelStart:=words[q].position-1; Memo1.SelLength:=length(words[q].myword); dec(q); end; procedure TForm1.Button2Click(Sender: TObject); begin CreateArray; end; end. Ответ отправил: Лысенков Антон Анатольевич (статус: 8-ой класс) Ответ отправлен: 07.03.2008, 13:06 Отвечает: Denisss Здравствуйте, Makavely! В приложении находится пример, закомментированный настолько, насколько это возможно. Если я правильно понял задачу, то при втором (третьем, четвертом и др.) нажатии на кнопку, должно выделяться слово, равное по длине самому длинному слову. В приложении именно это и реализовано. Удачи! Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Memo1Change(Sender: TObject); private { Private declarations } Longest: Integer; public { Public declarations } end; var Form1: TForm1; const // Набор букв Letters: set of Char = ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я']; implementation {$R *.dfm} // Form1.OnCreate procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'test.txt'); Longest:= 0; end; function GetLongestWordSize(aText: PChar): Integer; // Функция поиска размерности самого длинного слова var longest: Integer; temp: String; tText: PChar; begin longest:= 0; temp:= ''; tText:= aText; // Перебираем символы в тексте от начала и до конца while (tText^ <> #0) do begin // Если очередной символ - буква if (tText^ in Letters) then begin // Добавляем ее к временной переменной temp:= temp + tText^; end else // Иначе begin // Сравниваем длину найденного слова // с предыдущей максимальной if (longest < Length(temp)) then // Если больше, то запоминаем longest:= Length(temp); // Очищаем временную переменную temp:= ''; end; // Переходим к следующему символу Inc(tText); end; // Проверяем длину последнего в тексте // слова if (longest < Length(temp)) then longest:= Length(temp); Result:= longest; end; function NextSelStart(aText: PChar; const CurSel, WordLength, SelLength: Integer): Cardinal; // Функция поиска стартовой позиции следующего // длинного слова // aText - текст // CurSel - текущая позиция // WordLength - длина слова // SelLength - длина выделения (если оно есть, // то равно WordLength, иначе равно 0) var tText: PChar; temp: String; lPos: Cardinal; begin Result:= 0; // На случай, если в тексте нет ни одного // слова if (WordLength = 0) then Exit; temp:= ''; tText:= aText; // Вычисляем начальную позицию lPos:= CurSel + SelLength; // Переходим на эту позицию Inc(tText, lPos); while True do begin // Если буква if (tText^ in Letters) then begin // Прибавляем к временной переменной temp:= temp + tText^; end else begin // Сверяем длину нового слова if (Length(temp) = WordLength) then // Если соответствует условиям, то выходим Break; temp:= ''; end; Inc(lPos); // Если конец текста if (tText^ = #0) then begin // Переходим в начало текста tText:= aText; lPos:= 0; end else // Переходим к следующему символу Inc(tText); end; // Результат Result:= lPos - Cardinal(WordLength); end; // Событие Button1.OnClick procedure TForm1.Button1Click(Sender: TObject); begin // Если самое длинное слово еще не определено if (Longest = 0) then begin // Определяем Longest:= GetLongestWordSize(Memo1.Lines.GetText); // Переводим курсор в начало текста Memo1.SelStart:= 0; end; with Memo1 do begin // Устанавливаем курсор на позицию следующего // длинного слова SelStart:= NextSelStart(Lines.GetText, SelStart, Longest, SelLength); // Длину выделения устанавливаем равной длине // слова SelLength:= Longest; // Перемещаем фокус на Memo1 SetFocus; end; end; // Событие Memo1.OnChange procedure TForm1.Memo1Change(Sender: TObject); begin // Если пользователь отредактировал // текст, значит нужно по-новому // искать самое длинное слово Longest:= 0; end; end. --------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить... Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ICQ: 281599577 ---- Ответ отправлен: 07.03.2008, 15:04 Оценка за ответ: 5 Комментарий оценки: Большое спасибо ! Вопрос № 126.321 Уважаемые эксперты, помогите написать программу на Delphi которая удаляет лишние пробелы. Напрмер: Дана строка, состоящая из слов, разделенных пробелами. Пробел считается лишним, если он стоит в начале строки; стоит в конце строки; следует за пробелом. Заранее спасибо. Отправлен: 07.03.2008, 10:21 Вопрос задал: Upread (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Сазонов Михаил Владимирович Здравствуйте, Upread! Если пробелы в начале или конце строки можно использовать функцию Trim(S:string). Ну а в середине строки убираем лишнее анализируя строку. Цикл анализа и удаления сделал на ходу, поэтому может быть и другое решение. Удачи. Приложение: function TrimString(Buf: string): string; Var i, Len : integer; begin Result:= Trim(BUF);//УДАЛЯЕМ ПРОБЕЛЫ В НАЧАЛЕ И КОНЦЕ Len := Length(Result); For i:= 2 to Len do begin//анализ и удаление лишнего If (Result[i-1] = '_') and (Result[i]= '_') then Delete( Result, i, 1); end; end; Ответ отправил: Сазонов Михаил Владимирович (статус: 1-ый класс) Ответ отправлен: 07.03.2008, 11:03 Отвечает: Sosedov A.I. Здравствуйте, Upread! Начальные и конечные пробелы удаляем функцией Trim. В цикле заменяем двойной пробел на одиночный, пока длина строки не перестанет изменяться. Может, не совсем оптимально по скорости выполнения... Приложение: function KillSpace(const Value:string):string; var S: string; Len: integer; begin S:= Trim(Value); repeat Len:=Length(S); S:=StringReplace(S,' ',' ',[rfReplaceAll]); until Len=Length(S); Result:=S; end; Ответ отправил: Sosedov A.I. (статус: 3-ий класс) Ответ отправлен: 07.03.2008, 11:15 Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение! Оценить этот выпуск рассылки >> Отправить вопрос экспертам этой рассылки Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть. Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru. Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru. © 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.72.3 от 12.03.2008 RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}