FiveTech Software tech support forums

Hello, DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 NAME 'TAHOMA' SIZE 0,-12 NESCAPEMENT 900 does TReport support vertical text or maybe a useful Reportgenerator ? I had a look at Easyreport 2, but it seems, vertical text is not supported. ...

... .T., nil, .T., .T. // AUTOCOLS AUTOSORT SetBrwStyle( oBrw ) // 1. Index oBrw:aCols[1]:cSortOrder := "Number" oBrw:aCols[1]:oHeaderFont:= oFont2 oBrw:aCols[1]:bClrHeader := {|| { 255,0 } } oBrw:aCols[1]:AddResource( "B_Select" ) oBrw:aCols[1]:nHeadBmpNo := 1 oBrw:aCols[1]:bLClickHeader ...

... "Internal", "M/R Complete", "RFID Commissioned" ; SIZES 100 , 100 , 100 , 100 , 85 , 100 , 125 , 100 , 200 ; FONT oFont2 ; OF oWnd SIZE nLbxW, nLbxH PIXEL oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() ...

con los últimos cambios en Tdpicker me genera un error . REDEFINE DTPICKER aObj[vFECHA] VAR aVAr[vFECHA] ID IDFECHA OF oDlg UPDATE FONT ofont2 el problema es que no tiene valor de bValid la nueva Data se inicializa a .t. DATA lClosed INIT .T. por ello a llegar a la linea 140 : ::bValid = { ...

Estos no los elimina: DEFINE BRUSH oBrush FILENAME cBrush DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0, -10 BOLD DEFINE FONT oFont2 NAME "MS SANS SERIF" SIZE 0, -14 BOLD oBrw:SetBackGround(".\STONE.BMP") Al salir, hago esto: oFont:End() //esta no la elimina ...

... ) endif Estos no los elimina: DEFINE BRUSH oBrush FILENAME cBrush DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0, -10 BOLD DEFINE FONT oFont2 NAME "MS SANS SERIF" SIZE 0, -14 BOLD oBrw:SetBackGround(".\STONE.BMP") Al salir, hago esto: oFont:End() //esta no la elimina ...

... ,; "SetText" ,; "cCaption" ; FIELDSIZES ; 060 ,; 100 ,; 100 ,; 100 ,; 100 ,; 100 ,; 100 ; SIZE 300, 45 PIXEL FONT oFont2 OF oDlg ; COLOR nRGB ( 220, 220, 000 ), nRGB ( 000, 065, 033 ) ; && Letras / fondo Verde oBrw:SetArray ( oDlg:aControls ) oBrw:bGotop ...

... de recursos a usar es variable…? DEFINE DIALOG oDlg FROM 000, 000 TO GetSysMetrics ( 1 ) - nXSize, GetSysMetrics ( 0 ) - nYSize PIXEL FONT oFont2 ICON oIco ; && Alto * Ancho TITLE "Test_Scroll_Galeria de Fotografias" ; STYLE nOr( WS_SYSMENU ,; && WS_CAPTION ,; ...

... "Fileio.ch" * #define WS_3DLOOK 4 #define CLR_HBROWN nRGB( 205, 192, 176 ) #define CLR_NBLUE nRGB( 142, 171, 194 ) * STATIC oDlg, oFont, oFont2 STATIC nLine := 1 //--------------------------------------------------------------------------------------------------------------------// Function ...

... on report ) REPORT ::oReport ; TITLE " ",::cTitulo1,::cTitulo2,iif(::cTitulo3!=NIL,::cTitulo3," ") CENTERED; FONT ::oFont3, ::oFont2, ::oFont1 ; PEN ::AoPen1,::AoPen2,::AoPen3; --------------not run !!! HEADER ' ',::cTitleHeader ; FOOTER ::cTitleFoot, "Data: "+dtoc(date())+ ...

... all Groups are < Window-width !!! ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT "Image-Selection" width 895 oGr1:SetFont( oFont2 ) Best Regards Uwe :?:

... 12" FROM USER PREVIEW if empty( oPrinter:hDC ) return nil endif DEFINE FONT oFont1 NAME "Arial" SIZE 0,-10 OF oPrinter DEFINE FONT oFont2 NAME "Arial" SIZE 0,-14 OF oPrinter DEFINE FONT oFont3 NAME "Arial" SIZE 0,-10 OF oPrinter DEFINE FONT oFont4 NAME "Arial" ...

... c_path + "\Images\Preview.BMP" 2007 ; ACTION ( IIF( lACTIVATE[1] = .T., ( oDlg1:End(), lACTIVATE[1] := .F. ), NIL ), ; SHOW_FLD1(oWnd, oFont2, oFont3) ) oBtn30:cTooltip := { "Show" + CRLF + ; "TFolderEx-Dialog","Preview", 1, CLR_BLACK, 14089979 } @ 50, ...

... oDlg1, ; // Object nTStyle, ; // Background nTTop, ; // Top nTLeft, ; // Left nTWidth, ; // Width nTHeight, ; // Hight oFont1, ; // Font Headline oFont2, ; // Font Text .T., ; // Message centered nTextT, ; // Text-Top nTextL, ; // Text-Left cTitle, ; // Title cText1, ; // Text 1 cText2, ; // Text ...

... in Title 1. // Style 2007 // ------------- @ 580, 300 BTNBMP oBtn1 OF oWnd ; SIZE 200, 80 ; PROMPT "&Change Text" 2007 ; FONT oFont2 CENTER ; ACTION oText1:SetText("FIVEWIN 9.10") There could be another Combination : A window with Titles, a Dialog and from inside ...