FiveTech Software tech support forums

... tsay,timage,etc, que derivan del tcontrol original ... tendríamos que derivar cada una de esas clases ( como hace Paco ) y añadir su propio metodo checkdots() y showdots() . Se puede hacer y el codigo de Paco es libre , pero sería bueno realizarlo en un fork independiente , para mi que es un "divertimento ...

... => TWINDOW:CREATE( 734 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:NEW( 819 ) Called from: .\source\classes\CONTROL.PRG => TSAY:CHECKDOTS( 1333 ) Called from: .\source\classes\SAY.PRG => TSAY:NEW( 150 ) It's urgent. Please if someone can help... :roll:

... but there needs to be a little work done on the class to get the design feature to work. When you initialize the button you can use oBtn:checkdots() to initialize. Then you can do oBtn:ShowDots() and oBtn:HideDots() The problem happens if you take the handles and move them. It would be ...

... GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) ) oWnd:AddControl( Self ) ::Default() Else oWnd:DefControl( Self ) EndIf If lDesign ::CheckDots() EndIf Return Self * ============================================================================ * METHOD TSLines:Redefine() Version 6.0 ...

Hi MDA: I try with sbutton Release 7.0 But I think there is a problem because when I use design clause it draw the rectangule of checkdots bad I use then an action to refresh the dialog ( and the bitmaps I drawing ) but it refresh also the ribbon and it make a flash on the dialog I'll ...

... a bitmap near to another I try with sbutton Release 7.0 But I think there is a problem because when I use design clause it draw the rectangule of checkdots bad look it please : http://img87.imageshack.us/img87/107/immaginezsx.jpg I use then an action to refresh the dialog ( and ...

... se espera. Te anexo un pequeño ejemplo para que lo compruebes. Además, hay otros pequeños detalles: 1) Si se borra un objeto, no desaparecen los checkdots que lo delimitan 2) El dragado permite llevar el objeto fuera de los límites de su ventana, de manera que si lo soltamos fuera de su contenedor, ...

... WNDCREATEERROR(0) Called from: WINDOW.PRG => TWINDOW:CREATE(0) Called from: WINDOW.PRG => TWINDOW:NEW(0) Called from: CONTROL.PRG => TBOX:CHECKDOTS(0) Called from: test.prg => TITEMS:NEW(102) Called from: test.prg => TBOX:NEW(225) Called from: test.prg => MAIN(17)

Try BRUSH in CheckDots method: METHOD CheckDots() CLASS TControl ... DEFINE CURSOR oSizeNWSE SIZENWSE DEFINE CURSOR oSizeNESW SIZENESW DEFINE CURSOR oSizeNS SIZENS DEFINE CURSOR oSizeWE SIZEWE DEFINE BRUSH oDotBrush ...

... ! Empty( oWnd:hWnd ) ::Create() ::Default() if ::l3D ::Set3DLook() endif oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif if ::lDrag ::CheckDots() endif return Self //----------------------------------------------------------------------------// METHOD ReDefine( nId, bText, oWnd, cPicture, ...

... := 0 ::nHeightCell := ::nHeightHead := SBGetHeight( ::hWnd, If( ::oFont != Nil, ; ::oFont:hFont, 0 ), 0 ) ::aMsg := LoadMsg() If lDesign ::CheckDots() EndIf ::SetFilter( cField, uVal1, uVal2 ) If ::cAlias == "ARRAY" If ! Empty( uAlias ) .and. ValType( uAlias[ 1 ] ) != "A" ::SetItems( uAlias ...

... WNDCREATEERROR(0) Called from: WINDOW.PRG => TWINDOW:CREATE(0) Called from: WINDOW.PRG => TWINDOW:NEW(0) Called from: CONTROL.PRG => TSAY:CHECKDOTS(0) Called from: SAY.PRG => TSAY:NEW(0) Called from: => HB_EXECFROMARRAY(0) Called from: D:\quiquesoft\ide\prg\ventana.prg => VENTANA:OBJNEW(138) ...

... => WNDCREATEERROR(0) Called from: => TWINDOW:CREATE(0) Called from: => TWINDOW:NEW(0) Called from: => TBUTTONBMP:CHECKDOTS(0) Called from: => TBUTTON:NEW(0) Called from: => TBUTTONBMP:NEW(0) Called from: main.prg => TEST_SETTING(228) Called from: main.prg ...

... oWnd:hWnd ) ::Create() ::Default() ::lVisible = .t. oWnd:AddControl( Self ) else oWnd:DefControl( Self ) ::lVisible = .f. endif if lDesign ::CheckDots() endif return Self //----------------------------------------------------------------------------// METHOD ReDefine( nId, bLine, oDlg, aHeaders, ...

... lRaised, lAutoWidth ) CLASS TSay .../... if lAutoWidth ::nRight = ::nLeft + GetTextWidth( 0, ::cCaption, ::oFont:hFont ) - 1 EndIf if ::lDrag ::CheckDots() endif return Self" Saludos Carlos G.