uShowMessage.pas

unit uShowMessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, StdCtrls, OleCtrls, SHDocVw, MSHTML, activex,
  ImgList,SyncObjs, global_const,uFrameMessage,uUserItem, Menus,
  ExtCtrls, Clipbrd, ShlObj, IdException, RXShell, Buttons,uSmile;


type
  ProcMsgHandler = procedure (var Msg: TMsg; var Handled: Boolean);


type
  TShowMessages = class(TForm)
    MenuCloseTab: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PanelBuffer: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    Button4: TButton;
    Timer1: TTimer;
    MsgTrayIcon: TRxTrayIcon;
    TimerSheet: TTimer;
    PanelButtons: TPanel;
    Button1: TButton;
    SpeedButton1: TSpeedButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    PanelCommon: TPanel;
    Splitter1: TSplitter;
    ImageList1: TImageList;
    PanelOutput: TPanel;
    Output: TWebBrowser;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    Label6: TLabel;
    FontSize: TComboBox;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ColorDialog1: TColorDialog;
    TimerDblClick: TTimer;
    PanelInput: TPanel;
    PageControl: TPageControl;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PageControlMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure PageControlChange(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CreateParams(var Params: TCreateParams); override;
    procedure Timer1Timer(Sender: TObject);
    procedure MsgTrayIconClick(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TimerSheetTimer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure OutputDocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure PageControlChanging(Sender: TObject;
      var AllowChange: Boolean);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure FontSizeChange(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure TimerDblClickTimer(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure N3DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure N3MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
      Height: Integer);
 private

    MyJID      : string;
    MyFullJid  : string;
    isCtrlPress: boolean;
    isDblLeft  : boolean; //äëÿ çàêðûòèÿ çàêëàäîê äâîéíûì êëèêîì
    Flash      : boolean;
    Maximized  : boolean; //ìàêñèìèçèðîâàíî èëè íåò îêíî

    OpenUserTabList: TStringList;   //ñïèñîê ïîëüçîâàòåëåé, îáúåêò - TWndMessage
    OpenSheetList  : TStringList;   //õðàíèò èíäåêñ ýëåìåíòà èç OpenUserTabList è îáúåêò TabSheet
    BlinkList      : TStringList;   //ñïèñîê çàêëàäîê äëÿ ìåëüêàíèÿ

    Disp: IDispatch;
    Editor: IHTMLDocument2;

    UserList : TStringList; //ñïèñîê âñåõ ïîëüçîâàòåëåé, ñòðîêà - UserJid, îáúåêò TUserItem
    
    procedure MsgHandler(var Msg: TMsg; var Handled: Boolean); //îáðàáàòûâàåò ñîîáùåíèÿ Windows
    procedure Activv(Sender: TObject); //ñðàáàòûâàåò ïðè àêòèâöèè ïðèëîæåíèÿ, îáíîâëÿåò òåêóùóþ çàêëàäêó, óáåðàåò ìåëüêàíèå
    procedure SetBuffer(Name: string); //ïîìåùàåò ñîäåðæèìîå Output â áóôåð îáìåíà
    procedure SendMsg; //îòïðàâëÿåò ñîîáùåíèå ñîáåñåäíèêó è äîáàâëÿåò åãî â Input
    function GetActiveUser:TWndMessage; //ïîëó÷èòü îáúåêò àêòèâíîãî ñîáåñåäíèêà
    procedure DelFirstStrings( var msg: WideString); //óäàëÿåò ïóñòûå ñòðîêè â íà÷àëå îòïðàâëÿåìîãî ñîîáùåíèÿ
    procedure PasteLastMsg; //ïî Ctrl+Q âñòàâëÿåò â Output ïîñëåäíåå ñîîáùåíèå, çàïèñàííîå â Input
    procedure TranslateContentOfOutput; //ïåðåâîäèò ñîäåðæèìîå Output ñ ðóññêîãî íà àíãë èëè íàîáîðîò
  public
    procedure Init(My_JID, My_FullJid : string); //èíèöèàëèçàöèÿ äàííûìè î ïîëüçîâàòåëå, ôîðìèðîâàíèå ListSmiles, îïðåäåëåíèå Programm Directory
    procedure ShowInputMessage(var msg: string;Inter: TUserItem); //îòîáðàæàåò âõîäÿùåå ñîîáùåíèå â Input
    procedure ChangeStatus(Inter: TUserItem); //âûâåñòè ñîîáùåíèå â Input î ñìåíå ñòàòóñà ñîáåñåäíèêà
    procedure OpenUser(Inter: TUserItem); //Îòêðûòü ñîáåñåäíèêà
    procedure CloseUser(User:TWndMessage); //Çàêðûòü ñîáåñåäíèêà
    procedure CloseUserByJid(Jid:string); //Çàêðûòü ñîáåñåäíèêà ïî Jid
    procedure ChangeUserName(NewInter:TUserItem); //ñìåíèòü èìÿ ñîáåñåäíèêà
    procedure SetWindowParam(Left, Top, Width, Height, splitter, max: integer);//óñòàíîâèòü ïàðàìåòðû îêíà, ïîëó÷åííûå èç ôàéëà íàñòðîåê
    procedure GetWindowPaqram(var Left, Top, Width, Height, splitter, max: integer); //ïîëó÷èòü íàñòðîéêè îêíà äëÿ çàïèñè â ôàéë íàñòðîåê
    procedure SetUserList(List:TStringList); //óñòàíîâèòü ñïèñîê ñîáåñåäíèêîâ
    function GetInterByJid(Jid:string):TUserItem; //ïîëó÷èòü îáúåêò TUserItem èç UserList ïî åãî UserJid
    function IsUserOpen(Jid:string):boolean;
  end;

var
  ShowMessages: TShowMessages;

implementation

uses Unit1, uShowSmile, uAddTable, uHistory, ShowHistory;

{$R *.dfm}

function TShowMessages.IsUserOpen(Jid:string):boolean;
begin
 if OpenUserTabList <> nil then
 begin
   if (OpenUserTabList.IndexOf(Jid) >= 0) then result := true
                                          else result := false;
 end
 else result := false;
end;

function TShowMessages.GetActiveUser:TWndMessage;
var
ind : integer;
begin
  result := nil;
  ind := OpenSheetList.IndexOfObject(PageControl.ActivePage);
  if (ind >= 0) then
  begin
    ind :=StrToInt(OpenSheetList.Strings[ind]); //ýòî èíäåêñ ýëåìåíòà â OpenUserTabList
    if (ind >=0) then
    begin
      result := TWndMessage(OpenUserTabList.Objects[ind]);
    end;
  end;
end;

procedure TShowMessages.SetWindowParam(Left, Top, Width, Height, splitter, max: integer);
begin
    if max = 1 then Maximized := true else Maximized := false;
    if (Left >= 0) and (Top >= 0) then
    begin
     if Left > 1250 then Self.Left := 1250 else Self.Left := Left;
     if Top  > 960  then Self.Top  := 960  else Self.Top  := Top;
    end;
    if (Width >= 0) and (Height >= 0) then
    begin
      Self.Width  := Width;
      Self.Height := Height;
    end;
    if (splitter > 0) then //ðàçäåëèòåëü ìåæäó áðàóçåðàìè
    begin
      PageControl.Height := splitter;
    end;
end;

procedure TShowMessages.GetWindowPaqram(var Left, Top, Width, Height, splitter, max: integer);
begin
  if (Self.WindowState = wsMaximized) then
  begin
     max := 1;
     ShowWindow (handle, SW_SHOWNORMAL);
  end
  else max := 0;

  if (Self.Left < 0) then Left := 0 else Left := Self.Left;
  if (Self.Top < 0)  then  Top := 0 else Top  := Self.Top;

  Width  := Self.Width;
  Height := Self.Height;
  splitter := PageControl.Height; //ðàçäåëèòåëü ìåæäó áðàóçåðàìè
end;

procedure TShowMessages.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;

procedure TShowMessages.PasteLastMsg;
var
  s: WideString;
  User: TWndMessage;
  p: integer;
begin
  User:=GetActiveUser;
  s := GetMsgFromFile(User.GetInterJid);
  p := pos('<P>',s);
  if (p = 0) then p := pos('<p>',s);
  if (p = 0) then s:= '&gt;&nbsp;' + s;
  s := StringReplace(s,'<P>','<P>&gt;&nbsp;',[rfReplaceAll]);
  s := StringReplace(s,'<p>','<p>&gt;&nbsp;',[rfReplaceAll]);
  WB_LoadHTML(Output,'<html><HEAD><META http-equiv=Content-Type content="text/html; charset=unicode"></HEAD><BODY>'+UTF8Encode(s)+'</BODY></HTML>');
end;

procedure TShowMessages.TranslateContentOfOutput;
var
  s: WideString;
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  User : TWndMessage;
begin
   s:= Editor.body.innerHTML;
   s:= Translate(s,NOT_FIXED);
   WB_LoadHTML(Output,'<html><HEAD><META http-equiv=Content-Type content="text/html; charset=unicode"></HEAD><BODY>'+UTF8Encode(s)+'</BODY></HTML>');
end;

procedure TShowMessages.MsgHandler(var Msg: TMsg; var Handled: Boolean);
begin
if (OpenUserTabList.Count <> 0) and ShowMessages.Active then
  begin
     if (Msg.message = WM_KEYDOWN) then
     begin
        if isCtrlPress then
        begin
           if (Msg.wParam = 13) then SendMsg
           else if (Msg.wParam = 81) then PasteLastMsg //Ctrl+Q
                else if (Msg.wParam = 82) then TranslateContentOfOutput; //Ctrl+R
        end;
        if (Msg.wParam = VK_CONTROL) then isCtrlPress := true;
     end;
     if (Msg.message = WM_KEYUP) then
        if(Msg.wParam=VK_CONTROL) then
         isCtrlPress:=false;
  end;
end;

procedure TShowMessages.SetUserList(List:TStringList);
begin
  UserList := List;
end;

function TShowMessages.GetInterByJid(Jid:string):TUserItem;
var
  ind: integer;
begin
  ind := UserList.IndexOf(Jid);
  if (ind >= 0) then
  begin
    result := TUserItem(UserList.Objects[ind]);
  end
  else result := nil;
end;


procedure TShowMessages.Init(My_JID, My_FullJid : string);
var i : integer;
begin
   GetListSmiles;
   FontSize.ItemIndex:=2;
   MyJID       := My_JID;
   MyFullJid   := My_FullJid;
   isCtrlPress := false;
   isDblLeft   := false;
   ProgrammDirectory := ParamStr(0);
   i := Length(ProgrammDirectory);
   while ((i > 1) and (ProgrammDirectory[i] <> '\')) do i := i-1;
   ProgrammDirectory := Copy(ProgrammDirectory,1,i);
   Self.Caption := '['+My_FullJid + '] - Message Window';
   PanelBuffer.Visible := false;
   Application.OnActivate := Activv;
   Flash := False;
   Output.Silent := false;
   Output.Navigate('about:<html><HEAD><META http-equiv=Content-Type content="text/html; charset=unicode"></HEAD><body></body></html>');
end;

procedure TShowMessages.OpenUser(Inter: TUserItem);
var
  ind        : integer;
  NewTabSheet: TTabSheet;
  User       : TWndMessage;
  FullName   : string;
begin
  Show;
  if (Self.WindowState = wsMaximized) or Maximized then
  begin
     Maximized := false;
     ShowWindow(handle, SW_SHOWMAXIMIZED);
  end
  else  ShowWindow (handle, SW_SHOWNORMAL);
  FullName := Inter.jid;
  ind := OpenUserTabList.IndexOf(FullName);
  if (ind < 0) then //ñîçäàåì íîâóþ çàêëàäêó
  begin
         try
           NewTabSheet := TTabSheet.Create(PageControl);
           NewTabSheet.Caption:=Inter.getName_in_roster;
           NewTabSheet.PageControl := PageControl;
           PageControl.ActivePage := NewTabSheet;
           User := TWndMessage.Create(NewTabSheet);
           ind := OpenUserTabList.AddObject(FullName,User);
           OpenSheetList.AddObject(IntToStr(ind),NewTabSheet);
           NewTabSheet.ImageIndex := Inter.getStatus;
           User.Parent :=  NewTabSheet;
           User.Init(MyJID,MyFullJid,Inter.jid);
           User.ChangeStatus(Inter.getStatus);
           WB_LoadHTML(Output,'<html><HEAD><META http-equiv=Content-Type content="text/html; charset=unicode"></HEAD><BODY></BODY></HTML>');
         except
          on e:  EIdException do
          begin
            Errlog('TShowMessages.OpenUser '+ e.Message);
          end;
         end;
  end
  else //äåëàåì çàêëàäêó àêòèâíîé
  begin
      ind := OpenSheetList.IndexOf(IntToStr(ind));
      if (ind >= 0) then PageControl.ActivePage := TTabSheet(OpenSheetList.Objects[ind]);
      PageControlChange(self);
  end;
end;

procedure TShowMessages.ChangeUserName(NewInter:TUserItem);
var
  ind    : integer;
  sheet : TTabSheet;
begin
  ind := OpenUserTabList.IndexOf(NewInter.jid);
  if (ind >=0) then  //ïîëüçîâàòåëü óæå îòêðûò
  begin
     try
       sheet := TTabSheet(OpenSheetList.Objects[ind]);
       sheet.Caption := NewInter.getName_in_roster;
     except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.ChangeUserName '+ e.Message);
      end;
     end;
  end;
end;

procedure TShowMessages.ShowInputMessage(var msg: string;Inter: TUserItem);
var
  ind, indSheet: integer;
  NewTabSheet,sheet : TTabSheet;
  User : TWndMessage;
  FullName : string;
begin
 FullName := Inter.jid;
 ind := OpenUserTabList.IndexOf(FullName);
  if (ind >= 0)then //óæå åñòü
  begin
    try
     User := TWndMessage(OpenUserTabList.Objects[ind]);
     sheet := TTabSheet(OpenSheetList.Objects[ind]);
     if (sheet <> PageControl.ActivePage) or (not(Active)) then //íåàêòèâíà çàêëàäêà èëè íåàêòèâíî îêíî ñîîáùåíèé
     begin
       User.DeferredInputMessage(msg);
       fMain.StartBlink(Inter.jid); //íà÷àòü blink â ðîñòåðå
       TimerSheet.Enabled := true;
       sheet.ImageIndex := STATUS_MESSAGE;
       if not(Active) then Timer1.Enabled := true;
       MsgTrayIcon.Active:= true;  //íà÷àòü blink â òðåå
       indSheet := BlinkList.IndexOfObject(sheet);
       if (indSheet < 0) then //äîáàâèòü îáúåêò â ñïèñîê ìåëüêàíèÿ
       BlinkList.AddObject(IntToStr(OpenSheetList.IndexOfObject(sheet)), sheet); //ind â OpenSheetList è ññûëêà íà îáúåêò çàêëàäêè
     end
     else User.ShowInputMessage(msg);
     if not(Visible) then
     begin
       show;
       if (Self.WindowState = wsMaximized) or Maximized then
       begin
           Maximized := false;
           ShowWindow (handle, SW_SHOWMAXIMIZED)
       end
        else
          ShowWindow (handle, SW_SHOWNORMAL);
     end ;
     except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.ShowInputMessage  Âõîäÿùåå ñîîáùåíèå äëÿ óæå îòêðûòîãî ïîëüçîâàòåëÿ. '+ e.Message);
      end;
     end;
  end
  else // ñîçäàåì íîâóþ çàêëàäêó
  begin
    try
     NewTabSheet := TTabSheet.Create(PageControl);
     NewTabSheet.PageControl := PageControl;
     User := TWndMessage.Create(NewTabSheet);
     ind := OpenUserTabList.AddObject(FullName,User);
     OpenSheetList.AddObject(IntToStr(ind),NewTabSheet);

     User.Parent :=  NewTabSheet;
     User.Init(MyJID,MyFullJid,Inter.jid);
     if (NewTabSheet <> PageControl.ActivePage) or (not(Active)) then
     begin
        User.DeferredStatus(Inter.getStatus);
        User.DeferredInputMessage(msg);
        NewTabSheet.ImageIndex := STATUS_MESSAGE;
        TimerSheet.Enabled := true;
        MsgTrayIcon.Active:= true;
        if not(Active) then Timer1.Enabled := true;

        fMain.StartBlink(Inter.jid); //íà÷àòü blink â ðîñòåðå
        indSheet := BlinkList.IndexOfObject(sheet);
        if (indSheet < 0) then
        BlinkList.AddObject(IntToStr(OpenSheetList.IndexOfObject(NewTabSheet)),NewTabSheet); //ind â OpenSheetList è ññûëêà íà ñàìó çàêëàäêó
        if not(Visible) then
        begin
          show;
          ShowWindow (handle, SW_SHOWNORMAL);
          Activv(self);
        end;
     end
     else
     begin
       User.ChangeStatus(Inter.getStatus);
       User.ShowInputMessage(msg);
     end;

     NewTabSheet.Caption:=Inter.getName_in_roster;
    except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.ShowInputMessage  Âõîäÿùåå ñîîáùåíèå äëÿ åùå íå îòêðûòîãî ïîëüçîâàòåëÿ. '+ e.Message);
      end;
     end;
  end;
end;

procedure TShowMessages.ChangeStatus(Inter: TUserItem);
var
  ind,indSheet: integer;
  User : TWndMessage;
  sheet: TTabSheet;
begin
 try
  ind := OpenUserTabList.IndexOf(Inter.jid);
  if (ind >= 0)then //óæå åñòü
  begin
     User := TWndMessage(OpenUserTabList.Objects[ind]);

     indSheet := OpenSheetList.IndexOf(IntToStr(ind));
     Sheet := TTabSheet(OpenSheetList.Objects[indSheet]);
     if Sheet.ImageIndex < STATUS_MESSAGE then Sheet.ImageIndex := Inter.getStatus;

     indSheet := OpenSheetList.IndexOfObject(PageControl.ActivePage);
     indSheet := StrToInt(OpenSheetList.Strings[indSheet]); //ýòî èíäåêñ ýëåìåíòà â OpenUserTabList
     if (indSheet = ind) and Active then
         User.ChangeStatus(Inter.getStatus)
     else User.DeferredStatus(Inter.getStatus);
  end;
 except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.ChangeStatus '+ e.Message);
      end;
 end;
end;

procedure TShowMessages.FormCreate(Sender: TObject);
begin
  Button2.Align := alRight;
  OpenUserTabList := TStringList.Create;
  OpenSheetList   := TStringList.Create;
  BlinkList       := TStringList.Create;
  Application.OnMessage := MsgHandler;
end;

procedure TShowMessages.FormDestroy(Sender: TObject);
var
 i: integer;
 User  : TWndMessage;
 sheet : TTabSheet;
 Smile : TSmile;
begin
 try
  //î÷èñòèòü è óäàëèòü ñïèñîê îòêðûòûõ ïîëüçîâàòåëåé
  for i := 0 to  OpenUserTabList.Count-1 do
  begin
      User := TWndMessage(OpenUserTabList.Objects[i]);
      User.Free;
  end;
  OpenUserTabList.Free;

  //î÷èñòèòü è óäàëèòü ñïèñîê îòêðûòûõ çàêëàäîê
   for i := 0 to  OpenSheetList.Count-1 do
   begin
      sheet := TTabSheet(OpenSheetList.Objects[i]);
      sheet.Free;
   end;
  OpenSheetList.Free;

  //î÷èñòèòü è óäàëèòü ñïèñîê ñìàéëîâ
  if ListSmiles <> nil then
  begin
    for i := 0 to  ListSmiles.Count-1 do
    begin
        smile := TSmile(ListSmiles.Items[i]);
        smile.Free;
    end;
    ListSmiles.Free;
  end;  
 except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.FormDestroy '+ e.Message);
      end;
 end;
end;

//çàêðûòèå çàêëàäêè ïî äâîéíîìó êëèêó èëè êîíòåêòñòíîå ìåíþ ïî ïðàâîé êíîïêå
procedure TShowMessages.PageControlMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    p2 :TPoint;
    User:TWndMessage;
begin
  if Button=mbRight then  //êîíòåêòñíîå ìåíþ
  begin
    p2:= PageControl.ClientOrigin;
    MenuCloseTab.Popup(X+p2.X, Y+p2.Y);
  end
  else  //äâîéíîé êëèê ëåâîé êíîïêîé - çàêðûòü çàêëàäêó
  begin
     if isDblLeft then  //âòîðîé êëèê, çàêðûòü àêòèâíóþ çàêëàäêó
     begin
        try
          TimerDblClick.Enabled := false;
          User := GetActiveUser;
          if User <> nil then CloseUser(User);
         except
              on e:  EIdException do
              begin
                Errlog('TShowMessages.N1Click  Çàêðûòèå àêòèâíîé çàêëàäêè. '+ e.Message);
              end;
        end;
        isDblLeft := false;
     end
     else //ïåðâûé êëèê ëåâîé êíîïêîé
     begin
      isDblLeft := true;
      TimerDblClick.Enabled := True;
     end;
  end;
end;

procedure TShowMessages.CloseUser(User:TWndMessage);
var
  index,ind,i, indBlink: integer;
  sheet :TTabSheet;
begin
 try
  index := OpenUserTabList.IndexOfObject(User);
  if (index >=0) then
  begin
       //óäàëèòü èç ñïèñêà çàêëàäîê
       ind := OpenSheetList.IndexOf(IntToStr(index));
       indBlink := BlinkList.IndexOf(IntToStr(ind));
       if indBlink >= 0 then BlinkList.Delete(indBlink);
       sheet := TTabSheet(OpenSheetList.Objects[ind]);
       OpenSheetList.Delete(ind);
       sheet.Free;

       //ñìåùàåì èíäåêñ â OpenSheetList è OpenUserTabList èç-çà óäàëåíèÿ èç  OpenUserTabList
       for i:=index + 1 to   OpenUserTabList.Count-1 do
       begin
         ind := OpenSheetList.IndexOf(IntToStr(i));
         if (ind>=0) then OpenSheetList.Strings[ind] := IntToStr(i-1);
       end;

       //óäàëèòü èç ñïèñêà ôðåéìîâ
       OpenUserTabList.Delete(index);

       //åñëè ïîñëåäíÿÿ çàêëàäêà, òî çàêðûòü îêíî
       if (OpenUserTabList.Count = 0) then close;
  end;
 except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.CloseUser '+ e.Message);
      end;
 end;
end;

procedure TShowMessages.CloseUserByJid(Jid:string);
var
  ind: integer;
  User:TWndMessage;
begin
 ind := OpenUserTabList.IndexOf(Jid);
 if (ind >= 0) then
 begin
    User := TWndMessage(OpenUserTabList.Objects[ind]);
    if (User <> nil) then CloseUser(User);
 end;
end;

//çàêðûòü àêòèâíóþ çàêëàäêó
procedure TShowMessages.N1Click(Sender: TObject);
var
  User:TWndMessage;
begin
 try
    User := GetActiveUser;
    if User <> nil then CloseUser(User);
 except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.N1Click  Çàêðûòèå àêòèâíîé çàêëàäêè. '+ e.Message);
      end;
 end;
end;

//çàêðûòü âñå, êðîìå àêòèâíîé
procedure TShowMessages.N2Click(Sender: TObject);
var
    i : integer;
    sheet, ActiveSheet :TTabSheet;
begin
 try
  ActiveSheet := PageControl.ActivePage;
  i := 0;
  while  OpenUserTabList.Count >1 do
  begin
    sheet := TTabSheet(OpenSheetList.Objects[i]);
    if sheet <> ActiveSheet then
    begin
       CloseUser(TWndMessage(OpenUserTabList.Objects[i]));
    end
    else i := i + 1;
  end;
 except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.N2Click  Çàêðûòü âñå çàêëàäêè, êðîìå àêòèâíîé. '+ e.Message);
      end;
 end;
end;

//çàêðûòü âñå çàêëàäêè
procedure TShowMessages.N3Click(Sender: TObject);
var
  User  : TWndMessage;
begin
 try
  while  OpenUserTabList.Count >0 do
  begin
    User := TWndMessage(OpenUserTabList.Objects[0]);
    CloseUser(User);
  end;
 except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.N3Click  Çàêðûòü âñå çàêëàäêè. '+ e.Message);
      end;
 end;
end;

procedure TShowMessages.PageControlChange(Sender: TObject);
var
  User : TWndMessage;
begin
  try
  User := GetActiveUser;
  if User <> nil then
  begin
     if User.GetOutput_message = '' then WB_LoadHTML(Output,'<html><HEAD><META http-equiv=Content-Type content="text/html; charset=unicode"></HEAD><BODY></BODY></HTML>')
     else WB_LoadHTML(Output,UTF8Encode(User.GetOutput_message));
  end
  else exit;

  Activv(Self);
  except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.PageControlChange Ñìåíà çàêëàäêè.'+ e.Message);
      end;
 end;
end;

procedure TShowMessages.SetBuffer(Name: string);
begin
  Label3.Caption := 'New buffer massage from '+Name+' has been received.';
  PanelBuffer.Visible := true;
end;

//îòìåíà çàìåíû áóôôåðà
procedure TShowMessages.Button4Click(Sender: TObject);
var
  Fil : TextFile;
begin
  AssignFile(Fil,ProgrammDirectory+'InputClipboard.wmf');
  Rewrite(Fil);
  Write(Fil, '');
  CloseFile(Fil);
  PanelBuffer.Visible := false;
end;

//çàìåíèòü áóôôåð
{procedure TShowMessages.Button3Click(Sender: TObject);
var
  Data:THandle;
  DataPtr:Pointer;
  FileName : string;
  Stream: TMemoryStream;
begin
  FileName := ProgrammDirectory+'InputClipboard.txt';
  Stream := TMemoryStream.Create;
  Stream.LoadFromFile(FileName);
  Stream.SaveToFile(ProgrammDirectory+'3333.txt');
   //Âûäåëÿåì ïàìÿòü ïîä äàííûå
  Data:=GlobalAlloc(GMEM_MOVEABLE, SizeOf(stream));
  try
    DataPtr:=GlobalLock(Data);
    Move(stream, DataPtr^, SizeOf(stream));
    //Çàïîëíÿåì áóôåð îáìåíà
    Clipboard.Open;
    Clipboard.SetAsHandle(CF_TEXT, Data);
    Clipboard.Close;
    GlobalUnlock(Data);
    Stream.Free;
  except
    GlobalFree(Data);
  end;
  Stream.Free;
end; }


procedure TShowMessages.Activv(Sender: TObject);
var
  ind, indBlink : integer;
  User          : TWndMessage;
begin
  try
     Timer1.Enabled := false; //ìåëüêàíèå îêíà
     if (PageControl.PageCount > 0) then
     begin
       ind := OpenSheetList.IndexOfObject(PageControl.ActivePage);
       if ind >= 0 then
       begin
          indBlink := BlinkList.IndexOf(IntToStr(ind));
          if indBlink >= 0 then BlinkList.Delete(indBlink);
          if BlinkList.Count = 0 then
          begin
           MsgTrayIcon.Active := false;
           TimerSheet.Enabled := false;
          end;
          ind :=StrToInt(OpenSheetList.Strings[ind]); //ýòî èíäåêñ ýëåìåíòà â OpenUserTabList
          if (ind >=0) then
          begin
           User := TWndMessage(OpenUserTabList.Objects[ind]);
           User.UpdateInputMessage;
           PageControl.ActivePage.ImageIndex := User.GetStatus;
          end
          else exit;
          if indBlink >= 0 then fMain.StopBlink(User.GetInterJid); //çàêîí÷èòü blink â ðîñòåðå
       end
       else exit;
     end;
  except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.FormActivate Ñìåíà çàêëàäêè.'+ e.Message);
      end;
 end;
end;


procedure TShowMessages.Timer1Timer(Sender: TObject);
begin
      FlashWindow(Handle, true);
      FlashWindow(Application.Handle, true);
end;

procedure TShowMessages.MsgTrayIconClick(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //Show;
  if Self.WindowState = wsMInimized  then
       ShowWindow (handle, SW_SHOWNORMAL);
  SetWindowPos(Handle, HWND_TOPMOST,  Left,  Top,  Width,  Height,  SWP_SHOWWINDOW);
  SetWindowPos(Handle, HWND_NOTOPMOST,  Left,  Top,  Width,  Height,  SWP_SHOWWINDOW);

   if BlinkList.Count > 0 then
     PageControl.ActivePage := TTabSheet(BlinkList.Objects[0]);
 show;
end;

procedure TShowMessages.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Timer1.Enabled := false;
 if BlinkList.Count = 0 then MsgTrayIcon.Active := false;
end;


procedure TShowMessages.TimerSheetTimer(Sender: TObject);
var
  i: integer;
  sheet : TTabSheet;
begin
  for i:= 0 to BlinkList.Count-1 do
  begin
    sheet := TTabSheet(BlinkList.Objects[i]);
    if sheet <> nil then
    begin
      if sheet.ImageIndex = STATUS_MESSAGE then sheet.ImageIndex := STATUS_VOID
      else sheet.ImageIndex := STATUS_MESSAGE;
    end;
  end;
end;   

procedure TShowMessages.SpeedButton1Click(Sender: TObject);
begin
   MenuCloseTab.Popup(PanelButtons.ClientOrigin.X+23,PanelButtons.ClientOrigin.y+32);
end;

procedure TShowMessages.Button1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   if Button=mbRight then
     MenuCloseTab.Popup(PanelButtons.ClientOrigin.X+38+X,PanelButtons.ClientOrigin.y+Y+8);
end;

procedure TShowMessages.Button1Click(Sender: TObject);
begin
 N1Click(Sender);
end;

procedure TShowMessages.Button2Click(Sender: TObject);
begin
 SendMsg;
end;

procedure TShowMessages.OutputDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
 CurrentWB: IWebBrowser;
begin
 Disp := pDisp;
 CurrentWB := Disp as IWebBrowser;
 editor := (CurrentWB.Document as IHTMLDocument2);
 editor.DesignMode := 'On';
end;

//óäàëÿåò ïåðâûå ïóñòûå ñòðîêè èç ñîîáùåíèÿ
procedure TShowMessages.DelFirstStrings( var msg: WideString);
var
  varstr,msg1: WideString;
  p: integer;
begin
  if msg <> '' then
  begin
   varstr := copy(msg,1,13);
   while varstr = '<P>&nbsp;</P>' do
   begin
      msg := copy(msg,14,Length(msg)-13);
       if msg <> '' then
       begin
        if (msg[1] = #13) and (msg[2] = #10)  then
           msg := copy(msg,3,Length(msg)-2);
        varstr := copy(msg,1,13);
       end
       else varstr := '';
   end;
  end;
end;

procedure TShowMessages.SendMsg;
var
  strName : string;
  User : TWndMessage;
  UserItem:TUserItem;
  Output_message : WideString;
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
try
 User := GetActiveUser;
 if User <> nil then
 begin
     Output_message := Editor.body.innerHTML;
     if Output_message <> '' then
     begin
       DelFirstStrings(Output_message);
       if Output_message <> '' then
       begin
         User.AddOunMessage(Output_message);
         Output_message := User.DelImgSmile(Output_message);
         User.DelTegs(Output_message);
         strName :=  User.GetInterJid;
         UserItem := GetInterByJid(User.GetInterJid);
         if UserItem <> nil then
         begin
           if (UserItem.resource <> '')
              then strName := strname + '/'+UserItem.resource;
         end
         else
         begin
            //âûçâàòü ìåòîä Ëåíû, ñêàçàòü ÷òî ñî ñïèñêîì ÷òî-òî íå òî
            CloseUser(User);
            exit;
         end;
         fMain.SendMessage(strName, Output_message);
         User.SetOutput_message('');
         WB_LoadHTML(Output,'<html><HEAD><META http-equiv=Content-Type content="text/html; charset=unicode"></HEAD><BODY></BODY></HTML>');
         Output.SetFocus;
      end;
     end;
  end;
 except
      on e:  EIdException do
      begin
        Errlog('TShowMessages.SendMsg '+ e.Message);
      end;
 end;
end;

procedure TShowMessages.PageControlChanging(Sender: TObject;
  var AllowChange: Boolean);
var
  ind  : integer;
  User : TWndMessage;
  msg: WideString;
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
  User := GetActiveUser;
  if User <> nil
  then User.SetOutput_message('<html><HEAD><META http-equiv=Content-Type content="text/html; charset=unicode"></HEAD><BODY>'+Editor.body.innerHTML+'</BODY></HTML>')
  else exit;
end;

procedure TShowMessages.ToolButton1Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('bold', false, emptyparam);
end;


procedure TShowMessages.ToolButton2Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('Italic', false, emptyparam);
end;


procedure TShowMessages.ToolButton3Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('Underline', false, emptyparam);
end;

procedure TShowMessages.ToolButton5Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('JustifyLeft', false, emptyparam);
end;


procedure TShowMessages.ToolButton6Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('JustifyRight', false, emptyparam);
end;


procedure TShowMessages.ToolButton7Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('JustifyCenter', false, emptyparam);
end;

procedure TShowMessages.ToolButton9Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  ColorDialog1.Execute;
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('ForeColor', false, ColorDialog1.Color);
  Activv(self);
end;

procedure TShowMessages.ToolButton11Click(Sender: TObject);
var
  html: string;
  Range: IHTMLTxtRange;
begin
  ShowSmile.Left := ToolButton1.ClientOrigin.X+200;
  ShowSmile.Top  := ToolButton1.ClientOrigin.Y+20;
 html := ShowSmile.ShowBrowser(ListSmiles,ProgrammDirectory);
 if html <> '' then
 begin
   Range:=(editor.selection.createRange as IHTMLTxtRange);
   Range.pasteHTML(html);
 end;
 Activv(self);

end;

procedure TShowMessages.ToolButton13Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
 FormAddTable.ShowModal;
 if FormAddTable.TableTag<>'' then
 begin
   Range:=(editor.selection.createRange as IHTMLTxtRange);
   Range.pasteHTML(FormAddTable.TableTag);
 end;
 Activv(self);
end;


procedure TShowMessages.FontSizeChange(Sender: TObject);
var
  Range: IHTMLTxtRange;
  i,j: Integer;
begin
  i:=FontSize.ItemIndex;
  j:=StrToInt(FontSize.Items[i])-10;
  Range := (editor.selection.createRange as IHTMLTxtRange);
  Range.execCommand('FontSize', false,j);
end;


procedure TShowMessages.ToolButton17Click(Sender: TObject);
var
  ind: integer;
  InterJID : string;
  User : TWndMessage;
begin
  begin
     User := GetActiveUser;
     if User <> nil then
     begin
        HistoryNew.InitHistory(MyFullJid,User.GetInterJid);
        HistoryNew.Show;
     end;
  end;
end;

procedure TShowMessages.TimerDblClickTimer(Sender: TObject);
begin
 if isDblLeft then isDblLeft := false;
end;

procedure TShowMessages.Button5Click(Sender: TObject);
var
  f: textFile;
  m, s: string;
begin
  assignfile(f,ProgrammDirectory + 'cc.htm');
  reset(f);
  while not(eof(f))do
  begin
   readln(f,s);
   m := m + s
  end;
  CloseFile(f);
  WB_LoadHTML(Output,m);
end;

procedure TShowMessages.N3DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
 fMain.MenuDrawItem(Sender, ACanvas,  ARect, Selected);
end;

procedure TShowMessages.N3MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  Width := 120;
end;

end.