FiveTech Software tech support forums

Posted: **Wed Apr 01, 2009 7:31 pm**

Antonio,

In FWH92 as the control drag and move, the rectangle would display the displacement disappears !

How to fix it?

Code: Select all Expand view: @ 10,20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 20,60 PIXEL OF oDlgEdit UPDATE

Posted: **Fri Apr 03, 2009 9:04 am**

Vilian,

This example works fine. Tested in Windows 7:

Code: Select all Expand view: #include "FiveWin.ch" function Main() local oDlg DEFINE DIALOG oDlg TITLE "Test" ACTIVATE DIALOG oDlg CENTERED ; ON INIT PlaceControls( oDlg ) return nil function PlaceControls( oDlg ) local oGet, cVar := "Hello" @ 20, 20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 80, 25 PIXEL OF oDlg UPDATE return nil

Posted: **Fri Apr 03, 2009 1:07 pm**

Antonio,

Test with the example below. Move the control, you can see the problem.

Code: Select all Expand view: #include "FiveWin.ch" static oWnd function Main() local oDlg DEFINE WINDOW oWnd ; MDI ; ACTIVATE WINDOW oWnd MAXIMIZED; ON INIT ExibJanela() RETURN NIL FUNCTION EXIBJANELA() DEFINE DIALOG oDlg TITLE "Test" OF OWND ACTIVATE DIALOG oDlg CENTERED ; ON INIT (PlaceControls( oDlg )) return nil function PlaceControls( oDlg ) local oGet, cVar := "Hello" @ 20, 20 GET oGet VAR cVar PICTURE "@!" DESIGN SIZE 80, 25 PIXEL OF oDlg UPDATE return nil

Posted: **Sat Apr 04, 2009 8:49 am**

Vilian,

It seems as the problem is that the border is being painted on the container window:

We need to review CtrlDrawFocus() source code.

Posted: **Sun Apr 05, 2009 8:52 am**

Vilian,

Fixed. These new lines are required in FWH\source\winapi\ctrldraw.c

Code: Select all Expand view: ... while( GetParent( hWndParent ) ) { char ClassName[ 100 ]; // new ! GetClassName( hWndParent, ClassName, 99 ); // new ! if( strcmp( ClassName, "#32770" ) == 0 ) // a Modal Dialog // new ! break; // new ! hWndParent = GetParent( hWndParent ); ...

Posted: **Mon Apr 06, 2009 8:33 pm**

Antonio,

don´t work !!!

Code: Select all Expand view: while( GetParent( hWndParent ) ) { char ClassName[ 100 ]; // new ! GetClassName( hWndParent, ClassName, 99 ); // new ! if( strcmp( ClassName, "#32770" ) == 0 ) // new ! break; // new ! hWndParent = GetParent( hWndParent ); if( ( GetWindowLong( hWndParent, GWL_STYLE ) & WS_CAPTION ) == WS_CAPTION ) iParentsWithCaption++; }

Posted: **Mon Apr 06, 2009 9:29 pm**

Vilian,

You can download your fixed EXE from here and check it for yourself:
http://www.mediafire.com/?sharekey=414c ... 0a1ae8665a

It works fine on Windows 7

Posted: **Mon Apr 06, 2009 11:16 pm**

Antonio,

You can send me your ctrldraw.c or. Obj?

Posted: **Tue Apr 07, 2009 5:57 am**

Posted: **Tue Apr 07, 2009 11:45 am**

Antonio,

Thanks, work´s fine.

Dots disappear when drag and move control!