Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 750 insertions, 0 deletions

diff --git a/plugins/QuickSearch/sr_global.pas b/plugins/QuickSearch/sr_global.pas
new file mode 100644
index 0000000000..cd9e1d826e
--- /dev/null
+++ b/plugins/QuickSearch/sr_global.pas
@@ -0,0 +1,750 @@
+unit sr_global;

+

+interface

+uses windows,messages,commctrl,m_api,dbsettings,mirutils;

+

+const

+  // for QS window only

+  IDM_STAYONTOP = WM_USER+1;

+  WM_MYADDCONTACT    = WM_USER+2;

+  WM_MYDELETECONTACT = WM_USER+3;

+

+  WM_MYSHOWHIDEITEM = WM_USER + 4;

+  WM_MYMOVEITEM     = WM_USER + 5;

+const

+  wcUp      = 1;

+  wcDown    = 2;

+  wcHide    = 3;

+  wcShow    = 4;

+  wcDelete  = 5;

+  wcInsert  = 6;

+  wcChange  = 7;

+  wcRefresh = 8;

+

+const

+  opened:boolean = false;

+const

+  QS_QS     :PAnsiChar = 'QS_QS';

+  QS_NEW    :PAnsiChar = 'QS_New';

+  QS_ITEM   :PAnsiChar = 'QS_Item';

+  QS_UP     :PAnsiChar = 'QS_Up';

+  QS_DOWN   :PAnsiChar = 'QS_Down';

+  QS_DELETE :PAnsiChar = 'QS_Delete';

+  QS_DEFAULT:PAnsiChar = 'QS_Default';

+  QS_RELOAD :PAnsiChar = 'QS_Reload';

+  QS_MALE   :PAnsiChar = 'QS_Male';

+  QS_FEMALE :PAnsiChar = 'QS_Female';

+const

+  qs_module     :PAnsiChar = 'QuickSearch';

+  qs_name       :PAnsiChar = 'Quick Search';

+  QS_SHOWSERVICE:PAnsiChar = 'QuickSearch_PLUGIN/Show';

+

+const

+  StatusSort = 1000;

+

+const

+  ptNumber  = 0;

+  ptInteger = 1;

+  ptString  = 2;

+  ptUnicode = 3;

+  ptCurrent = 4;

+  

+const //types

+  ST_BYTE        = 0;

+  ST_WORD        = 1;

+  ST_INT         = 2;

+  ST_STRING      = 3;

+  ST_IP          = 4;

+  ST_LASTSEEN    = 5;

+  ST_CONTACTINFO = 6;

+  ST_LASTEVENT   = 7;

+  ST_TIMESTAMP   = 8;

+  ST_SERVICE     = 9;

+  ST_SCRIPT      = 10;

+  ST_METACONTACT = 11;

+

+  ST_MAXTYPE     = 11;

+

+const

+  COL_ON      = $0001; // Show column

+  COL_INIT    = $0002; // No need to update

+  COL_XSTATUS = $0100;

+  COL_GENDER  = $0200;

+  COL_CLIENT  = $0400;

+

+{$include resource.inc}

+

+type

+  tserviceparam = record

+    case _type:word of

+      0: (n:dword);

+      1: (i:integer);

+      2: (a:PAnsiChar);

+      3: (w:PWideChar);

+  end;

+type

+  tcolumnitem=record

+    title          :PWideChar;

+    module_name    :PAnsiChar;

+    width          :dword;

+    setting_type   :dword;     // ST_* constants

+    setting_cnftype:dword;     // pt* constants

+    wparam         :tserviceparam;

+    lparam         :tserviceparam;

+    flags          :dword;     // COL_* constants

+  end;

+  tcolumnarray = array of tcolumnitem;

+  tqsopt=record

+    grrect          :TRECT;

+    columns         :tcolumnarray;//array of tcolumnitem;

+    numcolumns      :integer;

+    columnsort      :integer;

+    ascendsort      :boolean;

+    sortbystatus    :boolean;

+    drawgrid        :boolean;

+    showinmenu      :boolean;

+    showonlyinlist  :boolean;

+    showintoptoolbar:boolean;

+    usetoolstyle    :boolean;

+    closeafteraction:boolean;

+    stayontop       :boolean;

+    showoffline     :boolean;

+    showclienticons :boolean;

+    exportheaders   :boolean;

+    singlecsv       :boolean;

+    skipminimized   :boolean;

+    savepattern     :boolean;

+    colorize        :boolean;

+  end;

+

+procedure reghotkeys;

+procedure unreghotkeys;

+

+procedure saveopt_wnd;

+procedure saveopt_db;

+procedure loadopt_db(full:boolean);

+procedure clear_columns;

+function new_column(after:integer=-1):integer;

+procedure delete_column(pos:integer);

+procedure loaddefaultcolumns;

+

+procedure AddRemoveMenuItemToMainMenu;

+procedure addtotoolbar;

+procedure removetoolbar;

+

+var

+  qsopt:tqsopt;

+

+const

+  MainMenuItem:integer=0;

+  hTTBButton  :thandle=0;

+

+implementation

+

+uses common;

+

+const

+  HKN_GLOBAL:PAnsiChar = 'QS_Global';

+const

+  so_mbottom         :PAnsiChar = 'mbottom';

+  so_mright          :PAnsiChar = 'mright';

+  so_mtop            :PAnsiChar = 'mtop';

+  so_mleft           :PAnsiChar = 'mleft';

+  so_columnsort      :PAnsiChar = 'columnsort';

+  so_sortbystatus    :PAnsiChar = 'sortbystatus';

+  so_ascendsort      :PAnsiChar = 'ascendsort';

+  so_showonlyinlist  :PAnsiChar = 'showonlyinlist';

+  so_dontusetoolstyle:PAnsiChar = 'dontusetoolstyle';

+  so_showinmenu      :PAnsiChar = 'showinmenu';

+  so_showintoptoolbar:PAnsiChar = 'showintoptoolbar';

+  so_closeafteraction:PAnsiChar = 'closeafteraction';

+  so_exportheaders   :PAnsiChar = 'exportheaders';

+  so_singlecsv       :PAnsiChar = 'singlecsv';

+  so_savepattern     :PAnsiChar = 'savepattern';

+  so_numcolumns      :PAnsiChar = 'numcolumns';

+  so_item            :PAnsiChar = 'item';

+  so_drawgrid        :PAnsiChar = 'drawgrid';

+  so_stayontop       :PAnsiChar = 'stayontop';

+  so_showclienticons :PAnsiChar = 'showclienticons';

+  so_skipminimized   :PAnsiChar = 'skipminimized';

+  so_showoffline     :PAnsiChar = 'showoffline';

+  so_colorize        :PAnsiChar = 'colorize';

+  

+  so__title          :PAnsiChar = '_title';

+  so__setting_type   :PAnsiChar = '_setting_type';

+  so__setting_cnftype:PAnsiChar = '_setting_cnftype';

+  so__module_name    :PAnsiChar = '_module_name';

+  so__wparam_type    :PAnsiChar = '_wparam_type';

+  so__lparam_type    :PAnsiChar = '_lparam_type';

+  so__wparam         :PAnsiChar = '_wparam';

+  so__lparam         :PAnsiChar = '_lparam';

+  so__width          :PAnsiChar = '_width';

+  so__flags          :PAnsiChar = '_flags';

+

+procedure reghotkeys;

+var

+  hkrec:HOTKEYDESC;

+begin

+  FillChar(hkrec,SizeOf(hkrec),0);

+  with hkrec do

+  begin

+    cbSize          :=HOTKEYDESC_SIZE_V1;

+    pszName         :=HKN_GLOBAL;

+    pszDescription.a:='QuickSearch window hotkey';

+    pszSection.a    :=qs_name;

+    pszService      :=QS_SHOWSERVICE;

+    DefHotKey       :=(HOTKEYF_ALT shl 8) or VK_F3;

+  end;

+  CallService(MS_HOTKEY_REGISTER,0,lparam(@hkrec));

+end;

+

+procedure unreghotkeys;

+begin

+  CallService(MS_HOTKEY_UNREGISTER,0,lparam(HKN_GLOBAL));

+end;

+

+procedure removetoolbar;

+begin

+  if hTTBButton<>0 then

+  begin

+    if ServiceExists(MS_TTB_REMOVEBUTTON)>0 then

+    begin

+      CallService(MS_TTB_REMOVEBUTTON,WPARAM(hTTBButton),0);

+      hTTBButton:=0;

+    end;

+  end;

+end;

+

+procedure addtotoolbar;

+var

+  ttbopt:TTBButton;

+begin

+  removetoolbar;

+  

+  if qsopt.showintoptoolbar then

+  begin

+    if ServiceExists(MS_TTB_ADDBUTTON)>0 then

+    begin

+      ZeroMemory(@ttbopt,sizeof(ttbopt));

+      ttbopt.cbSize    :=sizeof(ttbopt);

+      ttbopt.pszService:=QS_SHOWSERVICE;

+      ttbopt.hIconUp   :=CallService(MS_SKIN2_GETICON,0,lparam(QS_QS));

+      ttbopt.hIconDn   :=ttbopt.hIconUp;

+      ttbopt.dwFlags   :=TTBBF_VISIBLE;

+      ttbopt.name      :=qs_module;

+      hTTBButton:=TopToolbar_AddButton(@ttbopt);

+      if hTTBButton=THANDLE(-1) then

+        hTTBButton:=0;

+    end;

+  end;

+end;

+

+procedure AddRemoveMenuItemToMainMenu;

+var

+  cmi:TCLISTMENUITEM;

+begin

+  if qsopt.showinmenu then

+  begin

+    if MainMenuItem<>0 then exit;

+    ZeroMemory(@cmi,sizeof(cmi));

+    cmi.cbSize      :=sizeof(cmi) ;

+    cmi.szName.a    :=qs_name;

+    cmi.position    :=500050000;

+//    cmi.pszPopupName:=nil;

+//    cmi.flags       :=0;

+    cmi.pszService  :=QS_SHOWSERVICE;

+    cmi.hIcon       :=CallService(MS_SKIN2_GETICON,0,lparam(QS_QS));

+    MainMenuItem    :=Menu_AddMainMenuItem(@cmi);

+  end

+  else

+  begin

+    if (MainMenuItem<>0) and

+       (ServiceExists(MS_CLIST_REMOVEMAINMENUITEM)<>0) then

+    begin

+      CallService(MS_CLIST_REMOVEMAINMENUITEM,MainMenuItem,0);

+      MainMenuItem:=0;

+    end;

+  end;

+end;

+

+// -------- column functions ---------

+

+procedure clear_column(num:integer);

+begin

+  with qsopt.columns[num] do

+  begin

+    mFreeMem(title);

+    if setting_type<>ST_CONTACTINFO then

+    begin

+      mFreeMem(module_name);

+      if setting_type<>ST_SERVICE then

+        mFreeMem(wparam.a)

+      else

+      begin

+        if (wparam._type=ptString) or (wparam._type=ptUnicode) then mFreeMem(wparam.a);

+        if (lparam._type=ptString) or (lparam._type=ptUnicode) then mFreeMem(lparam.a);

+      end;

+    end;

+  end;

+end;

+

+procedure clear_columns;

+var

+  i:integer;

+begin

+  for i:=0 to qsopt.numcolumns-1 do

+    clear_column(i);

+  FillChar(qsopt.columns[0],Length(qsopt.columns),0);

+  qsopt.numcolumns:=0;

+end;

+

+procedure delete_column(pos:integer);

+begin

+  if (pos>=0) and (qsopt.numcolumns>0) then

+  begin

+    dec(qsopt.numcolumns);

+    clear_column(pos);

+    move(qsopt.columns[pos+1],qsopt.columns[pos],(qsopt.numcolumns-pos)*sizeof(tcolumnitem));

+    SetLength(qsopt.columns,qsopt.numcolumns);

+  end;

+end;

+

+function new_column(after:integer=-1):integer;

+begin

+  SetLength(qsopt.columns,qsopt.numcolumns+1);

+  FillChar(qsopt.columns[qsopt.numcolumns],SizeOf(tcolumnitem),0);

+  with qsopt.columns[qsopt.numcolumns] do

+  begin

+    StrDupW(title,'New column');

+    width:=64;

+    flags:=COL_ON;

+  end;

+  result:=qsopt.numcolumns;

+  inc(qsopt.numcolumns);

+end;

+

+procedure MakeTitle(var title; name:pAnsiChar);

+begin

+  FastAnsiToWide(name,pWideChar(title));

+end;

+

+procedure loaddefaultcolumns;

+begin

+  clear_columns;

+  qsopt.numcolumns:=15;

+  SetLength(qsopt.columns    ,qsopt.numcolumns);

+  FillChar(qsopt.columns[0],qsopt.numcolumns*SizeOf(tcolumnitem),0);

+

+  // protocol

+  with qsopt.columns[0] do

+  begin

+    MakeTitle(title,'Protocol');

+    StrDup (module_name,MS_PROTO_GETCONTACTBASEPROTO);

+    width          :=82;

+    setting_type   :=ST_SERVICE;

+    setting_cnftype:=ptString;

+    wparam._type   :=ptCurrent;

+    lparam._type   :=ptNumber;

+    lparam.n       :=0;

+    flags          :=COL_ON;

+  end;

+

+  with qsopt.columns[1] do

+  begin

+    MakeTitle(title,'Real Protocol');

+    StrDup(module_name,'Protocol');

+    StrDup(wparam.a   ,'p');

+    width          :=82;

+    setting_type   :=ST_STRING;

+    flags          :=0;

+  end;

+

+  //gender

+  with qsopt.columns[2] do

+  begin

+    MakeTitle(title,'Gender');

+    width          :=20;

+    setting_type   :=ST_CONTACTINFO;

+    setting_cnftype:=CNF_GENDER;

+    flags          :=COL_ON;

+  end;

+

+  //uin

+  with qsopt.columns[3] do

+  begin

+    MakeTitle(title,'UserID');

+    width          :=80;

+    setting_type   :=ST_CONTACTINFO;

+    setting_cnftype:=CNF_UNIQUEID;

+    flags          :=COL_ON;

+  end;

+

+  //username(displayname)

+  with qsopt.columns[4] do

+  begin

+    MakeTitle(title,'Nickname');

+    StrDup(module_name,MS_CLIST_GETCONTACTDISPLAYNAME);

+    width          :=76;

+    setting_type   :=ST_SERVICE;

+    setting_cnftype:=ptUnicode;

+    wparam._type   :=ptCurrent;

+    lparam._type   :=ptNumber;

+    lparam.n       :=2; // 0 for ANSI

+    flags          :=COL_ON;

+  end;

+

+  //firstname

+  with qsopt.columns[5] do

+  begin

+    MakeTitle(title,'First name');

+    width          :=68;

+    setting_type   :=ST_CONTACTINFO;

+    setting_cnftype:=CNF_FIRSTNAME;

+    flags          :=COL_ON;

+  end;

+

+  //lastname

+  with qsopt.columns[6] do

+  begin

+    MakeTitle(title,'Last name');

+    width          :=66;

+    setting_type   :=ST_CONTACTINFO;

+    setting_cnftype:=CNF_LASTNAME;

+    flags          :=COL_ON;

+  end;

+

+  //group

+  with qsopt.columns[7] do

+  begin

+    MakeTitle(title,'Group');

+    width          :=80;

+    StrDup(module_name,'CList');

+    StrDup(wparam.a   ,'Group');

+    setting_type   :=ST_STRING;

+    flags          :=COL_ON;

+  end;

+

+  //email

+  with qsopt.columns[8] do

+  begin

+    MakeTitle(title,'E-mail');

+    width          :=116;

+    setting_type   :=ST_CONTACTINFO;

+    setting_cnftype:=CNF_EMAIL;

+    flags          :=COL_ON;

+  end;

+

+ //miranda version

+  with qsopt.columns[9] do

+  begin

+    MakeTitle(title,'ClientID');

+    StrDup(wparam.a,'MirVer');

+    width       :=60;

+    setting_type:=ST_STRING;

+    flags       :=COL_ON;

+  end;

+

+ //IP version

+  with qsopt.columns[10] do

+  begin

+    MakeTitle(title,'Ext IP');

+    StrDup(module_name,'ICQ');

+    StrDup(wparam.a   ,'IP');

+    width       :=100;

+    setting_type:=ST_IP;

+    flags       :=0;

+  end;

+

+ //LastSeen

+  with qsopt.columns[11] do

+  begin

+    MakeTitle(title,'LastSeen');

+    StrDup(module_name,'SeenModule');

+    width       :=116;

+    setting_type:=ST_LASTSEEN;

+    flags       :=0;

+  end;

+

+ //last event

+  with qsopt.columns[12] do

+  begin

+    MakeTitle(title,'Last Event');

+    width       :=100;

+    setting_type:=ST_LASTEVENT;

+    flags       :=0;

+  end;

+

+ //online since

+  with qsopt.columns[13] do

+  begin

+    MakeTitle(title,'Online since');

+    StrDup(module_name,'ICQ');

+    StrDup(wparam.a   ,'LogonTS');

+    width       :=100;

+    setting_type:=ST_TIMESTAMP;

+    flags       :=0;

+  end;

+

+ //metacontacts

+  with qsopt.columns[14] do

+  begin

+    MakeTitle(title,'Metacontact');

+    width       :=50;

+    setting_type:=ST_METACONTACT;

+    flags       :=0;

+  end;

+end;

+

+// -------- save/load settings ---------

+

+procedure WriteInt(setting:PAnsiChar;value:int);

+begin

+  DBWriteDword(0,qs_module,setting,value)

+end;

+procedure WriteWord(setting:PAnsiChar;value:word);

+begin

+  DBWriteWord(0,qs_module,setting,value)

+end;

+procedure WriteStr(setting:PAnsiChar;value:PAnsiChar);

+begin

+  DBWriteString(0,qs_module,setting,value)

+end;

+procedure WriteUnicode(setting:PAnsiChar;value:PWideChar);

+begin

+  DBWriteUnicode(0,qs_module,setting,value)

+end;

+procedure WriteBool(setting:PAnsiChar;value:bool);

+begin

+  DBWriteByte(0,qs_module,setting,ord(value))

+end;

+

+procedure saveopt_wnd;

+var

+  i:integer;

+  buf:array [0..127] of AnsiChar;

+  p,pp:PAnsiChar;

+begin

+  WriteInt (so_mbottom    ,qsopt.grrect.bottom);

+  WriteInt (so_mright     ,qsopt.grrect.right);

+  WriteInt (so_mtop       ,qsopt.grrect.top);

+  WriteInt (so_mleft      ,qsopt.grrect.left);

+

+  WriteBool(so_showoffline,qsopt.showoffline);

+  WriteBool(so_colorize   ,qsopt.colorize);

+

+  WriteInt (so_columnsort ,qsopt.columnsort);

+

+  pp:=StrCopyE(buf,so_item);

+  for i:=0 to qsopt.numcolumns-1 do

+  begin

+    p:=StrEnd(IntToStr(pp,i));

+    with qsopt.columns[i] do

+    begin

+      StrCopy(p,so__flags); WriteInt (buf,flags);

+      StrCopy(p,so__width); WriteWord(buf,width);

+    end;

+  end;

+end;

+

+{

+  "fast" writing"

+  order array - if column order only changed

+  column flags - if checkboxes changed only

+}

+procedure saveopt_db;

+var

+  i:integer;

+  buf:array [0..127] of AnsiChar;

+  p,pp:PAnsiChar;

+begin

+  WriteWord(so_numcolumns      ,qsopt.numcolumns);

+

+  WriteBool(so_sortbystatus    ,qsopt.sortbystatus);

+  WriteBool(so_showinmenu      ,qsopt.showinmenu);

+//  WriteInt (so_columnsort      ,qsopt.columnsort);

+  WriteBool(so_ascendsort      ,qsopt.ascendsort);

+  WriteBool(so_showonlyinlist  ,qsopt.showonlyinlist);

+

+  WriteBool(so_showintoptoolbar,qsopt.showintoptoolbar);

+  WriteBool(so_dontusetoolstyle,not qsopt.usetoolstyle);

+  WriteBool(so_closeafteraction,qsopt.closeafteraction);

+  WriteBool(so_drawgrid        ,qsopt.drawgrid);

+  WriteBool(so_stayontop       ,qsopt.stayontop);

+  WriteBool(so_showclienticons ,qsopt.showclienticons);

+  WriteBool(so_exportheaders   ,qsopt.exportheaders);

+  WriteBool(so_singlecsv       ,qsopt.singlecsv);

+  WriteBool(so_skipminimized   ,qsopt.skipminimized);

+  WriteBool(so_savepattern     ,qsopt.savepattern);

+

+  pp:=StrCopyE(buf,so_item);

+  for i:=0 to qsopt.numcolumns-1 do

+  begin

+    p:=StrEnd(IntToStr(pp,i));

+    with qsopt.columns[i] do

+    begin

+      StrCopy(p,so__title);

+      WriteUnicode(buf,title);

+      case setting_type of

+        ST_SCRIPT: begin

+          StrCopy(p,so__wparam);

+          WriteUnicode(buf,wparam.w);

+        end;

+        ST_CONTACTINFO: begin

+          StrCopy(p,so__setting_cnftype); WriteWord(buf,setting_cnftype);

+        end;

+        ST_SERVICE: begin

+          StrCopy(p,so__module_name    ); WriteStr (buf,module_name);

+          StrCopy(p,so__setting_cnftype); WriteWord(buf,setting_cnftype);

+          StrCopy(p,so__wparam_type    ); WriteWord(buf,wparam._type);

+          StrCopy(p,so__lparam_type    ); WriteWord(buf,lparam._type);

+          StrCopy(p,so__wparam);

+          case wparam._type of

+            ptNumber,

+            ptInteger: WriteInt    (buf,wparam.n);

+            ptString : WriteStr    (buf,wparam.a);

+            ptUnicode: WriteUnicode(buf,wparam.w);

+          end;

+          StrCopy(p,so__lparam);

+          case lparam._type of

+            ptNumber,

+            ptInteger: WriteInt    (buf,lparam.n);

+            ptString : WriteStr    (buf,lparam.a);

+            ptUnicode: WriteUnicode(buf,lparam.w);

+          end;

+        end;

+      else

+        StrCopy(p,so__module_name); WriteStr(buf,module_name);

+        StrCopy(p,so__wparam     ); WriteStr(buf,wparam.a);

+      end;

+      StrCopy(p,so__setting_type); WriteWord(buf,setting_type);

+      StrCopy(p,so__flags       ); WriteInt (buf,flags);

+      StrCopy(p,so__width       ); WriteWord(buf,width);

+    end;

+  end;

+end;

+

+function GetInt(setting:PAnsiChar;default:integer):integer;

+begin

+  result:=DBReadDWord(0,qs_module,setting,default);

+end;

+function GetWord(setting:PAnsiChar;default:word):word;

+begin

+  result:=DBReadWord(0,qs_module,setting,default);

+end;

+function GetBool(setting:PAnsiChar;default:bool):bool;

+begin

+  result:=bool(DBReadByte(0,qs_module,setting,integer(default)));

+end;

+function GetStr(setting:PAnsiChar):PAnsiChar;

+begin

+  result:=DBReadString(0,qs_module,setting,nil);

+end;

+function GetUnicode(setting:PAnsiChar):PWideChar;

+begin

+  result:=DBReadUnicode(0,qs_module,setting,nil);

+end;

+

+{

+  if "fast"writing enabled

+  fill columns accordingly comumn order array

+}

+procedure loadopt_db(full:boolean);

+var

+  i:integer;

+  buf:array [0..127] of AnsiChar;

+  p,pp:PAnsiChar;

+begin

+  if full then

+  begin

+    zeromemory(@qsopt,sizeof(qsopt));

+

+    qsopt.grrect.bottom:=GetInt(so_mbottom,240);

+    qsopt.grrect.right :=GetInt(so_mright,550);

+    qsopt.grrect.top   :=GetInt(so_mtop,0);

+    qsopt.grrect.left  :=GetInt(so_mleft,0);

+

+    qsopt.columnsort      :=GetInt (so_columnsort,StatusSort);

+    qsopt.sortbystatus    :=GetBool(so_sortbystatus,true);

+    qsopt.ascendsort      :=GetBool(so_ascendsort  ,true);

+

+    qsopt.showonlyinlist  :=GetBool(so_showonlyinlist  ,false);

+    qsopt.usetoolstyle    :=not GetBool(so_dontusetoolstyle,false);

+    qsopt.showinmenu      :=GetBool(so_showinmenu      ,true);

+    qsopt.showintoptoolbar:=GetBool(so_showintoptoolbar,true);

+    qsopt.closeafteraction:=GetBool(so_closeafteraction,false);

+    qsopt.drawgrid        :=GetBool(so_drawgrid        ,true);

+    qsopt.stayontop       :=GetBool(so_stayontop       ,false);

+    qsopt.singlecsv       :=GetBool(so_singlecsv       ,false);

+    qsopt.exportheaders   :=GetBool(so_exportheaders   ,false);

+    qsopt.showoffline     :=GetBool(so_showoffline     ,true);

+    qsopt.skipminimized   :=GetBool(so_skipminimized   ,true);

+    qsopt.savepattern     :=GetBool(so_savepattern     ,true);

+    qsopt.colorize        :=GetBool(so_colorize        ,true);

+

+    if ServiceExists(MS_FP_GETCLIENTICON)<>0 then

+      qsopt.showclienticons:=GetBool(so_showclienticons,true)

+    else

+      qsopt.showclienticons:=false;

+  end

+  else

+    clear_columns;

+

+  qsopt.numcolumns:=GetWord(so_numcolumns,0);

+  if qsopt.numcolumns=0 then

+  begin

+    loaddefaultcolumns;

+    saveopt_db;

+  end

+  else

+  begin

+    pp:=StrCopyE(buf,so_item);

+    SetLength(qsopt.columns,qsopt.numcolumns);

+    FillChar(qsopt.columns[0],SizeOf(tcolumnitem)*qsopt.numcolumns,0);

+    for i:=0 to qsopt.numcolumns-1 do

+    begin

+      p:=StrEnd(IntToStr(pp,i));

+      with qsopt.columns[i] do

+      begin

+        StrCopy(p,so__title);

+        title:=GetUnicode(buf);

+        StrCopy(p,so__setting_type); setting_type:=GetWord(buf,0);

+        case setting_type of

+          ST_SCRIPT: begin

+            StrCopy(p,so__wparam);

+            wparam.w:=GetUnicode(buf);

+          end;

+          ST_CONTACTINFO: begin

+            StrCopy(p,so__setting_cnftype); setting_cnftype:=GetWord(buf,0);

+          end;

+          ST_SERVICE: begin

+            StrCopy(p,so__setting_cnftype); setting_cnftype:=GetWord(buf,0);

+            StrCopy(p,so__module_name); module_name :=GetStr(buf);

+            StrCopy(p,so__wparam_type); wparam._type:=GetWord(buf,0);

+            StrCopy(p,so__lparam_type); lparam._type:=GetWord(buf,0);

+            StrCopy(p,so__wparam);

+            case wparam._type of

+              ptNumber,

+              ptInteger: wparam.n:=GetInt(buf,0);

+              ptString : wparam.a:=GetStr(buf);

+              ptUnicode: wparam.w:=GetUnicode(buf);

+            end;

+            StrCopy(p,so__lparam);

+            case lparam._type of

+              ptNumber,

+              ptInteger: lparam.n:=GetInt(buf,0);

+              ptString : lparam.a:=GetStr(buf);

+              ptUnicode: lparam.w:=GetUnicode(buf);

+            end;

+          end;

+        else

+          StrCopy(p,so__module_name); module_name:=GetStr(buf);

+          StrCopy(p,so__wparam     ); wparam.a   :=GetStr(buf);

+        end;

+        StrCopy(p,so__width); width:=GetWord(buf,20);

+        StrCopy(p,so__flags); flags:=GetInt (buf,COL_ON);

+      end;

+    end;

+  end;

+end;

+

+end.