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

←   Сентябрь 2003   →
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.307 подписчиков
0 за неделю

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

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

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

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

---

---

RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 209
от 01.09.2003, 19:50

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

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

---

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

URiS Статус: Профессиональный Общий рейтинг: 129.58 URL: Бесплатный любительский софт, игры [Подробней >>]	ART_43 Статус: Доверительный Общий рейтинг: 121.42 [Подробней >>]	Bob Johnson Статус: Профессиональный Общий рейтинг: 152.28 URL: Программирование [Подробней >>]
Cybernetic Creature Статус: Доверительный Общий рейтинг: 118.59 [Подробней >>]	kvINT Статус: Профессиональный Общий рейтинг: 104.22 Телефон: (34316)2-31-45 [Подробней >>]	Артём Шегеда Статус: Профессиональный Общий рейтинг: 116.73 URL: Пристанище неодинокого программиста [Подробней >>]
Marouder Статус: Профессиональный Общий рейтинг: 117.89 URL: Первый Хабаровский Форум Телефон: (4212) 21-93-65 [Подробней >>]

---

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

Вопрос № 873. Здравствуйте, эксперты. Помогите реализовать слудующую штуку: Выскакивает Confirm Message dialog (эт... (ответов: 4)
Вопрос № 874. Что являет собой Stensil-Buffer... (ответов: 1)
Вопрос № 875. привет! у меня такая проблема: когда я компилирую и запуская ехе из под Дельфи (версия 6 если важно)... (ответов: 4)
Вопрос № 876. Здравствуйте, уважаемые эксперты! Большое спасибо всем ответившим на мой вопрос №869!(Бобу Джонсону)... (ответов: 2)
Вопрос № 877. Здраствуйте уажаемые эксперты.У меня такой вопрос. Программа обращается к базе данных Access. Если з... (ответов: 1)
Вопрос № 878. У меня есть "остов" таблицы в формате dbf, в которую необходимо внести данные и сохранить ... (ответов: 2)

---

Вопросов: 6, ответов: 14

---

Вопрос № 873

Здравствуйте, эксперты.
Помогите реализовать слудующую штуку:
Выскакивает Confirm Message dialog (это который со знаком вопроса) с двумя кнопками - Да и Нет.
При нажатии на Да происходит одно действие, а при нажатии на Нет - другое.
Вызвать диалог - не проблема, а вот как быть с этими Да и Нет - без понятия.
Заранее спасибо.

Приложение:
Delphi 5

---

Вопрос отправлен: 27.08.2003, 21:58
Отправитель: Ybr
[Следующий вопрос >>] [Список вопросов]

---

Отвечает URiS

Приветствую Вас, Ybr!
MessageDlg - функция, которая возвращает mdOk или mdCancel.

*EMan7.0beta | Expert: URiS urisff@inbox.ru (newff.narod.ru)

---

Ответ отправлен: 29.08.2003, 07:22
Отправитель: URiS

---

Отвечает ART_43

Здравствуйте, Ybr!
var i:integer;
begin
i:=MessageDlg('Да или Нет?', mtConfirmation, [mbYes,mbNo], 0);
if i=mrYes then
ShowMessage('Да')
else if i=mrNo then
ShowMessage('Нет');
end;

---

Ответ отправлен: 28.08.2003, 09:10
Отправитель: ART_43

---

Отвечает Bob Johnson

Доброе время суток, Ybr!
Когда ты вызываешь диалог, функцией MessageBox, например, то она тебе возвращает результат: IDOK - нажата кнопка OK, IDCANCEL - Cancel, IDYES - yes и т.д.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 28.08.2003, 13:14
Отправитель: Bob Johnson

---

Отвечает Cybernetic Creature

Доброе время суток, Ybr!
Ya ne znayu kakoy iz sposobov vizvaniya dialogov vy polzuetes poetomu skaju oba sposoba.
1) function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
parametri ya obyasnat ne budu na skaju kak nado obrashatsya
nije dayu kod
procedure TForm1.New1Click(Sender: TObject);
var Regem:integer;
begin
if ((NameFile='Untitled')and(memo1.Lines.Text<>''))or((NameFile<>'Untitled')and Deyishme) then begin
regem:=MessageDlg('Do you want save the changes',mtConfirmation,mbYesNoCancel,0);
case regem of
IDNO:begin
NameFile:='Untitled';
Memo1.Lines.Clear
end;
IDYES:begin
save1.Click;
Memo1.Lines.Clear
end;
IDCANCEL:ABORT
end;
end{if}
else begin memo1.Lines.Clear;NameFile:='Untitled' end;
Form1.Caption:=NameFile+' - Notepad'
end;
eto tipa ya NOTEPAD sdelal odna iz pervix rabot tak shto ne smeysa.
kak vidish etot sposob vozvrashaet znacheniya ID*
eto constanti opisannie v WINDOWS.PAS lez i tam smotri
tam yesho i IDABORT IDRETRY IDIGNORE i td i tp yest
posmotri
2) sposob leqkiy
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
on toje vozvrashaet te je znacheniya
yesli chto to ne ponya sovetuyu samomu kopatsya v
WINDOWS.PAS function MessageBox ... external
DIALOGS.PAS function MessageDlg,function MessageDlgPos, i function MessageDlgPosHelp

Приложение:
unit NotCode; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ActnList, StdActns; type TForm1 = class(TForm) Memo1: TMemo; MainMenu1: TMainMenu; File1: TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; FontDialog1: TFontDialog; FindDialog1: TFindDialog; Edit1: TMenuItem; Search1: TMenuItem; Help1: TMenuItem; Contents1: TMenuItem; N1: TMenuItem; About1: TMenuItem; PrintDialog1: TPrintDialog; New1: TMenuItem; Open1: TMenuItem; Save1: TMenuItem; Saveas1: TMenuItem; N2: TMenuItem; Print1: TMenuItem; N3: TMenuItem; Exit1: TMenuItem; Undo1: TMenuItem; N4: TMenuItem; Cut1: TMenuItem; Copy1: TMenuItem; Paste1: TMenuItem; Delete1: TMenuItem; N5: TMenuItem; Selectall1: TMenuItem; DateTime1: TMenuItem; N6: TMenuItem; WordWrap1: TMenuItem; Font1: TMenuItem; Find1: TMenuItem; Findnext1: TMenuItem; ActionList1: TActionList; SearchFind1: TSearchFind; Action1: TAction; SearchFindNext1: TSearchFindNext; procedure Open1Click(Sender: TObject); procedure Font1Click(Sender: TObject); procedure Saveas1Click(Sender: TObject); procedure Print1Click(Sender: TObject); procedure Exit1Click(Sender: TObject); procedure WordWrap1Click(Sender: TObject); procedure Undo1Click(Sender: TObject); procedure Cut1Click(Sender: TObject); procedure Copy1Click(Sender: TObject); procedure Paste1Click(Sender: TObject); procedure New1Click(Sender: TObject); procedure Selectall1Click(Sender: TObject); procedure DateTime1Click(Sender: TObject); procedure Save1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Memo1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; NameFile:String; Deyishme:Boolean; implementation uses DateUtils; {$R *.dfm} procedure TForm1.Open1Click(Sender: TObject); begin OpenDialog1.Execute; if trim(OpenDialog1.FileName)<>'' then begin Memo1.lines.LoadFromFile(OpenDialog1.FileName); NameFile:=OpenDialog1.FileName; Form1.Caption:=NameFile+' - Notepad'; save1.Click end;{if} end; procedure TForm1.Font1Click(Sender: TObject); begin FontDialog1.Execute; Memo1.Font:=Fontdialog1.Font end; procedure TForm1.Saveas1Click(Sender: TObject); begin SaveDialog1.Execute; if Trim(SaveDialog1.FileName)<>'' then begin memo1.Lines.SaveToFile(SaveDialog1.FileName); NameFile:=SaveDialog1.FileName; Form1.Caption:=NameFile+' - Notepad' end;{if} end; procedure TForm1.Print1Click(Sender: TObject); begin PrintDialog1.Execute; end; procedure TForm1.Exit1Click(Sender: TObject); begin Form1.Close end; procedure TForm1.WordWrap1Click(Sender: TObject); begin WordWrap1.Checked:=not WordWrap1.Checked; if WordWrap1.Checked then begin Memo1.WordWrap:=true; Memo1.ScrollBars:=ssVertical end else begin Memo1.WordWrap:=False; memo1.ScrollBars:=ssBoth end end; procedure TForm1.Undo1Click(Sender: TObject); begin Memo1.Undo end; procedure TForm1.Cut1Click(Sender: TObject); begin Memo1.CutToClipboard end; procedure TForm1.Copy1Click(Sender: TObject); begin memo1.CopyToClipboard end; procedure TForm1.Paste1Click(Sender: TObject); begin Memo1.PasteFromClipboard end; procedure TForm1.New1Click(Sender: TObject); var Regem:integer; begin if ((NameFile='Untitled')and(memo1.Lines.Text<>''))or((NameFile<>'Untitled')and Deyishme) then begin regem:=MessageDlg('Do you want save the changes',mtConfirmation,mbYesNoCancel,0); case regem of IDNO:begin NameFile:='Untitled'; Memo1.Lines.Clear end; IDYES:begin save1.Click; Memo1.Lines.Clear end; IDCANCEL:begin end end; end{if} else begin memo1.Lines.Clear;NameFile:='Untitled' end; Form1.Caption:=NameFile+' - Notepad' end; procedure TForm1.Selectall1Click(Sender: TObject); begin Memo1.SelectAll end; procedure TForm1.DateTime1Click(Sender: TObject); begin Memo1.Lines.Add(TimeToStr(Time)+' '+DateToStr(Date)+' ') end; procedure TForm1.Save1Click(Sender: TObject); begin if NameFile='Untitled' then begin Saveas1.Click; if SaveDialog1.FileName<>'' then Deyishme:=False; end{then} else begin Memo1.Lines.SaveToFile(NameFile); Deyishme:=False end{if} end; procedure TForm1.FormCreate(Sender: TObject); begin NameFile:='Untitled' ; Form1.Caption:=NameFile+' - Notepad' end; procedure TForm1.Memo1Change(Sender: TObject); begin Deyishme:=True end; end.

---

Ответ отправлен: 28.08.2003, 16:28
Отправитель: Cybernetic Creature

---

Вопрос № 874

Что являет собой Stensil-Buffer

---

Вопрос отправлен: 28.08.2003, 01:14
Отправитель: DJ B
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Bob Johnson

Добрый день, DJ B!
Простой буфер, где для каждой точки на экране отведено 8 бит. При этом при отрисовки точки на экран со stencil буфером может быть выполнена одна из операций: увеличить на 1, уменьшить на 1, не изменять и т.д. Применяется для всяких заморочек, типа stencil shadow (то, что я тебе писал) - т.е. при отрисовке полигонов значение в stencil увеличивается на 1. Получается что там, где есть хоть один (или больше) полигонов в нем будет не 0, а там, где нет ни одного полигона - будет 0. Дальше, задав stencil test можно использовать значения этого буфера автоматически или вытащить его и работать с ним самому. Более подробней смотри Direct X 8 или 9 SDK - там это все описано (и есть хорошие примеры).

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 28.08.2003, 13:13
Отправитель: Bob Johnson

---

Вопрос № 875

привет!
у меня такая проблема: когда я компилирую и запуская ехе из под Дельфи (версия 6 если важно) по F9 вылазит такое сообщение об ошибке:
Project 1.exe raised exception class EOleException with message 'Ошибка неизвестного типа'. Process stopped. Use Step or Run to continue.
если же запустить ехе из проводника, то всё ок - и чудестно работает... из-за чего может быть такая лажа? и как её побороть....
подскажите, плз, а то надо отлаживать прогу, а я её из под Дельфи запустить не могу

---

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

---

Отвечает ART_43

Добрый день, Дмитрий!
У меня такое было с ADO, вроде никаких ошибок не должно было быть. Я просто убрал галочку в Stop on Delphi Exceptions, а когда нужно было отловить какую-нибудь ошибку, доходил до нужного места и вертал галочку.

---

Ответ отправлен: 29.08.2003, 09:40
Отправитель: ART_43

---

Отвечает kvINT

Доброе время суток, Дмитрий!
Это происходит, когда Delphi встречает исключения. Чтобы отключить такое ее поведение - Project->Options->Compiler. Там убери галочки с соответствующих пунктов (по-моему I/O checking, сейчас проверять некогда).

---

Ответ отправлен: 28.08.2003, 16:50
Отправитель: kvINT

---

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

Доброе время суток, Дмитрий!

Очевидно, что ты (или какая-то компонента) используешь компоненты OLE (MS Word, MS Excel, ChartFX и пр.), и одна из них вызывает такое исключение - его-то и показывает отладчик Delphi (при этом открывается окно исходного кода или окно CPU, если исходный код не доступен). Если приложение не выдаёт окно с информацией об этом исключении - значит, исключение было тихо "погашено" самой компонентой (или твоей программой).
Чтобы отладчик не сообщал о возникающих исключениях воспользуйся соответствующей опцией (Tools/Debugger options/Language exceptions/Stop on Delphi exception)

---

Ответ отправлен: 28.08.2003, 18:28
Отправитель: Артём Шегеда

---

Отвечает Bob Johnson

Здравствуйте, Дмитрий!
Это возможно из-за того, что в одном из компонентов или модулей, которые ты подключил к проекту возникает исключение при инициализации. При этом в нем есть блок try, из-за чего он в принципе сам его отлавливает и что-то с ним делает. Но дебугер дельфи всегда по умолчанию отлавливает исключение раньше, чем обработчик try, из-за чего появляется это окно.
Ты можешь просто нажать "ОК", затем F9 и программа продолжит выполнение или в настройках дельфи есть списко классов исключений, на которые встроенный отладчик не должен обращать внимания - добавь это исключение в список.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 29.08.2003, 15:08
Отправитель: Bob Johnson

---

Вопрос № 876

Здравствуйте, уважаемые эксперты!
Большое спасибо всем ответившим на мой вопрос №869!(Бобу Джонсону)
Вы мне очень помогли!(Ты)
Еще вопросик.
Как мне перехватить нажатие на кнопку свернуть на форме?
Заранее благодарен!

---

Вопрос отправлен: 28.08.2003, 18:59
Отправитель: Byter
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Marouder

Доброе время суток, Byter!
Обрабатывать сообщение WM_SIZE, наверное. Описание в приложении.

Приложение:
The WM_SIZE message is sent to a window after its size has changed. WM_SIZE fwSizeType = wParam; // resizing flag nWidth = LOWORD(lParam); // width of client area nHeight = HIWORD(lParam); // height of client area Parameters fwSizeType Value of wParam. Specifies the type of resizing requested. This parameter can be one of the following values: Value Meaning SIZE_MAXHIDE Message is sent to all pop-up windows when some other window is maximized. SIZE_MAXIMIZED Window has been maximized. SIZE_MAXSHOW Message is sent to all pop-up windows when some other window has been restored to its former size. SIZE_MINIMIZED Window has been minimized. SIZE_RESTORED Window has been resized, but neither the SIZE_MINIMIZED nor SIZE_MAXIMIZED value applies. nWidth Value of the low-order word of lParam. Specifies the new width of the client area. nHeight Value of the high-order word of lParam. Specifies the new height of the client area. Return Values If an application processes this message, it should return zero.

---

Ответ отправлен: 29.08.2003, 10:28
Отправитель: Marouder

---

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

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

В примере - фрагмент одной моей программы, в которой при сворачивании формы приложение убирается c панели задач (т.н. сворачивание в трей) с использованием моей компоненты TArtTrayIcon.

type
  TForm1 = class(TForm)
    ArtTrayIcon1: TArtTrayIcon;
    procedure FormCreate(Sender: TObject);
  private
    procedure ApplicationMinimize(Sender: TObject);
  end;
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := ApplicationMinimize;
end;
procedure TForm1.ApplicationMinimize(Sender: TObject);
begin
  ArtTrayIcon1.HideApplication;
end;

---

Ответ отправлен: 28.08.2003, 20:03
Отправитель: Артём Шегеда

---

Вопрос № 877

Здраствуйте уажаемые эксперты.У меня такой вопрос.
Программа обращается к базе данных Access.
Если запускать программу вместес Windows то она пишет
что невозможно открыть файл .mdb, а если апустить ее потом то все работает?

---

Вопрос отправлен: 29.08.2003, 09:48
Отправитель: darkb (shmelli@rambler.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Bob Johnson

Добрый день, darkb!
Видимо на момент запуска программы не инициализировался ADO или ODBC. Попробуй найти причину (хотя это трудно) - тогда просто поставь при запуске программы задержку, например в 10 с или открывай базу до тех пор, пока не получится открыть (с интервалом секунда). Второй вариант (открывать до тех пор...) предпочтительней, т.к. имеет большие шансы на успех.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 29.08.2003, 15:11
Отправитель: Bob Johnson

---

Вопрос № 878

У меня есть "остов" таблицы в формате dbf, в которую необходимо внести данные и сохранить под нужным именем. Как ее сохранить под другим именем?

---

Вопрос отправлен: 29.08.2003, 12:03
Отправитель: Александр (alex@pro.gascom.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Bob Johnson

Здравствуйте, Александр!
Проще всего вначале скопировать обычной процедурой (типа CopyFile), а уже затем вносить данные в новую таблицу.

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 29.08.2003, 15:13
Отправитель: Bob Johnson

---

Отвечает ART_43

Здравствуйте, Александр!
Закрываешь базу и переименовываешь файл во что угодно.

---

Ответ отправлен: 29.08.2003, 15:25
Отправитель: ART_43

---

---

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

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

---

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

Ваше имя:

Ваш e-mail:

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

---

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

Ваш вопрос:


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


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

---

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

Программисту Assembler (37) C / C++ (29) Perl (5) Builder / Delphi (19) Pascal (25) Basic / VBA (7) Java / JavaScript (8) PHP (10) Криптография (9) WinAPI (15)

Пользователю Windows 95/98/Me (48) Windows NT/2000/XP (63) "Железо" (42) Поиск информации (24)

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

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

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

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

---

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}