FiveTech Software tech support forums

Dear Michel,

Please go to FWH\samples and run this:

buildh tutor01 -b

The debugger shows and works fine. Please try it and let me know what you get

many thanks

Michel, For each SCREEN RESOLUTION, you must CREATE A DIFFERENT DIALOGUE and call the corresponding dialog for each SCREEN RESOLUTION.

Para cada RESOLUCIÓN DE PANTALLA, debe CREAR UN DIÁLOGO DIFERENTE y llamar al diálogo correspondiente para cada RESOLUCIÓN DE PANTALLA.

Regards, saludos.

Dear Michel, chatgpt proposes this code, not sure if it will work as expected. You can easily port it to FWH #include <stdio.h>#include <windows.h>int main() {    HKEY hKey;    const char *regPath = ...

Dear Michel,

To save the current current position:

nStartPosition = oWordApp:Selection:Range:Start
nEndPosition = oWordApp:Selection:Range:End

To later restore the cursor position:
oWordApp:Selection:SetRange( nStartPosition, nEndPosition )

Dear Michel,

Please review this:
https://learn.microsoft.com/en-us/office/vba/api/word.options.defaultfilepath
https://documentation.help/VBAWD10/woproDefaultFilePath.htm

It should work as the first try but Harbour syntax does not allows it

Dear Michel,

Please try it this way:

cWord:Options:DefaultFilePath[8] = cNewPath

Dear Michel,

Please try this:

cWord:Options:DefaultFilePath(8) = cNewPath
MsgInfo( cWord:Options:DefaultFilePath(8) )

and check if it works and changes the path or generates an error

Dear Michel,

How are you finally reading the settings ?

Please post the code to see how to save them, thanks

Dear Michel, According to google Bard it can be done this way: #include <windows.h>int main() {  // Get the handle of the Word application.  HWND word_app = FindWindow(L"Word.Application", ...

Dear Michel,

What addon is it ?

Dear Michel,

Already sent to your email

Dear Michel, Please try it this way: STATIC PROCEDURE WordQuit    local nFWHApps := 0    EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW,OpusApp", nFWHApps++, ) ...

Dear Michel, Please use this code: STATIC PROCEDURE WordQuit    local nFWHApps := 0    EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW,OpusApp", nFWHApps++, ) ...

Dear Michel,

> would it be difficult to create a same function for other applications or files (Word- or Excel-documents)?

You simply apply the same logic:

if there is only one FWH app running then you can quit it, if not, you don't

Dear Michel, Please change your function this way: STATIC PROCEDURE WordQuit    local nFWHApps := 0    EnumWindows( { | hWnd | If( GetClassName( hWnd ) == "TWINDOW", nFWHApps++, ...