TBarCode guardar imagen

[XeviCOMAS]

Ya pregunte hace un tiempo sobre guardar la imagen, pero el tema es "casi" lo mismo, pero no lo mismo...

Resulta que estoy trabajando con TBarCode, y necesito guardar la imagen del código de barras.

Código: Seleccionar todo

   WITH OBJECT oBarCod := TBarcode():Create( oForm )
   :nType := zbCODE128
   :cText := "1900123"
   oPicture := :GetPicture()
   oPicture:Save( "D:\MiCodigo.Bmp", 1 )
   END

Me guarda la imagen, pero SOLO DE 1 PIXEL de altura.
¿Como puedo guardar esa imagen, con un tamaño de más píxeles de altura.???
O con un formato que le pueda establecer el alto/ancho???

Me interesa NO VER ese código en pantalla, sinó que guardarlo sin mortrarlo.
Ya que mostrando esa imagen en un Bevel y luego salvando la imagen del Bevel si que consigo hacerlo... pero lo dicho, me interesa hacerlo sin mostrar en pantalla.

Gracias.

[jfgimenez]

Xevi,

prueba a usar CreateThumbnail() o TPicture:MakeThumbnail() para escalar la imagen al tamaño que necesites