FiveTech Software tech support forums

... By default the text is aligned to Top-Left of the rectangle. 2) PrintImage( nRow, nCol, uImage, nWidth, nHeight, lStretch, nAlpha, lTransp, lGray ) Alternative method to SayImage. Accepts any image file, resource, memory buffer, bitmap handle, TBitmap or TImage or TXImage Object and does ...

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, me ocorre uma syntax error at '@":

@ 09,20 GRAY BOX oOBMES[2] SIZE 150,62 of oWndc PIXEL COLORS CLR_BLUE,CLR_LGRAY,CLR_BLUE ROUNDED label "Número da Mesa:"

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 "...

Manuel Basta con que agregues un campo adicional ( normalmente uso un numerico de 1 digito ) y al momento de estar "llenando" la base a mostrar vas alternando el valor de ese campo ( normalmente uso 0-1 ) y solo cambias el codigo por esto : oLbx:nClrPane:={|| IIF(CLIENTES->TuCampo ==1,CLR_WHITE,...

Manuel Basta con que agregues un campo adicional ( normalmente uso un numerico de 1 digito ) y al momento de estar "llenando" la base a mostrar vas alternando el valor de ese campo ( normalmente uso 0-1 ) y solo cambias el codigo por esto : oLbx:nClrPane:={|| IIF(CLIENTES->TuCampo ==1,CLR_WHITE,C...

Después de varias horas con este asunto no doy con la tecla. En un listbox cambio el color de fondo alternando entre un registro y otro de la forma siguiente: oLbx:nClrPane:={|| IIF(CLIENTES->(OrdKeyNo())%2==0,CLR_WHITE,CLR_LGRAY)} Pero lo que quiero hacer es que en un listbox ordenado por un cam...

Rene: Mirate el funcionamiento de estas variables / codigos de bloque: oBrf:bTextColor:={|nRow,nCol| IF(nCol=1,CLR_HRED,)} oBrw:nClrPane:={|| Detcol()} oBrw3:bBkColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. (nCol==5.OR.ncol==7), ; CLR_YELLOW, ) } STATIC Function Detcol() Local cColor ///DO CASE //...