FiveTech Software tech support forums

... #define BLANCO 1 #define ROJO 2 #define AMARILLO 3 #define AZUL 4 #define VERDE 5 LOCAL NOME := SPACE(25) LOCAL oFont1, oFont2, oFont3, oPen1, oPen2, cTit cTit := ALLTRIM(NEWPAR->EMPRESA1) DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 NAME "ARIAL" SIZE ...

... 0 TABS oTabs PROMPTS "&One", "&Two" OF oDlg PIXEL ; BITMAPS "..\bitmaps\16x16\people.bmp", "..\bitmaps\open2.bmp",; "..\bitmaps\16x16\print.bmp", "..\bitmaps\open2.bmp" ; ACTION ( nTabPos := oTabs:nOption, ; IIF( nTabPos = 2, ...

STRANGE..... this morning I add DEFINE PEN ::oPen1 WIDTH 1 COLOR CLR_HGRAY DEFINE PEN ::oPen2 WIDTH 1 COLOR CLR_BLACK and REPORT ::oReport ; TITLE "ELENCO TARIFFE LISTINO ALTA STAGIONE" ; FONT ::oFont ; PEN ::oPen1,; ::oPen2 ; HEADER "Data: " + DTOC( ...

... ) LOCAL oGraphics3 := Graphics():New( oWnd:hDC ) LOCAL oGraphics4 := Graphics():New( oWnd:hDC ) LOCAL aRect := GETCLIENTRECT( oWnd:hWnd ), oPen1, oPen2 oGraphics1:DrawImage( oImage1, aRect[1] + 150 , aRect[2] + 250 , 200, 200 ) oGraphics1:destroy() oPen1 := Pen():New( 255 , 255, 0 , 0 , .T.) oPen1:Setsize(10) ...

... 600 } ), ; Drawroundrect(ownd) ) :?: FUNCTION DRAWROUNDRECT(ownd) local hdc:= oWnd:GETDC() local oGraphics := Graphics():New( oWnd:hDC ) local oPen2 := Pen():New( 255, 255, 0, 0 , 10 ) local oPath:= Path():new() oPath:AddRoundRect( 300, 250, 150, 100 , 20 ) oGraphics:DrawPath( oPen2, oPath ...

... the sample xBrowsetree to my sample-collector. trying to add a bitmap on column 1 with WITH OBJECT oBrw3:aCols[ 1 ] :AddBmpFile( c_Path1 + "Open2.bmp" ) :bBmpData := 1 END on column 1, doesn't work. Using column 2, it is OK http://www.pflegeplus.com/IMAGES/Samples6.jpg ...

... bTextoSubgr,campoSubgr,nLtrSize,lPreview,lPrinterSetup) local oRpt local oFontNorm, oFontNegr local oPen1, oPen2 local i:=0 local cImpresoraSalida:="" default cTitulo1 TO '' default cTitulo2 TO '' default cCaption TO cTitulo1 default cCabecera1 ...

... 640,440 PIXEL ; TITLE 'Directory' ; FONT oFont @ 10,10 XBROWSE oBrw SIZE 300,70 PIXEL OF oDlg NOBORDER oBrw:SetTree( oTree, { "\fwh\bitmaps\open2.bmp", ; "\fwh\bitmaps\16x16\folder.bmp", ; "\fwh\bitmaps\16x16\onepage2.bmp" } ) oBrw:bKeyChar := { |nKey| If( nKey == ...

... 640,440 PIXEL ; TITLE 'Directory' ; FONT oFont @ 10,10 XBROWSE oBrw SIZE 300,200 PIXEL OF oDlg NOBORDER oBrw:SetTree( oTree, { "\fwh\bitmaps\open2.bmp", ; "\fwh\bitmaps\16x16\folder.bmp", ; "\fwh\bitmaps\16x16\onepage2.bmp" } ) oBrw:bKeyChar := { |nKey| If( nKey == ...

... *------------------------------------------------------------------------------- LOCAL oFont1, oFont2, oPen1, oPen2 Local oReport Local nSele := SELECT() DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-9 ...

... + contrib/hbide/resources/database_search.png + contrib/hbide/resources/database_up.png + contrib/hbide/resources/open2.png + Added: few more images for ideDBU interface. + contrib/hbide/tables.ui * contrib/hbide/hbide.hbp * contrib/hbide/hbide.qrc + Added: one ...

... size 0, 9 define font oFont2 name "ARIAL" size 0, 11 bold define PEN oPen1 STYLE 0 WIDTH 1 COLOR RGB(192,192,192) define PEN oPen2 STYLE 0 WIDTH 1 COLOR CLR_BLACK REPORT oList ; FONT oFont1, oFont2 ; PEN oPen1,oPen2; HEADER (cdi:p1_nomapl),alltrim(oFusu:vrazusu), "Fecha: ...

... + cFileDisc,; oGet:cText( cText ), oGet:Refresh(), oWnd:SetText( cTit ), oWnd:Refresh() }, oRBar ) oTBtn2 = TRBtn():New( 4, 435,,, ".\bitmaps\open2.bmp", {|| ; iif( lG32, ; cFileNw := cGetFile32( cFileName( cFileDisc ) + ; "Todos ( *.* ) | *.* ", ; "Elija Origen y Nombre", ...

... xp-theme open1: http://img191.imageshack.us/img191/6379/xptheme02.th.gif xp-theme open2: http://img38.imageshack.us/img38/7410/xptheme03.th.gif

... "; HEADER "Fecha: "+DToC(DATE()) RIGHT; FOOTER "Pagina: "+STR(oReport:nPage,3) CENTER; FONT oFon1, oFon2, oFon3; PEN oPen2, oPen1; PREVIEW // COLUMN TITLE "Fecha" DATA asientos->Fec SIZE 10 COLUMN TITLE "Cuenta" DATA asientos->Cta SIZE 6 COLUMN ...