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
|
{format specific}
function DlgProcOptions3(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
const
dlginit:boolean=false;
var
wnd:HWND;
b:boolean;
begin
result:=0;
case hMessage of
WM_INITDIALOG: begin
dlginit:=false;
TranslateDialogDefault(Dialog);
MakeHint(Dialog,IDC_SIMPLEMODE,
'If this option is "ON", one template will be used with all '+
'protocols, protocol and player (media) statuses. Template option page will be '+
'changed next time.');
CheckDlgButton(Dialog,IDC_SIMPLEMODE,SimpleMode);
MakeHint(Dialog,IDC_INDEPENDED,
'If this option is "ON", XStatus doesn''t depend on protocol status.');
CheckDlgButton(Dialog,IDC_INDEPENDED,XIndepended);
MakeHint(Dialog,IDC_USESTATUS,
'If this option is "ON", status text will be replaced by music info.');
CheckDlgButton(Dialog,IDC_USESTATUS,UseStatus);
MakeHint(Dialog,IDC_USEMSGS,
'If this option is "ON", you can paste music info to your '+
'message window pressing hotkey.');
CheckDlgButton(Dialog,IDC_USEMSGS,UseMessages);
MakeHint(Dialog,IDC_KEEPSTATUS,
'If this option is "ON", XStatus won''t be changed when player is shut down.');
CheckDlgButton(Dialog,IDC_KEEPSTATUS,KeepStatus);
MakeHint(Dialog,IDC_CLEARXSTAT,
'xStatus will be cleared before text changing and restored with new text later.');
CheckDlgButton(Dialog,IDC_CLEARXSTAT,ClearXStat);
MakeHint(Dialog,IDC_EXTSTATUS,
'If this option is "ON", XStatus will be changed to "Music" and '+
'status text will be replaced by music info.');
CheckDlgButton(Dialog,IDC_EXTSTATUS ,UseExtStatus);
MakeHint(Dialog,IDC_LISTENINGTO,
'If this option is "ON", "Listening To" protocol property will be filled '+
'by music info.');
CheckDlgButton(Dialog,IDC_LISTENINGTO,UseListeningTo);
wnd:=GetDlgItem(Dialog,IDC_SETXSTATUS);
// SendMessage(wnd,CB_RESETCONTENT,0,0);
CB_AddStrDataW(wnd,TranslateW('any XStatus is set' ),0,0);
CB_AddStrDataW(wnd,TranslateW('''Music'' status is set' ),1,1);
CB_AddStrDataW(wnd,TranslateW('XStatus is empty or ''Music'''),2,2);
CB_SelectData(wnd,XStatusSet);
SendMessage(Dialog,WM_COMMAND,(BN_CLICKED shl 16)+IDC_EXTSTATUS,
GetDlgItem(Dialog,IDC_EXTSTATUS));
dlginit:=true;
result:=0;
end;
WM_COMMAND: begin
if ((wParam shr 16)=BN_CLICKED) and (LoWord(wParam)=IDC_EXTSTATUS) then
begin
b:=IsDlgButtonchecked(Dialog,IDC_EXTSTATUS)<>BST_UNCHECKED;
EnableWindow(GetDlgItem(Dialog,IDC_INDEPENDED),b);
EnableWindow(GetDlgItem(Dialog,IDC_CLEARXSTAT),b);
// EnableWindow(GetDlgItem(Dialog,IDC_OLDXSTATUS),b);
// EnableWindow(GetDlgItem(Dialog,IDC_ONLYMUSIC ),b);
EnableWindow(GetDlgItem(Dialog,IDC_SETXSTATUS),b);
EnableWindow(GetDlgItem(Dialog,IDC_KEEPSTATUS),b);
end;
case wParam shr 16 of
CBN_SELCHANGE,
EN_CHANGE,
BN_CLICKED: SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);
end;
result:=1;
end;
WM_NOTIFY: begin
if dlginit then
begin
case integer(PNMHdr(lParam)^.code) of
LVN_ITEMCHANGED: begin
SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);
end;
PSN_APPLY: begin
SimpleMode :=IsDlgButtonChecked(Dialog,IDC_SIMPLEMODE);
XIndepended :=IsDlgButtonChecked(Dialog,IDC_INDEPENDED);
UseMessages :=IsDlgButtonChecked(Dialog,IDC_USEMSGS);
UseStatus :=IsDlgButtonChecked(Dialog,IDC_USESTATUS);
UseExtStatus :=IsDlgButtonChecked(Dialog,IDC_EXTSTATUS);
KeepStatus :=IsDlgButtonChecked(Dialog,IDC_KEEPSTATUS);
ClearXStat :=IsDlgButtonChecked(Dialog,IDC_CLEARXSTAT);
UseListeningTo:=IsDlgButtonChecked(Dialog,IDC_LISTENINGTO);
XStatusSet :=CB_GetData(GetDlgItem(Dialog,IDC_SETXSTATUS));
SaveOpt;
end;
end;
end;
end;
else
{result:=}DefWindowProc(Dialog,hMessage,wParam,lParam);
end;
end;
|
