Ver Mensaje Individual
  #8  
Antiguo 27-02-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 20
FGarcia Va por buen camino
Ok jachguate ya resolvi lo de la imagen, efectivamente yo lo tenia a 2, lo coloque en 1 y ya se ve la imagen pero aun no consigo que esta cambie de acuerdo a la seleccion hecha. de hecho estoy haciendo esto:

Código Delphi [-]
{CUANDO SE HACE CLICK EN ALGUN ELEMENTO DE LA LISTA }
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  //HABILITAMOS EL BOTON DE COMANDOS
  bbtnComando.Enabled := True;
  //LE PONEMOS EL TITULO DE LA SELECCION
  case ListBox1.ItemIndex  of
    0:  begin
          imagelist1.GetBitmap(4, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
    1:  begin
          imagelist1.GetBitmap(2, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
    2:  begin
          imagelist1.GetBitmap(10, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
    3:  begin
          imagelist1.GetBitmap(4, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
    4:  begin
          imagelist1.GetBitmap(2, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
    5:  begin
          imagelist1.GetBitmap(10, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
    6:  begin
          imagelist1.GetBitmap(0, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
    7:  begin
          imagelist1.GetBitmap(6, bbtnComando.glyph);
          bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
        end;
  end;
end;

segun lei la declaracion de ImageList.GetBitmap es:

Código Delphi [-]
ImageList.GetBitmap(Index:integer;Image:bitmaP);

en este caso entiendo que index se refiere al indice de la imagen en el imagelist.

Nuevamente gracias
Responder Con Cita