FiveTech Software tech support forums

... Endif t++ ; P6_AAAA->(DbSkip()) Enddo tX := 15 ; tY := 20 nX := 225 ; nY := 0 // Header @ 0,nY TITLE oBar_AA Size 480, 28 Of oMainWnd TRANSPARENT @ 10, nY TITLETEXT OF oBar_AA TEXT " Daily Analysis" // Making Box @ 30, nY TITLE oBar_AA Size 150, 430 of oMainWnd TRANSPARENT ...

... Endif t++ ; P6_AAAA->(DbSkip()) Enddo tX := 15 ; tY := 20 nX := 225 ; nY := 0 // Header @ 0,nY TITLE oBar_AA Size 480, 28 Of oMainWnd TRANSPARENT oBar_AA:lRound := .T. @ 10, nY TITLETEXT OF oBar_AA TEXT " Daily Analysis" COLOR 16711680 FONT oDash_F // Making Box ...

... = {|nRow,nCol,nFlags| DeactivateItem(), ; StartSelection( nRow, nCol, aWnd[ nArea ] ), ; nAktArea := aWnd[ nArea ]:nArea,; DeactivateItem(), ; ::oMainWnd:SetFocus()} ---------------------------edito ----------------------------- aun mas : aWnd[ nArea ]:bLClicked = {|nRow,nCol,nFlags| aWnd[ nArea ...

... lDown, lPageUp, lPageDown, lPos, nPosZugabe ) LOCAL i, aFirstWndCoors, nAltWert LOCAL nZugabe := 14 LOCAL nPageZugabe := 392 LOCAL aCliRect := oMainWnd:GetCliRect() DEFAULT lUp := .F. DEFAULT lDown := .F. DEFAULT lPageUp := .F. DEFAULT lPageDown := .F. DEFAULT lPos := .F. pausa(1) UnSelectAll() ...

Thanks for your help Karinha

I implemented it this way:

ACTIVATE DIALOG oDlg ON INIT (oObj[3]:aItems[1]:SetText("Rounds"), oObj[3]:aItems[1]:Refresh(), oDlg:Center(oMainWnd)) ;
VALID (oFont:End(), SysRefresh(), .T.)

David

Colin,

Maybe try:

oMainWnd:bGotFocus:= {|| oBtn:refresh() }

Regards,
James

Hello Dear, Please find PRF code for toolbar section DEFINE BUTTONBAR oBar 3D SIZE 40,40 OF oMainWnd DEFINE BUTTON RESNAME "T_EXIT" OF oBar NOBORDER ; TOOLTIP "Exit" ACTION (iRtrn:=Exit(.T.)) DEFINE BUTTON aBRts_Obj[++n] RESNAME "T_CHART" ...

... MDI Window, but now I want to change my main MDI window including menu and toolbar and currently I am using command as follows: DEFINE WINDOW oMainWnd ; TITLE M_Name ; MDI ; COLOR RGB(224,224,128),RGB(64,32,0) ; MENU BuildMenu() ; ICON oIco but using this command, I am able the change the ...

... the right direction. The code I am playing with is below (very rough … just testing a new device) Thanks Jeff #include "FWCE.ch" STATIC oMainWnd Function Main() Define window oMainWnd title "TEST NN9560" Activate window oMainWnd on init Connect() VALID QUITAPP() Return nil ...

... i have to figure out another way.... oBtn1:Disable() Define GCLIENT oChatClient // define Client object DEFINE DIALOG oDlg RESOURCE "CONN" of oApp:oMainWnd REDEFINE GET oGet1 Var cVar1 ID 201 of oDlg COLOR CLR_BLACK, CLR_GETS REDEFINE GET oGet2 Var cVar2 ID 202 of oDlg COLOR CLR_BLACK, CLR_GETS ...

Marco,

LargeFonts()


e per sapere tutti i dati del font per default:

oFont := oMainWnd:oFont


oFont:nInpHeight
oFont:nInpWidth
oFont:nWeight
..
..

... Auxiliar de Facturacion" oToolBar5:AddSeparator() *------------------------------------------------------------------------------ Function MEst(oMainWnd ) LOCAL oMenu, nRow:=65, nCol:=Menos1, aPos := GetCursorPos() Local cClrDegrIni,cClrDegrFin Local cClrSelIni,cClrSelFin,cClrSelTxt,cClrSelBor ...

Hi Tim ACTIVATE DIALOG oDlg CENTERED ; ON INIT(AddBar(oData,oLbx,nNum,oStock)); VALID(WinOpen(oMainWnd,0),lExit) static function AddBar(oData,oLbx,nNum,oStock) local oBar,oBtn,oBtn1,oBtn2,oBtn3,cExitTip := '',cAddTip := '',cDelTip := '',cPrintTip := '',lRecs := FALSE if ...

When I try to do: oPulseOX = TActiveX():New( oMainWnd, "{828B8942-5924-4BD3-963D-20786181A6A4}" ) I get an empty white box in the upper left corner and the windows error: EzSat.exe has encountered a problem and needs to close. We are sorry for ...

... disable la opción de un popup que cuelga del botón de una toolbar, ya que al activar el menú, vuelve a activar los items. Código: Function MCCC(oMainWnd ) LOCAL oMenu, nRow:=63, nCol:=44, aPos := GetCursorPos() MENU oMenu POPUP ; MenuItem oMIt[1] Prompt "Cuenta Corriente Individual"; ACTION ...