Ich finde das StringGadget braucht zu viel platz.
Code: Alles auswählen
;-TOP by mk-soft, v1.02.0, create 21.05.2022, update 06.12.2023
CompilerIf #PB_Compiler_OS = #PB_OS_Linux
;- Constants
#GTK_STYLE_PROVIDER_PRIORITY_FALLBACK = 1
#GTK_STYLE_PROVIDER_PRIORITY_THEME = 200
#GTK_STYLE_PROVIDER_PRIORITY_SETTINGS = 400
#GTK_STYLE_PROVIDER_PRIORITY_APPLICATION = 600
#GTK_STYLE_PROVIDER_PRIORITY_USER = 800
ImportC ""
gtk_css_provider_load_from_data(*CSSProvider, CSSData.P-UTF8, Length, *Error.GError)
gtk_css_provider_new()
gtk_style_context_add_provider_for_screen(*Screen.GdkScreen, *StyleProvider, Priority)
EndImport
Procedure _SetLinuxStyle()
Protected CSSProvider, CSSDefault.s, Screen
CSSDefault = "button, entry {min-height: 20px;} "
CSSDefault + "tab {min-height: 20px;} "
CSSDefault + "button, scale {padding-bottom: 2px; padding-left: 2px; padding-right: 2px; padding-top: 2px} "
CSSDefault + "entry {padding-bottom: 3px; padding-left: 6px; padding-right: 6px; padding-top: 3px} "
CSSProvider= gtk_css_provider_new()
gtk_css_provider_load_from_data(CSSProvider, CSSDefault, -1, 0)
Screen = gdk_display_get_default_screen_(gdk_display_get_default_())
gtk_style_context_add_provider_for_screen(Screen, CSSProvider, #GTK_STYLE_PROVIDER_PRIORITY_APPLICATION)
g_object_unref_(CSSProvider)
EndProcedure : _SetLinuxStyle()
CompilerEndIf
; *********************************************************
Procedure SetDarkMode(State)
Protected boolVal, *Settings
*Settings = gtk_settings_get_default_()
If *Settings
g_object_get_(*Settings, "gtk-application-prefer-dark-theme", @boolVal)
g_object_set_(*Settings, "gtk-application-prefer-dark-theme", State);
ProcedureReturn boolVal
EndIf
EndProcedure
; *********************************************************
; Select examaple
#Example = 2
; *********************************************************
CompilerIf #Example = 1
Procedure UpdateWindow()
Protected dx, dy
dx = WindowWidth(0)
dy = WindowHeight(0)
Debug dx
ResizeGadget(0, 10, 10, dx - 20, dy - 70)
ResizeGadget(1, 10, dy - 50, 120, 30)
EndProcedure
Procedure ShowDialog()
If OpenWindow(1, 300, 300, 300, 200, "Dialog");, #PB_Window_Tool)
dx = WindowWidth(1)
dy = WindowHeight(1)
EditorGadget(10, 10, 10, dx - 20, dy - 70)
ButtonGadget(11, 10, dy - 50, 120, 30, "Ok")
ButtonGadget(12, dx - 130, dy - 50, 120, 30, "Cancel")
EndIf
EndProcedure
Procedure Main()
Protected info.s
info = "XDG_SESSION_TYPE: " + GetEnvironmentVariable("XDG_SESSION_TYPE") + #LF$
If OpenWindow(0, 100, 100, 400, 300, "Window", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
dx = WindowWidth(0)
dy = WindowHeight(0)
TextGadget(0, 10, 10, dx - 20, dy - 70, info, #PB_Text_Border)
ButtonGadget(1, 10, dy - 50, 120, 30, "Dialog")
BindEvent(#PB_Event_SizeWindow, @UpdateWindow(), 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Select EventWindow()
Case 0
Break
Case 1
CloseWindow(1)
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case 1
ShowDialog()
Case 11, 12
CloseWindow(1)
EndSelect
EndSelect
ForEver
EndIf
EndProcedure : Main()
CompilerEndIf
; ----
CompilerIf #Example = 2
OpenWindow(0, 100, 100, 300, 160, "StringGadgets", #PB_Window_SystemMenu | #PB_Window_Invisible)
SetDarkMode(#True)
For i = 0 To 2
StringGadget(i, 20, i * 35 + 20, WindowWidth(0) - 40, 25, "")
SetGadgetText(i, "StringGadget " + Str(i + 1) +
" - Required height: " + GadgetHeight(i, #PB_Gadget_RequiredSize))
Next i
HideWindow(0, #False)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
CompilerEndIf
; ----
CompilerIf #Example = 3
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget (0, 8, 8, 306, 203)
AddGadgetItem (0, -1, "Panel 1")
PanelGadget (1, 5, 5, 290, 166)
AddGadgetItem(1, -1, "Sub-Panel 1")
AddGadgetItem(1, -1, "Sub-Panel 2")
AddGadgetItem(1, -1, "Sub-Panel 3")
CloseGadgetList()
AddGadgetItem (0, -1,"Panel 2")
ButtonGadget(2, 10, 15, 80, 24,"Button 1")
ButtonGadget(3, 95, 15, 80, 24,"Button 2")
CloseGadgetList()
SetDarkMode(1)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
CompilerEndIf
