Ver Mensaje Individual
  #12  
Antiguo 09-07-2021
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Reputación: 21
mRoman Va por buen camino
Solucionado

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;
{                if nLeft=808 then begin //200
                   nLeft:=8;
                   PosY:=PosY+Height+5
                end Else Begin}
                   nLeft:=nLeft+100;
//                end;
                Width:=100;
                OnClick:=OnButtonClick1;
                Font.Size:=10;
                Tag:=qryCategorias.FieldByName('CATEGORIA_ID').AsInteger;
                Font.Style:=[fsBold];
                Layout:=blGlyphTop;
               
               // AQUI LA SOLUCIÓN*****************************************************
                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.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita