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

←   Ноябрь 2002   →
				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

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

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

Автор

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

Статистика

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

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

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

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

Информационный Канал Subscribe.Ru

---

---

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

Выпуск № 101
от 21.11.2002, 15:20

Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва

О рассылке: Задано вопросов: 295 Отправлено ответов: 512 Активность: 173.5 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

Idle Sign Статус: Опытный Общий рейтинг: 148.57 URL: Blind Team [Подробней >>]	Артём Шегеда Статус: Профессиональный Общий рейтинг: 116.09 URL: Пристанище неодинокого программиста [Подробней >>]	Painbringer Статус: Профессиональный Общий рейтинг: 126.66 URL: Музычка, стишки и прочая дрянь [Подробней >>]
Vladimir Статус: Опытный Общий рейтинг: 110.43 Телефон: (08242) 43599 40099 раб 41255 дом [Подробней >>]	Рыжик Статус: Начальный Общий рейтинг: 112.79 [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 284. Гутен морген! Вот делаю я уже программу для компьютерного клуба "@рен@". Ну что-то вроде с... (ответов: 2)
Вопрос № 285. Здравствуйте!! Мне нужно написать процедуру которая бы переводила, введенную пользователем денежную ... (ответов: 1)
Вопрос № 286. Располоиж на форме картинку. на эту картинку поместил чекбокс. Можно сделать, чтобы фон у этого чекб... (ответов: 1)
Вопрос № 287. Здравствуйте, Ув.Эксперты! Вопрос такой. Я создал таблицу StringGrid, c заголовком fixed row. Когда ... (ответов: 5)

---

Вопросов: 4, ответов: 9

---

Вопрос № 284

Гутен морген!
Вот делаю я уже программу для компьютерного клуба "@рен@". Ну что-то вроде сетевого менеджера (контроль времени, трафика, небольшое удалённое администратирование и т.п.).
Для начала, подскажите как мне получить массив компов в локальной сети (ИМХО тип локалки не влияет на способ) и доступные диски.
ps:
Вникаю вообще быстро, но нет времени совсем (грузит учёба :((( Да и хелп в 6.0 не рус., да и в нём помойму нету описания функций и процедур :((( Кое что вылавливаю из екземплов.... И по этому, пожалуйста, не надо критиковать(типа: "Вопрос задан не корректно/не конкретно!", "О майн год! Этот вопрос каждый день!" и т.п.), просто наводочку дайте(процедурку/функцию).
ззы:
А вообшче спасибо! Без вас, экспертов, топтался на месте бы в раза 3 времени больше.

---

Вопрос отправлен: 16.11.2002, 14:07
Отправитель: KODer (koderx@rambler.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Idle Sign

Приветствую Вас, KODer!
===== Pro bono publico, no bloody panico! =====
Если говорят "вопрос задан не корректно", значит, по видимому, так и есть...
Ты меня просто настроил на "придирание" к словам. Итак. "Массив компов в локальной сети" можно получить путем покупки означенных компов и организации их в локальную сеть, методом непосредственного их соединения при помощи прямого кабельного, модемного, а также подключения по средствам сетевых адаптеров, с последующей настройкой вышеозначенного оборудования, а также специализированного программного обеспечения и сетевых протоколов...
Гы-гы-гы... Теперь серьезно.
Можно получить _имена_ компьютеров для данной рабочей группы. В приложении описан пример заполнения листбокса именами машин, входящих в ту же рабочую группу, что и компьютер, на котором запущена данная программа.

Приложение:
public Computer: Array[1..500] of String[25]; ComputerCount: Integer; procedure FindAllComputers(Workgroup: String); ------------ procedure Tform1.FindAllComputers(Workgroup: String); Var EnumHandle: THandle; WorkgroupRS: TNetResource; Buf: Array[1..500] of TNetResource; BufSize: Cardinal; Entries: Cardinal; Result: Integer; begin ComputerCount:= 0; Workgroup:= Workgroup + #0; FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0); With WorkgroupRS do begin dwScope:= 2; dwType:= 3; dwDisplayType:= 1; dwUsage:= 2; lpRemoteName:= @Workgroup[1]; end; WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle ); Repeat Entries:= 1; BufSize:= SizeOf(Buf); Result:= WNetEnumResource (EnumHandle, Entries, @Buf, BufSize); If (Result = NO_ERROR) and (Entries = 1) then begin Inc (ComputerCount); Computer [ComputerCount]:= StrPas(Buf[1].lpRemoteName); end; Until (Entries <> 1) or (Result <> NO_ERROR); WNetCloseEnum( EnumHandle ); end; ------------ procedure Tform1.bt_AutoFillClick(Sender: TObject); var i:integer; begin FindAllComputers(main_form.reg.ReadString('WorkGroup')); For i:=0 to ComputerCount do cb_complist.Items.Add(Computer[i]); end;

---

Ответ отправлен: 17.11.2002, 14:35
Отправитель: Idle Sign

---

Отвечает Артём Шегеда

Здравствуйте, KODer!

Писал давно, по-моему это с MSDN содрано...

Приложение:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure NetErrorHandler(a:DWORD; b:DWORD; c:PChar); begin end; function DisplayStruct(hdc:HDC; var NetResource:TNetResource; Parent:TTreeNode):pointer; begin if(NetResource.lpRemoteName=nil) then Result:=Form1.TreeView1.Items.AddChild( Parent, NetResource.lpComment) else Result:=Form1.TreeView1.Items.AddChild( Parent, NetResource.lpRemoteName); end; function EnumerateFunc( hwnd:HWND; hdc:HDC; lpnr:PNetResource; ParentItem:pointer=nil):boolean; Type TNetResourceArray = array [0..0] of TNetResource; PNetResourceArray = ^TNetResourceArray; var dwResult, dwResultEnum : DWORD; hEnum : THandle; cbBuffer : DWORD; cEntries : DWORD; i : DWORD; NewItem : pointer; lpnrLocal : PNetResourceArray; // pointer to enumerated structures begin lpnrLocal := nil; cbBuffer := 16384; // 16K is a good size cEntries := $FFFFFFFF; // enumerate all possible entries dwResult := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, // enumerate all resources lpnr, // NULL first time this function is called hEnum); // handle to resource if (dwResult <> NO_ERROR) then begin // An application-defined error handler is demonstrated in the // section titled "Retrieving Network Errors." NetErrorHandler(hwnd, dwResult, 'WNetOpenEnum'); result := false; Exit; end; repeat // Allocate memory for NETRESOURCE structures. lpnrLocal := PNetResourceArray(GlobalAlloc(GPTR, cbBuffer)); dwResultEnum := WNetEnumResource( hEnum, // resource handle cEntries, // defined locally as 0xFFFFFFFF lpnrLocal, // LPNETRESOURCE cbBuffer); // buffer size if (dwResultEnum = NO_ERROR) then begin for i:=0 to cEntries-1 do begin // Following is an application-defined function for // displaying contents of NETRESOURCE structures. NewItem:=DisplayStruct(hdc, lpnrLocal^[i], ParentItem); // // If this NETRESOURCE is a container, call the function // recursively. if(RESOURCEUSAGE_CONTAINER = (lpnrLocal^[i].dwUsage and RESOURCEUSAGE_CONTAINER)) then if not EnumerateFunc(hwnd, hdc, @(lpnrLocal^[i]), NewItem) then TextOut(hdc, 10, 10, 'EnumerateFunc returned FALSE.', 29); end end else if (dwResultEnum <> ERROR_NO_MORE_ITEMS) then begin NetErrorHandler(hwnd, dwResultEnum, 'WNetEnumResource'); break; end; GlobalFree(HGLOBAL(lpnrLocal)); until (dwResultEnum = ERROR_NO_MORE_ITEMS); dwResult := WNetCloseEnum(hEnum); if(dwResult <> NO_ERROR) then begin NetErrorHandler(hwnd, dwResult, 'WNetCloseEnum'); Result := FALSE; Exit; end; result:=TRUE; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.TreeView1.Items.BeginUpdate; EnumerateFunc(Handle, Canvas.Handle, nil, nil); Form1.TreeView1.Items.EndUpdate; end; end.

---

Ответ отправлен: 18.11.2002, 12:40
Отправитель: Артём Шегеда

---

Вопрос № 285

Здравствуйте!!
Мне нужно написать процедуру которая бы переводила, введенную пользователем денежную сумму (число) в строку, то есть сумму прописью:
Например: 5673,60
Результат: пять тысяч шестьсот семьдесят три рубля 60 к.
Может у кого-нибудь есть готовое решение этой проблемы
PS: До ужаса лень писать такую скучную процедуру.

---

Вопрос отправлен: 16.11.2002, 21:53
Отправитель: Orlando (orlando@kaluga.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Idle Sign

Добрый день, Orlando!
===== Pro bono publico, no bloody panico! =====
Лень написать процедуру? Тут не процедуру, тут ПРОЦЕДУРИЩУ нужно состряпать. А и скучать тут не придется. По сути: наверняка в Королевстве Дельфи найдется интересующая тебя информация (http://www.delphikingdom.com).

---

Ответ отправлен: 17.11.2002, 14:37
Отправитель: Idle Sign

---

Вопрос № 286

Располоиж на форме картинку. на эту картинку поместил чекбокс. Можно сделать, чтобы фон у этого чекбокса сливался с картинкой, т.е. был прозрачным?

---

Вопрос отправлен: 18.11.2002, 02:32
Отправитель: Tik (shal@gorodok.net)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Артём Шегеда

Здравствуйте, Tik!

Боюсь, что простыми методами эта проблема не решается. :(по крайней мере за полчаса я такого не сделал).
Придётся создавать свой контроль от TCustomCheckBox и перехватывать сообщение WM_PAINT. А уже в нём выводить текст с прозрачным фоном (SetBkMode) или при создании указать, что контрол будет иметь прозрачный фон (например, создав HBrush стилем Hollow).
Сам я такого не делал, так что извини, если что не так...

---

Ответ отправлен: 18.11.2002, 13:46
Отправитель: Артём Шегеда

---

Вопрос № 287

Здравствуйте, Ув.Эксперты!
Вопрос такой. Я создал таблицу StringGrid, c заголовком fixed row. Когда пишу в fixed row заголовки для столбцов, то они записываются в одну строку, а в заданную ширину столбцов не помещаются,надо перенести на след.строку, пробовал символ переноса написать в строке типа #20, но может я ошибаюсь, но вместо переноса он пишет верт. черту. Подскажите, как сделать перенос.
Kolyan.

---

Вопрос отправлен: 18.11.2002, 15:15
Отправитель: Kolyan
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Painbringer

Приветствую Вас, Kolyan!
помоему никак... и уж всяко не #20.. попробуй #10#13 (у меня делф не стоит)

---

Ответ отправлен: 18.11.2002, 20:55
Отправитель: Painbringer

---

Отвечает Vladimir

Приветствую Вас, Kolyan!
Первое, перевод строки вообще-то #13#10 (но это все-равно не поможет).
Ну, а по-проблеме, что приходит на ум -- это использовать две фиксированные строки, только между ними убрать линии (это в Options goFixedHorzLine перевести в False).
Можно, если есть желание, использовать TDrawGrid вместо TStringGrid, но с ним надо разбираться.

---

Ответ отправлен: 18.11.2002, 15:50
Отправитель: Vladimir

---

Отвечает Артём Шегеда

Приветствую Вас, Kolyan!

Сочуствую, но TStringGrid не умеет переносить слова заголовка на новую строку. Но отчаиваться не стОит - создайте обработчик события OnDrawCell и рисуйте всё, что Вам вздумается.

Приложение:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var s : string; begin if gdFixed in State then begin DrawEdge( StringGrid1.Canvas.Handle, Rect, EDGE_RAISED, BF_RECT or BF_ADJUST); FillRect( StringGrid1.Canvas.Handle, Rect, COLOR_BTNFACE+1); s := StringGrid1.Cells[ACol,ARow]; SetBkMode( StringGrid1.Canvas.Handle, TRANSPARENT); DrawTextEx( StringGrid1.Canvas.Handle, PChar(s), length(s), Rect, DT_WORDBREAK, nil); end; end;

---

Ответ отправлен: 18.11.2002, 16:00
Отправитель: Артём Шегеда

---

Отвечает Рыжик

Добрый день, Kolyan!
Чтобы сделать перенос строк в StringGrid, используйте событие OnDrawCell. В обработчике напишите следующее:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var Strings:TStrings;
i:integer;
begin
Strings:=TStringList.Create;
try
Strings.Text:=StringGrid1.Cells[ACol,ARow];
StringGrid1.Canvas.FillRect(Rect);
for i:=0 to Strings.Count-1 do
StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top-i*StringGrid1.Font.Height,Strings[i]);
finally
Strings.Free;
end;
end;
И разделитель строк задавайте так:
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Line1'#13#10'Line2';
end;

---

Ответ отправлен: 19.11.2002, 11:07
Отправитель: Рыжик

---

Отвечает Idle Sign

Приветствую Вас, Kolyan!
===== Pro bono publico, no bloody panico! =====
Символ с кодом #20 - пробел. Для переноса требуется два символа #13#10 - переход на другую строку и возврат каретки.

---

Ответ отправлен: 19.11.2002, 11:21
Отправитель: Idle Sign

---

---

Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (42) C / C++ (30) Perl (8) Delphi (13) Pascal (21) Basic / VBA (11) Java / JavaScript (13) PHP (11) MySQL / MSSQL (9)

Пользователю Windows 95/98/Me (31) Windows NT/2000/XP (21) "Железо" (26) Поиск информации (16)

Администратору Windows NT/2000/XP (11) Linux / Unix (16)

Юристу Гражданское право (7) Семейное право (2) Трудовое право (3) КоАП (2)

Отправить вопрос всем экспертам выбранной рассылки.

---

---

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

---

http://subscribe.ru/ E-mail: ask@subscribe.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}