Hola de nuevo.
Pues ya lo solucioné....le tuve que dar la vuelta de esta manera, coloque un TImage con su propiedad "visible" a False para que no se mostrara en el formulario, y en tiempo de ejecución cargue las imagenes desde la ruta registrada en la tabla PRODUCTO, aqui el código:
Código Delphi
[-]
if not(qryCategorias.IsEmpty) then
begin
While not qryCategorias.Eof do
begin
BtnsCategorias[n]:=TBitBtn.Create(Self);
with BtnsCategorias[n] do
begin
Caption:=copy( UPPERCASE( qryCategorias.fieldbyname('DESCRIPCION').AsString ),1,9)+#13+
copy( UPPERCASE( qryCategorias.fieldbyname('DESCRIPCION').AsString ),10,20);
Parent:=ScrollBox1;
Height:=100;
Top:=PosY;
Left:=nLeft;
nLeft:=nLeft+100;
Width:=100;
OnClick:=OnButtonClick1;
Font.Size:=10;
Tag:=qryCategorias.FieldByName('CATEGORIA_ID').AsInteger;
Font.Style:=[fsBold];
Layout:=blGlyphTop;
if not(qryCategorias.FieldByName('RUTA_ICONO').IsNull) or
(qryCategorias.FieldByName('RUTA_ICONO').AsString<>'') then
begin
Image1.Picture:=nil;
Image1.Picture.LoadFromFile(qryCategorias.FieldByName('RUTA_ICONO').AsString);
Glyph:=Image1.Picture.Bitmap;
end;
end;
qryCategorias.Next;
inc(n);
end;
end;
end;
No es lo mas elegante y profesional, pero me soluciona el problema, me muestra tanto iconos con formato BMP, PNG...no sé si JPG también -tema para investigar- pero cuando menos los que necesito si los muestra y sin problema.
Saludos a todos y gracias por su colaboración.
p.d. Casimiro, aún asi comentame por fa, como se deben instalar los PNGComponents.