mirrors/1c_rac-gui
1
0
Fork 0
mirror of https://bitbucket.org/svk28/rac-gui synced 2024-12-04 18:46:52 +00:00
Code Releases Activity

Добавлены в конфиг настройки темы. Реализована работа с темами.

Browse Source
This commit is contained in:
Sergey Kalinin 2019-08-30 16:03:07 +03:00
parent 6fc029c32e
commit b2159137db
5 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/gui.tcl
View File

@ -31,7 +31,10 @@ bind . <Control-Q> Quit
#ttk::style configure Custom.Treeview -foreground red #ttk::style configure Custom.Treeview -foreground red
#ttk::style configure Custom.Treeview -rowheight 20 #ttk::style configure Custom.Treeview -rowheight 20
ttk::style theme use dark
if [info exists default(theme)] {
ttk::style theme use $default(theme)
}
# Панель инсрументов # Панель инсрументов
set frm_tool [ttk::frame .frm_tool] set frm_tool [ttk::frame .frm_tool]
@ -79,8 +82,11 @@ set tree_work [
-yscrollcommand [list $frm_work.vsb set] -yscrollcommand [list $frm_work.vsb set]
] ]
# table rows background colors # table rows background colors
$tree_work tag configure dark -background $color(dark_table_bg)
$tree_work tag configure light -background $color(light_table_bg) if {[info exists default(theme)] == 1} {
$tree_work tag configure dark -background $color(dark_table_bg)
$tree_work tag configure light -background $color(light_table_bg)
}
bind $tree_work <Double-ButtonPress-1> Edit bind $tree_work <Double-ButtonPress-1> Edit
$tree tag configure selected -background white -foreground black $tree tag configure selected -background white -foreground black
@ -113,3 +119,4 @@ pack $frm_tree $frm_work -side left -expand true -fill both

8
lib/theme.tcl
View File

@ -30,3 +30,11 @@
# option add *ScrollableFrame.Background $editor(bg) interactive # option add *ScrollableFrame.Background $editor(bg) interactive
# option add *ScrolledWindow.Background $editor(bg) interactive # option add *ScrolledWindow.Background $editor(bg) interactive
if {[info exists default(theme)] == 1 && $default(theme) eq "dark"} {
set color(dark_table_bg) "#6f6f6f"
set color(light_table_bg) "#424242"
} else {
set color(dark_table_bg) "#e2e2e2"
set color(light_table_bg) "#ffffff"
}

1
lib/ttk_theme_dark.tcl
View File

@ -139,3 +139,4 @@ namespace eval ::tablelist:: {

10
rac_gui.cfg
View File

@ -114,15 +114,13 @@ set default(auth) {
os os
} }
## Раскоментировать строки и прописать свои значения если ## Раскоментировать строки и прописать свои значения если
## для Информационных Баз используются эти параметры ## для Информационных Баз используются эти параметры
#set default(infobase_user) "ib_user" #set default(infobase_user) "ib_user"
#set default(infobase_pwd) "ib_password" #set default(infobase_pwd) "ib_password"
# цвета строк в таблице # Используемая тема
#set color(dark_table_bg) "#e2e2e2" # доступны: dark, clam, classic, default, alt
#set color(light_table_bg) "#ffffff" set default(theme) dark
set color(dark_table_bg) "#6f6f6f"
set color(light_table_bg) "#424242"

1
rac_gui.tcl
View File

@ -110,4 +110,3 @@ if [file exists [file join $dir(work) 1c_srv_new.cfg]] {
puts $servers_list puts $servers_list
} }