* provide SelectOnEntry even if focus is coming to this control via mouse click if ( this.SelectOnEntry ) TextBox::GotFocus() nodefault this.SelStart = 0 do case case ( this.MaxLength > 0 ) this.SelLength = this.MaxLength case ( len( this.InputMask ) > 0 ) this.SelLength = len( this.InputMask ) endcase endif