FiveTech Software tech support forums

Buenos dias!!!
Necesito colocar una imágen o varias (bmp, jpg, ... ) dentro del titulo de un dialogo.
Se Puede realizar?
Como?

Gracias

Hola Leandro Amigo: Te agradezco la respuesta pero no me aparece el BMP, se ve el botón pero sin imágen este es el código, tal vez me falta algo? WITH OBJECT :aCols[01]   :cOrder           := "A"   :nHeadStrAlign       := AL_LEFT   :AddResource( "BUS16" ...

Gracias estimado jbrita

Es lo mismo

La idea es insertar la imagen directamente desde el recurso.

yo lo hago asi

LOCAL cLogo:="c:\systema\bus\ima\logo.bmp"
oSheet:Shapes:AddPicture( cLogo, .F., .T., 0, 0, 130, 50 )

saludos

hi, ChatGPT will (most) not give you running CODE ... it give you Idea and a new Direction i have never try to put a Bitmap into a Excel Sheet but "Insert" seems me not the Way after ChatGPT give me a Answer i have search for "InsertPicture" and it does exist Graphic Object (Exce...

Jimmy

It doesn't work

hi i have ask ChatGPT how can i insert a Bitmap into Excel sheet via activex ? You can insert a Bitmap into an Excel sheet via ActiveX by using the InsertPicture method of the Range object. This method takes two parameters: the path to the Bitmap file and an optional parameter for the PictureType. F...

Gracias estimado Joao Lo he logrado así.     FW_SaveImage( "LOGO", ViaFiles+"logo.png" )    cLogo:=ViaFiles+"Logo.png"    oSheet:Range( "R1:R1" ):Select()    oSheet:Pictures:Insert(cLogo)&...

Holá, talvez:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=20005&p=105549&hilit=jpg+en+fichero+rc#p105549

Regards, saludos.

Estimados,

Se puede?

Code: Select all  Expand view

 oSheet:Pictures:Insert("RECURSO") //Sólo permite con imágenes en disco
 

... alguna forma de hacer que los titulos o Captions se muestren en Vertical, ya que al dibujar el botón en esa forma se muestra cortado como en la imágen https://i.postimg.cc/nrD6Drdd/Sin-t-tulo.jpg Para Botones horizontales estándar va perfecto, pero en vertical no gira los 90 ...

Gracias estimado João

Por ahora lo haré con IMGUR

Actualize tú versíon ó podrias guardar la imagen y llamar después:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39108&p=233390&hilit=setbmp&sid=ca454d6fcde12d2872a70e5f59c4c8ae&sid=ca454d6fcde12d2872a70e5f59c4c8ae#p233390

Regards, saludos.

Muchas Gracias Cristobal A mi no me muestra :cry: Tengo: FWH 18.04 Harbour 3.2 y BCC 7.40 // \SAMPLES\TESTIMG3.PRG - Usando: imgur.com#Include "FiveWin.ch"FUNCTION Main()   LOCAL oDlg, oImg, cNomImg   // cNomImg := "http://drive.google.com/uc?export=view&a...

Muchas Gracias Cristobal

A mi no me muestra

Tengo: FWH 18.04 Harbour 3.2 y BCC 7.40