{Misc}

procedure SetAllContactStat(hwndList:HWND);
var
  hContact,hItem:THANDLE;
begin
  hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);
  while hContact<>0 do
  begin
    hItem:=SendMessage(hwndList,CLM_FINDCONTACT,hContact,0);
    if hItem<>0 then
    begin
      SendMessage(hwndList,CLM_SETCHECKMARK,hItem,
        DBReadByte(hContact,strCList,ShareOptText,0));
    end;
    hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);
  end;
end;

procedure SaveAllContactStat(hwndList:HWND);
var
  hContact,hItem:THANDLE;
begin
  hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);
  while hContact<>0 do
  begin
    hItem:=SendMessage(hwndList,CLM_FINDCONTACT,hContact,0);
    if hItem<>0 then
    begin
      if SendMessage(hwndList,CLM_GETCHECKMARK,hItem,0)<>0 then
        DBWriteByte(hContact,strCList,ShareOptText,1)
      else
        DBDeleteSetting(hContact,strCList,ShareOptText);
    end;
    hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);
  end;
end;

procedure ResetListOptions(hwndList:HWND);
var
  i:integer;
begin
  SendMessage(hwndList,CLM_SETBKBITMAP    ,0,0);
  SendMessage(hwndList,CLM_SETBKCOLOR     ,GetSysColor(COLOR_WINDOW),0);
  SendMessage(hwndList,CLM_SETGREYOUTFLAGS,0,0);
  SendMessage(hwndList,CLM_SETLEFTMARGIN  ,2,0);
  SendMessage(hwndList,CLM_SETINDENT      ,10,0);
  for i:=0 to FONTID_MAX do
    SendMessage(hwndList,CLM_SETTEXTCOLOR,i,GetSysColor(COLOR_WINDOWTEXT));
  SetWindowLongPtr(hwndList,GWL_STYLE,GetWindowLongPtr(hwndList,GWL_STYLE) or CLS_SHOWHIDDEN);
end;

procedure SetHistMask(Dlg:HWND);
begin
  CheckDlgButton(Dlg,IDC_IN_REQUEST ,ORD((HistMask and hmInRequest )<>0));
  CheckDlgButton(Dlg,IDC_OUT_REQUEST,ORD((HistMask and hmOutRequest)<>0));
  CheckDlgButton(Dlg,IDC_IN_INFO    ,ORD((HistMask and hmInInfo    )<>0));
  CheckDlgButton(Dlg,IDC_OUT_INFO   ,ORD((HistMask and hmOutInfo   )<>0));
  CheckDlgButton(Dlg,IDC_IN_ERROR   ,ORD((HistMask and hmInError   )<>0));
  CheckDlgButton(Dlg,IDC_OUT_ERROR  ,ORD((HistMask and hmOutError  )<>0));
  CheckDlgButton(Dlg,IDC_IREQUEST   ,ORD((HistMask and hmIRequest  )<>0));
  CheckDlgButton(Dlg,IDC_ISEND      ,ORD((HistMask and hmISend     )<>0));
end;

procedure SaveHistMask(Dlg:HWND);
begin
  HistMask:=0;
  if IsDlgButtonChecked(Dlg,IDC_IN_REQUEST )<>BST_UNCHECKED then HistMask:=HistMask or hmInRequest;
  if IsDlgButtonChecked(Dlg,IDC_OUT_REQUEST)<>BST_UNCHECKED then HistMask:=HistMask or hmOutRequest;
  if IsDlgButtonChecked(Dlg,IDC_IN_INFO    )<>BST_UNCHECKED then HistMask:=HistMask or hmInInfo;
  if IsDlgButtonChecked(Dlg,IDC_OUT_INFO   )<>BST_UNCHECKED then HistMask:=HistMask or hmOutInfo;
  if IsDlgButtonChecked(Dlg,IDC_IN_ERROR   )<>BST_UNCHECKED then HistMask:=HistMask or hmInError;
  if IsDlgButtonChecked(Dlg,IDC_OUT_ERROR  )<>BST_UNCHECKED then HistMask:=HistMask or hmOutError;
  if IsDlgButtonChecked(Dlg,IDC_IREQUEST   )<>BST_UNCHECKED then HistMask:=HistMask or hmIRequest;
  if IsDlgButtonChecked(Dlg,IDC_ISEND      )<>BST_UNCHECKED then HistMask:=HistMask or hmISend;
end;

function DlgProcOptions(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
const
  Changed:integer=0;
//  hItemAll:THANDLE=0;
var
//  cii:TCLCINFOITEM;
  hList:HWND;
begin
  result:=0;
  case hMessage of
    WM_INITDIALOG: begin
      TranslateDialogDefault(Dialog);
      Changed:=DLGED_INIT;

      hList:=GetDlgItem(Dialog,IDC_SHARE);
      ResetListOptions(hList);
      SendMessage(hList,CLM_SETUSEGROUPS      ,1,0);
      SendMessage(hList,CLM_SETHIDEEMPTYGROUPS,1,0);

//      SendMessage(hList,CLM_SETEXTRACOLUMNS,2,0);
{
      FillChar(cii,SizeOf(cii),0);
      cii.cbSize   :=SizeOf(cii);
      cii.flags    :=CLCIIF_GROUPFONT or CLCIIF_CHECKBOX;
      cii.pszText.w:=TranslateW('** All contacts **');
      hItemAll:=SendMessage(hList,CLM_ADDINFOITEM,0,dword(@cii));
}
      SetAllContactStat(hList);
      SetHistMask(Dialog);

      SetDlgItemTextW(Dialog,IDC_PROTO_TEXT,ProtoText);

      Changed:=0;
    end;

    WM_COMMAND: begin
      if Changed<>DLGED_INIT then
      begin
        case wParam shr 16 of
          BN_CLICKED,EN_CHANGE: SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);
        end;
      end;
    end;

    WM_NOTIFY: begin
      if Changed<>DLGED_INIT then
      begin
        if PNMHDR(lParam)^.idFrom=IDC_SHARE then
          if integer(PNMHdr(lParam)^.code)=CLN_CHECKCHANGED then
            SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

        if integer(PNMHdr(lParam)^.code)=PSN_APPLY then
        begin
          mFreeMem(ProtoText);
          ProtoText:=GetDlgText(Dialog,IDC_PROTO_TEXT);

          SaveAllContactStat(GetDlgItem(Dialog,IDC_SHARE));
          SaveHistMask(Dialog);

          WriteOptions;
        end;
      end;
    end;
  else
    {result:=}DefWindowProc(Dialog,hMessage,wParam,lParam);
  end;
end;