Item de listbox seleccion con scroll

aguml · #1 18-12-2017

Amigo estoy intentando crear un componente con el ultimo codigo ya que creo que lo voy a usar mucho de aqui en adelante pero me encuentro con problemas. Tengo esto:

Código PHP:


			
//---------------------------------------------------------------------------

#ifndef ListBoxAutoSelectH
#define ListBoxAutoSelectH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TListBoxAutoSelect : public TListBox
{
private:
    int _index;
    TWndMethod _oldWndProc;
    TNotifyEvent _vScroll;
protected:
    virtual void __fastcall WndProc(TMessage &msg) {
        if (msg.Msg == WM_VSCROLL && _vScroll) {
            _index = GetScrollPos(this->Handle, SB_VERT);
            _vScroll(this);
        }
        TListBox::WndProc(msg);
    }
public:
    __property TNotifyEvent OnVerticalScroll = {read = _vScroll, write = _vScroll};
    __property int CurrentIndex = {read = _index};
    __fastcall TListBoxAutoSelect(TComponent* Owner);
    __fastcall ~TListBoxAutoSelect();

__published:
};
//---------------------------------------------------------------------------
#endif

Código PHP:


			
//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "ListBoxAutoSelect.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TListBoxAutoSelect *)
{
    new TListBoxAutoSelect(NULL);
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::TListBoxAutoSelect(TComponent* Owner)
    : TListBox(Owner)
{
    _oldWndProc = this->WindowProc;
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::~TListBoxAutoSelect() {
    this->WindowProc = _oldWndProc;
}
//---------------------------------------------------------------------------

namespace Listboxautoselect
{
    void __fastcall PACKAGE Register()
    {
         TComponentClass classes[1] = {__classid(TListBoxAutoSelect)};
         RegisterComponents("Mis Componentes", classes, 0);
    }
}
//---------------------------------------------------------------------------

El componente se crea correctamente y todo pero al usarlo veo que no hace nada. Si miro tu último codigo veo esto:

Código PHP:


			
lb1->OnVerticalScroll = ListBoxVScroll;

Esa funcion no aparece por ningun sitio en tu codigo último por lo que pienso que puede ser por eso pero se me plantean algunas dudas mas:
1-¿Puedo asignar unas dimensiones por defecto al componente para que se cree de manera que solo muestre el item seleccionado?
2-¿Puedo asignar el estilo con el que se creará?
Pues esos tres problemillas son los que me encuentro por ahora.

aguml · #2 18-12-2017

Ahora mismo he conseguido crear el componente y que autoseleccione pero la parte de que por defecto ponerle ciertas propiedades y que se cree con ellas no lo consigo. Tengo esto que no surte ningun efecto en el tema de las propiedades:

Código PHP:


			
//---------------------------------------------------------------------------

#ifndef ListBoxAutoSelectH
#define ListBoxAutoSelectH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TListBoxAutoSelect : public TListBox
{
private:
    int _index;
    TWndMethod _oldWndProc;
    TNotifyEvent _vScroll;
protected:
    virtual void __fastcall WndProc(TMessage &msg);
public:
    __property TNotifyEvent OnVerticalScroll = {read = _vScroll, write = _vScroll};
    __property int CurrentIndex = {read = _index};
    __fastcall TListBoxAutoSelect(TComponent* Owner);
    __fastcall ~TListBoxAutoSelect();

__published:
};
//---------------------------------------------------------------------------
#endif

Código PHP:


			
//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "ListBoxAutoSelect.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TListBoxAutoSelect *)
{
    new TListBoxAutoSelect(NULL);
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::TListBoxAutoSelect(TComponent* Owner)
    : TListBox(Owner)
{
    this->Height = this->ItemHeight;
    this->Style = lbOwnerDrawFixed;
    _oldWndProc = this->WindowProc;
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::~TListBoxAutoSelect() {
    this->WindowProc = _oldWndProc;
}
//---------------------------------------------------------------------------

virtual void __fastcall TListBoxAutoSelect::WndProc(TMessage &msg) {
    if (msg.Msg == WM_VSCROLL) {
        _index = GetScrollPos(this->Handle, SB_VERT);
        this->Selected[_index] = true;
    }
    TListBox::WndProc(msg);
}
//---------------------------------------------------------------------------

namespace Listboxautoselect
{
    void __fastcall PACKAGE Register()
    {
         TComponentClass classes[1] = {__classid(TListBoxAutoSelect)};
         RegisterComponents("Mis Componentes", classes, 0);
    }
}
//---------------------------------------------------------------------------

La idea es que al añadir el componente al TForm ya aparezca con esas propiedades como yo las quiero. Por lo demas funciona perfecto.

aguml · #3 18-12-2017

Otro problema es que antes ejecutaba codigo al hacer clic en el item del listbox pero ahora se autoselecciona solo y la idea es que ejecute ese mismo codigo al autoseleccionarse pero he probado con esto:

Código PHP:


			
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ...
    ListBoxCatArmaChris1->OnVerticalScroll=vertScroll;
    ...
}

void __fastcall TForm1::vertScroll(TObject *Sender)
{
    RellenarCombo(ComboBoxArmaChris1,ListBoxCatArmaChris1->ItemIndex);
    ComboBoxArmaChris1->Hint = ComboBoxArmaChris1->Items->Strings[ComboBoxArmaChris1->ItemIndex];
}

Y ni siquiera entra en mi funcion del evento con lo que algo estaré haciendo mal.

aguml · #4 18-12-2017

Otro problema mas, al pulsar las teclas de flechas del teclado para cambiar de item tampoco puedo capturar ese evento con lo que no puedo ejecutar codigo para que haga lo mismo que quiero hacer cuando use el scroll.

ecfisa · #5 18-12-2017

Hola.

Cita:

Empezado por aguml

Código PHP:


			
lb1->OnVerticalScroll = ListBoxVScroll;

Esa funcion no aparece por ningun sitio en tu codigo último por lo que pienso que puede ser por eso pero se me

¡ Mil disculpas ! no copié la función que en el ejemplo le había asignado al evento OnVerticalScroll

, era esta:

Código PHP:


			
void __fastcall TForm1::ListBoxVScroll(TObject *Sender)
{
  TMyListBox *lb = static_cast<TMyListBox*>(Sender);
  lb->Selected[lb->CurrentIndex] = true;
}

Saludos

ecfisa · #6 18-12-2017

Hola de nuevo.

Me quedé pensando que si deseas que la selección del item se realize dentro de la misma clase, podes prescindir del evento _vScroll, por lo que podría quedar así:

Código PHP:


			
class TMyListBox : public TListBox
{
private:
  TWndMethod _oldWndProc;

protected:
  virtual void __fastcall WndProc(TMessage &msg);

public:
  __fastcall TMyListBox(TComponent *Owner);
  __fastcall ~TMyListBox();
};

//...

__fastcall TMyListBox::TMyListBox(TComponent *Owner) : TListBox(Owner)
{
    _oldWndProc = WindowProc;
}

void __fastcall TMyListBox:: WndProc(TMessage &msg)
{
  if( msg.Msg == WM_VSCROLL )
    Selected[GetScrollPos(Handle, SB_VERT)]= true; // seleccionar
  TListBox::WndProc(msg);
}

__fastcall TMyListBox::~TMyListBox()
{
  WindowProc = _oldWndProc;
}

Saludos

aguml · #7 18-12-2017

Bueno, esa parte ya la tenia solucionada viendo como se hacia en el codigo anterior que pusiste pero ahora estaba con el tema del evento OnChange el cual he solucionado asi:
ListBoxAutoSelect.h:

Código PHP:


			
//---------------------------------------------------------------------------

#ifndef ListBoxAutoSelectH
#define ListBoxAutoSelectH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TListBoxAutoSelect : public TListBox
{
private:
    int _index,_LastItemIndex;
    TWndMethod _oldWndProc;
    TNotifyEvent _vScroll;
    TNotifyEvent _OnChange;
protected:
    virtual void __fastcall WndProc(TMessage &msg) {
        if (msg.Msg == WM_VSCROLL) {
            _index = GetScrollPos(this->Handle, SB_VERT);
            Selected[_index] = true;
            
            if(_vScroll){
                _vScroll(this);
            }
            if(_LastItemIndex != ItemIndex){
                _LastItemIndex = ItemIndex;
                if(_OnChange){
                    _OnChange(this);
                }
            }
        }else if (msg.Msg == CN_COMMAND){
            if(reinterpret_cast<TWMCommand&>(msg).NotifyCode == LBN_SELCHANGE){
                if(_LastItemIndex != ItemIndex){
                    _LastItemIndex = ItemIndex;
                    if(_OnChange){
                        _OnChange(this);
                    }
                }
            }
        }
        TListBox::WndProc(msg);
    }
public:
    __property TNotifyEvent OnVerticalScroll = {read = _vScroll, write = _vScroll};
    __property TNotifyEvent OnChange = {read = _OnChange, write = _OnChange};
    __property int CurrentIndex = {read = _index};
    __fastcall TListBoxAutoSelect(TComponent* Owner);
    __fastcall ~TListBoxAutoSelect();

__published:
};
//---------------------------------------------------------------------------
#endif

ListBoxAutoSelect.cpp:

Código PHP:


			
//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "ListBoxAutoSelect.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TListBoxAutoSelect *)
{
    new TListBoxAutoSelect(NULL);
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::TListBoxAutoSelect(TComponent* Owner)
    : TListBox(Owner)
{
    _oldWndProc = this->WindowProc;
    _LastItemIndex=-1;
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::~TListBoxAutoSelect() {
    this->WindowProc = _oldWndProc;
}
//---------------------------------------------------------------------------

namespace Listboxautoselect
{
    void __fastcall PACKAGE Register()
    {
         TComponentClass classes[1] = {__classid(TListBoxAutoSelect)};
         RegisterComponents("Mis Componentes", classes, 0);
    }
}
//---------------------------------------------------------------------------

Tengo 18 ListBoxAutoSelect con lo que hago esto:

Código PHP:


			
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ...
    //Asigno mi funcion al evento OnVerticalScroll de los TListBoxAutoSelect
    TListBoxAutoSelect *LB;
    for(int i=1;i<10;i++){
        LB=(TListBoxAutoSelect*)GroupBoxInventarioChris->FindChildControl("ListBoxCatArmaChris" + IntToStr(i));
        LB->OnChange=OnChange;
    }
    for(int i=1;i<10;i++){
        LB=(TListBoxAutoSelect*)GroupBoxInventarioSheva->FindChildControl("ListBoxCatArmaSheva" + IntToStr(i));
        LB->OnChange=OnChange;
    }
    ...
}

//---------------------------------------------------------------------------

void __fastcall TForm1::OnChange(TObject *Sender)
{
    AnsiString nombre;
    TComboBox *CB;
    TListBoxAutoSelect *LB;
    TGroupBox *GB;
    LB=static_cast<TListBoxAutoSelect*>(Sender);
    //Como tengo 2 GroupBox (uno para cada personaje) y el contenido es igual para ambos excepto en los nombres...
    //Dependiendo del nombre del personaje uso un GroupBox o el otro
    if(LB->Name.SubString(15,5)=="Chris")
        GB=GroupBoxInventarioChris;
    else  if(LB->Name.SubString(15,5)=="Sheva")
        GB=GroupBoxInventarioSheva;

    //Obtengo el nombre del ComboBox y obtengo un puntero a el para poder usarlo
    nombre = "ComboBox" + LB->Name.SubString(11,LB->Name.Length());
    CB=(TComboBox*)GB->FindChildControl(nombre);

    //Relleno el ComboBox que corresponde al TListBox que cambia y asigno su Hint
    RellenarCombo(CB,LB->ItemIndex);
    CB->Hint = CB->Items->Strings[CB->ItemIndex];
}
//---------------------------------------------------------------------------

Funciona perfecto pero me gustaria que me ayudaran a corregir posibles fallos que pueda tener y yo no veo debido a mi poca experiencia.
Mil gracias amigos.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Seleccion de item en combobox da error list index out of bonds	jafera	OOP	18	09-05-2013 10:21:54
Pregunta Combobox, selección del item sin hacer click	NPIdea	OOP	2	15-01-2010 07:42:14
ListBox - Scroll	Kreyser	Varios	2	08-06-2005 13:27:24
Scroll en un listbox	kakesoft	OOP	0	06-04-2005 02:40:25
Selección automática item combobox	neon	OOP	0	24-02-2005 13:59:22