FiveTech Software tech support forums

I have the xbrowse with oApp():oGrid:bClrStd := { || { CLR_BLACK, If( oApp():oGrid:KeyNo % 2 == 0, RGB(160,225,255), CLR_WHITE ) } } this is the pijama effect I need to colorize all columns but in different groups I have these groups ...

Perdón por no seguir el hilo en el otro mensaje, pensé en hacer otro    SetPrintDefault( AllTrim( oApp:impremito ) )   PRINT oPrn NAME "REMITO" ///PREVIEW   oPrn:SetPage(10)   oPrn:SetCopies(4)   PAGE   oPrn:Cmsay(   2.1, 13.4, ( ...

cDirImages := "bitmaps\simboli" WITH OBJECT oApp:oGrid WITH OBJECT oApp():oGrid:aCols[6] :bStrImage := { || FIELD->E1 } :aImgRect := { nil, nil, -40, nil } END but FIELD->E1 is a number and I have n that folder images name as 1.png,2.png.... ...

... recursos hago lo siguiente:   DEFINE DIALOG oDlg RESOURCE "USEDIT" OF oParent;      TITLE aTitle[ nMode ]   oDlg:SetFont( oApp():oFont ) ¿ Debería hacer un oDlg:oFont:End() antes de hacer el SetFont() ? Olvidé decir que en mis aplicaciones solo utilizo una fuente ...

... recursos hago lo siguiente:   DEFINE DIALOG oDlg RESOURCE "USEDIT" OF oParent;      TITLE aTitle[ nMode ]   oDlg:SetFont( oApp():oFont ) ¿ Debería hacer un oDlg:oFont:End() antes de hacer el SetFont() ? Olvidé decir que en mis aplicaciones solo utilizo una fuente ...

... FILE ( RutaPdf() + "\Informe" + Alltrim(Str(NumNumero)) + ".PDF")oPrn:cModel := ALLTRIM(oApp:imp_predet)oPrn:SetPortrait()oPrn:SetPage(9).... El resto del codigo de impresión     Donde oApp:imp_predet es el ...

...  MsgInfo("Hello!" )}  )   define window oWnd   activate window oWndReturn nil Maybe you are doing your SET KEY before oApp is defined? The other issue might be function keys with dual options. On my laptop you have to press the [fn][F2] to get the assignment above because ...

I have
SetKey( VK_F8, {||oApp():HidePanelLeft(oApp():oSplit)} )

and not run on win 10 why ?
on w7 run ok

do you Know alternative ?

... sample CLASS TUtenti from TDataBase METHOD New() METHOD ToArray() ENDCLASS METHOD New( lShared ) CLASS TUtenti Default lShared := .t. ::super:New(,oApp():cExePath + "Utenti" ,, lShared) if ::use() ::setOrder(1) ::gotop() endif RETURN Self METHOD ToArray(aTmp) CLASS TUtenti if ::use() ...

Dear Silvio,

Class TMsgItem does not inherit from Class TControl

You have to use ... OF oApp:oWndMain:oMsgBar

Maybe you could change the bitmap of the MsgItem with a timer, simulating a progress bar

... PROMPT ""; SIZE 400; BITMAPS "MSG_EOEO", "MSG_EOEO"; TOOLTIP " " and I wish show a Meter @ 02, 11 PROGRESS oApp:oProgressDlg POSITION 1 of oApp:oMsgItem4; SIZE 200,18 pixel make error Error description: Error BASE/1004 Message not found: TMSGITEM:HWND Args: ...

I wish set a dialog at x,y but I not found the position of the msgitem og Msgbar oApp:oMsgItem1:bAction := { |oBtn| ::ConteggioTotali(oApp:oWndMain:oMsgBar) } Function ConteggioTotali(obtn) Local aPoint := AdjustWnd( oBtn, -27*2, 15*2 ) DEFINE DIALOG oDlgConteggio ...

... )   PRINT oPrn PREVIEW FILE cPdf   PAGE   @ 1,1 PRINT TO oPrn IMAGE cJpg   ENDPAGE   ENDPRINTreturn nil  Nages, Now I made a test WndToPdf( oApp():oSpiaggia, "test.pdf" ) and I have a pdf with the image is blurred that is not clear https://i.postimg.cc/NMdTqQ1n/fffffffffffffffffffffffff.png ...

... Intente su código de esta forma al activar el dialogo que contiene un xBrowse: ACTIVATE DIALOG oDlgED CENTER RESIZE16 ON INIT ( oDlgED:SetIcon(oApp:cIcono), ; oBrw:aCols[25]:oBtnElip:cToolTip:="Alineación de ambos equipos", ; oBrw:aCols[26]:oBtnElip:cToolTip:="Datos sobre penales ...

Aida, eso son funciones mías que puedes quitar del código sin problemas. oApp() es una función que devuelve la clase de la aplicación, es una manera de tener una clase global. La otra función edita un registro de la tabla Li. Saludos, Sip gracias :D ya me di ...