FiveTech Software tech support forums

... INIT ( oDlg:Move( nHeight + 2, 3 ) ) ; VALID .f. // to avoid exiting pressing Esc !!! #else if ::oWnd:IsKindOf( "TDIALOG" ) if ! ::oWnd:lResize16 ACTIVATE DIALOG oDlg NOWAIT ; ON INIT oDlg:Move( nHeight - 1, 1 ) ; VALID .f. // to avoid exiting pressing Esc !!! else ACTIVATE DIALOG oDlg ...

El botón HELP (?) se que se quita así: oDlg:lHelpIcon:=.F.

La clase DIALOG tiene ademas estas otras datas: lResize16, lCentered, lModal, lModify

Aunque he probado esto y funciona: DEFINE WINDOW soWnd TITLE "..." MDI ICON soIco STYLE 255 quita el botón [X].

... = .T. // .T. so the GET VALID is not fired when the button is focused if Upper( ::oWnd:ClassName() ) == "TDIALOG" .and. ::oWnd:lResize16 ::oBtn:nWidth = ::nHeight - 5 ::oBtn:nHeight = ::nHeight - 2 ::oBtn:nLeft = ( ::nWidth * 1.167 ) - ::nHeight+iif(::nWidth>200,1,2) // By ...

... AS LOGICAL DATA cResName, cResData DATA hResources DATA lCentered, lModal, lModify DATA bStart DATA lHelpIcon // Windows 95 help icon pressed DATA lResize16 // resize 32 bits resources to look like 16 bits ones DATA lTransparent // transparent controls when using bitmaped brushes METHOD New( nTop, ...

Dear Antonio, ::lResize16 is Dialog DATA. It is not exist in TGET. If I'm not wrong, Dialog will be resize all object in DIALOG ACTIVATE. How can TGET will know ::lResize16? Regards, Dutch Dutch, We can implement your fix this way: ...

Marco,

You have to modify Class TFolder Method LoadPages to admit a third parameter:

METHOD LoadPages( aResNames, bRedefineControls, lResize16 ) CLASS TFolder

and then issue an ACTIVATE DIALOG oDlg ... RESIZE16 if lResize16 is true

Michel,

You may change the Class TDialog and set ::lResize16 as .T. by default, so you don't have to modify your source code

... i have modified any fwh classes :D A modification creates the problem, ok, but which? I have modified: 1) In Dialog.prg in Activate Method default lResize16 is .T. 2) In ErrorSys.prg many modifications 3) In Folder.prg I have added the management lResize16 4) In Tget and MGet I have insert the ...

... bytes Time from start: 0 hours 0 mins 0 secs Error occurred at: 12/08/06, 00:53:38 Error description: Error BASE/1004 Message not found: TWINDOW:LRESIZE16 Args: [ 1] = O Object Stack Calls =========== Called from: => __ERRRT_SBASE(0) Called from: => TWINDOW:ERROR(179) Called from: source\rtl\tobject.prg ...

Your Class TWindow may be missing the DATA lResize16. Please add it.

Surprisingly it is missing. Adding it and initializing it to false solved the issue. Thanks.

BTW, I'm using FWH 2.8 Nov, the latest built

Your Class TWindow may be missing the DATA lResize16. Please add it.

Probably you are mixing different FWH versions source code.

Testing the following code, I got an error as mentioned above. Where did I go wrong? #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oFld1 USE Numbers INDEX ON Str( Numbers->Number, ...