FiveTech Software tech support forums

... gracias por tu interés static procedure BarraBot( oWChld, oBrw, oDbAct, nEsArea, bBrowse2 )local oImgLst , ;      oReBar  , ;      oToolBar, ;      oCursor , ;      nFor   // Cursor mouse   DEFINE CURSOR oCursor HAND   // Imagenes   oImgLst:= TImageList():New( 32, 32 ...

Gracias
Parece que no es tan así (o no estoy procediendo bien); ya que si consulto oToolBar:aControls me devuelve nil

... mostraré a la derecha del Splitter si lo lleve. Entonces, pretendo que el primer botón se muestre desde la derecha del separador splitter definí oToolBar:nLeft:= nn, pero al ejecutarlo sitúa el primer botón sobre el margen izquierdo. Se puede hacer lo que pretendo? muchas gracias

... 2 #DEFINE PAD_LEFT 0 #DEFINE PAD_RIGHT 1 #DEFINE PAD_CENTER 2 static nFilterIndex := 0 Static oVentana Static oreport Static oFont static oToolBar //Principal() Function Principal() Local oIcono, oBrush, oBmp, oBmp1, oBarraBotones, oVer, oWebserver LOCAL oImageList local hdll:=loadlibrary("BWCC32.dll") ...

... vuelva a ser funcionabel, he logrado minimizar, y va bien, pero el detener su ejecucion no he podido, lo hago asi: FUNCTION ALC4200(oItem,nBtn,oToolBar) DbCloseall() oWnd:Minimize() cVar:=Accesos(ProcName()) IF !cVar[1] RETURN NIL ENDIF WAITRUN("miprogexterno.exe",0) return nil a ver si alguien ...

... := '' Local nSegundos := SECONDS() Local oSplitter Local i Local oTree Local oFont Local oFont1 Local oBrw Local oImgList Local oReBar Local oToolBar cTitle += "Total Registros: " + Alltrim(Str(Len(aDatos) ) ) nSegundos := SECONDS() - nSegundos Define Font oFont Name 'Arial' Size 0, -10 Define ...

Aqui te mando la función que hace lo que necesitas. En tu código lo manejas así. AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd, nBtn, nOr( 0x0010 ) ) } ) #pragma BEGINDUMP #include <windows.h> #include <commctrl.h> ...

Silvio,

You can't because the ToolBar object does not manage buttons as objects.

You can access its properties from its index into oToolBar:aButtons

... #INCLUDE "Vbox.ch" #INCLUDE "DtPicker.ch" #INCLUDE "Splitter.ch" #INCLUDE "dbcombo.ch" MEMVAR oWnd, oVarSys, oVarUsu FUNCTION PV2100(oItem,nBtn,oToolBar) .............. DEFINE DIALOG oDlg NAME "PV2100" COLOR nRGB(0,64,128),nRGB(0,64,128) ............. oDlg:bKeyDown := {|nK| if( ( nK == Asc( ...

... FUNCTION BARRAVA //----------------------------------------------------------// local oImageList,oBar,oToolBar DEFINE IMAGELIST oImageList SIZE 32, 32 DEFINE IMGBITMAP OF oImageList NAME "nuevo" COLOR nRGB( 255, 0, 255 ) DEFINE IMGBITMAP OF oImageList ...

... que estoy haciendo mal? pongo parte del codigo. ACTIVATE DIALOG oDlg CENTERED VALID lEnd ; ON INIT ( crea_barra(oDlg,oFld,oImageList,oReBar,oToolBar),; oToolBar[1]:oWnd:oTop:=nil, oToolBar[1]:nWidth:=100 ) STAT FUNC crea_barra(oDlg,oFld,oImageList,oReBar,oToolBar) DEFINE REBAR oReBar[1] ...

Paco,

oToolBar:oWnd:oTop = nil
oToolBar:nWidth -= ...

Tim,

Use the BALLOON clause when creating the toolbar:

DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 ; // 50, 50 ;
IMAGELIST oImageList BALLOON

... all the bitmaps oImageList := TImageList():New( 28, 28 ) // width and height of bitmaps // Now create the toolbar object for adding the buttons oToolBar := TToolBar():New( oWnd, 30, 32, oImageList ) From here I actually add the buttons with the following lines: oImageList:AddMasked( TBitmap():Define( ...

Aoki,

Modify this method in Class TToolBar:

METHOD MouseMove() INLINE If( ::oCursor != nil, SetCursor( ::oCursor:hCursor ),), nil

Then in your code simply do:

DEFINE CURSOR oHand RESOURCE "hand"
...
oToolBar:oCursor = oHand