... AL FIVEWIN MUNDIAL...", ; "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 ) // DEFINE WINDOW oChildWnd FROM 0, 0 TO 600, 800 PIXEL TITLE cTitle DEFINE WINDOW oChildWnd FROM -1, -1 TO -1, -1 PIXEL oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" ) oActivex:Silent ...
I have 9 button when I press a button return allway 9 nRow:=30 For n= 1 to 9 @ nRow,2 BTNBMP aBtnCalc[n] PROMPT ltrim(str(n+1)) FLAT SIZE 20,30 PIXEL of oDlg ; ACTION AddItems(oInvoice,aItems, GenBlock_(n) ,@nRowItems,fromdate,Todate) nRow+=32 NEXt fUNCTION GenBlock_(n) RETURN n and I Wish insert ...
Hello friends, Many of the FIVEWIN examples are still in DIALOG format without TRUEPIXEL, and if you want to use them as templates, some additional work is required. I have now created a prompt that automates the conversion process. This prompt is working well for ...
... The problem is related with xBrowse. If you run your example without including the xBrowse instantiation @ oBar:nHeight, 0 XBROWSE oBrw SIZE 0,-30 PIXEL OF oDlg ; DATA SOURCE oRsHdr ; COLUMNS "HDR_FOL","HDR_FDM","HDR_REF",; "HDR_EOS",; "HDR_TOU",; ...
... SHARED NEW ALIAS (cAlias) SET ORDER TO TAG FIRST GO TOP DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12 DEFINE DIALOG oDlg SIZE 750,300 PIXEL FONT oFont ; TITLE "XBrowse Incremental Filters" aFlds := aHdrs := HB_ATokens( cList, ',' ) @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL ...
I use a get to select date @ nRow, 70 GET aGet[1] VAR ddatacambio SIZE 100,24 PIXEL OF oDlgSub; BITMAP "date.bmp" ACTION ( Selecdata(@ddatacambio, aGet[1]),aGet[1]:refresh()) the calendar run but when I double click it not run i.e. it doesn't close the ...
... for this Size but now on "Full-HD" 1920 x 1024 or more those DIALOG are so small ... :( --- i have nZoomX and nZoomY which work with PIXEL when "re-Size" a WINDOW it does work on "Original" Layout and "calculate new Pos / Size also for FONT but how about DIALOG ...
... is a flicker that denotes that there is something wrong to select a row I use a popup menu @ 85, 10 BTNBMP aBtnBrow ; FLAT SIZE 80, 20 OF oDlg PIXEL ; PROMPT "Select menu" ; NOROUND ; ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,oDlg) } ) When I click on xbrowse not ...