NextTitle (Function)

Modifies the title of next window to open.

Reminder: By default, the window title is the one defined in the editor.

Modifies the title of next dialog box opened.

Versions 21 and later

Remark: When run in the project initialization code, NextTitle updates the load message displayed on the splash screen.

New in version 21

Remark: When run in the project initialization code, NextTitle updates the load message displayed on the splash screen.

Versions 15 and later

This function is now available for Android applications.

New in version 15

This function is now available for Android applications.

Versions 16 and later

This function is now available for WINDEV applications in Linux.

New in version 16

This function is now available for WINDEV applications in Linux.

Versions 17 and later

This function is now available for iPhone/iPad applications.

New in version 17

This function is now available for iPhone/iPad applications.

Versions 18 and later

This function is now available in Android widget mode.

New in version 18

This function is now available in Android widget mode.

Versions 21 and later

This function is now available in Universal Windows 10 App mode.

New in version 21

This function is now available in Universal Windows 10 App mode.

Example

// Modify the title of next window to open
NextTitle("Modifying a customer form")

Syntax

NextTitle(<New title>)

<New title>: Character string

New title of next window or dialog box to open.
New title of next dialog box to open.

Remarks

Title of dialog boxes

By default, the windows opened by Warning, Confirm, Dialog, Error, ErrorInfo, Info, OKCancel or YesNo have the same title as the previous window. NextTitle is used to modify this title.

NextTitle is used to modify the title of the dialog boxes opened by Confirm, OKCancel or YesNo. The title of the dialog boxes displayed by Error and Info cannot be modified.

Presentation of title

The drawing functions in the list boxes (starting with the letter "g") are used to:

add drawings to the title,
modify the formatting of title (background color, text color, etc.) with gBackground and gPen.

For example: to modify the text color and the background color of title:

NextTitle(EOT + gBackground(RGB(0, 255, 255)) + gPen(RGB(255, 0, 0)) + "Color test")

Special case in Windows Vista and later: Windows that use the "Aero system" style cannot have a graphic title: the graphic part is ignored. If "Aero" is not enabled, the graphic title will be displayed as usual.

Minimized window

When a window is minimized, the title of this window is displayed beside the icon in the taskbar.

Versions 15 and later

Special case in Android and iOS: Using the Hourglass function

Using Hourglass triggers the display of an infinite progress bar. The application interface can no longer be handled by the user as long as the hourglass is displayed.

By default, no message is displayed beside the progress bar.

The following actions can be performed:

To display a message, use NextTitle.
To modify the message while the progress bar is displayed, all you have to do is re-run NextTitle then Hourglass.
To hide the progress bar, use Hourglass with the <Enabled> parameter set to False as many times as Hourglass was used with the <Enabled> parameter set to True.

Remark: When running long processes, we advise you to add calls to Multitask in the code in order to give time to the progress bar to refresh its display.

Example:

// This example explains how to copy several HFSQL files
// from an HFSQL server to a local directory.
// In this example, an information is displayed for each copy.
// sConnection is a connection defined through programming.

gsMyLocalHFPath is string = SysDirStorageCard() + fSep() + "MyApplication Data" + fSep()
sPassword is string = "My password"

NextTitle("Copying the Category file")
HourGlass(True)
IF NOT HCopyFile("", ...
gsMyLocalHFPath + Category..Name + ".fic", sConnection, Category..Name + ".fic", ...
hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the BankAccount file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + BankAccount..Name + ".fic", ...
sConnection, BankAccount..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the Operations file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + Operations..Name + ".fic", ...
sConnection, Operations..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the SubCategory file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + SubCategory..Name + ".fic", ...
sConnection, SubCategory..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the User file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + User..Name + ".fic", ...
sConnection, User..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END
// Close the houglasses
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)

Info("The files have been copied onto the Smartphone.")

New in version 15

Special case in Android and iOS: Using the Hourglass function

Using Hourglass triggers the display of an infinite progress bar. The application interface can no longer be handled by the user as long as the hourglass is displayed.

By default, no message is displayed beside the progress bar.

The following actions can be performed:

To display a message, use NextTitle.
To modify the message while the progress bar is displayed, all you have to do is re-run NextTitle then Hourglass.
To hide the progress bar, use Hourglass with the <Enabled> parameter set to False as many times as Hourglass was used with the <Enabled> parameter set to True.

Remark: When running long processes, we advise you to add calls to Multitask in the code in order to give time to the progress bar to refresh its display.

Example:

// This example explains how to copy several HFSQL files
// from an HFSQL server to a local directory.
// In this example, an information is displayed for each copy.
// sConnection is a connection defined through programming.

gsMyLocalHFPath is string = SysDirStorageCard() + fSep() + "MyApplication Data" + fSep()
sPassword is string = "My password"

NextTitle("Copying the Category file")
HourGlass(True)
IF NOT HCopyFile("", ...
gsMyLocalHFPath + Category..Name + ".fic", sConnection, Category..Name + ".fic", ...
hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the BankAccount file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + BankAccount..Name + ".fic", ...
sConnection, BankAccount..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the Operations file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + Operations..Name + ".fic", ...
sConnection, Operations..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the SubCategory file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + SubCategory..Name + ".fic", ...
sConnection, SubCategory..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the User file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + User..Name + ".fic", ...
sConnection, User..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END
// Close the houglasses
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)

Info("The files have been copied onto the Smartphone.")

Special case in Android and iOS: Using the Hourglass function

Using Hourglass triggers the display of an infinite progress bar. The application interface can no longer be handled by the user as long as the hourglass is displayed.

By default, no message is displayed beside the progress bar.

The following actions can be performed:

To display a message, use NextTitle.
To modify the message while the progress bar is displayed, all you have to do is re-run NextTitle then Hourglass.
To hide the progress bar, use Hourglass with the <Enabled> parameter set to False as many times as Hourglass was used with the <Enabled> parameter set to True.

Remark: When running long processes, we advise you to add calls to Multitask in the code in order to give time to the progress bar to refresh its display.

Example:

// This example explains how to copy several HFSQL files
// from an HFSQL server to a local directory.
// In this example, an information is displayed for each copy.
// sConnection is a connection defined through programming.

gsMyLocalHFPath is string = SysDirStorageCard() + fSep() + "MyApplication Data" + fSep()
sPassword is string = "My password"

NextTitle("Copying the Category file")
HourGlass(True)
IF NOT HCopyFile("", ...
gsMyLocalHFPath + Category..Name + ".fic", sConnection, Category..Name + ".fic", ...
hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the BankAccount file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + BankAccount..Name + ".fic", ...
sConnection, BankAccount..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the Operations file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + Operations..Name + ".fic", ...
sConnection, Operations..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the SubCategory file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + SubCategory..Name + ".fic", ...
sConnection, SubCategory..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END

NextTitle("Copying the User file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + User..Name + ".fic", ...
sConnection, User..Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category..Name + " locally")
END
// Close the houglasses
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)

Info("The files have been copied onto the Smartphone.")

Component: wd270obj.dll