Difference between revisions of "Win32TitleStyler"

From Free Pascal wiki
Jump to navigationJump to search
Line 1: Line 1:
 
==About==
 
==About==
This is unit, it works on Windows Vista+ only (it doesn't do anything on older Windows).
+
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).
  
 
[https://github.com/Alexey-T/CudaText/blob/master/comp/win32titlestyler.pas Download link on GitHub]
 
[https://github.com/Alexey-T/CudaText/blob/master/comp/win32titlestyler.pas Download link on GitHub]
Line 9: Line 10:
  
 
==Usage==
 
==Usage==
Unit gives the procedure to make the form's title - dark, using Win32 API.
 
  
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">

Revision as of 14:14, 3 May 2022

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.

cudatext-dark-title.png

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: was needed for CudaText, you can always pass True here. With value False, CudaText cannot make the title dark - after restoring from the full-screen mode (Win10 resets dark style to white style).