Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 27-02-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Poder: 22
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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:03:48.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi