FiveTech Software tech support forums

Marc, when I use: :lFastDraw := .T. without AUTOFIT(), it causes a SIDE EFFECT on XBROWSE() that does not look good commercially. Could you, just for the sake of testing uncomment ALL items that have to do with the looks ? like oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ...

Para construir aplicaciones que usen el API WinRT de Windows 8, necesitamos enlazar combase.lib. Windows 8 proporciona combase.dll, y podemos extraer combase.def de esta forma: impdef.exe combase.def combase.dll Para construir la lib: (si usamos Borland) implib.exe combase.lib combase.dll Si usamos...

Sr. Manuel, Na versão anterior da TS, ao editar um campo e dar um ENTER a mesma posicionava na proxima linha, com a versão nova (TS9.0)esta posicionando na proxima porem fica visivel apenas as duas primeiras linhas do browse, as outras linhas abaixo desaparecem, e se mover a seta para baixo, elas ap...

Sr. Manuel. Como eu poderia fazer um incremental search com o TSBROWSE ? * **browse * redefine browse obrw2 id 4005 of odlg color CLR_BLACK,CLR_LGREEN font ofonte_res alias "srdic" obRW2:nHeightCell := 28 obRW2:nHeightHead := 27 obRW2:nHeightSuper:= 27 obRW2:lMChange := .t. obRW2:lDrawHead...

Sr. Manuel, ao clicar duas vezes em cima do SUPER HEADER, e digitar um digito ex: 1, acontece o seguinte erro: Error description: Error BASE/1102 Argument error: UPPER Args: [ 1] = N 1 Stack Calls =========== Called from: => UPPER(0) Called from: TSBROWSE.PRG => LASEEK(10635) Called from: TSBR...

Sr. Manuel oDlg1, é uma segunda DIALOG que tenho, só não postei a parte dela para não ficar muito extenso o código fonte: #include "FiveWin.ch" #INCLUDE "wcolors.ch" #INCLUDE "Voget.ch" #INCLUDE "BTNGET.ch" #INCLUDE "Image.ch" #Include "SSay.ch" #include "TSButton.ch" #include "TSBrowse.ch" #define ...

DEFINE WINDOW oWndChild OF ownd MDICHILD TITLE "Touch Screen" icon oico color GetSysColor(COLOR_BTNFACE),GetSysColor(COLOR_BTNFACE) @ 8, 0 TABS oTabs PROMPTS " Vendas "," Outras Opções " OF oWndChild ; message "Escolha a opção"; ACTION ( aDlgs[ nDlg ]:Hide(), nDlg := nOption,; aDlgs[ nOption ]:Show(...

Sr. Manuel, como posso fazer para depois de INSERIR uma nova linha no TSBROWSE, posiciona-lo na primeira coluna? REDEFINE BROWSE oBrw CELLED ALIAS "SAIPRO" ID 46 OF oDlg obRW:nHeightHead := 28 obRW:nHeightCell := 23 obRW:nHeightFoot := 26 obRW:nColPos := 1 obRW:lMChange := .f. obRW:lDrawHeaders:= .t...

Leandro, No sé si esto es lo que necesitas: Ejemplo para trabajar con ADO + RecordSet + Browse: ====================================== En una aplicación cliente servidor, debemos tener UNA SOLA conexión a la Base de Datos (BD). En cambio, tendremos múltiples RecordSet. Por tanto es conveniente dispo...

DEFINE WINDOW oWndChild OF ownd MDICHILD TITLE "Touch" @ 8, 0 TABS oTabs PROMPTS " Alimentar Mesas "," Outras Opções " OF oWndChild ; ACTION ( aDlgs[ nDlg ]:Hide(), nDlg := nOption,; aDlgs[ nOption ]:Show(), aDlgs[ nOption ]:SetFocus() ) color CLR_BLACK oWndChild:oBottom = oTabs oWndChild:Resize() *...

Michel @ 0, 0 LISTBOX oBrow FIELDS ; oRs:Fields("CODE"):Value, ; oRs:Fields("DESC"):Value, ; oRs:Fields("progid"):Value ; SIZES 80,250,80 ; HEADERS "Code", ; "Description", ; "ProgID" ; of oGRP Rick, I am using that code (Thanks to RF) with Oracle DB successfully. But with table (dbf) i was using "...

Amigos, usando a TWBROWSE com ARRAY, quando eu DELETO, um elemento da ARRAY, e atualizo a LISTBOX, a SCROLLBAR FICA louca. O que devo fazer para a VERTICAL SCROLLBAR, entender a nova quantidade de elementos na array? EX: fdados :={{"","","","","","","","","",""}} fheader:= {"","","","","","","","","...

Amigos, usando a TWBROWSE com ARRAY, quando eu DELETO, um elemento da ARRAY, e atualizo a LISTBOX, a SCROLLBAR FICA louca. EX: fdados :={{"","","","","","","","","",""}} fheader:= {"","","","","","","","","",""} redefine listBox oBfsu Fields Of oDld id 101 SIZES 50,40,220,80,80,100,100,100,100,100 C...