Jump to content

newsanti

uniGUI Subscriber
  • Posts

    323
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by newsanti

  1. 17 minutes ago, newsanti said:

    function afterrender(sender, eOpts)
    {
        var me = sender;
        me.el.dom.addEventListener('scroll', function(event) {
        var element = event.target;
        if (element.scrollTop === 0) {
          ajaxRequest(me, 'scrolledToTop', []);
        } else
          {
            var H1 = Math.round(element.scrollHeight-element.scrollTop);
            var H2 = Math.round(element.clientHeight);
            var H3 = H1-H2;
            if (H3===0) {
               ajaxRequest(me, 'scrolledToBottom', 
                           {'scrollTop': element.scrollTop, 
                            'scrollHeight': element.scrollHeight,
                            'clientHeight': element.clientHeight,
                            'H1': H1,
                            'H2': H2,
                            'H-T': H1-H2
                            });
            }
          }
        })
    }

    work!

  2. function afterrender(sender, eOpts)
    {
        var me = sender;
        me.el.dom.addEventListener('scroll', function(event) {
        var element = event.target;
        if (element.scrollTop === 0) {
          ajaxRequest(me, 'scrolledToTop', []);
        } else
        if (element.scrollHeight-element.scrollTop===element.clientHeight) {
          ajaxRequest(me, 'scrolledToBottom', []); <== don't fire event
        }

        })
    }

  3. 1 hour ago, newsanti said:

    image.png.081e5d6e227ede547daeeae182a0de2d.png

    procedure TMainForm.UniButton1Click(Sender: TObject);
    begin
      var S:= UniEdit1.Text;
      UniLabel1.Caption:= S;
      UniStringGrid1.Cells[1,1]:= S;  //<--- not showing <reserved>
    end;
     

     

    EditTagAsString.zip 106.1 kB · 1 download

    procedure TMainForm.UniButton1Click(Sender: TObject);
    begin
      var S: string:= UniEdit1.Text;
      S:= S.Replace('<','&lt;');
      S:= S.Replace('>','&gt;');
      UniEdit2.Text:= S;
      UniLabel1.Caption:= S;
      UniStringGrid1.Cells[1,1]:= S;  
    end;
     

×
×
  • Create New...