Como Cambiar el Tamaño de un Formulario sin Borde

[Jean Pierre Adonis De La Cruz Garcia]

Es posible cambiar de Tamaño a un formulario sin Borde, es decir, que el formulario este la Propiedad en  BorderStyle=0

Existirá alguna forma de cambiar el tamaño, haciendo uso de librerias o algo asi.

He buscado por muchos lados y no encuentro nada al respecto,quizas alguien sepa como hacerlo, o sino a seguir intentando nomas, con lo que tengo. agradezco el apoyo desinteresado de muchos.

[ZeRoberto]

Height y Width

[Jean Pierre Adonis De La Cruz Garcia]

jejeje, claro que se que es Viernes, pero lo que iba es decir, crear un objeto que permita cambiar el tamaño del formulario, es decir redimensionar, sin usar los border, a eso es lo que realmente iba.

Claro solo si es que se puede, sino ni modo.

[ZeRoberto]

Hay varios ejemplos, busca en PortalFox, Creo que hice uno parecido

Saludos

[Jean Pierre Adonis De La Cruz Garcia]

Ya he buscado, pero no encuentro nada al respecto, y portalfox ya no esta disponible como se sabe hace mucho tiempo.

[ZeRoberto]

http://comunidadvfp.blogspot.com/search/?q=redimensionar+form

[Jean Pierre Adonis De La Cruz Garcia]

Ok, se puede tomar una idea de ahi, pero es a un objeto interno de un formrmulario, ya lo he intentado con algo similar, pero no me permite cambiar el tamaño del formulario sin borde, que a mi parecer es algo distinto.

Bueno de todos modos muchas gracias, seguire intentando algunas otras formas, o tomar algo de la ideas de otros proyectos.

[Fidel Charny]

Uso poco esos formularios. Tengo una clase de la cual de paso el código del objeto que permite el movimiento.
En este caso el movimiento es solo vertical, pero es solamente porque no he necesitado (hasta ahora) que se estire o acorte horizontalmente.
El código es Foxbin2prg parte correspondiente a la vcx. Como verás, la cosa pasa por PROCEDURE ImMove.MouseMove



DEFINE CLASS cntmove AS container
     *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

    *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
    *< OBJECTDATA: ObjPath="ImMove" UniqueID="" Timestamp="" />
    *< OBJECTDATA: ObjPath="ImStop" UniqueID="" Timestamp="" />

    BackStyle = 0
    BorderWidth = 0
    Height = 17
    Name = "cntmove"
    Width = 14

    ADD OBJECT 'ImMove' AS image WITH ;
        Height = 16, ;
        Left = 1, ;
        MousePointer = 15, ;
        Name = "ImMove", ;
        Picture = ..\graphics\fle1132dnupb.bmp, ;
        ToolTipText = "Estirar o Acortar", ;
        Top = 1, ;
        Visible = .F., ;
        Width = 13
        *< END OBJECT: BaseClass="image" />

    ADD OBJECT 'ImStop' AS image WITH ;
        Height = 16, ;
        Left = 1, ;
        MousePointer = 15, ;
        Name = "ImStop", ;
        Picture = ..\graphics\fle1132dnupbn.bmp, ;
        Top = 1, ;
        Width = 13
        *< END OBJECT: BaseClass="image" />
   
    PROCEDURE MouseMove
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        WITH this
            .ImMove.Visible=.t.
            .ImStop.Visible=.f.
        ENDWITH
    ENDPROC

    PROCEDURE ImMove.MouseLeave
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        this.Visible=.f.
        this.Parent.ImStop.Visible=.t.
    ENDPROC

    PROCEDURE ImMove.MouseMove
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        IF nButton=1
            thisform.Height=nYCoord
        ENDIF
       
    ENDPROC

    PROCEDURE ImStop.MouseMove
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        this.Visible=.f.
        this.Parent.Immove.Visible=.t.
       
    ENDPROC

ENDDEFINE

[Jean Pierre Adonis De La Cruz Garcia]

perfecto voy a analizarlo un poco a ver que me resulta, Agradezcoa los que han aportado sus ideas, a ver que me resulta.

[Víctor Hugo Espínola Domínguez]

Mira este artículo, puede que algo te sirva: https://www.universalthread.com/ViewPageArticle.aspx?ID=921

[Jean Pierre Adonis De La Cruz Garcia]

Gracias amigos por sus aportes, ayer en la noche me puse a reventarme un poco el cerebro, pero lo logre, ya en la nueva version del Proyecto camaleon, se puede apreciar que pueden cambiar el Tamaño del Formulario sin Borde.

la verdad que era tan sencillo, y me hacia un mundo buscando otros procesos. solo era logica de programador como se dice.

[integral]

Estimado Amigo FIDEL :

Buscando información sobre redimensionar los formularios, encontré un comentario con un breve ejemplo que utiliza una clase suya sobre el tema y tengo un formulario que deseo aplicar dicho efecto...

Me podría ayudar con el tema..

Saludos,

INTEGRAL

PD : EN MI CASO COMO SERIA PARA APLICARLO  EN EL EVENTO CLICK DEL BOTON