FiveTech Support Forums

Pues eso... ¿es posible dibujar cajas directamente desde codigo para un formulario? --- sin el Workshop!!!

Saludos

Armando

Armando Picon wrote:Pues eso... ¿es posible dibujar cajas directamente desde codigo para un formulario? --- sin el Workshop!!!

Saludos

Armando

DEFINE DIALOG oDlg TITLE "Benvingut a AMPA32" FROM 125,172 TO 307,584 PIXEL ;
    FONT TFont():New('Arial',0,-11,.F.,.F.,0,0,400,.F.,.F.,.F.,0,3,2,1,nil)

@  5,30 SAY "Data Hora .EXE............" OF oDlg FONT oFontArial10 PIXEL SIZE 250.00, ;
    10.00 UPDATE

@  5,70 SAY DToC( dDateEXE() ) + "  " + cTimeExe() OF oDlg FONT TFont():New('Arial',0,-11,.F., .F.,0,;
     0,400,.F.,.F.,.F.,0,3,2,1,nil) PIXEL SIZE 250.00,10.00 UPDATE

....

Pues no... este código solamente pone un marco alrededor del texto o de la variable. Lo que necesito es poder dibujar una caja que actúe como delimitador de una zona o de zonas en el formulario... sin utilizar el Workshop (en el cual es sencillo).

Armando Picon wrote:Pues no... este código solamente pone un marco alrededor del texto o de la variable. Lo que necesito es poder dibujar una caja que actúe como delimitador de una zona o de zonas en el formulario... sin utilizar el Workshop (en el cual es sencillo).

@ 396,533 GROUP oGrBt TO 481,792 OF oAlumne01 COLOR J02CLRTEXTO,J02CLRWND PIXEL ;
    FONT J02FONTSAY

DATA   bInit, bMoved, bLClicked, bLButtonUp, bKeyDown, bPainted

METHOD Box( nTop, nLeft, nBottom, nRight ) CLASS TWindow
   ::GetDC()
   WndBox( ::hDC, nTop, nLeft, nBottom, nRight )
   ::ReleaseDC()
return nil

Tal parece que voy a optar por el GROUP. El otro trozo de código obligaría a extender la clase tWindow cuyos resultados por ahora me son impredecibles pues no los he practicado. Gracias por los tips FiveWIDI
Armando