ComboBoxEx y ImageList

[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