FiveTech Software tech support forums

... 0, -15 , .f.,.f., 0*10,,,,,,,,,, ) DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ; TITLE cTitle FONT oFont oDlg:lTruePixel := .F. oDlg:lHelpIcon := .F. @ 30, 3 RICHEDIT5 oMemo VAR uTemp OF oDlg PIXEL SIZE 200, 200 oDlg:oClient = oMemo omemo:SetFont( oFont ) ACTIVATE DIALOG oDlg CENTERED ...

... "Ms Sans Serif" SIZE 0, -10 DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ; TITLE cTitle FONT oFont oDlg:lTruePixel := .F. oDlg:lHelpIcon := .F. @ 30, 3 RICHEDIT5 oMemo VAR uTemp OF oDlg PIXEL SIZE 200, 200 oDlg:oClient = oMemo ACTIVATE DIALOG oDlg CENTERED ; ON INIT ( BuildRichEditBar( ...

... "times new roman" size 11,20 DEFINE DIALOG oDlg RESOURCE "PROBAR2" TITLE "Programa de practica con tablas .DBF" oDlg:lHelpIcon:=.f. REDEFINE SAY oSay ID 4004 OF oDlg // Para ver el numero de registro REDEFINE BUTTON oBtnPrev ID 4002 OF oDlg ; ACTION ( oDbf:Skip( -1 ...

... xPersonas DATABASE oDbf oDbf:GoTop() DEFINE DIALOG oDlg RESOURCE "PROBAR" ; TITLE "Programa de practica con tablas .DBF" oDlg:lHelpIcon:=.f. define font oFont name "times new roman" size 11,20 MisGEts( oDlg, oDbf ) REDEFINE BUTTON oBtn1 Id 4001 of oDlg ; // aContols ...

...           cancel            // obtcancelap:ocursor := ocursorp*/    odlgplan:lhelpicon := .f.    odlgplan:bkeydown  := {|nt|  if( nt==27, procutoque := '', fteclei(nt,olstbplan)) }activate ...

... oFont NAME "Tahoma" SIZE 0, -12 DEFINE DIALOG oDlg ; FROM 5, 5 TO 15, 60 ; TITLE "Por Favor Identifiquese" ; FONT oFont oDlg:lHelpIcon := .f. @ 1, 2 SAY "Nombre del Usuario:" OF oDlg @ 1, 10 GET oGet01 VAR cnombre OF oDlg @ 2, 2 SAY "Digite sus clave para ingresar..." ...

... DEFINE BRUSH oBr RESOURCE "IRON" DEFINE DIALOG oDlg1 NAME "PARAME"; TITLE "Parametros para Liquidación" oDlg1:lHelpIcon := .f. oDlg1:lTransparent := .t. REDEFINE GET oGet[01] var vFECHALIMI PICTURE "@!K" ID 101 OF oDlg1 REDEFINE GET oGet[02] var vINTMORA ...

... ON // Microsoft 3D Look DEFINE DIALOG oDlg5 FROM 13,15 TO 38,76 ; TITLE "Control de Tickets Sesion: " + Alltrim(Str(xSesion)) ; oDlg5:lHelpIcon:=.F. SELECT 4 USE C:\Ventas\Ventas19 Alias aSls SHARED Go Top TWBrowse():lHScroll:= .F. @ .2 , .2 LISTBOX oLbx1 FIELDS Transform(aSls->Ticket,"999999"), ...

... # Include "Fivewin.Ch" # Include "TGraph.ch" FUNCTION Main( oWnd ) LOCAL oDlg, oGraph DEFINE DIALOG oDlg SIZE 600, 500 oDlg:lHelpIcon := .F. @ 3, 1 GRAPH oGraph SIZE 250, 200 TYPE 1 YVALUES 3D XGRID YGRID XVALUES LEGENDS oGraph:aSeries = { { "Serie 1", CLR_CYAN ...

... + "temp\F" + cTempFile() + ".jpg" DEFINE DIALOG oDialog SIZE 800,600 PIXEL TRUEPIXEL WITH OBJECT oDialog :lHelpIcon := .F. :cTitle := oSistema():cNome_Reduzido_Sistema :oFont := oSistema():oFonte2 END // Título *----------------------------------------------------------------------------* ...

... oFnt DEFINE FONT oFnt NAME "Calibri" SIZE 0, -16 DEFINE DIALOG oDlg TITLE "Tipos de Servicios" SIZE 600, 650 FONT oFnt oDlg:lHelpIcon := .F. @ 10, 15 BTNBMP oBtt2 PROMPT "Selecccionados" FILENAME "..\bitmaps\link.bmp" OF oDlg ; ACTION ( aSelected := {},NewSelected( ...

... DIALOG oDlg SIZE 1050,500 PIXEL FONT oFont TITLE cFile; GRADIENT {{ .5, CLR_BLUE, RGB(202,202,255) }, { .5, RGB(202,202,255), CLR_BLUE }} oDlg:lHelpIcon := .f. DEFINE BUTTONBAR oBar OF oDlg SIZE 70, 70 2010 DEFINE BUTTON OF oBar ACTION Nuevocatas(oBrw,.T.,oRs); FILENAME "C:\fwh18.12\bitmaps\32x32\new.bmp" ...

... codigo: Define Dialog oDlgMainMenu resource "oDlgMainMenu" title 'Registro de Datos de la Empresa' BRUSH oBrush TRANSPARENT oDlgMainMenu:lHelpIcon:=.f. Redefine GROUP oGrpSuperUser ID 1 OF oDlgMainMenu TRANSPARENT /////////////////////////// Menu Super Usuario ////////////////////////////////////////// ...

... action(lSelecao := .t., dDate := dDataCalend, oDlf:End()) redefine button oBtn[2] id 103 of odlf action(lSelecao := .f., oDlf:End()) cancel oDlf:lHelpicon := .f. activate dialog oDlf on init(IIf(ValType( nRow ) != 'N', WndCenter(oDlf:hWnd), oDlf:move(nRow,nCol))) return(dDate) /*************************************************************************************************************/ ...

... action(lSelecao := .t., dDate := dDataCalend, oDlf:End()) redefine button oBtn[2] id 103 of odlf action(lSelecao := .f., oDlf:End()) cancel oDlf:lHelpicon := .f. activate dialog oDlf on init(IIf(ValType( nRow ) != 'N', WndCenter(oDlf:hWnd), oDlf:move(nRow,nCol))) return(dDate) /*************************************************************************************************************/ ...