ComboBoxEx y ImageList

[ecfisa]

Hola Chichero.

Por favor abrí un nuevo tema para esta pregunta y cuando lo hagas utiliza las etiquetas [delphi] [/delphi] para encerrar el código Delphi que incluyas.
Te aconsejo también leer la guía de estilo .

Saludos y gracias por tu colaboración.

[cl2raul]

hola este componente lo estoy usando para cargar las nacionalidades en mi programa, pero antes lo hacia manual...
les explico utilizaba un TImageList donde se alojaba todas las banderas del mundo desde una carpeta y al itemsEx agregaba cada país según su bandera y todo ok...
pero migre muchas cosas a SQLite, para que sea menos pesado y me sirva para futuros proyectos...

mi pregunta es como asigno el nombre del pais y la bandera al TComboBoxEx.

[ecfisa]

Hola cl2raul.

Si las imágenes guardadas en tu base de datos son de tipo Windows bitmap podes hacer:

Código Delphi [-]
...

procedure ResizeBitmap(Bitmap: TBitmap; Width, Height: Integer; Background: TColor);
var
  R: TRect;
  B: TBitmap;
  X, Y: Integer;
begin
  if assigned(Bitmap) then
  begin
    B:= TBitmap.Create;
    try
      if Bitmap.Width > Bitmap.Height then
      begin
        R.Right:= Width;
        R.Bottom:= ((Width * Bitmap.Height) div Bitmap.Width);
        X:= 0;
        Y:= (Height div 2) - (R.Bottom div 2);
      end
      else
      begin
        R.Right:= ((Height * Bitmap.Width) div Bitmap.Height);
        R.Bottom:= Height;
        X:= (Width div 2) - (R.Right div 2);
        Y:= 0;
      end;
      R.Left:= 0;
      R.Top:= 0;
      B.PixelFormat:= Bitmap.PixelFormat;
      B.Width:= Width;
      B.Height:= Height;
      B.Canvas.Brush.Color:= Background;
      B.Canvas.FillRect(B.Canvas.ClipRect);
      B.Canvas.StretchDraw(R, Bitmap);
      Bitmap.Width:= Width;
      Bitmap.Height:= Height;
      Bitmap.Canvas.Brush.Color:= Background;
      Bitmap.Canvas.FillRect(Bitmap.Canvas.ClipRect);
      Bitmap.Canvas.Draw(X, Y, B);
    finally
      B.Free;
    end;
  end;
end;

// Agregar imágenes a ImageList e incorporarlas al ComboBoxEx
procedure TForm1.FormCreate(Sender: TObject);
const
   IMG_X = 64;
   IMG_Y = 32;
var
  BM: TBitmap;
  cc: Integer;
begin
  ImageList1.Width := IMG_X;
  ImageList1.Height:= IMG_Y;
  cc:= 0;
  while not DataSet.Eof do
  begin
    BM:= TBitmap.Create;
    try
      BM.Assign(DataSet.FieldByName('CAMPO_IMAGEN')); 
      ResizeBitmap(BM, IMG_X, IMG_Y, clBtnFace);
      ImageList1.Add(BM, nil);
    finally
      BM.Free;
    end;
    ComboBoxEx1.ItemsEx.AddItem(DataSet.FieldByName('CAMPO_STRING').AsString,cc,0,0,0,nil);
    DataSet.Next;
    Inc(cc);
  end;
  ComboBoxEx1.Images:= ImageList1;
  ComboBoxEx1.ItemIndex := 0;
end;

Si guardaste las imágenes en un tamaño adecuado para ser mostradas en el combo, podes prescindir de la función ResizeBitmap.

Saludos

[cl2raul]

cuando te refieres a Windows bitmap es *.bmp, yo las que tengo son *.ico y *.png de 16x10 pixeles, me pueden servir estas?

quiero q quede mas menos como estas
http://clubdelphi.com/foros/attachme...1&d=1391794262

[ecfisa]

Empezado por cl2raul

cuando te refieres a Windows bitmap es *.bmp, yo las que tengo son *.ico y *.png de 16x10 pixeles, me pueden servir estas?

quiero q quede mas menos como estas
http://clubdelphi.com/foros/attachme...1&d=1391794262

Hola cl2raul.

Entonces interpreté mal tu consulta, había entendido que ya estaban incorporadas en campos de una tabla de una bd SQLite...

Entonces, en este momento ¿ Donde residen esas imágenes *.ico y *.png ? ¿ Como archivos independientes ? De ser así, vas a encontrar la respuesta leyendo este hilo desde el principio.

Saludos

[cl2raul]

(Entonces interpreté mal tu consulta, había entendido que ya estaban incorporadas en campos de una tabla de una bd SQLite...)
-si ya estan esos campos uno con los nombres de los países y otro con las imagenes en png

(Entonces, en este momento ¿ Donde residen esas imágenes *.ico y *.png ?)
-como yo lo tenia era, una carpeta con las imagenes donde la almacenaba con el componente TImageList y con el componente TComboBoxEX almacenaba los países y les asignaba su bandera... a esto me referia como (¿ Como archivos independientes ?)

ya entiendes "ecfisa" a que me referia cuando preguntaba si era imprescindible que las imagenes fueran *.bmp

[ecfisa]

Hola cl2raul.

No, no es imprescindible que el formato sea bmp; eso sí, te ahorra conversiones y además componentes como el TDBImage sólo pueden visualizar ese formato.
De todos modos te convendría unificar el formato de las imágenes, es decir, todas .bmp, .jpg, .png, ... o el que decidas. Lo podes realizar con cualquier conversor de imágenes (busca por "image converter free").

Mis preguntas iban orientadas a conocer de que forma tenías las imágenes y como deseabas que quedaran finalmente. Por que se puede cargar el TImageList desde diferentes orígenes de datos como por ejemplo: Archivos de imágenes, archivos de recurso o desde una tabla y cada para cada caso se requiere código diferente.

Y esto último es lo que todavía no me ha quedado muy claro como deseas realizarlo.

Saludos