topic-39945

Posts: 434

Joined: Wed Jun 06, 2007 02:58 PM

Fivewin and debug
Posted: Fri Feb 05, 2021 01:20 PM

Hi,
is there a simple mode to debub a fivewin app?
I now use msginfo() to view field value and logic sequence but is there an interactive way?

Thanks

FiveWin for xHarbour 24.02 - Feb. 2024 - Embarcadero C++ 7.60 for Win32 Copyright (c) 1993-2023

FWH 64 for Harbour 19.06 (MSVC++) Jun. 2019 - Harbour 3.2.0dev (r1904111533)

Visual Studio 2019 - Pelles C V.8.00.60 (Win64)

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Fivewin and debug
Posted: Fri Feb 05, 2021 01:31 PM

Try with this

viewtopic.php?f=16&t=35267&p=209856&hilit=fwinlog#p209856

viewtopic.php?f=6&t=39860&p=237823&hilit=fwinlog#p237823

Code (fw): Select all Collapse

#include "Fivewin.ch"

Static oWnd

function Main()

   Local nVal  := 300
   //StartFWLog( nTop, nLeft, nHeight, nWidth, lDown, lLines, lCouple, cTitle )
   StartFWLog( , , 622, 590, .F., .T., , )    //.F.
   // Use FWINLOG command or MsgLog function
   // When MsgLog is invoked, show window "debug"
   DEFINE WINDOW oWnd FROM 0, 0 TO 750, 1365 PIXEL ;
      TITLE "FWH Test FWINLOG - " + FWVERSION MENU BuildMenu()
      FWINLOG nVal
   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

Static Function BuildMenu()

   local oMnu
   MENU oMnu
      MENUITEM "Options"
      MENU
         MENUITEM "Option - 1" ACTION MsgLog( { CRLF, oWnd:nHeight, oWnd:nWidth } )
         SEPARATOR
         MENUITEM "Exit" ACTION oWnd:End()
      ENDMENU
      MENUITEM "Others"
      MENU
         MENUITEM "Others - 1" ACTION MsgLog( { CRLF, Len( oMnu:aMenuItems ) } )
         SEPARATOR
         MENUITEM "Others - 2"
      ENDMENU
   ENDMENU
   
Return oMnu

//----------------------------------------------------------------------------//

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion