FiveTech Software tech support forums

... { "+CRLF cHtml2 +=" if (GBrowserIsCompatible()) { "+CRLF cHtml2 +=[ map = new GMap2(document.getElementById("map_canvas")); ]+CRLF cHtml2 +=" map.addControl(new GLargeMapControl()); "+CRLF cHtml2 +=" map.addControl(new GMapTypeControl()); "+CRLF cHtml2 +=" geocoder = new GClientGeocoder(); "+CRLF ...

... { "+CRLF cHtml2 +=" if (GBrowserIsCompatible()) { "+CRLF cHtml2 +=[ map = new GMap2(document.getElementById("map_canvas")); ]+CRLF cHtml2 +=" map.addControl(new GLargeMapControl()); "+CRLF cHtml2 +=" map.addControl(new GMapTypeControl()); "+CRLF cHtml2 +=" geocoder = new GClientGeocoder(); "+CRLF ...

... " { if (GBrowserIsCompatible()) "+CRLF cHtml += [ { var map = new GMap2(document.getElementById("map"),G_SATELLITE_TYPE); ] + CRLF cHtml += " map.addControl(new GLargeMapControl()); "+CRLF cHTML += " map.addControl(new GMapTypeControl()); "+CRLF cHTML += " map.addControl(new GOverviewMapControl()); ...

... := .f. #endif ::Register( nOr( CS_VREDRAW, CS_HREDRAW, CS_DBLCLKS ) ) if ! Empty( oWnd:hWnd ) ::Create() ::Default() ::lVisible = .t. oWnd:AddControl( Self ) else oWnd:DefControl( Self ) ::lVisible = .f. endif if lDesign ::CheckDots() endif return Self //----------------------------------------------------------------------------// ...

... nOR( CS_VREDRAW, CS_HREDRAW ) ) ::SetColor(nClrLetr, nClrFond ) // AÑADIDO * IF ! Empty( ::oWnd:hWnd ) ::Create("TFondo") ::lVisible = .T. ::oWnd:AddControl( Self ) ELSE ::lVisible = .F. ::oWnd:DefControl( Self ) ENDIF IF oCursor # NIL // tambien añadido[ ::oCursor := oCursor SetCursor( ::oCursor:hCursor ...

... ::FijaClrDomingo() ::FijaClrFestivo() ::nStyle := nOr(WS_CHILD, WS_VISIBLE, WS_TABSTOP) ::Register() If !Empty( oWnd:hWnd ) ::Create() oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif ::hWndFijo := ::hWnd Return Self Si te falta algo mas de código, te subo la clase entera. UN SALUDO.

... TBrush():New( "NULL" ) ) #else ::SetBrush( TBrush():New():_New( "NULL" ) ) #endif endIf if ! Empty( oWnd:hWnd ) ::Create( "BUTTON" ) oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif if oFont != nil ::SetFont( oFont ) endIf if lDesign ::CheckDots() endif return Self //----------------------------------------------------------------------------// ...

... WS_CHILD, WS_VISIBLE ) ::nStyle = nOr( WS_CHILD, WS_VISIBLE, WS_TABSTOP ) ::lDrag = .f. ::Register() if ! Empty( ::oWnd:hWnd ) ::Create() ::oWnd:AddControl( Self ) else ::oWnd:DefControl( Self ) endif return Self //----------------------------------------------------------------------------// ...