anchor.diff:    LeftPanel.Constraints.MaxWidth := USER_LIST_MAX_WIDTH;
   
     //TODO: Исправить глюки под Linux
  -  {$IFNDEF FPCUNIX}
  -  Spl := TSplitterEx.Create(Self);
  +  {$IFDEF DELPHI}
  +  Spl := TSplitter.Create(Self);
     Spl.Parent := Self;
  -  Spl.ControlResize := LeftPanel;
  -  Spl.OnSetWidth := SplitterSetWidth;
  +  Spl.Align := alLeft;
  +  Spl.ResizeStyle := TResizeStyle.rsUpdate;
     Spl.Left := 1;
  +  {$ELSE}
  +    {$IFNDEF FPCUNIX}
  +    Spl := TSplitterEx.Create(Self);
  +    Spl.Parent := Self;
  +    Spl.ControlResize := LeftPanel;
  +    Spl.OnSetWidth := SplitterSetWidth;
  +    Spl.Left := 1;
  +    {$ENDIF}
     {$ENDIF}
   
     FMessageControl := TMessageControl.Create(Self, FToxCore.MessageList, FSkin);
  
positive.code: procedure TForm1.InitGui;
  var
    LeftPanel: TPanel;
    Spl: TSplitterEx;
  begin
    FSkin := TSkinManager.Create(ExtractFilePath(ParamStr(0)) + 'skin.ini');
  
  
negative.code: procedure TForm1.ToxOnAction(Sender: TObject; FriendNumber: Integer;
    Action: DataString);
  begin
  
  end;
  
  procedure TForm1.ToxOnConnect(Sender: TObject);
  begin
    FUserStatus.State := sOnline;
  end;
  
  procedure TForm1.ToxOnConnecting(Sender: TObject; ServerCount: Integer);
  begin
    FUserStatus.State := sLoading;
  end;
  
  procedure TForm1.ToxConnectionStatus(Sender: TObject; FriendNumber: Integer;
    Status: Byte);
  begin
  
  end;
  
  procedure TForm1.ToxOnDisconnect(Sender: TObject);
  begin
    FUserStatus.State := sOffline;
  end;
  
  procedure TForm1.ToxFriendMessage(Sender: TObject; Friend: TFriendItem;
    MessageStr: DataString);
  begin
  
  end;
  
  procedure TForm1.ToxFriendRequest(Sender: TObject; ClientAddress: TFriendAddress;
    HelloMessage: DataString);
  begin
    FRequestConrtoller.InsertRequest(ClientAddress, HelloMessage);
  end;
  
  procedure TForm1.ToxNameChange(Sender: TObject; FriendNumber: Integer;
    NewName: DataString);
  begin
  
  end;
  
  procedure TForm1.ToxStatusMessage(Sender: TObject; FriendNumber: Integer;
    NewStatus: DataString);
  begin
  
  end;
  
  procedure TForm1.ToxUserStatus(Sender: TObject; FriendNumber: Integer;
    Kind: TToxUserStatus);
  begin
  
  end;
  
  procedure TForm1.ToxReadReceipt(Sender: TObject; FriendNumber, Receipt: Integer
    );
  begin
  
  end;
  
  {*  Событие на выбор пользователем состояния
  