Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 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	31

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

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

Автор

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

Статистика

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

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

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

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

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

---

---

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

Выпуск № 226
от 06.10.2003, 12:32

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

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

---

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

Boriss Статус: Начальный Общий рейтинг: 144.82 [Подробней >>]	Marouder Статус: Профессиональный Общий рейтинг: 122.69 URL: Первый Хабаровский Форум Телефон: (4212) 21-93-65 [Подробней >>]	sir henry Статус: Доверительный Общий рейтинг: 153.62 [Подробней >>]
Артём Шегеда Статус: Профессиональный Общий рейтинг: 116.91 URL: Пристанище неодинокого программиста [Подробней >>]	Cybernetic Creature Статус: Профессиональный Общий рейтинг: 125.46 URL: В разработке [Подробней >>]	Vdr Статус: Опытный Общий рейтинг: 110.23 [Подробней >>]
CJ Статус: Доверительный Общий рейтинг: 125 [Подробней >>]	THE_PRO Статус: Доверительный Общий рейтинг: 142.3 [Подробней >>]	Bob Johnson Статус: Профессиональный Общий рейтинг: 151.25 URL: Программирование [Подробней >>]
ART_43 Статус: Опытный Общий рейтинг: 122.01 URL: ART_43 Home Site [Подробней >>]	kvINT Статус: Профессиональный Общий рейтинг: 104.32 Телефон: (34369)6-24-47 [Подробней >>]

---

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

Вопрос № 984. Здравствуйте, уважаемые коллеги. Не подскажете ли вы мне как мне узнать список Alies? Мне нужно что ... (ответов: 3)
Вопрос № 985. Не могли бы вы помочь мне сделать следующую программу: программа представляет из себя memo1+button1.... (ответов: 6)
Вопрос № 986. Здравствуйте Нужно в TListView залить фон каждого Item(а) определенным цветом? (Если можно кусочек к... (ответов: 4)
Вопрос № 987. Здравствуйте. Как можно в С++Builder в определенный момент работы программы, выйти из нее (аналог h... (ответов: 6)
Вопрос № 988. Здравствуйте, уважаемые эксперты! Не знаете ли вы, как добавить в (или удалить из) ссылку на своё пр... (ответов: 5)
Вопрос № 989. Здравствуйте ув. Эксперты! SpinEdit2.Value := SpinEdit2.Value + (SpinEdit1.Value)*0.01; ПО идее знач... (ответов: 10)
Вопрос № 990. 1. Я поставил глобальный хук на мышь. Как из lparam'a вытащить координаты мыши? GetMousePos не предл... (ответов: 2)
Вопрос № 991. Здраствуйте эксперты! В ComboBox добавил несколько строк. Проблема-надо сделать, чтоб КОМБО уже высв... (ответов: 6)
Вопрос № 992. Как через Delphi получить информацию о компьютере (частоте прцессора, установленных драйверах и т. д... (ответов: 4)

---

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

---

Вопрос № 984

Здравствуйте, уважаемые коллеги.
Не подскажете ли вы мне как мне узнать список Alies? Мне нужно что бы юзер мог выбрать нужный из списка.
Заранее спасибо!

---

Вопрос отправлен: 01.10.2003, 13:37
Отправитель: VDR
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Здравствуйте, VDR!
У меня D5 и там такого нет. Что все-таки нужно? Alias? Уточните, пожалуйста

---

Ответ отправлен: 01.10.2003, 17:52
Отправитель: Boriss

---

Отвечает Marouder

Приветствую Вас, VDR!
Объясни сначала, что такое "Alies".

---

Ответ отправлен: 02.10.2003, 08:37
Отправитель: Marouder

---

Отвечает sir henry

Приветствую Вас, VDR!
Вы имели в виду ALIAS? Тогда вот процедура для этого:
procedure TForm1.Button1Click(Sender: TObject);
begin
DataModule2.Database1.session.GetDatabaseNames(ListBox1.Items);
end;
ListBox, естесственно, должен на форме уже присутствовать :).

---

Ответ отправлен: 01.10.2003, 14:57
Отправитель: sir henry

---

Вопрос № 985

Не могли бы вы помочь мне сделать следующую программу:
программа представляет из себя memo1+button1.
В мемо ты вводишь текст какой-либо проги, например этот:
-----------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage ('Test') //test program
end;
end.
-----------------
Программа (при нажатии на button) должна заключить все зарезервированные Дельфи слова (Var,
begin, implementation...) в теги
таким образом у нас должно получиться следующее:
-------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage ('Test') //test program
end;
end.
-------------------
+ все комментарии прога должна выделять тегом
-------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage ('Test') //test program
end;
end.
-------------------
Я вроде бы сделал наброски, но единтвенный недостаток:
--------------------
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
form1.close; //вот и он!!!
end;
--------------------
Заранее благодарен!

Приложение:
Вот, что я сделал: ---------- unit Syntax; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons; type TForm1 = class(TForm) GroupBox1: TGroupBox; ed: TMemo; GroupBox2: TGroupBox; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; procedure FormCreate(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); private { Private declarations } public procedure comments; { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.comments; var i, i1, i2, n: integer; _pos: integer; s: string; a: string; f: textfile; boldlist: TStringList; begin boldlist:=TStringList.Create; assignfile (f, 'data/syntax.dat'); reset (f); while not eof (f) do begin readln (f, a); boldlist.add (a); end; for i:=0 to ed.lines.count-1 do begin s:=ed.lines[i]; for i1:=0 to boldlist.count-1 do begin while (pos (boldlist.strings[i1], s) <> 0) do begin _pos:=pos (boldlist.strings[i1], s); if (_pos<>0) and (_pos=1) or (s[_pos-1]='') or (s[_pos+length(boldlist[i1])]='') and (s[_pos-1]=' ') or (s[_pos+length(boldlist[i1])]=' ') then begin delete (s, _pos, length (boldlist.strings[i1])); insert ('<b>'+boldlist.strings[i1]+'</b>', s, _pos); end; {_pos:=pos (boldlist.strings[i1]+#10#13, s); if _pos<>0 then begin delete (s, _pos, length (boldlist.strings[i1])); insert ('<b>'+boldlist.strings[i1]+'</b>', s, _pos); end;} //for i2:=0 to 10 do begin //_pos:=pos (boldlist.strings[i1]+' ', s); //if _pos<>0 then begin //delete (s, _pos, length (boldlist.strings[i1])); //insert ('<b>'+boldlist.strings[i1]+'</b>', s, _pos); // end; // end; break; end; end; ed.lines[i]:=s; end; end; procedure TForm1.FormCreate(Sender: TObject); begin ed.ParentCtl3D:=false; ed.Ctl3D:=false; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin form1.close; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin comments; end; end. ---------- Содержимое файла (syntax.dat): begin end; end. procedure unit var if then implementation interface uses class private public and file not array for object to asm function of type goto or case packed until const constructor in program destructor inherited record while div inline repeat with do set xor downto label shl else mod shr end nil string

---

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

---

Отвечает sir henry

Здравствуйте, maDByte!
Наверное Вам, чтобы не вводить кучу новых зарезервированых слов, можно сделать выделение ВСЕГО слова до ближайшего пробела. Пробел будет признаком окончания зарезервированного слова. Таким образом, будут выделяться как Form, так и Form1, Form1.Close, Form1.Create, Form1.Button1.Click и т.д.

---

Ответ отправлен: 02.10.2003, 05:52
Отправитель: sir henry

---

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

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

Ох, наворотил...
Там, между прочим, ошибка не одна была...

Приложение:
procedure TForm1.comments; const LettersAndDigits: set of char = ['0'..'9','A'..'Z','a'..'z','_']; var i, i1 : integer; _pos, _pos1: integer; s, s1: string; l1 : integer; boldlist: TStringList; begin boldlist:=TStringList.Create; boldlist.LoadFromFile('syntax.dat'); for i:=0 to Memo1.lines.count-1 do begin s:=Memo1.lines[i]; for i1:=0 to boldlist.count-1 do begin s1 := boldlist.strings[i1]; l1 := Length(s1); _pos1 := 1; _pos := pos(s1, s); while _pos<>0 do begin inc(_pos1, _pos-1); if ((_pos1=1) and not (s[l1+1] in LettersAndDigits)) or ((_pos1>1) and (not (s[_pos1-1] in LettersAndDigits)) and not (s[_pos1+l1] in LettersAndDigits)) then begin insert ('<b>', s, _pos1); insert ('</b>', s, _pos1+l1+3); inc(_pos1,l1+7); end else inc(_pos1); _pos:=pos(s1, copy(s, _pos1, length(s))); end; end; Memo1.lines[i]:=s; end; end;

---

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

---

Отвечает Cybernetic Creature

Доброе время суток, maDByte!
Я так понял что у тебя изменяются только первые слова.
Можно сделать так: Заменить первое слово после редактирования.
например begin на ^^begin^^. И после окончания удалить все ^^ в тексте.

---

Ответ отправлен: 02.10.2003, 20:36
Отправитель: Cybernetic Creature

---

Отвечает Boriss

Доброе время суток, maDByte!
В чем проблема: после ключевого слова должен идти символ ' ', ',', ':', ...
Значит нужно проверять, что идет после. Например так:
CONST
TheChars: set of char = [' ', '.', #13, #10, ':'];
_pos:=pos (boldlist.strings[i1], s);
if (_pos<>0) and (_pos=1) or (s[_pos-1]='')
or (s[_pos+length(boldlist[i1])]='') and (s[_pos-1]=' ')
// !! НЕ or (s[_pos+length(boldlist[i1])]=' ') , А так:
OR (s[_pos + Length(boldlist.strings[i1])) in TheChars) // <-- !!
then begin ...

---

Ответ отправлен: 02.10.2003, 18:08
Отправитель: Boriss

---

Отвечает Vdr

Доброе время суток, maDByte!
Ты видимо не проверяешь символ идущий после найденой комбинации. Подумай какие могут идти символы после for? По идее их не много (Enter, пробел, скобка, табуляция)проверяй наличие именно этих символов и только тогда заключай слово в теги.
Удачи!

---

Ответ отправлен: 02.10.2003, 11:46
Отправитель: Vdr

---

Отвечает CJ

Добрый день, maDByte!
Это можно сделать только с RichEdit!!!
А он как известно глючный! Так что лучше писать свой!

---

Ответ отправлен: 03.10.2003, 20:50
Отправитель: CJ

---

Вопрос № 986

Здравствуйте
Нужно в TListView залить фон каждого Item(а) определенным цветом?
(Если можно кусочек кода, или ссылку на компонент для C++ Builder 5.0)
Спасибо!!!

---

Вопрос отправлен: 01.10.2003, 17:10
Отправитель: Quas
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Cybernetic Creature

Здравствуйте, Quas!
Вообше то я работаю с Делфями но можно перевести код на С++
я что то тут нахимичил не знаю будет работать или нет.
У меня билдера нет чтоб тестировать
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
ListBox1->Canvas->Font->Color=clLime;
ListBox1->Canvas->TextOut(Rect.Left, Rect.Top,ListBox1->Items[Index])
}

Приложение:
Вот тот самый код на паскале procedure TForm1.ComboBox1DrawItem(Sender: TObject; Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);; begin with Control as TCustomCombobox do begin Canvas.FillRect (Rect); Canvas.Font.Name := Items[Index]; Canvas.Font.Size:=10; Canvas.Font.Color:=clWindowText; Canvas.TextOut(Rect.Left, Rect.Top,Items[Index]); if (odFocused in State) and (odSelected in State) then Canvas.DrawFocusRect (Rect); end; end;

---

Ответ отправлен: 02.10.2003, 20:36
Отправитель: Cybernetic Creature

---

Отвечает sir henry

Доброе время суток, Quas!
Фон можно менять только у окна целиком. Честно говоря, я нигде не видел проги, в которой бы фон каждого Item'a был разным цветом :(

---

Ответ отправлен: 02.10.2003, 06:04
Отправитель: sir henry

---

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

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

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Level<>0 then
TreeView1.Canvas.Brush.Color := $FFFFFF-Node.Level*$20
end;

---

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

---

Отвечает THE_PRO

Добрый день, Quas!
Narisuy kartinku!

---

Ответ отправлен: 04.10.2003, 13:16
Отправитель: THE_PRO

---

Вопрос № 987

Здравствуйте.
Как можно в С++Builder в определенный момент работы программы, выйти из нее
(аналог halt в Паскале)?
Спасибо.

---

Вопрос отправлен: 02.10.2003, 17:29
Отправитель: Zax
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Marouder

Приветствую Вас, Zax!
По-разному можно. Можно exit, можно ExitProcess, можно Application.Terminate.

---

Ответ отправлен: 03.10.2003, 12:53
Отправитель: Marouder

---

Отвечает sir henry

Приветствую Вас, Zax!
abort() или exit()

---

Ответ отправлен: 03.10.2003, 09:13
Отправитель: sir henry

---

Отвечает Cybernetic Creature

Добрый день, Zax!
ExitProc
ExitCode
.......

---

Ответ отправлен: 02.10.2003, 20:36
Отправитель: Cybernetic Creature

---

Отвечает Bob Johnson

Добрый день, Zax!
1. Application.Terminate ();
2. ExitProcess (0);

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

---

Ответ отправлен: 02.10.2003, 19:20
Отправитель: Bob Johnson

---

Отвечает Boriss

Добрый день, Zax!
Для этого существует процедура
VOID PostQuitMessage(
int nExitCode // код выхода
);

---

Ответ отправлен: 02.10.2003, 17:53
Отправитель: Boriss

---

Отвечает THE_PRO

Добрый день, Zax!
Exit bez parametrov

---

Ответ отправлен: 04.10.2003, 13:10
Отправитель: THE_PRO

---

Вопрос № 988

Здравствуйте, уважаемые эксперты!
Не знаете ли вы, как добавить в (или удалить из) ссылку на своё приложение? Желательно, чтобы работало на Windows NT, 2000, XP. Вапрос, конечно, не совсем по Delphi, но, надеюсь, вы мне поможете. (Мне нужно вынести в Control Panel ссылку на программу, производящую настройку другой программы).

---

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

---

Отвечает Boriss

Приветствую Вас, Кирилл!
В (куда), удалить из (откуда)? Программно на ControlBar кнопку?
Уточните, пожалуйста. Может нужно запустить программу?

---

Ответ отправлен: 03.10.2003, 13:57
Отправитель: Boriss

---

Отвечает Cybernetic Creature

Здравствуйте, Кирилл!
Попробуйте
File - New - Other - Control Panel Application
Надеюсь разберетесь

---

Ответ отправлен: 02.10.2003, 20:35
Отправитель: Cybernetic Creature

---

Отвечает Marouder

Доброе время суток, Кирилл!
Для Control Panel нужно создавать не обычную прогу, а Control Panel Application (File->New->Other...->Control Panel Application). А пример есть в директории "Demos\Cpl" в директории, где установлена Delphi.

---

Ответ отправлен: 03.10.2003, 12:53
Отправитель: Marouder

---

Отвечает CJ

Приветствую Вас, Кирилл!
Извините, но чуть-чуть не понятен вопрос!

---

Ответ отправлен: 03.10.2003, 20:51
Отправитель: CJ

---

Отвечает THE_PRO

Приветствую Вас, Кирилл!
Pishish CPL fayl i pomeshayesh ego v %windir%system.
-|-
CPL: File->New->Other->Applet

---

Ответ отправлен: 04.10.2003, 13:09
Отправитель: THE_PRO

---

Вопрос № 989

Здравствуйте ув. Эксперты!
SpinEdit2.Value := SpinEdit2.Value + (SpinEdit1.Value)*0.01;
ПО идее значение SpinEdit2.Value должно становится: Значение SPinEdit2.Value+1 процент от значения SPinEdit1.Value.
Но делфи выдает:
Incompatible types: 'Integer' and 'Extended'
Че делать? заранее благодарю!

---

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

---

Отвечает ART_43

Добрый день, elvis!
SpinEdit2.Value := SpinEdit2.Value + Round((SpinEdit1.Value)*0.01);

---

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

---

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

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

Насколько я понял, читатель решил ускорять наращивание SpinEdit.Value. Что касается преобразования типов, то тут другие эксперты помогут.
НО! При значении SpinEdit.Value<50 yb о каком приросте речи быть не может, поскольку после умножения на 0.01 получим значение менее 0.5, что после округления даст 0.

Сделай так:

SpinEdit2.Value := SpinEdit2.Value + 1 + (SpinEdit1.Value div 100);

Здесь нет ни преобразования типов, ни потери приращения при SpinEdit2.Value менее 50.
А ещё мне интересно, как читатель собирается реализовать уменьшение значения SpinEdit2.Value с аналогичным эффектом. ;)

---

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

---

Отвечает sir henry

Доброе время суток, elvis!
Дык она Вам правильно пишет :)). У SpinEdit.Value - тип INTEGER, а у 0.01 тип EXTENDED. И результат в результате :) должен получиться типа EXTENDED, а Вы его пытаетесь засунуть в тип INTEGER.

---

Ответ отправлен: 03.10.2003, 11:06
Отправитель: sir henry

---

Отвечает Boriss

Доброе время суток, elvis!
Определено, что property Value: Integer; и Extended оно не станет, пока класс не перепишите.
Но, пожалуй, легче использовать что-нибудь другое. Что именно надо - надо знать, что за задача.

---

Ответ отправлен: 03.10.2003, 18:29
Отправитель: Boriss

---

Отвечает kvINT

Здравствуйте, elvis!
(SpinEdit1.Value)*0.01 - приводится к Extended, даже если у тебя было число, напр. 100. Напиши что-нибудь типа Integer(SpinEdit1.Value*0.01).

---

Ответ отправлен: 03.10.2003, 06:38
Отправитель: kvINT

---

Отвечает Marouder

Доброе время суток, elvis!
SpinEdit2.Value - это целое число,а SpinEdit1.Value*0.01 - с плавающей точкой.
Попробуй так:
SpinEdit2.Value := SpinEdit2.Value + trunc((SpinEdit1.Value)*0.01);

---

Ответ отправлен: 03.10.2003, 12:53
Отправитель: Marouder

---

Отвечает Bob Johnson

Добрый день, elvis!
Туда можно только целое число занести. Пиши .. + round (SpinEdit1.Value*0.01);

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

---

Ответ отправлен: 04.10.2003, 20:21
Отправитель: Bob Johnson

---

Отвечает CJ

Добрый день, elvis!
Здесь ты испльзуешь тип integer! А надо другой!

---

Ответ отправлен: 03.10.2003, 20:50
Отправитель: CJ

---

Отвечает Cybernetic Creature

Здравствуйте, elvis!
С двумя спинедитами ничего не получится. Потому что Value может иметь только целочисленые значения, можно воспользоватся Едитом.
................................
var a:Double;
................................
begin
a:=StrToFloat(Edit1.Text)+SpinEdit1.Value*0.01;
Edit1.Text:=FloatToStr(a)
end;
........................

---

Ответ отправлен: 05.10.2003, 14:29
Отправитель: Cybernetic Creature

---

Отвечает THE_PRO

Доброе время суток, elvis!
Pravilno dayet delfyara...
U tebya poluchayetsya chislo v rode *.****** a eto i yest Extended, a ne Integer!
Ili okruqlyay ili je...

---

Ответ отправлен: 04.10.2003, 12:55
Отправитель: THE_PRO

---

Вопрос № 990

1. Я поставил глобальный хук на мышь. Как из lparam'a вытащить координаты мыши? GetMousePos не предлагать!
2. Дайте с примером детальное описание как пользоваться функцией ToAscii.
Заранее спасибо.
З.Ы. Все на Delphi!

---

Вопрос отправлен: 03.10.2003, 00:28
Отправитель: Inch (Inch@bratan.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Bob Johnson

Здравствуйте, Inch!
1. Там будет указатель на MOUSEHOOKSTRUCT. Сама структура в приложении.

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

Приложение:
MOUSEHOOKSTRUCT The MOUSEHOOKSTRUCT structure contains information about a mouse event passed to a WH_MOUSE hook procedure, MouseProc <hooks_9483.htm>. typedef struct tagMOUSEHOOKSTRUCT { POINT pt <>; HWND hwnd <>; UINT wHitTestCode <>; ULONG_PTR dwExtraInfo <>; } MOUSEHOOKSTRUCT, *PMOUSEHOOKSTRUCT; Members pt Specifies a POINT <JavaScript:hhobj_1.Click()> structure that contains the x- and y-coordinates of the cursor, in screen coordinates. hwnd Handle to the window that will receive the mouse message corresponding to the mouse event. wHitTestCode Specifies the hit-test value. For a list of hit-test values, see the description of the WM_NCHITTEST <JavaScript:hhobj_2.Click()> message. dwExtraInfo Specifies extra information associated with the message.

---

Ответ отправлен: 04.10.2003, 20:22
Отправитель: Bob Johnson

---

Отвечает Boriss

Приветствую Вас, Inch!
2> Поищи хороший справочник delphistfaq.chm
Пример взят оттуда


Приложение:
Функция ToAscii Описание на Delphi: function ToAscii(VirtKey, ScanCode: Word; KeyState: PChar; CharBuff: Pointer; Flags: Word): Integer; Пеpеводит VirtKey и текущее состояние клавиатуpы в соответствующие символы ANSI. Паpаметpы: VirtKey: Код виpтуальной клавиши. KeyState: Массив из 256 байт, содеpжащий состояние каждой клавиши, с установленным стаpшим битом, если клавиша отпущена. CharBuff: Указатель на 32-битовый пpинимающий буфеp. Flags: Не используется. Возвpащаемое значение: 2 - Нажатая и заблокиpованная клавиша скопиpована в CharBuff; 1 - в CharBuff скопиpован один символ ANSI; 0 - пеpевод в текущем состоянии клавиатуpы невозможен ==================== (в ASCII) на С++ Функция ToAscii переводит заданный код виртуальной клавиши и состояние клавиатуры в соответствующий символ или символы Windows. Функция переводит код, используя язык ввода данных и физическую раскладку символов на клавиатуре, идентифицированную данным дескриптором раскладки символов. Синтаксис int ToAscii ( UINT uVirtKey, // код виртуальной клавиши UINT uScanCode, // скэн-код PBYTE lpKeyState, // адрес массива состояния клавиши LPWORD lpChar, // буфер для трансляции клавиши UINT uFlags // флажок активного меню ); Параметры uVirtKey Определяет код виртуальной клавиши, который будет оттранслирован. uScanCode Определяет аппаратный скэн-код клавиши, которая будет оттранслирована. Старший бит этого значения установлен, если клавиша вверху (не нажата). lpKeyState Указывает на 256-байтовый массив, который содержит текущее состояние клавиатуры. Каждый элемент (байт) в массиве содержит состояние в одной из клавиш. Если старший бит байта установлен, клавиша - внизу (нажата). Если установлен младший бит, он указывает на то, что клавиша подключена. В этой функции важен только бит подключения клавиши CAPS LOCK. Состояние переключения клавиш NUM LOCK и SCROLL LOCK игнорируется. lpChar Указывает на буфер, который примет оттранслированный символ или символы Windows. uFlags Определяет, является ли меню активным. Этот параметр должен быть 1, если меню активно, или иначе 0. Возвращаемые значения Если заданная клавиша - мертвая клавиша, величина возвращаемого значения отрицательная. Иначе, она равна одному из следующих значений: 0 - Заданная виртуальная клавиша не транслируется для текущего состояния клавиатуры. 1 - Один символ Windows был скопирован в буфер. 2 - Два символа были скопированы в буфер. Это обычно случается тогда, когда символ мертвой клавиши (знак ударения или диакритический знак), сохраненный в раскладке символов на клавиатуре, не может быть скомбинирован с заданной виртуальной клавишей, чтобы сформировать единый символ. Замечания Параметров, данных в функции ToAscii, может быть не достаточно, чтобы транслировать код виртуальной клавиши, потому что предыдущая мертвая клавиша сохраняется в раскладке символов на клавиатуре. Как правило, ToAscii исполняет трансляцию, опираясь на код виртуальной клавиши. Однако в некоторых случаях, бит 15 параметра uScanCode может быть использован, чтобы различить между нажатием клавиши и её отпуском. Скэн-код используется для трансляции комбинации клавиш ALT + числовая клавиша. Хотя NUM LOCK - клавиша - переключатель, которая воздействует на поведение клавиатуры, ToAscii игнорирует установку переключателя (младший бит) lpKeyState (VK_NUMLOCK), потому что одного параметра uVirtKey достаточно, чтобы отличить клавиши управления курсором (VK_HOME, VK_INSERT и так далее) от числовых клавиш (VK_DECIMAL, VK_NUMPAD0 - VK_NUMPAD9). ========== Пример: Получаем символ, соответствующий виртуальной клавише: function GetCharFromVKey(vkey: Word): string; var keystate: TKeyboardState; retcode: Integer; begin Win32Check(GetKeyboardState(keystate)); SetLength(Result, 2); retcode := ToAscii(vkey, MapVirtualKey(vkey, 0), keystate, @Result[1], 0); case retcode of 0: Result := ''; 1: SetLength(Result, 1); 2: ; else Result := ''; end; end; // Использование: procedure TForm1.Edit1KeyDown (Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage(GetCharFromVKey(Key)); end;

---

Ответ отправлен: 03.10.2003, 13:42
Отправитель: Boriss

---

Вопрос № 991

Здраствуйте эксперты!
В ComboBox добавил несколько строк.
Проблема-надо сделать, чтоб КОМБО уже высвечивало TEXT 'One',
а не синее выделение.Присвавание ComboBox1.text:='One';
Неработает.Можно выдивагать програмно список(чтоб юзер понял,что
надо обязательно выбрать )-но если челкуть по форме
-список убирается и остается пустым.
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Add('One');
ComboBox1.Items.Add('Two');
ComboBox1.Items.Add('Three');
ComboBox1.Style:=csDropList;//(позволяет выбирать только из списка)
ComboBox1.text:='One';// Cтавим пункт по умолчанию===НЕРАБОТАЕТ
end;

---

Вопрос отправлен: 03.10.2003, 02:08
Отправитель: AllDer
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Vdr

Добрый день, AllDer!
Дело в том, что значение отображаемое на текущий момент определяется свойством ItemIndex. По умолчанию оно равно -1, а массив Items начинается с 0...
Удачи!

---

Ответ отправлен: 03.10.2003, 11:11
Отправитель: Vdr

---

Отвечает kvINT

Добрый день, AllDer!
Сейчас Delphi под рукой нет, но помню, что нужно сделать примерно так ComboBox1.Items.Index := 1;

---

Ответ отправлен: 03.10.2003, 06:41
Отправитель: kvINT

---

Отвечает ART_43

Здравствуйте, AllDer!
Попробуй ComboBox1.ItemIndex:=0;

---

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

---

Отвечает Marouder

Добрый день, AllDer!
Скорее всего, тебе поможет такой код:
ComboBox1.ItemIndex:=0;

---

Ответ отправлен: 03.10.2003, 12:52
Отправитель: Marouder

---

Отвечает Cybernetic Creature

Доброе время суток, AllDer!
ComboBox1.Items.Add('One');
ComboBox1.Items.Add('Two');
ComboBox1.Items.Add('Tre');
ComboBox1.Style:=csDropDownList;
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('One')

---

Ответ отправлен: 05.10.2003, 14:29
Отправитель: Cybernetic Creature

---

Отвечает Bob Johnson

Приветствую Вас, AllDer!
Надо вроде ItemIndex присвоить номер выбранного пункта.

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

---

Ответ отправлен: 04.10.2003, 20:23
Отправитель: Bob Johnson

---

Вопрос № 992

Как через Delphi получить информацию о компьютере (частоте прцессора, установленных драйверах и т. д.)

---

Вопрос отправлен: 03.10.2003, 09:04
Отправитель: Talib
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Здравствуйте, Talib!
Нужно собрать в своей проге функции, которые собирают нужную инфу, например EnumDisplaySettings() - собирает инфу о том или ином режиме дисплея.

---

Ответ отправлен: 03.10.2003, 12:12
Отправитель: sir henry

---

Отвечает CJ

Приветствую Вас, Talib!
Либо пиши свой модуль, либо пробуй через реестр найти нужные ключи!

---

Ответ отправлен: 03.10.2003, 20:51
Отправитель: CJ

---

Отвечает Cybernetic Creature

Добрый день, Talib!
Разработаем программу, показывающую нам некоторую системную информацию о компьютере. В частности, хотелось бы получить информацию о версии ОС, ее директориях, свойствах экрана, ресурсах памяти, имени пользователя и компьютера, дате BIOS. Помимо этого, разрешим пользователю изменять настройки клавиатуры, встроенного динамика и хранителя экрана.
Процесс визуального проектирования описывать не будем; рассмотрим лишь страницу «Параметры». Для удобства управления параметрами клавиатуры положим на нее две компоненты TTrackBar. Изменим свойство Name на tbKeyboardDelay и tbKeyboardSpeed. Изменим свойство PageSize на 1. Для tbKeyboardDelay установим Max=3 и для tbKeyboardSpeed. Max=31. Для управления свойствами хранителя экрана используем TCheckBox (свойство Name сменим на cbScreenSaverActive, Caption на &‘Хранитель экрана&’) и TMaskEdit (свойство Name=&’edSSTimeOut&’ и EditMask=&’!999;1;&’). Аналогично добавим TCheckBox (свойство Name=&’cbSpeaker&’, Caption=&’Использование встроенного динамика&’ ).
Рассмотрим текст программы. В список включаемых модулей uses добавим registry. Добавим описание процедур в раздел public описания TfmMain.

type
TfmMain = class(TForm)
...
procedure FormCreate(Sender: TObject);
procedure Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
KeyboardDelay,
KeyboardSpeed,
ScreenSaveTimeOut : integer;
procedure ParametersInfo;
procedure ShowSomeInfo;
procedure BIOSInfo(OS : string);
procedure HardwareInfo;
procedure MemoryInfo;
procedure VideoInfo;
procedure OSInfo;
end;
var fmMain: TfmMain;
implementation
uses Registry;
{$R *.DFM}


Сначала получим информацию о компьютере. Используем функцию GetComputerName для получения имени компьютера, функцию GetUserName для получения имени пользователя и функцию GetSystemInfo для получения информации о процессоре (наиболее полно данная функция реализована в Windows NT, где она возвращает и кол-во процессоров и их тип и т.д.).

// Информация о компьютере.
procedure TfmMain.HardwareInfo;
var Size : cardinal;
PRes : PChar;
BRes : boolean;
lpSystemInfo : TSystemInfo;
begin
// Имя компьютера
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetComputerName(PRes, Size);
if BRes then laCompName_.Caption := StrPas(PRes);
// Имя пользователя
Size := MAX_COMPUTERNAME_LENGTH + 1;
PRes := StrAlloc(Size);
BRes := GetUserName(PRes, Size);
if BRes then laUserName_.Caption := StrPas(PRes);
// Процессор
GetSystemInfo(lpSystemInfo);
laCPU_.Caption := 'класса x' + IntToStr
(lpSystemInfo.dwProcessorType);
end;


Перейдем к параметрам экрану. Здесь мы будем использовать и Win32 API функции и стандартные объекты VCL. Так для получения разрешения экрана нам понадобится объект TScreen (его свойства Width и Height). Остальные параметры мы получим через контекст драйвера устройства DC используя функцию GetDeviceCaps.

// Информация о видеосистеме.
procedure TfmMain.VideoInfo;
var DC : hDC;
c : string;
begin
// Разрешение экрана
laWidth_.Caption := IntToStr(Screen.Height);
laHeight_.Caption := IntToStr(Screen.Width);
// Информация о глубине цвета.
DC := CreateDC('DISPLAY',nil,nil,nil);
laBitsPerPixel_.Caption :=
IntToStr(GetDeviceCaps(DC,BITSPIXEL));
laPlanes_.Caption :=
IntToStr(GetDeviceCaps(DC,PLANES));
case GetDeviceCaps(DC,BITSPIXEL) of
8 : c := '256 цветов';
15 : c := 'Hi-Color / 32768 цветов';
16 : c := 'Hi-Color / 65536 цветов';
24 : c := 'True-Color / 16 млн цветов';
32 : c := 'True-Color / 32 бит';
end;
laColors_.Caption := c;
DeleteDC(DC);
end;
Также будет интересна информация о памяти. Здесь нам поможет функция GlobalMemoryStatus, возвращающая информацию по объему физической и виртуальной памяти.
// Информация о памяти.
procedure TfmMain.MemoryInfo;
var lpMemoryStatus : TMemoryStatus;
begin
lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
GlobalMemoryStatus(lpMemoryStatus);
with lpMemoryStatus do begin
laFreeMemory.Caption :=
laFreeMemory.Caption +
IntToStr(dwMemoryLoad) + '%';
laRAM_.Caption := Format('%0.0f Мбайт',
[dwTotalPhys div 1024 / 1024]);
laFreeRAM_.Caption := Format('%0.3f Мбайт',
[dwAvailPhys div 1024 / 1024]);
laPF_.Caption := Format('%0.0f Мбайт',
[dwTotalPageFile div 1024 / 1024]);
laPFFree_.Caption := Format('%0.0f Мбайт',
[dwAvailPageFile div 1024 / 1024]);
end;
end;


Узнаем информацию о ОС. Функция GetWindowsDirectory вернет путь к каталогу, где установлена система, функция GetSystemDirectory - к системному каталогу. Для определения версии ОС воспользуемся функцией GetVersionEx.

// Информация о Windows.
procedure TfmMain.OSInfo;
var PRes : PChar;
Res : word;
BRes : boolean;
lpVersionInformation : TOSVersionInfo;
c : string;
begin
// Каталог, где установлена Windows
PRes := StrAlloc(255);
Res := GetWindowsDirectory(PRes, 255);
if Res > 0 then laWinDir_.Caption :=
StrPas(PRes);
// Системный каталог Windows
Res := GetSystemDirectory(PRes, 255);
if Res > 0 then laSysDir_.Caption :=
StrPas(PRes);
// Имя ОС
lpVersionInformation.dwOSVersionInfoSize :=
SizeOf(TOSVersionInfo);
BRes := GetVersionEx(lpVersionInformation);
if BRes then
with lpVersionInformation do case dwPlatformId of
VER_PLATFORM_WIN32_WINDOWS :
if dwMinorVersion=0 then c := 'Windows 95'
else c := 'Windows 98';
VER_PLATFORM_WIN32_NT : c := 'Windows NT';
VER_PLATFORM_WIN32s : c := 'Win 3.1 with Win32s'
end;
laVersion_.Caption := c;
// Дата создания BIOS-а
if c='Windows NT' then BIOSInfo('NT') else BIOSInfo('95');
end;


В предыдущем отрывке программы внимательный читатель заметил вызов функции BIOSInfo с параметром, характеризующем текущую ОС. Опишем эту функцию. Важно отметить, что способ получения информации о дате BIOS различен. Для NT получим информацию из реестра, а для Windows 95/98 из соответствующего участка памяти. Эти два способа взаимоисключаемы, так как у Windows 95/98 нет соответствующего раздела реестра, а прямой доступ к памяти в NT невозможен.

// Информация о дате создания BIOS-а.
procedure TfmMain.BIOSInfo(OS : string);
var p : pointer;
s : string[255];
begin
if OS='NT' then begin with TRegistry.Create do
try RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly
('HARDWAREDESCRIPTIONSystem')
then laBIOSDate_.Caption :=
ReadString('SystemBiosDate')
finally Free;
end;
end
else try
s[0] := #8;
p := Pointer($0FFFF5);
Move(p^,s[1],8);
laBIOSDate_.Caption :=
copy(s,1,2) + '/' + copy(s,4,2) + '/' +copy (s,7,2);
except laBIOSDate_.Caption := 'XX.XX.XXXX';
end;
end;


Рассмотрим функцию SystemParametersInfo, которая позволяет управлять некоторыми настройками системы. Область применения данной функции для NT и Windows 95/98 различна. Умышленно выберем некоторую общую часть для обеих систем.

// Информация о параметрах
procedure TfmMain.ParametersInfo;
var Bl : boolean;
begin
// Разрешен ли PC Speaker
SystemParametersInfo(SPI_GETBEEP,0,@Bl,0);
cbSpeaker.Checked := Bl;
// Активен ли хранитель экрана
SystemParametersInfo
(SPI_GETSCREENSAVEACTIVE,0,@Bl,0);
cbScreenSaverActive.Checked := Bl;
// Интервал вызова хранителя экрана
SystemParametersInfo
(SPI_GETSCREENSAVETIMEOUT,0,
@ScreenSaveTimeOut,0);
// Настройки клавиатуры
SystemParametersInfo
(SPI_GETKEYBOARDDELAY,0,
@KeyboardDelay,0);
SystemParametersInfo
(SPI_GETKEYBOARDSPEED,0,
@KeyboardSpeed,0);
end;
// Отображение настроек
procedure TfmMain.ShowSomeInfo;
begin
tbKeyboardDelay.Position := 3 - KeyboardDelay;
tbKeyboardSpeed.Position := KeyboardSpeed;
edSStimeOut.EditMask := IntToStr
(ScreenSaveTimeOut div 60);
end;


Также позволим пользователю изменять и сохранять настройки системы по своему вкусу. Здесь также будем использовать функцию SystemParametersInfo. Для компонентов tbKeyboardSpeed, tbKeyboardDelay, cbScreenSaverActive, cbSpeaker, edSSTimeOut в ObjectInspector перейдем на закладку Events и изменим событие OnChange (для tbKeyboardSpeed, tbKeyboardDelay) , OnClick (для cbScreenSaverActive, cbSpeaker) и OnExit для edSSTimeOut на Change. Таким образом, все пять вышеперечисленных компонент после изменений состояний передадут управление нижеприведенной процедуре.

// Сохранение изменений параметров системы
procedure TfmMain.Change(Sender: TObject);
var Sen : TComponent;
begin
Sen := Sender as TComponent;
// Вкл/Выкл PC Speaker-а.
if (Sen.Name='cbSpeaker') and cbSpeaker.Checked
then SystemParametersInfo
(SPI_SETBEEP,1,nil,SPIF_UPDATEINIFILE)
else SystemParametersInfo
(SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE);if (Sen.Name='cbScreenSaver') and cbScreenSaverActive.Checked
then SystemParametersInfo
(SPI_SETSCREENSAVEACTIVE,1,nil,SPIF_UPDATEINIFILE)
else SystemParametersInfo
(SPI_SETSCREENSAVEACTIVE,0,nil,SPIF_UPDATEINIFILE);
if (Sen.Name='tbKeyboardDelay') then SystemParametersInfo(
SPI_SETKEYBOARDDELAY,3-tbKeyboardDelay.Position,nil,
SPIF_SENDWININICHANGE);
if (Sen.Name='tbKeyboardSpeed') then SystemParametersInfo(
SPI_SETKEYBOARDSPEED,tbKeyboardSpeed.Position,nil,
SPIF_SENDWININICHANGE);
if (Sen.Name='edSSTimeOut') then SystemParametersInfo(
SPI_SETSCREENSAVETIMEOUT,StrToInt(edSSTimeOut.Text)
*60,nil,SPIF_UPDATEINIFILE);
end;
И ,наконец, вызовем все эти процедуры при создании формы.
procedure TfmMain.FormCreate(Sender: TObject);
begin
HardwareInfo;
MemoryInfo;
VideoInfo;
ParametersInfo;
ShowSomeInfo;
OSInfo;
end;

---

Ответ отправлен: 05.10.2003, 14:31
Отправитель: Cybernetic Creature

---

Отвечает THE_PRO

Здравствуйте, Talib!
Вычисление тактовой частоты процессора :
function GetCPUSpeed: double;
const
DelayTime = 500; // время измерения в миллисекундах
var
TimerHi, TimerLo: DWORD;
PriorityClass, Priority: integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
Sleep(10);
asm
dw 310Fh // rdtsc
mov TimerLo, eax
mov TimerHi, edx
end;
Sleep(DelayTime);
asm
dw 310Fh // rdtsc
sub eax, TimerLo
sbb edx, TimerHi
mov TimerLo, eax
mov TimerHi, edx
end;
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000.0 * DelayTime);
end;
begin
LabelCPUSpeed.Caption := Format('CPU speed: %f MHz', [GetCPUSpeed]);
end;

---

Ответ отправлен: 04.10.2003, 12:46
Отправитель: THE_PRO

---

---

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

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

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

---

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

Ваше имя:

Ваш e-mail:

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

---

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

Ваш вопрос:


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


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

---

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

Программисту Assembler (31) C / C++ (27) Perl (7) Builder / Delphi (21) Pascal (24) Basic / VBA (8) Java / JavaScript (10) PHP (13) Криптография (9) WinAPI (14)

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

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

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

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

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов 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}