Xailer forum

Código: Seleccionar todo

1.- ¿ Existe alguna forma de cargar un BMP en un TPicture y salvarlo como JPG?
Antes lo hacía con freeimage.

Código: Seleccionar todo

2.- Si Xailer tiene los wrappers de freeimage en su lib, me gustaría poder usar algunas funciones, pero no se como las habéis llamado ni si se necesita enlazar algo.
Lo mismo no es así.

Código: Seleccionar todo

3.- Tengo el siguiente error, que antes no sucedía:
LLamo un TFomMenu ---> TFormFicha ----> TFomPrueba ( Este es el orden de llamadas)
Si en TFormPrueba pongo ::oParent:DATAdeTFormFicha, me da error diciendo que oParent es TFormMenu.
¿ Cómo accedo a DATA´s de Clases padres anteriores, que ha cambiado ?

Código: Seleccionar todo

5.- En el XVC, una vez "Confirmas" y pones un comentario, si me equivoco, ya no me deja modificar tal comentario, las etiquetas sí, las veces que quiera.
¿ O yo no encuentro como hacerlo y sí es posible?

Código: Seleccionar todo

6.- En el XVC ¿se pueden elegir los colores de las etiquetas?

Código: Seleccionar todo

7.- Antes me dejaba acceder a la propiedad lTransparent en los controles creados por mi que heredaran de la TControl. Ahora me dice que no, porque es PROTECTED.
¿ De que manera se puede modificar esa propiedad actualmente?

Código: Seleccionar todo

1.- ¿ Existe alguna forma de cargar un BMP en un TPicture y salvarlo como JPG?
Antes lo hacía con freeimage.

  ::oImage1:oPicture:Save( "test.jpg",1 )

Código: Seleccionar todo

3.- Tengo el siguiente error, que antes no sucedía:
LLamo un TFomMenu ---> TFormFicha ----> TFomPrueba ( Este es el orden de llamadas)
Si en TFormPrueba pongo ::oParent:DATAdeTFormFicha, me da error diciendo que oParent es TFormMenu.
¿ Cómo accedo a DATA´s de Clases padres anteriores, que ha cambiado ?

No consigo entenderle, lo siento. Mande un ejemplo por favor.

Código: Seleccionar todo

7.- Antes me dejaba acceder a la propiedad lTransparent en los controles creados por mi que heredaran de la TControl. Ahora me dice que no, porque es PROTECTED.
¿ De que manera se puede modificar esa propiedad actualmente?

Cuando se ha hecho así es precisamente porque el control no funciona correctamente en modo transparente. No obstante, diga de control se trata y de damos una respuesta más precisa. 

Código: Seleccionar todo

FUNCTION CreateForm( oParent, cCargo )

   LOCAL oForm

   WITH OBJECT oForm := TForm():New( oParent )
      oParent:cText := cCargo
      :Cargo := cCargo
      :nWidth := 400
      :nHeight := 200
      :Create()
      WITH OBJECT TButton():New( oForm )
         :cText := "click!"
         :OnClick :=  {|| CreateForm (oForm, cCargo + "*" ) }
         :Create()
      END WITH
      :ShowModal()
   END WITH

RETURN oForm

Código: Seleccionar todo

CLASS TXGrafica FROM TWinControl
   METHOD New( oParent ) CONSTRUCTOR
END CLASS

METHOD New( oParent ) CLASS TXGrafica

   ::Super:New( oParent )

   ::lTransparent := .T.

RETURN Self

Código: Seleccionar todo

4.- ¿Existe en esta nueva versión alguna forma de ponerle una "VARIABLE" al nClrPane (por ejemplo) de cualquier control en el IDE con mi color verde por ejemplo, y
cambiando su valor me cambie ese color en toda la aplicación ?
Me refiero a cualquier propiedad de los controles en el IDE en general, no a nClrPane en concreto.

Código: Seleccionar todo

CLASS TEdit FROM XEdit
  PROPERTY nClrPane INIT clBlue
END CLASS

Código: Seleccionar todo

CLASS TEdit FROM XEdit
  PROPERTY nClrPane INIT clBlue WRITE METHOD SetClrPane
  METHOD SetClrPane( Value )
END CLASS

METHOD SetClrPane( Value ) CLASS TEdit
  Value := ???????
RETURN ::Super( Value )

Código: Seleccionar todo

MEMVAR MiVariable // En algún sitio estará declarada como PUBLIC

CLASS TEdit FROM XEdit
  PROPERTY nClrPane INIT clBlue READE METHOD GetClrPane
  METHOD GetClrPane()
END CLASS

METHOD GetClrPane() CLASS TEdit

RETURN MiVariable