Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Announcements
»
Third party
»
Win32TitleStyler
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
Forum Rules
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
P.I.S.S. a PlugIn-framewo...
by
valdir.marcos
[
Today
at 01:30:17 am]
using make with a differe...
by
Thausand
[
Today
at 12:04:50 am]
FPC Unleashed (inline var...
by
440bx
[May 10, 2026, 10:52:58 pm]
RunFormula: math expressi...
by
valdir.marcos
[May 10, 2026, 10:49:20 pm]
Qt does not position form...
by
valdir.marcos
[May 10, 2026, 10:35:51 pm]
Help with FPReport data b...
by
Dankan1890
[May 10, 2026, 10:08:22 pm]
Scripts to generate ofici...
by
marcov
[May 10, 2026, 09:28:54 pm]
How do 'with' statements ...
by
Warfley
[May 10, 2026, 09:13:18 pm]
FpDebug for Linux AARCH64
by
Martin_fr
[May 10, 2026, 08:21:58 pm]
Label with multiple lines...
by
wp
[May 10, 2026, 06:30:51 pm]
Getting name / line of ca...
by
Martin_fr
[May 10, 2026, 05:46:37 pm]
TStringGrid displaying a ...
by
jamie
[May 10, 2026, 05:18:04 pm]
Application.QueueAsyncCal...
by
Thaddy
[May 10, 2026, 03:17:23 pm]
Windows API Hooking/DLL I...
by
Thaddy
[May 10, 2026, 01:08:56 pm]
TComboBoxEx & TCheckCombo...
by
Paolo
[May 10, 2026, 11:28:00 am]
DataPort or Synpase stat...
by
serbod
[May 10, 2026, 09:30:51 am]
SynEdit auto End of line ...
by
Martin_fr
[May 10, 2026, 09:08:36 am]
Show Case: WritingTool
by
ginoo
[May 10, 2026, 08:47:02 am]
How to view the TODO list...
by
Thaddy
[May 10, 2026, 07:16:27 am]
International Pascal Cong...
by
Mike.Cornflake
[May 09, 2026, 06:45:37 pm]
SpreadSheet Add Chart Lin...
by
eldonfsr
[May 09, 2026, 06:19:33 pm]
How to access inherited m...
by
Thaddy
[May 09, 2026, 04:12:38 pm]
Anubis activated
by
LemonParty
[May 09, 2026, 03:46:01 pm]
Setting canvas offset wit...
by
jamie
[May 09, 2026, 03:14:04 pm]
Limiting Search in TSelec...
by
jamie
[May 09, 2026, 03:09:21 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: Win32TitleStyler (Read 1509 times)
AlexTP
Hero Member
Posts: 2707
Win32TitleStyler
«
on:
April 26, 2022, 12:23:43 am »
This is unit, it works on Windows Vista+ only (it doesn't do anything on older Windows).
https://github.com/Alexey-T/CudaText/blob/master/comp/win32titlestyler.pas
It gives the procedure to make the form's title - dark.
Code: Pascal
[Select]
[+]
[-]
procedure
ApplyFormDarkTitle
(
AForm
:
TForm
;
ADarkMode
:
bool
;
AForceApply
:
bool
)
;
Param AForceApply was needed for my app, you can always pass True here.
With value False my app cannot make the title dark - after restoring from the full-screen mode (Win10 resetted dark style to white style).
«
Last Edit: April 26, 2022, 12:26:25 am by AlexTP
»
Logged
CudaText editor
-
ATSynEdit
-
More from me
Okoba
Hero Member
Posts: 657
Re: Win32TitleStyler
«
Reply #1 on:
April 26, 2022, 08:53:47 am »
Hello Alex
Can you share an screenshot?
Logged
AlexTP
Hero Member
Posts: 2707
Re: Win32TitleStyler
«
Reply #2 on:
April 26, 2022, 09:30:33 am »
Here it is
(the Win32MenuStyler also works here for the MainMenu)
«
Last Edit: April 26, 2022, 09:32:13 am by AlexTP
»
Logged
CudaText editor
-
ATSynEdit
-
More from me
Okoba
Hero Member
Posts: 657
Re: Win32TitleStyler
«
Reply #3 on:
April 26, 2022, 09:40:59 am »
Cuda is looking very cool with these colors! Well done Alex.
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Announcements
»
Third party
»
Win32TitleStyler
TinyPortal
© 2005-2018