paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 15:41:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl gtk3: load theme.css only if existing

Browse Source
This commit is contained in:
mattias 2022-12-19 21:12:09 +01:00
parent 166d1b6dbf
commit f87fe0303d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk3/gtk3object.inc
View File

@ -351,7 +351,8 @@ begin
cssProvider := gtk_css_provider_new();
gtk_css_provider_load_from_path(cssProvider, 'theme.css', nil);
if FileExists('theme.css') then
gtk_css_provider_load_from_path(cssProvider, 'theme.css', nil);
gtk_style_context_add_provider_for_screen(gdk_screen_get_default(),
PGtkStyleProvider(cssProvider),
GTK_STYLE_PROVIDER_PRIORITY_USER);