FiveTech Software tech support forums

... en la pestaña 1 se ve el mismo 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) ...

... #include 'ord.ch' #Include "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 ...

... trava todo o sistema Solução: mudei tudo para "@ X,Y say o prompt" assim funcionou 2o - Problema "@ 0,0 IMAGE oImagemOfFundo Of oWPpal SIZE 0,0 TRANSPARENT" funciona na 11.05, mais na 12.05 trava todo o sistema 3o - Como uso a SQLRDD na 11.05 muito rápida com a XBROWSE, ...

... USO HARBOUR Harbour 1.1.0 + CC5.5 + WORKSHOP CON RC2DLL32.BAT #Include "FiveWin.Ch" #include "Folder.ch" FUNCTION Sys111(oWPpal) Local oWnd, oDlg, oFld, oBrw, oBr1, oLbx, fntArial, fntAria1, vAlias, TEM, l3d:= .F., oCurDedo, oBtn, oBt1 Local aDatos:= {}, cPic:= "@ze ...

... "ARIAL" SIZE 0,-15 BOLD ITALIC     DEFINE DIALOG oDlg RESOURCE "Entradas"  BRUSH Publicas:oBrush1 TRANSPARENT Font Publicas:oWPpal:ofont      oDlg:cTitle:=cTitulo     REDEFINE GROUP oGroup ID 300 COLOR CLR_HBLUE, CLR_GRAY OF oDlg ;     FONT Publicas:oWPpal:oFont TRANSPARENT ...

DEFINE BUTTONBAR oBARppal _3D SIZE 50, 50 CURSOR OF oWppal

si es lo que quieres, puedes poner la barra de otro tamaño pero deberas poner los iconos mas pequeños.

... duda avisas... igual peudes bajar un manual basico desde UTILERIAS.... #include "FiveWin.ch" MEMVAR oBARPPAL, oREPORT, oDLGACCESO, oCOMBOBOX, oWPPAL, oWHIJAS, oCURMANO, rBMP, rDLL, lARCHIVOS,; lPRINT, nMENU, lAPPEND, lORIGEN, nRECNO, nTOP, cTitulo, dDesde, dHasta, nMEMO FUNCTION clasicli(lORIGEN) ...

Prueba así:

Publicas:oWppal:oClient := oLbx

Tienes que avisarle a la ventana contenedora que control es que toma el aera cliente:

Publicas:oWppal:SetControl(oLbx)

Y listo, esto debe de ir antes del ACTIVATE WINDOW

... explicar Tengo una aplicación que da accesos mediante clave de usuario a distintas opciones del programa. Las opciones del menu generadas mediante oWPpal:Setmenu(), me respeta éstas restricciones. Como se construye La BUTTONBAR antes de la entrada de claves de cada usuario, cuando pongo la clave ...

... boton derecho, me mostrase o bien el logo de la empresa, o bien un degradado. Hago lo siguiente y no me funciona ************************ Publicas:oWPpal:bRClicked:= {|hDC| cambialogo(hDC),.T. } static function cambialogo(hdc) local oBmp if Publicas:logowp=.F. DEFINE BITMAP oBmp RESOURCE "Logoacm" ...

... tQbusco[3] , { |LX| aadd(aIndi,strtran(LX,"&")) } ) DEFINE DIALOG oDlg RESOURCE "LOCALIZA2" BRUSH Publicas:oBrush1 TRANSPARENT Font Publicas:oWPpal:ofont REDEFINE SAY osay ID 10 OF oDlg COLOR CLR_GREEN REDEFINE BTNGET oBusco VAR cBusco ID 100 OF oDlg ; ON CHANGE ( nClave:=( cAlias )->(recno()),; ...

... STATIC FUNCTION HazMenu(musuario,nItems) LOCAL i, oMenu, j, oMenuItem, nivel, nivel1, ult MEMVAR oWPpal IF !abrirar("menues",1,"menu1") && Abrir menues con alias MENU1 RETURN oMenu ELSE SET INDEX TO menues ENDIF menu1->(DBSEEK(musuario)) ...

... REDEFINE BtnBMP RESOURCE "PBMPDEL1","PBMPDEL2","PBMPDEL3" ID 174 OF oDlg1 MESSAGE "Eliminar" ACTION (iif(!Propie->(eof()),(borraem(Publicas:oWPpal),oLbx:UpStable(),oLbx:Refresh()),.T.)); WHEN Publicas:cAccesoA; TOOLTIP "Eliminar" REDEFINE BtnBMP RESOURCE "PBMPEND1","PBMPEND2","PBMPEND3" ...

... oWndChild:nWidth := oDlg:nWidth+7 oWndChild:nHeight := oDlg:nHeight+32 ACTIVATE WINDOW oWndChild ON INIT oWPpal:paint() VALID ( oLbx:lCloseArea() ,.t.) avisos-> (dbCloseArea()) PROVE-> (dbCloseArea()) conduc-> (Dbclosearea()) Almacen->(Dbclosearea()) ...