FiveTech Software tech support forums

... Panama,S.A.<br>"+; "Servicio Tecnico: 6613-4357" ACTIVATE WINDOW oWnd1 MAXIMIZED ON INIT MENU01() ON RESIZE IF(oWnd2#NIL,(oWnd2:nHeight:=oWnd1:nHeight, oWnd2:nWidth:=oWnd1:nRight),) RETURN //------------------------------------------------------------------------------------------------------------------------------------------------------ ...

... following ActiveX call on Win CE 4. What am I doing wrong? //-------------------------------------------------------------------- DEFINE WINDOW oWnd2 TITLE Ptitle + " - Transmit" oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX oActiveX:SetProp( ...

... NOT MDI. Usually, when calling a routine that creates a new window, it is not a problem. I simply create a new window with a different name, ie. oWnd2. In this case, however, you reference the object WndMain() which refers to the original window, oWnd. That creates errors. So I simply substituted ...

... function Socket1() local oBtn1, oBtn2, oBtn3, oBtn4 ,oBtn5 DEFINE WINDOW oWnd2 TITLE "Client socket" @ 1, 2 BUTTON oBtn1 PROMPT "Connect" ; ACTION Client( oBtn1, oBtn2, oBtn3, oBtn4, oWnd2 ) SIZE 80, 20 ...

... {|| oWnd1:maximize(), oWnd1:setfocus()}, "c:\fwh\bitmaps\16x16\additem.bmp" ) oPanel1:AddLink( "Patients", {|| oWnd2:maximize(), oWnd2:setFocus()}, "c:\fwh\bitmaps\16x16\copy.bmp" )

... FONT oFont SIZE 60, 15 PIXEL TRANSPARENT I tested : @50, 50 STSAY oSay PROMPT ; "Class: TSTSay" + CRLF + "Command: STSAY" OF oWnd2 ; SIZE 450, 150 PIXELS ; FONT oFont COLOR CLR_RED, CLR_HGRAY ; SHADED BLINK CLR_HRED, 500, 3000 it works perfect on the same Backround. http://www.pflegeplus.com/pictures/tsay1.jpg ...

Tim

1. Is not ACTIVATE WINDOW is ACTIVATE DIALOG

2. Delete ACTIVATE WINDOW oWnd2 from Function OnGetState

try with this changes

... una línea por encima del xbrowse voy escribiendo la cadena de búsqueda "cSeek" con: @ 44 , 70 SAY ::oBrw:oSeek PROMPT ::oBrw:cSeek of ::oWnd2 pixel size 150,15 color CLR_BLUE,CLR_WHITE La base de datos está indexada por varias columnas con: Tf:oBrw:aCols[1]:cSortOrder := "EASY" ...

... MsgInfo, Comentar que, cualquier función no es reconocida desde el ACTION de un objeto. @ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION (MsgInfo("Prueba"),oWnd2:End()) Esto es con xHarbour, alguién sabe si en Harbour hay funcionalidad completa? Saludos, Jairo

... Al parecer, no esta soportando los eventos de los objetos. #Include 'Fivewin.ch' FUNCTION Test() LOCAL sText := 'Implementando Scripts' LOCAL oWnd2, oGet1, oGet2, cGet1, cGet2 Alert(sText) //MsgInfo(sText) DEFINE WINDOW oWnd2 FROM 0,0 TO 12,35 TITLE 'Test' cGet1 := "Hola " cGet2 ...

... Bmp ) Return TImage():Define( , Bmp ) static function MenuRadio( cMsg, aOpc, cTit, nValue ) ************************************* local oRad, oWnd2, oBot1, aLista := Array( 3 ) local lValor := .f., n := 0 DEFAULT cMsg := 'Valores: ' DEFAULT aOpc := { 'Si', 'No', 'Ignorar' } DEFAULT cTit := ...

... en lugar de a la izquierda. Tengo la versión 8.06 de fwh. ¿Había algún bug en esa versión? Muchas gracias. Alvaro vv:oBrw := TXBrowse():New( vv:oWnd2 ) modifica:={ || nil } menuderecho:={ |nRow,nCol| menudcho(nRow, nCol,vv) } vv:oBrw:nMarqueeStyle := 5 vv:oBrw:nColDividerStyle := LINESTYLE_BLACK ...

... function have to be placed directly in the method ‘METHOD KeyDown()’! This doesn’t work:, ‘oBrw:bKeyDown := { | nKey | IIf( nKey == VK_ESCAPE, oWnd2:End(), My_Keys( oBrw, nKey ) ) }’! One more difference compared with bKeyChar

Hola, Tengo un programa que abre varias ventanas mdi local icon1 DEFINE ICON ICON1 name "cliente" define window oWnd2 title "Fichero de Clientes" MDICHILD ICON ICON1 of oWnd color 25,bcolor ... en otra función local icon1 DEFINE ICON ICON1 name "factura" ...

Al ejecutar este código: @ 30,420 get dd:odebrief var debrief text of oWnd2 pixel size 415,290 obtengo este error: ------------------------------------------------------------------------ Application Exception - C:\FWH\projects\QFsIFR\qfsifr.exe Terminated ...