FiveTech Software tech support forums

... muestre el numero de citas que no se muestran, habria que crear una DATA aCitasDia con las citas de todo el dia y al total citas restar las no :lVisible. Esa es una forma Aunque yo he hecho el pintado en TCalInfo, lo ideal seria hacerlo en TMonthV.prg METHOD PaintOnMonth(...............) ...

... nCol } Local aAux, nMaxLen Local nHeight Local nWidth Local nHScreen := GetSysMetrics( 1 ) Local nWScreen := GetSysMetrics( 0 ) Local nLines if ::lVisible ::Hide() endif if cPrompt != nil ::cPrompt := cPrompt aAux := ::MaxLen( cPrompt ) nMaxLen := aAux[1] nLines := aAux[2] nWidth := nMaxLen + ...

... @ 70, 100 BTNBMP oBtn OF oFld1:aDialogs[2] ; SIZE 60, 60 PIXEL TRANSPARENT ; NOBORDER ; RESOURCE "FISH1" ; ACTION ( IIF( lVisible[ 3 ] = .T., ( lVisible[ 3 ] := .F., oFld1:HideTab( 3 ) ), ; ( lVisible[ 3 ] := .T., oFld1:ShowTab( 3 ) ) ), oFld1:Refresh() ) ; CENTER oBtn:cTooltip ...

...  in ?)    WINDOW.PRG      572   891 LVALIDATING            WINDOW.PRG      438   497  1151  1220 LVBX                    WINDOW.PRG      438 LVISIBLE                WINDOW.PRG      438   653   860  1148  1330 LVSCROLL                WINDOW.PRG      485  1114  1119  1134  1195 LWHEN()     ...

... FILENAME c_path + "\System\Preview.bmp" ; SIZE 40, 45 OF oDlg1 PIXEL NOBORDER ; TOP ; PROMPT cLang[10] ; FONT oTxtfont ; ACTION ( lVISIBLE := .T., ; READ_GAME(), ; oBrw1:SetArray( aImg ), oBrw1:Refresh() ) oBtn[14]:cTooltip := cLang[10] + " " + cLang[1] oBtn[14]:lTransparent ...

... shows how to use a GIF image to display a waiting message. * Fix: Class TWindow Methods Hide() and Show() were not modifying DATA lVisible, now it is ok. * Enhancement: function SetWindowTheme( hWnd or hDlg or hControl ) can be used to disable the themes style for a specific window, ...

... ON RESIZE ( that works ), but a called function is executed twice. I noticed it, because of a forgotten logical var. The function PAINT_LOGO sets lVisible to .T. ( double painting disabled ) lVisible := .F. ACTIVATE WINDOW oWnd MAXIMIZED ; ON RESIZE ( W_BACKGRD( oWnd:oWndClient, "PICTURE8.jpg" ...

... Bottom and Right-position to redraw on new Backround. Also You need a Logical-var, to know if the Logo has to be closed. I used STATIC : oLogo lVisible := .F. aLogo[4] aLogo[1] := 120 // Logo Start-top-pos. aLogo[2] := 50 // Logo-Start-left-pos. nWColorF := 16443068 // 1. Color nWColorB := ...

Casi se me olvida. Hay que modificar en la TWindow dos métodos, y es una corrección igual de la TWindow, la DATA lVisible no setea correctamente cuando una ventana está oculta o no, y estas son las líneas a modificar. Antes:    METHOD Hide() INLINE ShowWindow( ...

Hola FiveWinners.

Condicionado por una variable logica, requiero ocultar un ComboBox y/o un CheckBox, he utilizado oComb:lVisible:=.F. y no lo oculta.

Alguien Conoce el Truco?

Saludos

... 0, 255, 0, 255 ) oView2 = TView():New( oView, 0, 0, ScreenWidth(), ScreenHeight() - 69 ) oView2:SetBkgColor( 255, 0, 0, 255 ) oView2:lVisible = .F. oView3 = TView():New( oView, 0, 0, ScreenWidth(), ScreenHeight() - 69 ) oView3:SetBkgColor( 255, 255, 0, 255 ) oView3:lVisible = .F. ...

James, Actually DATA lVisible just stores the visible status but it does not perform any action if we change it, in example if we do oControl:lVisible := .F. then the control will not be hidden. such functionality can be done using ...

James, Actually DATA lVisible just stores the visible status but it does not perform any action if we change it, in example if we do oControl:lVisible := .F. then the control will not be hidden. Thats why in order to implement that ...

... this?   METHOD Hide() INLINE ::lVisibile:=.F., ShowWindow( ::hWnd, SW_HIDE )   METHOD Show() INLINE  ::lVisible:=.T., ShowWindow( ::hWnd, SW_SHOWNA ) However, I have not looked at the code to see how the var lVisible is actually used. James

Antonio, >lVisible should be a DATA used by each control, not a Class Var Yes, I do understand the difference. I was referring to data of the class, not CLASSDATA. I am confused. Here are the disable() and enable() methods of ...