FiveTech Software tech support forums

... EXTERNAL variables MEMVAR oWnd, aGLList // Declare LOCAL variables PRIVATE lx, ItmFound := .F., cGLRetVal, oDlgl, oLbxgl, nPos, oHd1, oHd2, nItem := 1 // Create the dialog DEFINE BRUSH olBrush RESOURCE "SKY" DEFINE DIALOG oDlglf RESOURCE "PROBROW" BRUSH olBrush transparent ...

nageswaragunupudi ,

thanks for response, but what I want is not to know what item is selected, I want to define the selected item, some thing like oLvw:setSelect( nItem )

I hope now I am clear

regards

Marcelo

... MENU MENUITEM "Alinear a la Izquierda" ACTION ( oGet:SetAlign( ES_LEFT ), lChange := .t., lAct := .t. ) //MemoWrit( aFiles[ nItem ], cText )) MENUITEM "Alinear a la Derecha" ACTION ( oGet:SetAlign( ES_RIGHT ), lChange := .t.,lAct := .t. ) //,MemoWrit( aFiles[ nItem ...

... ) } bCollaps := {|| oTree:CollapseAll( oItem1 ) } nPar := Max( 1, nPar ) nPar := iif( nPar == Len( aFiles ), nPar, Min( nPar, Len( aFiles ) ) ) nItem := nPar // ? nPar, aFiles[nPar], aItems[nPar] Eval( bIt ) endif cText := Memoread( aFiles[ nItem ] ) // ? nPar, aFiles[nPar], cFileDisc, aItems[nPar] ...

... #include "ribbon.ch" #include "xbrowse.ch" #define FW_NORMAL 400 #define FW_BOLD 700 //Static oWnd, oGet, oMenu, oFont, nItem, aFiles, oMsgItem, cFileDisc := "", lFile := .f., lHelp := .t. //Static cText, cFile, nVez, cTit, lIt, nX, lChange := .f., cTextFormat ...

@ nRow, nCol BITMAP oSprite; RESOURCE cBitmap; PIXEL NOBORDER of oWnd // SIZE 64,64 nTipo:=nItem oSprite:lTransparent = .T. // NOT RUN //TO MOVE oSprite:Move(oSprite:nTop,; oSprite:nLeft,; ,; ) oSprite:HideDots() // not run !! I want no show the dots when I capture the ...

... on a window and I set this bitmap transparent with @ nRow, nCol BITMAP oSprite; RESOURCE cBitmap; PIXEL NOBORDER of oWnd // SIZE 64,64 nTipo:=nItem oSprite:lTransparent = .T. but on window this bitmap not is trasparent see the picture pls : http://img163.imageshack.us/img163/7025/82943486.png ...

... * cliente local cID_CLIEN := cSay5 local cNombre := cSay6 local cDIRCLIEN := cSay7 local cTELCLIEN := cSay8 * cuerpo local nPZ_PRENDA := 0 * LOCAL nItem := 0 LOCAL cTexto := "" local cTexto2 := "" local cTira := "R:Roto,D:Descosido,I:Raido,O:Oxidado,P:Picado,G:Gastado" ...

I made a simply function to showa bitmap on a wnd and move it Function crea_oggetto(nItem, nRow,nCol) Local oSprite Local cBitmap:="" DO CASE CASE nItem = 1 cBitmap=".\bar\BAR1.bmp" .. endcase @ nRow, nCol BITMAP oSprite; FILENAME cBitmap; PIXEL ...

Sorry Daniel but perhaps we not understood
I wanted create a button and inser a bitmap from resource

@ 2, 5 ADD BUTTON oBtn4 BITMAP "BAR_CENTER_32" GROUP oGr3 ROUND SIZE 50,75 ACTION (nItem :=1)

To all: Although there are zillions of examples out ther using listbox (aka Browse): oBrw1:bGoTop = { || nItem := 1 } oBrw1:bGoBottom = { || nItem := Eval( oBrw1:bLogicLen ) } oBrw1:bSkip = { | nWant, nOld | nOld := nItem, nItem += nWant,; nItem := Max( 1, Min( nItem, Eval( ...

this is the function draw the bitmaps oPanel is a dialog STATIC FUNCTION AssegnaBitmaps_NEW ( aBmps, aData, oPanel, nItem) Local nY, nX lOCAL nRow:=20 Local nCol:=BMP_V Local oGet[TOTY] local nFila:=1,x:=1 nY := 1 nX := 1 @ 5, 5 say "Fila" OF oApp:oPanel PIXEL SIZE BMP_H,BMP_V ...

... a cero. El comportamiento de la versión anterior estaba afectando al método Blank() de la clase TDataBase. * Nuevo: Nuevo método SetItemText( nItem, cText ), este permite cambiar el texto del símbolo "prompt" de una carpeta sin parpadeo. Gracias a Biel! * Mejora: Mejora en el método ...

... values when turning them into zero. The previous behavior was affecting Class TDataBase Method Blank(). * New: Class TFolder Method SetItemText( nItem, cText ) lets you change the prompt (text) of a folder tab without flickering. Thanks to Biel! * Enhancement: Class TDataBase Method Delete(). ...

sorry
can I isert a combo on this menu or something to select an nItem