FiveTech Software tech support forums

... q no pasaba antes DEFINE WINDOW oWnd FROM 0,0 TO nHeith,nWith PIXEL MDICHILD OF oWind ; TITLE "Mantenimiento de Valorizaciones" ICON oIco NOZOOM NOICONIZE @ 10,10 XBROWSE oBrw OF oWnd ; DATASOURCE oQry ; COLUMNS aCols ; LINES CELL AUTOSORT SIZE -10,-10 PIXEL FONT oFont WITH OBJECT ...

... ENDIF PRINTER oPrn to "CFDPRINTER" DEFINE WINDOW oWnd FROM 1, 1 TO 10, 30 ; TITLE "Finder 1.0" ; COLOR "B/W" ICON oIco NOMAXIMIZE DEFINE TIMER oTmr INTERVAL 2000 ACTION CheckSls(oLbx,oPrn) OF oWnd ACTIVATE TIMER oTmr DEFINE MESSAGE OF oWnd PROMPT "" NOINSET ...

... => StrFormat(<x>) #xtranslate <x>:__EnumIndex => hb_EnumIndex #ENDIF MEMVAR SEQUENC function Main() local obmp ,cBmp local oDlg, oIco local ofont local cCode:= space(440) // maximo de 440 caracteres por qrcode. // Master Mastintin: con 431 caracteres el formato es invalido, porque? ...

... => StrFormat(<x>) #xtranslate <x>:__EnumIndex => hb_EnumIndex #ENDIF MEMVAR SEQUENC function Main() local obmp ,cBmp local oDlg, oIco local ofont local cCode:= space(440) // maximo de 440 caracteres por qrcode. // Master Mastintin: con 431 caracteres el formato es invalido, porque? ...

... aplicar . Gracias DEFINE CURSOR oCursor HAND DEFINE BRUSH oBrush FILE op:bmp+"paper.bmp" DEFINE WINDOW oWind MDI TITLE op:ctitulo ; ICON oIco MENU omenu BRUSH oBrush BuildRibbonBar() @130, 10 GROUP TO 250, 150 OF oWind PIXEL @150, 40 SAY "VENTAS" FONT oFontSmall COLOR CLR_BLUE, ...

Este es el archivo MAIN.PRG que llama a la clase tpublic

#INCLUDE "fivewin.CH"

STATIC oBmp

FUNCTION main()
LOCAL oIco, oBar


SET DELETE OFF

PUBLIC oApp


oApp :=TPublic():New( .t. )

RETURN NIL


Contiua el error

Leandro, algo assim: function Main() local oDlg, oIco, cTest := "Hello world! " DEFINE ICON oIco FILE "..\icons\fivewin.ico" DEFINE DIALOG oDlg TITLE "I am a DialogBox" COLOR "W+/B" ; ICON oIco @ 1, 3 GET cTest ...

... porque defino mi window así: oWnd:=TMdiFrame():New(0,0,20,50,"Sistema de Gestión para Empresas ("+mVERSION+")",,BuildMenu1(),,oIco,CLR_WHITE,CLR_BLUE) Cuando lo quiero cambiar de la forma que indicas no me da la respuesta que necesito... Roberto

... [,<nClrBack> ] ] ; [ BRUSH <oBrush> ] ; [ <of: WINDOW, DIALOG, OF> <oWnd> ] ; [ <pixel: PIXEL> ] ; [ ICON <oIco> ] ; [ FONT <oFont> ] ; [ <help: HELP, HELPID> <nHelpId> ] ; [ <transparent: TRANSPARENT> ] ; [ GRADIENT <aGradColors> ...

... [,<nClrBack> ] ] ; [ BRUSH <oBrush> ] ; [ <of: WINDOW, DIALOG, OF> <oWnd> ] ; [ <pixel: PIXEL> ] ; [ ICON <oIco> ] ; [ FONT <oFont> ] ; [ <help: HELP, HELPID> <nHelpId> ] ; [ <transparent: TRANSPARENT> ] ; [ GRADIENT <aGradColors> ...

... // xBROWSE Function XBRW_DB(nDBF,aDB,nFUN,nDES,nSRC,nSTA,nFIL,nBUT,oUSR,nSCH,nICO,bSALDO,nTAG,bCOLOR,bPOP,oFONT,bGO,nUFLT,bUKEY) Local oWIN,oICO,oXDBF,oBAR,oPOPEXP Local oBRW,nUSR:=0 Local oINS,oMOD,oCAN,oVIS,oANT,oSTA,oSRC,oFLT,oEXP Local nUNO:=StrTran(IIF(AT("/",nDES)>0,Left(nDES,Len(nDES)-2),nDES) ...

... "+alltrim(EMPRESAS[2])+" (Usuario "+USUARIO[1]+" "+alltrim(USUARIO[2])+")"; MENU BUILDMENU(nLICENCIA) icon oIco MDI //COLOR "W+/RB" prueba y comenta, saludos... :shock:

... registro y la segunda pestaña se ve de forma normal. Alguna ayuda? Gracias. //--------------------- FUNCTION Sys280(oWPpal) LOCAL oWnd, oDlg, oIco, oLbx, oBrw, cNom, n, nx, oFon1, nNroReg, oBtn[6], oBrush, oBrush1, oFld1, oDlgActive DEFINE BRUSH oBrush COLOR RGB(238,238,238) DEFINE BRUSH oBrush1 ...

... "XBrowse.Ch" #include 'hbcompat.ch' #include "Report.ch" static cNom static oGet FUNCTION Sys650(oWPpal) LOCAL oWnd, oDlg, oIco, oLbx, oFont, nNroReg, oBtn[6], n USE MAEREP INDE MAEREP1,MAEREP2,MAEREP3 SHARED ALIAS MAEREP NEW DEFINE ICON oIco RESOURCE "MAEREP" ...

... a usar es variable…? DEFINE DIALOG oDlg FROM 000, 000 TO GetSysMetrics ( 1 ) - nXSize, GetSysMetrics ( 0 ) - nYSize PIXEL FONT oFont2 ICON oIco ; && Alto * Ancho TITLE "Test_Scroll_Galeria de Fotografias" ; STYLE nOr( WS_SYSMENU ,; && WS_CAPTION ,; && WS_MINIMIZEBOX ...