Win32TitleStyler

About

This is unit, it gives the procedure to make the form's title - dark, using Win32 API. It works on Windows 10 and 11+ (it doesn't do anything on older Windows, and it doesn't work on some older builds of Windows 10).

Download link on GitHub

Screenshot of CudaText with applied dark color. The TMainMenu color was changed by Win32MenuStyler.

Usage

 ApplyFormDarkTitle(AForm: TForm; ADarkMode: bool; AForceApply: bool);

• Parameter ADarkMode: set to True for dark title, set to False for default title (white on Windows 10).
• Parameter AForceApply: value True: component will apply the change harder, it will change the form size by 1 pixel up, then by 1 pixel down, to force the applying. With value False, CudaText cannot make the title dark - after restoring from the full-screen mode.

From the Free Pascal wiki, page "Win32TitleStyler", as it stood on 2022-06-04 after a change by Alextp, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.