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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
{}
const
kinopoisk_info = 'http://www.kinopoisk.ru/level/1/film/';
procedure ClearInfo(dlg:HWND);
begin
SetDlgItemTextW(dlg,IDC_DATA_SERIES ,'');
SetDlgItemTextW(dlg,IDC_DATA_EPISODE,'');
SetDlgItemTextW(dlg,IDC_DATA_TAGS ,'');
SetDlgItemTextW(dlg,IDC_DATA_TAGS ,'');
SetDlgItemTextW(dlg,IDC_DATA_INFO ,'');
end;
function DlgProcOptions(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
const
inited:bool=false;
var
tmp:longbool;
// bmp,wnd:HWND;
// buf:array [0..255] of AnsiChar;
begin
result:=0;
case hMessage of
WM_INITDIALOG: begin
inited:=false;
TranslateDialogDefault(Dialog);
SetDlgItemTextA(Dialog,IDC_LOGIN,msh_login);
SetDlgItemTextA(Dialog,IDC_PASS ,msh_password);
SetDlgItemInt (Dialog,IDC_TRIES,msh_tries,false);
// SetDlgItemInt (Dialog,IDC_TIME ,msh_timeout,false);
// ClearInfo(Dialog);
// EnableWindow(GetDlgItem(Dialog,IDC_KINOPOISK),false);
SendDlgItemMessage(Dialog,IDC_SCROBPOS,TBM_SETRANGE,0,MAKELONG(0,100));
SendDlgItemMessage(Dialog,IDC_SCROBPOS,TBM_SETPOS,1,msh_scrobpos);
inited:=true;
end;
WM_HSCROLL: begin
SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);
end;
WM_COMMAND: begin
if inited then
begin
(*
case Loword(wParam) of
IDC_KINOPOISK: begin
StrCopy(StrCopyE(buf,kinopoisk_info),MSData.kinopoisk_id);
CallService(MS_UTILS_OPENURL,TWPARAM(True),TLPARAM(@buf));
result:=1;
exit;
end;
end;
*)
case wParam shr 16 of
BN_CLICKED: begin
(*
case LoWord(wParam) of
IDC_INFO_SERIES: begin
ClearInfo(Dialog);
ClearData;
SetDlgItemTextW(Dialog,IDC_DATA_SERIES ,MSData.series);
SetDlgItemTextW(Dialog,IDC_DATA_EPISODE,MSData.episode);
// SetDlgItemTextW(Dialog,IDC_DATA_TAGS ,data.genre);
SetDlgItemTextW(Dialog,IDC_DATA_INFO ,MSData.info);
bmp:=LoadImageURL(MSData.image,80);
if bmp<>0 then
DeleteObject(SendDlgItemMessage(Dialog,IDC_DATA_PIC,STM_SETIMAGE,IMAGE_BITMAP,bmp));
EnableWindow(GetDligItem(Dialog,IDC_KINOPOISK),true);
end;
*)
end;
EN_CHANGE: begin
case loword(wParam) of
IDC_LOGIN,IDC_PASS,IDC_TRIES{,IDC_TIME}:
SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);
end;
end;
end;
end;
end;
WM_NOTIFY: begin
case integer(PNMHdr(lParam)^.code) of
PSN_APPLY: begin
msh_scrobpos:=SendDlgItemMessage(Dialog,IDC_SCROBPOS,TBM_GETPOS,0,0);
msh_tries :=GetDlgItemInt(Dialog,IDC_TRIES,tmp,false);
mFreeMem(msh_login ); msh_login :=GetDlgText(Dialog,IDC_LOGIN,true);
mFreeMem(msh_password); msh_password:=GetDlgText(Dialog,IDC_PASS ,true);
{
mFreeMem(session_id);
mFreeMem(np_url);
mFreeMem(sub_url);
}
// msh_timeout:=GetDlgItemInt(Dialog,IDC_TIME ,tmp,false);
SaveOpt;
end;
end;
end;
else
{result:=}DefWindowProc(Dialog,hMessage,wParam,lParam);
end;
end;
|
