FiveTech Software tech support forums

... oRec:RecNo == 0 )       local lSave := .f.       local lFree := .t.       local oFolder //Silvio       DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-8       oBold := oFont:Bold()  ...

Please revise this code @  3, 140 DTPICKER oPrenotazione:check_in SIZE 80,12 PIXEL OF oFolder:aDialogs[1] ;   PICTURE "ddd dd mmm yyyy"WITH OBJECT oPrenotazione:check_in   :lNoToday         := .t.   :lNoTodayCircle   := .t.   :SetRange( dStagioneMin,dStagioneMax ...

... the Folderex tab below the tab bitmap, see the picture https://i.postimg.cc/NMC3VcN0/problem-folderex.jpg the code @ 3, 3 FOLDEREX oFolder PIXEL LEFT STRETCH; PROMPT "&Generale", "&Stampe","Spiaggia", "Planning" ; TAB HEIGHT 120 ; ...

... "Var2_3" ON CHANGE se ejecuta perfectamente... Redefine ComboBox oCbxPresenta Var cCbxPresenta items aArreglo_Presenta Id 4001 of oFolder:aDialogs[2] on Change ( Fnct_ChangePresenta() ) Redefine ComboBox oCbxColores Var cCbxColor items aArreglo_Colores Id 4002 of oFolder:aDialogs[2] ...

... nRow+=2 @ nRow,180 XIMAGE oBmp ; RESOURCE "CLIP_OFF"; NOBORDER ; SIZE 30,30 PIXEL; OF oFolder:adialogs[1] ; UPDATE oBmp:bRClicked := {||NIL } oBmp:ltransparent:=.t. oBmp:nUserControl :=0 nRow+=10 @ nRow,10 GET aGet[1] VAR CUSTOMER->FIRST ...

... error because when call the function to create the message the folder Is not created Also . But It Is strange because 1) if put the message on ofolder:adialogs[1] Make error 2) if put the message on ofolder It not make error How i can resolve?

Horacio

REDEFINE COMBOBOX oCombos1[ 16 ] VAR aCombos1[ 16 ] ID 1101 ;
ITEMS aFnts OF oFolder:aDialogs[ nOp ] ;
LISTWIDTH 200

Funciona igual con controles redefinidos o no

NOT RUN OK ON RESOURCES On my order I have @ 2,5 COMBOBOX aGet[1] VAR nIcoElemento Items aElementiItems ; BITMAPS aBmpCombo SIZE 50,90 PIXEL of oFolder:aDialogs[1]; ON CHANGE ( ncella:="", aGet[2]:refresh()) HEIGHTGET 66 and run ok https://i.postimg.cc/T3pJHj9Q/twofolder.png

... oBtnGiorn; RESOURCE aImagesGiorno[ 1 ] ; PROMPT { || If( lGiorno, "giornaliero", "periodico" ) } ; SIZE 80,20 PIXEL OF oFolder:aDialogs[1]; TEXTRIGHT FONT oFontBold GDIPLUS; ACTION ( lGiorno := !lGiorno, ; oBtnGiorn:hBitmap:= If( lGiorno, aImagesGiorno[ 1 ], aImagesGiorno[ ...

On oldest application I used Btnget classo of Ramirez and it run ok instead of normal tget @ 80,50 BTNGET aGet[3] VAR ncella SIZE 70,32 PIXEL; of oFolder:aDialogs[1] FONT oLarge picture "9999"; ACTION NIL https://i.postimg.cc/25H4PfZB/BTNGET.png It build the button with ...

@ 06,50 GET aGet[2] VAR ncella SIZE 70,32 PIXEL;
of oFolder:aDialogs[1] FONT oLarge picture "9999";
BITMAP FwDArrow() ;
ACTION nil

Silvio,

just change to :
.....
.....
oDlg:bPainted := {||Calcolo(@aItems) }

ACTIVATE DIALOG oDlg CENTERED;
ON INIT ( oPanelGreen := PanelGreen(oFolder),;
EVAL( oDlg:bResized))

regards
Uwe

... the bottom of a dialog rather than being on the top ? Thanks Rick Lipkin And with command #xcommand @ <nRow>, <nCol> FOLDEREX [<oFolder>] ; [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ; [ <bm: BITMAPS, IMAGES, ...

... but not run) #include "fivewin.ch" #include "constant.ch" #define WS_VSCROLL 2097152 // 0x00200000L Function test() Local oDlg,oFolder,oVScroll Local nBottom := 33 Local nRight := 115 Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) Local nHeight := nBottom * DLG_CHARPIX_H ...

only with this command can I see the scroll, the vertical scroll is shown even when it should not be shown oApp():oFolder:adialogs[1]:nSTYLE := nOR( WS_CHILD, WS_VSCROLL ) it show vertical scroll on first tab when I click on the scroll button I can not see the other controls i think ...