Ver Mensaje Individual
  #1  
Antiguo 21-09-2004
nicolasdom nicolasdom is offline
Miembro
 
Registrado: ago 2004
Posts: 41
Reputación: 0
nicolasdom Va por buen camino
"Urgente!" ImageComboBox

Tengo un Hermosos ImageComboBox para el login de los usuarios que lo lleno con datos de un query hecho a la BD. Ustedes diran para que el ImageComboBox... Lo que queria hacer es que aparesca al lado de cada nombre de usuario una carita de usuario (en este caso para todos igual)... es decir: (les dibujo el combo)

ndomin |V|
imarco
.....

Hasta ahi de maravillas... El autocompletar me anda fantastico... el tema es que cuando elijo algo del combobox no me lo toma, es decir que siempre me queda el primero. si escribo imarco (me lo va autocompletando) y cuando le doy enter o click no me lo toma y queda ndomin.

les paso el codigo....


Código:
 
procedure TFormLogin.FormShow(Sender: TObject);
var
Items: TcxImageComboBoxItems;
Item: TcxImageComboBoxItem;
begin
FormBD.IBDatabase.Connected:=True;
FormBD.IBTransaction1.Active:=True;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT nombre_usuario FROM PERMISOS;');
IBQuery1.Open;
Items:= Usuario.Properties.Items;
Items.BeginUpdate;
try
	Items.Clear;
	while not IBQuery1.Eof do begin
	 Item:= Items.Add as TcxImageComboBoxItem;		 // Add a new item
	 Item.Description:= IBQuery1.Fields[0].AsString; // Set the item's description
	 Item.ImageIndex:= 0;							 // Set the item's image index
	 IBQuery1.Next;
	end;
	IBQuery1.Close;
finally
	Items.EndUpdate;
end;
Usuario.ItemIndex:=0;
end;
Si alguien esta dispuesto a gastar polvora en chimangos... que me ayude jeje...

MIL GRACIAS!!!

Última edición por nicolasdom fecha: 22-09-2004 a las 01:38:48.
Responder Con Cita