diff --git a/lib/msgs/en.msg b/lib/msgs/en.msg
index 31a6a59..ee3a7c6 100644
--- a/lib/msgs/en.msg
+++ b/lib/msgs/en.msg
@@ -18,6 +18,7 @@
 ::msgcat::mcset en "Braces foreground"
 ::msgcat::mcset en "Cancel"
 ::msgcat::mcset en "Can't found file:"
+::msgcat::mcset en "Choose color"
 ::msgcat::mcset en "Close"
 ::msgcat::mcset en "Close all"
 ::msgcat::mcset en "Close Project Manager?"
@@ -85,6 +86,7 @@
 ::msgcat::mcset en "Indent foreground"
 ::msgcat::mcset en "Indent background"
 ::msgcat::mcset en "Interface language"
+::msgcat::mcset en "Insert color code"
 ::msgcat::mcset en "Insert image"
 ::msgcat::mcset en "Install Tcl/Tk Project Manager"
 ::msgcat::mcset en "Input file name"
@@ -204,4 +206,3 @@
 ::msgcat::mcset en "SCREAMING-KEBAB-CASE"
 ::msgcat::mcset en "Train-Case"
 ::msgcat::mcset en "space separated"
-
diff --git a/lib/msgs/ru.msg b/lib/msgs/ru.msg
index 5cbce8c..761150a 100644
--- a/lib/msgs/ru.msg
+++ b/lib/msgs/ru.msg
@@ -24,6 +24,7 @@
 ::msgcat::mcset ru "Cancel" "Отмена"
 ::msgcat::mcset ru "Can't found file:" "Не найден файл:"
 ::msgcat::mcset ru "Char" "Символ"
+::msgcat::mcset ru "Choose color" "Выбор цвета"
 ::msgcat::mcset ru "Close" "Закрыть"
 ::msgcat::mcset ru "Close all" "Закрыть все"
 ::msgcat::mcset ru "Close file" "Закрыть файл"
@@ -111,6 +112,7 @@
 ::msgcat::mcset ru "Init repository" "Создать репозиторий"
 ::msgcat::mcset ru "Insert" "Вставка"
 ::msgcat::mcset ru "In" "В"
+::msgcat::mcset ru "Insert color code" "Вставить код цвета"
 ::msgcat::mcset ru "Insert image" "Вставить изображение"
 ::msgcat::mcset ru "Interface language" "Язык интерфейса"
 ::msgcat::mcset ru "Interpetator" "Интерпретатор"
diff --git a/lib/procedure.tcl b/lib/procedure.tcl
index 1e7eb45..8f526af 100644
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -1232,4 +1232,13 @@ proc DebugPuts {msg} {
     }
 }
 
+proc ChooseColor {} {
+    global nbEditor
+    
+    set txt "[$nbEditor select].frmText.t"
 
+    set color [tk_chooseColor -initialcolor white -title  [::msgcat::mc "Choose color"] -parent .]
+    if {$color ne "" && [winfo exists $txt] == 1} {
+        $txt insert insert "$color"
+    }
+}