FiveTech Software tech support forums

... that a user can open a application-part twice in MDI ? In the moment my solution works like : 1.) I start a part from a office2007-bar ( oBtn1 ). 2.) Before i open the dialog i disable the office-bar-button. oBtn1:Disable() ( the user cannot open twice the same part ) 3.) After closing ...

Victor, no conozco esta clase, pero es muy fácil, hay dos opciones

1. Crea el botón utilizando las funciones en lugar del comando, como te digo, no conozco la clase, pero podría ser oBtn1 := tSButton():new(...)

2. Modifica la definición de los comandos para que ahí agregues tu configuración

... ) if lsalir RELEASE BITMAP oBmp RELEASE FONT oFont1, oFont2 dbCloseAll() sysrefresh() endif RETURN( .T. ) function finentradas(pathdata) local obtn1, obtn2, oFont local odlg, ofin, dfin dfin:=ctod(space(8)) DEFINE FONT oFont NAME "Arial" SIZE 0, -10 DEFINE DIALOG oDlg TITLE "Justificantes de ...

... ; VALID (if(empty(cCode),.F.,(SelectCode( oGetCode, cCode ),.T.)) REDEFINE BTNBMP oBtn1 ID 115 OF oDlg FILENAME "c:\fwh\bitmaps\search.bmp" ACTION ( SelectCode( oGetCode, cCode ), oGetName:VarPut( ArCust->Name ) ,; oGetAdd1:VarPut( ...

... and help. . . . DEFINE DIALOG oDlg RESOURCE "DebtorMaintenance" REDEFINE GET oGetCode VAR cCode ID 110 OF oDlg Picture "@!" REDEFINE BTNBMP oBtn1 ID 115 OF oDlg FILENAME "c:\fwh\bitmaps\search.bmp" ACTION ( SelectCode( oGetCode, cCode ), oGetName:VarPut( ArCust->Name ) ,; oGetAdd1:VarPut( ...

... is the source codes:- DEFINE DIALOG oDlg RESOURCE "DebtorMaintenance" REDEFINE GET oGetCode VAR cCode ID 110 OF oDlg Picture "@!" REDEFINE BTNBMP oBtn1 ID 115 OF oDlg FILENAME "c:\fwh\bitmaps\search.bmp" ACTION ( SelectCode( oGetCode, cCode ), oGetName:VarPut( ArCust->Name ) ,; oGetAdd1:VarPut( ...

... static function BuildMenu() local oDlg1, oBtn1 define dialog oDlg1 title 'Dialog 1' of oWnd from 0,0 to 20,90 @ 01,00 sbutton obtn1 Prompt "Sai&r" size 30,40 pixels OF oDlg1 action (oDlg1:end()) ...

Hello Sylvio,

what do you mean with region ?
Just to show some controls ?
When it is, what you mean, just do like : oSay1:Hide(), oGet1:Hide,
oBtn1:Hide() ...

Regards
Uwe

... Its quick and easy to handle. // ------------------------------------------- STATIC FUNCTION EXP_EXCEL(cFile1,lOemAnsi ) LOCAL oDlg7, oMeter, oBtn1 c_dir := GetModuleFilename(GetInstance(),"DBF_G.EXE" + CHR(0), 255) //-----------------------------------------------Applic.-Name c_path := left ...

... // !!!! // The changed cEXPORT in the Child // ----------------------------------------- DEFINE BUTTON oBtn1 OF oBar4 ; ACTION ( aCtrl[nPage]:Update ), ; // Child Update EXP_DBF(oEXPORT:Value(),cFile1), ; // the changed Var DBSELECTAREA(1), DBGOTOP(), ...

... Quick- Browse Outlook2003 --------------------------- FUNCTION PROG_4(oWnd,oDlg,aCtrl,nPage,oOutL2003) local oDlg3, oFile1, cFile1 := "", oBtn1, oBtn2, obtn3, oBtn4, oBrw5, DBFTYP := "" local oFilter, cFilter := SPACE( 70 ), cFELD := "", l_INDEX := .F. local oSUCH, cSUCH := "", aSCOPE, ...

... LOCAL nPage := AScan( oOutL2003:aGroups, { | o | o:lSelected } ) LOCAL nAllPages := Len (oOutL2003:aGroups) LOCAL oCtrl, i , oBtn1, oBtn2, oSplit1 LOCAL hDC :=oDlg:getdc() LOCAL oLbx,oFont, aTEIL1, aTEIL2 Local oDlg1, oBar3 local aSIZEDLG := {} That works !!! ---------------- ...

Hallo U. König,

du darfst dem Button oBtn1 nicht die ID '1' geben.
Diese ist für den Standard Button vorgesehen, der bei Drücken der Returntaste aktiviert wird.

Gruß,
Detlef

... einfaches Beispiel : Obj Var Reihenfolge ID-Nr. ----------------------------------------- oGet1 cGet1 1 110 oGet2 cGet2 2 120 oGet3 cGet3 3 130 oBtn1 4 1 obtn2 5 2 Ein ganz normaler Dialog. Drücke ich nun in cGet1 < RETURN > erwarte ich natürlich das cGet2 den nächsten Focus bekommt. Leider ...

... Resources as a sample with 3 Gets and 2 Buttons The resource looks like : Obj Var Order ID oGet1 cGet1 1 110 oGet2 cGet2 2 120 oGet3 cGet3 3 130 oBtn1 4 1 oBtn2 5 2 When I Press < RETURN > in cGet1, oBtn1 gets the Focus not cGet2 In the ressource the order is ok ( 1 to 5 like in sample ...