FiveTech Software tech support forums

I made some bitmaps controls on a dialogs I must assign for each bmp a cargo value to assign values before I used btnbmp with this feature sample : aBtn[nbotone]:bLClicked:= {|oBtnOmb| Menu_action oBtnOmb,oFree,oPanel) } aBtn[nbotone]:cargo := { 'Free', n, "O",ny } then If I call the third ...

I made a dialog with some buttons ( btnbmp ) and I associated for each button an action aBtn[nbotone]:bAction := {|oBtnOmb| my_function(oBtn) } this when lMultiple is Off := .f. when lMultiple is .t. I wish no execute the action and when I press a button it must be ...

... Logic changing BMP's and using the same Button with different Actions: 1. define a Array for the used BMP's 2. use => ACTION oButt3:SetFile( aBtn[4][1], aBtn[4][2] ) ; That will replace on Button-action 2 the Button 3 ( TRASH.BMP ) with the defined BMP's in Arrayelement 4 ( PENDRIVE.BMP ) ...

... QUE SE EJECUTARA EN SQL PARA CONSULTA... LOCAL cQry // PARA HACER LA CONSULTA EN MYSQL... LOCAL oError // CAPTURA LOS ERRORES DE MYSQL... LOCAL aBtn[2] //-------- INICIO CONEXION MYSQL Y CREACION DE LA CONSULTA -------------- IF EMPTY( aVar ) //.AND. EMPTY( cCampo ) cSqlCmd := "SELECT * ...

... MakeButtons(oPanel) ) RETURN NIL Function MakeButtons(oPanel) NY=1 Numero:= BMP_V for nx= 1 to 20 @ nY*numero, nx*numero BTNBMP aBtn[nBot] FILENAME BUNGA_FREE ; PIXEL OF oPanel SIZE BMP_H,BMP_V NOBORDER NEXT NX RETURN NIL aNY iDEA ?

FOR EACH BTNBMP abtn[nbot] is assigned a number

i WISH SELECT SOME BTNBMPs

AND HAVE THE NUMBER OF THEM

to make an multiple order

it is possible with fwh ?

thanks

... the numbers of those tables for create the reservation sample group 1 tables 54,53,52,51 group 2 table 23,24 each btnbmp I assign a action with aBtn[n]:bAction := {|oBtn| Menu_actions( oBtn,oFree,oPanel) } any solution ?

Sorry ,

I resolved!!!


I made a function ( same the load_tables() ) but not create the abtn array and then I change colors and captions..now run ok

thanks Daniel

thanks how I can destroy all abtn ? I try with IF lcarga AEVAL( aBtn, {| oBtn | oBtn:end() } ) else aBtn := Array(totarray) aData := ARRAY( TOTY, TOTX ) endif where lcarga is .f. for the first lap and .t. for the second lap when I want ...

... use TTitle to create a round button ? 1. no need of a End-Appl.-Function, just a Sample 2. use Say- and BTn`s as a Array. I changed to a Array aBtn[1] - aBtn[8] and oSay[1] - oSay[6] 3. no need of a Image- Sub-Drectory, You can change it and copy the BMP's to Your Main-directory. 4. There is ...

... ) Then we can write ACTION {|oBtn| MsgInfo( oBtn:<anydata>)} Without changing the FWH library you may: FOR I:=1 to 6 @ 200,100  BUTTONBMP aBtn[I] OF oGrund  ;         PROMPT STR(I)  PIXEL  SIZE 50,50 ;         MESSAGE "Abbruch"                  aBtn[I]:bAction ...

Dear Otto:

Otto wrote:How do can I insert a number of buttons to a WINDOW with a variable name.

Try: aBtn[ nBtn ]:cTitle()
Or: aBtn[ nBtn ]:cCaption

Best regards.

Manuel Mercado Gómez.

... oWinh:End() } , "Salir", " Salir ") oToolBar : AddSeparator() oToolBar : AddButton( { || .t. } , "Excel", "Excel") AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd,; nBtn, nOr( 0x0010 ) ) } ) oReBar : InsertBand( oToolBar ) oWinH : Hide() Define Statusbar Prompt ...

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> #include "hbapi.h" ...

... que vuelve a pintar el recuadro. ? 2.- Si tomas el ejemplo NEWSHAPE.PRG y haces la siguiente modificación: En la línea 94 cambias @155, 45 SBUTTON aBtn[ 8 ] PROMPT "escucha" RESOURCE "Audib" OF oDlg ; COLORS CLR_WHITE, nRGB( 255, 85, 0 ) SIZE 30, 35 PIXEL SUNSET ...