LCL/IDE: Improved usability of TreeView component editor, patch "treeeditor_fixes" by n7800. Issue #40748.

This commit is contained in:
wp_xyz 2024-02-22 00:00:50 +01:00
parent a3ba11e5c3
commit fd01caa9a2
24 changed files with 458 additions and 219 deletions

View File

@ -1784,12 +1784,18 @@ msgstr ""
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1813,17 +1819,22 @@ msgid "Item"
msgstr "Element" msgstr "Element"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Index de l'Imatge" msgstr "Index de l'Imatge"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Index sel·leccionat" msgstr "Index sel·leccionat"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1723,12 +1723,18 @@ msgstr "Editor položek TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1752,17 +1758,23 @@ msgid "Item"
msgstr "Položka" msgstr "Položka"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Index obrázku" msgstr "Index obrázku"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Vybraný index" msgstr "Vybraný index"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Stavový index" msgstr "Stavový index"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -2,7 +2,7 @@ msgid ""
msgstr "" msgstr ""
"Project-Id-Version: \n" "Project-Id-Version: \n"
"POT-Creation-Date: \n" "POT-Creation-Date: \n"
"PO-Revision-Date: 2024-02-18 01:21+0100\n" "PO-Revision-Date: 2024-02-21 23:55+0100\n"
"Last-Translator: Swen Heinig <swen@heinig.email>\n" "Last-Translator: Swen Heinig <swen@heinig.email>\n"
"Language-Team: Deutsch <lazarus@miraclec.com>\n" "Language-Team: Deutsch <lazarus@miraclec.com>\n"
"Language: de\n" "Language: de\n"
@ -242,11 +242,11 @@ msgstr "&Name:"
#: objinspstrconsts.fesnofields #: objinspstrconsts.fesnofields
msgid "It was not possible to get the dataset fields list." msgid "It was not possible to get the dataset fields list."
msgstr "Es war nicht möglich, die Liste der Felder des Datasets zu lesen" msgstr "Es war nicht möglich, die Liste der Felder des Datasets zu lesen."
#: objinspstrconsts.fesnofieldsnote #: objinspstrconsts.fesnofieldsnote
msgid "Fields list is not available, can't check for duplicates." msgid "Fields list is not available, can't check for duplicates."
msgstr "Feldliste ist nicht verfügbar, kann nicht auf Duplikate prüfen" msgstr "Feldliste ist nicht verfügbar, kann nicht auf Duplikate prüfen."
#: objinspstrconsts.fesokbtn #: objinspstrconsts.fesokbtn
msgctxt "objinspstrconsts.fesokbtn" msgctxt "objinspstrconsts.fesokbtn"
@ -1720,13 +1720,19 @@ msgstr "Editor für TreeView-Einträge"
msgid "Confirmation" msgid "Confirmation"
msgstr "Bestätigung" msgstr "Bestätigung"
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr "Die Datei existiert bereits. Soll sie ersetzt werden?"
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "Information über die Knoten-Bilder kann nicht in der Datei gespeichert werden. Trotzdem fortfahren?" msgstr "Information über die Knoten-Bilder kann nicht in der Datei gespeichert werden. Trotzdem fortfahren?"
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "Die Datei existiert bereits. Soll sie ersetzt werden?" msgstr "Der aktuelle Baum wird überschrieben. Fortfahren?"
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
msgctxt "objinspstrconsts.sccstredtdelete" msgctxt "objinspstrconsts.sccstredtdelete"
@ -1734,16 +1740,14 @@ msgid "Delete"
msgstr "Löschen" msgstr "Löschen"
#: objinspstrconsts.sccstredtimagelistnotassigned #: objinspstrconsts.sccstredtimagelistnotassigned
#, object-pascal-format, fuzzy #, object-pascal-format
#| msgid "%s not assigned."
msgid "\"%s\" not assigned" msgid "\"%s\" not assigned"
msgstr "%s nicht zugewiesen." msgstr "%s nicht zugewiesen"
#: objinspstrconsts.sccstredtinvalidindex #: objinspstrconsts.sccstredtinvalidindex
#, object-pascal-format, fuzzy #, object-pascal-format
#| msgid "%s has only %d images."
msgid "\"%s\" has only %d images" msgid "\"%s\" has only %d images"
msgstr "%s enthält nur %d Bilder." msgstr "%s enthält nur %d Bilder"
#: objinspstrconsts.sccstredtitem #: objinspstrconsts.sccstredtitem
msgctxt "objinspstrconsts.sccstredtitem" msgctxt "objinspstrconsts.sccstredtitem"
@ -1751,18 +1755,21 @@ msgid "Item"
msgstr "Eintrag" msgstr "Eintrag"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Bildindex" msgstr "Bildindex %s:"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format
msgstr "Ausgewählter Index" msgid "Selected Index%s:"
msgstr "Ausgewählter Index %s:"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Statusindex" msgstr "Statusindex %s:"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem
msgctxt "objinspstrconsts.sccstredtnewitem" msgctxt "objinspstrconsts.sccstredtnewitem"
@ -1780,7 +1787,7 @@ msgstr "&Nein"
#: objinspstrconsts.sccstredtopen #: objinspstrconsts.sccstredtopen
msgid "Open file" msgid "Open file"
msgstr "" msgstr "Datei öffnen"
#: objinspstrconsts.sccstredtopendialog #: objinspstrconsts.sccstredtopendialog
msgctxt "objinspstrconsts.sccstredtopendialog" msgctxt "objinspstrconsts.sccstredtopendialog"
@ -1864,4 +1871,3 @@ msgstr "Tab nach links bewegen"
#: objinspstrconsts.tccesmovetabright #: objinspstrconsts.tccesmovetabright
msgid "Move tab right" msgid "Move tab right"
msgstr "Tab nach rechts bewegen" msgstr "Tab nach rechts bewegen"

View File

@ -1722,12 +1722,18 @@ msgstr "Editor de elementos de TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1751,17 +1757,23 @@ msgid "Item"
msgstr "Elemento" msgstr "Elemento"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Índice de imagen" msgstr "Índice de imagen"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Índice seleccionado" msgstr "Índice seleccionado"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Índice de estado" msgstr "Índice de estado"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1722,12 +1722,18 @@ msgstr "TreeView:n kohtien muokkain"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1751,17 +1757,23 @@ msgid "Item"
msgstr "Kohta" msgstr "Kohta"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Kuvan index" msgstr "Kuvan index"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Valittu index" msgstr "Valittu index"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Tilan index" msgstr "Tilan index"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1719,12 +1719,18 @@ msgstr "Éditeur d'éléments TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1748,17 +1754,23 @@ msgid "Item"
msgstr "Élément" msgstr "Élément"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Index d'image" msgstr "Index d'image"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Index sélectionné" msgstr "Index sélectionné"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Index d'état" msgstr "Index d'état"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1795,12 +1795,18 @@ msgstr "תצוגת עץ של עורך פריטים"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1824,19 +1830,23 @@ msgid "Item"
msgstr "פריט" msgstr "פריט"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "אינדקס דמות" msgstr "אינדקס דמות"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
#, fuzzy #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index:" #| msgid "Selected Index:"
msgid "Selected Index" msgid "Selected Index%s:"
msgstr "אינדקס שנבחר" msgstr "אינדקס שנבחר"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "אינדקס מצב" msgstr "אינדקס מצב"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1722,12 +1722,18 @@ msgstr "TreeView elemszerkesztő"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1751,17 +1757,23 @@ msgid "Item"
msgstr "Elem" msgstr "Elem"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Kép index" msgstr "Kép index"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Kijelölt index" msgstr "Kijelölt index"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Állapot index" msgstr "Állapot index"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1798,12 +1798,18 @@ msgstr "Editor Item TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1827,19 +1833,23 @@ msgid "Item"
msgstr "Item" msgstr "Item"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Indeks Gambar" msgstr "Indeks Gambar"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
#, fuzzy #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index:" #| msgid "Selected Index:"
msgid "Selected Index" msgid "Selected Index%s:"
msgstr "Indeks Dipilih" msgstr "Indeks Dipilih"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Indeks Keadaan" msgstr "Indeks Keadaan"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1725,12 +1725,18 @@ msgstr "Editor voci della Treeview"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1754,17 +1760,23 @@ msgid "Item"
msgstr "Voce" msgstr "Voce"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Image Index" msgstr "Image Index"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Indice selezionato" msgstr "Indice selezionato"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Indice di Stato" msgstr "Indice di Stato"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1732,12 +1732,18 @@ msgstr "ツリービューアイテムエディタ"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1761,17 +1767,23 @@ msgid "Item"
msgstr "項目" msgstr "項目"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "イメージのインデックス" msgstr "イメージのインデックス"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "選択時のインデックス" msgstr "選択時のインデックス"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "ステートのインデックス" msgstr "ステートのインデックス"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1724,12 +1724,18 @@ msgstr "TreeView elementų rengyklė"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1753,17 +1759,23 @@ msgid "Item"
msgstr "Elementas" msgstr "Elementas"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Įprastas pav." msgstr "Įprastas pav."
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Pav. pažymėjus" msgstr "Pav. pažymėjus"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Būsenos pav." msgstr "Būsenos pav."
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1787,12 +1787,18 @@ msgstr "TreeView Onderdelen editor"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1816,17 +1822,23 @@ msgid "Item"
msgstr "Onderdeel" msgstr "Onderdeel"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Afbeelding Index" msgstr "Afbeelding Index"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Geselecteerde index" msgstr "Geselecteerde index"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Status index" msgstr "Status index"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1717,12 +1717,18 @@ msgstr "Edytor elementów TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1746,17 +1752,20 @@ msgid "Item"
msgstr "Element" msgstr "Element"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format
msgid "Selected Index%s:"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1706,12 +1706,18 @@ msgstr ""
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1735,17 +1741,20 @@ msgid "Item"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format
msgid "Selected Index%s:"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1716,12 +1716,18 @@ msgstr "Editor Itens \"TreeView\""
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1745,17 +1751,23 @@ msgid "Item"
msgstr "Item" msgstr "Item"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Índice Imagem" msgstr "Índice Imagem"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Índice Selecionado" msgstr "Índice Selecionado"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Índice Estado" msgstr "Índice Estado"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1715,13 +1715,21 @@ msgstr "Редактор элементов TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "Подтверждение" msgstr "Подтверждение"
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
#, fuzzy
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr "Файл уже существует. Заменить его?"
#: objinspstrconsts.sccstredtconfirmationimagesloss
#, fuzzy
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "Сведения об изображениях элементов не могут быть сохранены в файл. Продолжить всё равно?" msgstr "Сведения об изображениях элементов не могут быть сохранены в файл. Продолжить всё равно?"
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "Файл уже существует. Заменить его?" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
msgctxt "objinspstrconsts.sccstredtdelete" msgctxt "objinspstrconsts.sccstredtdelete"
@ -1746,17 +1754,23 @@ msgid "Item"
msgstr "Элемент" msgstr "Элемент"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Индекс изображения" msgstr "Индекс изображения"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Выбранный индекс" msgstr "Выбранный индекс"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Индекс состояния" msgstr "Индекс состояния"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1730,12 +1730,18 @@ msgstr "Editor položiek TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1759,17 +1765,23 @@ msgid "Item"
msgstr "Položka" msgstr "Položka"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Index obrázka" msgstr "Index obrázka"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Index výberu" msgstr "Index výberu"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Index stavu" msgstr "Index stavu"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1716,12 +1716,18 @@ msgstr "TreeView Öğe düzenleyici"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1745,17 +1751,23 @@ msgid "Item"
msgstr "Öğe" msgstr "Öğe"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Resim Dizini" msgstr "Resim Dizini"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Seçilen dizin" msgstr "Seçilen dizin"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Durum dizini" msgstr "Durum dizini"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1719,12 +1719,18 @@ msgstr "Редактор елементів TreeView"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1748,17 +1754,23 @@ msgid "Item"
msgstr "Елемент" msgstr "Елемент"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "Індекс зображення" msgstr "Індекс зображення"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "Вибраний індекс" msgstr "Вибраний індекс"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "Індекс стану" msgstr "Індекс стану"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -1719,12 +1719,18 @@ msgstr "TreeView项目编辑器"
msgid "Confirmation" msgid "Confirmation"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationimages #: objinspstrconsts.sccstredtconfirmationfilereplace
msgctxt "objinspstrconsts.sccstredtconfirmationfilereplace"
msgid "The file already exists, replace it?"
msgstr ""
#: objinspstrconsts.sccstredtconfirmationimagesloss
msgctxt "objinspstrconsts.sccstredtconfirmationimagesloss"
msgid "Information about node images cannot be stored in the file. Continue anyway?" msgid "Information about node images cannot be stored in the file. Continue anyway?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtconfirmationreplace #: objinspstrconsts.sccstredtconfirmationtreereplace
msgid "The file already exists, replace it?" msgid "The current tree will be overwritten, continue?"
msgstr "" msgstr ""
#: objinspstrconsts.sccstredtdelete #: objinspstrconsts.sccstredtdelete
@ -1748,17 +1754,23 @@ msgid "Item"
msgstr "项目" msgstr "项目"
#: objinspstrconsts.sccstredtlabelimageindex #: objinspstrconsts.sccstredtlabelimageindex
#, object-pascal-format, fuzzy, badformat
#| msgid "Image Index"
msgctxt "objinspstrconsts.sccstredtlabelimageindex" msgctxt "objinspstrconsts.sccstredtlabelimageindex"
msgid "Image Index" msgid "Image Index%s:"
msgstr "图片索引" msgstr "图片索引"
#: objinspstrconsts.sccstredtlabelselindex #: objinspstrconsts.sccstredtlabelselindex
msgid "Selected Index" #, object-pascal-format, fuzzy, badformat
#| msgid "Selected Index"
msgid "Selected Index%s:"
msgstr "选择索引" msgstr "选择索引"
#: objinspstrconsts.sccstredtlabelstateindex #: objinspstrconsts.sccstredtlabelstateindex
#, object-pascal-format, fuzzy, badformat
#| msgid "State Index"
msgctxt "objinspstrconsts.sccstredtlabelstateindex" msgctxt "objinspstrconsts.sccstredtlabelstateindex"
msgid "State Index" msgid "State Index%s:"
msgstr "状态索引" msgstr "状态索引"
#: objinspstrconsts.sccstredtnewitem #: objinspstrconsts.sccstredtnewitem

View File

@ -104,9 +104,9 @@ resourcestring
sccsTrEdtApply = 'Apply'; sccsTrEdtApply = 'Apply';
sccsTrEdtOpen = 'Open file'; sccsTrEdtOpen = 'Open file';
sccsTrEdtSave = 'Save to file'; sccsTrEdtSave = 'Save to file';
sccsTrEdtLabelImageIndex = 'Image Index'; sccsTrEdtLabelImageIndex = 'Image Index%s:';
sccsTrEdtLabelSelIndex = 'Selected Index'; sccsTrEdtLabelSelIndex = 'Selected Index%s:';
sccsTrEdtLabelStateIndex = 'State Index'; sccsTrEdtLabelStateIndex = 'State Index%s:';
sccsTrEdtItem = 'Item'; sccsTrEdtItem = 'Item';
sccsTrEdtOpenDialog = 'Open'; sccsTrEdtOpenDialog = 'Open';
sccsTrEdtSaveDialog = 'Save'; sccsTrEdtSaveDialog = 'Save';
@ -115,9 +115,10 @@ resourcestring
sccsTrEdtCancel = '&Cancel'; sccsTrEdtCancel = '&Cancel';
sccsTrEdtInvalidIndex = '"%s" has only %d images'; sccsTrEdtInvalidIndex = '"%s" has only %d images';
sccsTrEdtImageListNotAssigned = '"%s" not assigned'; sccsTrEdtImageListNotAssigned = '"%s" not assigned';
sccsTrEdtConfirmationCaption = 'Confirmation'; sccsTrEdtConfirmationCaption = 'Confirmation';
sccsTrEdtConfirmationImages = 'Information about node images cannot be stored in the file. Continue anyway?'; sccsTrEdtConfirmationImagesLoss = 'Information about node images cannot be stored in the file. Continue anyway?';
sccsTrEdtConfirmationReplace = 'The file already exists, replace it?'; sccsTrEdtConfirmationFileReplace = 'The file already exists, replace it?';
sccsTrEdtConfirmationTreeReplace = 'The current tree will be overwritten, continue?';
// ListView Items Editor // ListView Items Editor
sccsLvEdtCaption = 'ListView Items Editor'; sccsLvEdtCaption = 'ListView Items Editor';

View File

@ -51,6 +51,7 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Constraints.MinHeight = 25 Constraints.MinHeight = 25
Constraints.MinWidth = 75 Constraints.MinWidth = 75
TabOrder = 4 TabOrder = 4
OnClick = btnApplyClick
end end
end end
object ToolBar: TToolBar object ToolBar: TToolBar
@ -64,13 +65,13 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Left = 1 Left = 1
Top = 2 Top = 2
Caption = 'tbNewItem' Caption = 'tbNewItem'
OnClick = tbNewItemSubItemClick OnClick = tbNewItemClick
end end
object tbNewSubItem: TToolButton object tbNewSubItem: TToolButton
Left = 24 Left = 24
Top = 2 Top = 2
Caption = 'tbNewSubItem' Caption = 'tbNewSubItem'
OnClick = tbNewItemSubItemClick OnClick = tbNewItemClick
end end
object tb1: TToolButton object tb1: TToolButton
Left = 47 Left = 47
@ -134,6 +135,7 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Left = 182 Left = 182
Top = 2 Top = 2
Caption = 'tbOpen' Caption = 'tbOpen'
OnClick = tbOpenClick
end end
end end
object pnlImageIndexes: TPanel object pnlImageIndexes: TPanel

View File

@ -65,7 +65,7 @@ type
procedure spnIndexChange(Sender: TObject); procedure spnIndexChange(Sender: TObject);
procedure tbDeleteClick(Sender: TObject); procedure tbDeleteClick(Sender: TObject);
procedure tbMoveClick(Sender: TObject); procedure tbMoveClick(Sender: TObject);
procedure tbNewItemSubItemClick(Sender: TObject); procedure tbNewItemClick(Sender: TObject);
procedure tbOpenClick(Sender: TObject); procedure tbOpenClick(Sender: TObject);
procedure tbRenameClick(Sender: TObject); procedure tbRenameClick(Sender: TObject);
procedure tbSaveClick(Sender: TObject); procedure tbSaveClick(Sender: TObject);
@ -74,11 +74,10 @@ type
fModified: Boolean; fModified: Boolean;
fTreeView: TCustomTreeView; fTreeView: TCustomTreeView;
procedure LoadFromTree(aTreeView: TCustomTreeView); procedure LoadFromTree(aTreeView: TCustomTreeView);
procedure SaveToTree; procedure SaveToSourceTree;
procedure UpdateEnabledStates; procedure UpdateEnabledStates;
procedure UpdateImageHints; procedure UpdateImageHints;
procedure FinishNodeEditing; public
procedure CancelNodeEditing;
property Modified: Boolean read fModified write fModified; property Modified: Boolean read fModified write fModified;
end; end;
@ -103,14 +102,14 @@ implementation
{$R *.lfm} {$R *.lfm}
{ The function returns TRUE if the tree has been changed. } // The function returns true if the tree has been changed
function EditTreeView(ATreeView: TCustomTreeView): boolean; function EditTreeView(ATreeView: TCustomTreeView): boolean;
begin begin
with TTreeViewItemsEditorForm.Create(Application) do with TTreeViewItemsEditorForm.Create(Application) do
try try
LoadFromTree(ATreeView); LoadFromTree(ATreeView);
if ShowModal = mrOK then if ShowModal = mrOK then
SaveToTree; SaveToSourceTree;
Result := Modified; Result := Modified;
finally finally
Free; Free;
@ -121,10 +120,12 @@ end;
procedure TTreeViewItemsEditorForm.FormCreate(Sender: TObject); procedure TTreeViewItemsEditorForm.FormCreate(Sender: TObject);
begin begin
fModified := false;
{ Captions } { Captions }
// form // form
self .Caption := sccsTrEdtCaption; self .Caption := sccsTrEdtCaption;
btnApply.Caption := sccsTrEdtApply; btnApply.Caption := sccsTrEdtApply;
// toolbar // toolbar
@ -139,9 +140,9 @@ begin
tbOpen .Hint := sccsTrEdtOpen + ' [Ctrl+O]'; tbOpen .Hint := sccsTrEdtOpen + ' [Ctrl+O]';
// image indexes // image indexes
lblImageIndex .Caption := sccsTrEdtLabelImageIndex + ':'; lblImageIndex .Caption := Format(sccsTrEdtLabelImageIndex, ['']);
lblSelectedIndex.Caption := sccsTrEdtLabelSelIndex + ':'; lblSelectedIndex.Caption := Format(sccsTrEdtLabelSelIndex , ['']);
lblStateIndex .Caption := sccsTrEdtLabelStateIndex + ':'; lblStateIndex .Caption := Format(sccsTrEdtLabelStateIndex, ['']);
// dialogs // dialogs
dlgOpen.Title := sccsTrEdtOpenDialog; dlgOpen.Title := sccsTrEdtOpenDialog;
@ -152,10 +153,9 @@ begin
{ Images } { Images }
// form
btnApply.LoadGlyphFromResource(idButtonRetry); btnApply.LoadGlyphFromResource(idButtonRetry);
{ Hints }
// toolbar // toolbar
ToolBar.Images := IDEImages.Images_16; ToolBar.Images := IDEImages.Images_16;
tbNewItem .ImageIndex := IDEImages.LoadImage('new_item'); tbNewItem .ImageIndex := IDEImages.LoadImage('new_item');
@ -180,12 +180,12 @@ end;
procedure TTreeViewItemsEditorForm.FormKeyDown(Sender: TObject; var Key: Word; procedure TTreeViewItemsEditorForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
var
lWasEdited: Boolean;
begin begin
// form actions // form actions
if (Key = VK_RETURN) and (Shift = [ssCtrl]) then if (Key = VK_RETURN) and (Shift = [ssCtrl]) then
begin begin
FinishNodeEditing;
ModalResult := mrOK; ModalResult := mrOK;
Key := 0; Key := 0;
end end
@ -196,24 +196,26 @@ begin
end end
else if (Key = VK_ESCAPE) and (Shift = []) then else if (Key = VK_ESCAPE) and (Shift = []) then
begin begin
// pressing [Esc] in an open editor cancel text editing // pressing [Esc] in an open in-place editor cancel text editing
if treEditor.IsEditing then if not treEditor.IsEditing then
CancelNodeEditing begin
else
ModalResult := mrCancel; ModalResult := mrCancel;
Key := 0; Key := 0;
end;
end end
// create item // create item
else if (Key = VK_N) and (Shift = [ssCtrl]) then else if (Key = VK_N) and (Shift = [ssCtrl]) then
begin begin
tbNewItemSubItemClick(tbNewItem); // "Sender" is the pressed button tbNewItemClick(tbNewItem); // "Sender" is the pressed button
Key := 0; Key := 0;
end end
else if (Key = VK_N) and (Shift = [ssCtrl, ssShift]) then else if (Key = VK_N) and (Shift = [ssCtrl, ssShift]) then
begin begin
tbNewItemSubItemClick(tbNewSubItem); // "Sender" is the pressed button tbNewItemClick(tbNewSubItem); // "Sender" is the pressed button
Key := 0; Key := 0;
end end
// delete item // delete item
else if (Key = VK_DELETE) and (Shift = []) then else if (Key = VK_DELETE) and (Shift = []) then
begin begin
@ -225,6 +227,17 @@ begin
Key := 0; Key := 0;
end; end;
end end
// rename item
// the location in the FormKeyDown makes it independent of the current focus
else if (Key = VK_F2) and (Shift = []) then
begin
if not treEditor.IsEditing then
if Assigned(treEditor.Selected) then
treEditor.Selected.EditText;
Key := 0;
end
// move item // move item
else if (Key = VK_DOWN) and (Shift = [ssCtrl, ssShift]) then else if (Key = VK_DOWN) and (Shift = [ssCtrl, ssShift]) then
begin begin
@ -236,13 +249,13 @@ begin
tbMoveClick(tbMoveUp); // "Sender" is the pressed button tbMoveClick(tbMoveUp); // "Sender" is the pressed button
Key := 0; Key := 0;
end end
// move selection // move selection
else if (Key in [VK_DOWN, VK_UP]) and (Shift = []) then else if (Key in [VK_DOWN, VK_UP]) and (Shift = []) then
begin begin
if treEditor.IsEditing then if treEditor.IsEditing then
begin begin
// close text editor // close text editor
FinishNodeEditing;
// select next // select next
if Key = VK_DOWN then if Key = VK_DOWN then
treEditor.MoveToNextNode(true) treEditor.MoveToNextNode(true)
@ -255,13 +268,14 @@ begin
Key := 0; Key := 0;
end; end;
end end
// save and load in/from file // save and load in/from file
else if (Key = VK_S) and (Shift = [ssCtrl]) then else if (Key = VK_S) and (Shift = [ssCtrl]) then
begin begin
tbSaveClick(Sender); tbSaveClick(Sender);
Key := 0; Key := 0;
end end
else if (Key in [VK_L, VK_O]) and (Shift = [ssCtrl]) then else if (Key in [VK_O]) and (Shift = [ssCtrl]) then
begin begin
tbOpenClick(Sender); tbOpenClick(Sender);
Key := 0; Key := 0;
@ -270,17 +284,14 @@ end;
procedure TTreeViewItemsEditorForm.tbRenameClick(Sender: TObject); procedure TTreeViewItemsEditorForm.tbRenameClick(Sender: TObject);
begin begin
treEditor.Selected.EditText; if Assigned(treEditor.Selected) then
treEditor.Selected.EditText;
end; end;
procedure TTreeViewItemsEditorForm.tbNewItemSubItemClick(Sender: TObject); procedure TTreeViewItemsEditorForm.tbNewItemClick(Sender: TObject);
var var
lEdited: Boolean;
lNewName: String; lNewName: String;
begin begin
lEdited := treEditor.IsEditing;
FinishNodeEditing;
lNewName := sccsTrEdtItem + IntToStr(treEditor.Items.Count); lNewName := sccsTrEdtItem + IntToStr(treEditor.Items.Count);
if Sender = tbNewItem then if Sender = tbNewItem then
treEditor.Selected := treEditor.Items.Add(treEditor.Selected, lNewName) treEditor.Selected := treEditor.Items.Add(treEditor.Selected, lNewName)
@ -289,7 +300,7 @@ begin
else else
raise Exception.Create('[tbNewItemClick] Unknown Sender'); raise Exception.Create('[tbNewItemClick] Unknown Sender');
if lEdited and Assigned(treEditor.Selected) then if Assigned(treEditor.Selected) then
begin begin
treEditor.SetFocus; treEditor.SetFocus;
treEditor.Selected.EditText; treEditor.Selected.EditText;
@ -302,8 +313,6 @@ procedure TTreeViewItemsEditorForm.tbMoveClick(Sender: TObject);
var var
lCurNode: TTreeNode; lCurNode: TTreeNode;
begin begin
FinishNodeEditing;
lCurNode := treEditor.Selected; lCurNode := treEditor.Selected;
if lCurNode = nil then exit; if lCurNode = nil then exit;
@ -320,7 +329,6 @@ begin
raise Exception.Create('[tbMoveClick] Unknown Sender'); raise Exception.Create('[tbMoveClick] Unknown Sender');
UpdateEnabledStates; UpdateEnabledStates;
treEditor.SetFocus; // return focus after button click
end; end;
procedure TTreeViewItemsEditorForm.treEditorSelectionChanged(Sender: TObject); procedure TTreeViewItemsEditorForm.treEditorSelectionChanged(Sender: TObject);
@ -356,9 +364,7 @@ end;
procedure TTreeViewItemsEditorForm.btnApplyClick(Sender: TObject); procedure TTreeViewItemsEditorForm.btnApplyClick(Sender: TObject);
begin begin
FinishNodeEditing; SaveToSourceTree;
SaveToTree;
fModified := true;
end; end;
procedure TTreeViewItemsEditorForm.tbDeleteClick(Sender: TObject); procedure TTreeViewItemsEditorForm.tbDeleteClick(Sender: TObject);
@ -382,27 +388,35 @@ begin
treEditor.Selected := lNextNode; treEditor.Selected := lNextNode;
UpdateEnabledStates; UpdateEnabledStates;
treEditor.SetFocus; // return focus after button click
end; end;
end; end;
procedure TTreeViewItemsEditorForm.tbOpenClick(Sender: TObject); procedure TTreeViewItemsEditorForm.tbOpenClick(Sender: TObject);
//
function ConfirmTreeReplace: boolean;
begin
if treEditor.Items.Count > 0 then
result := QuestionDlg(sccsTrEdtConfirmationCaption, sccsTrEdtConfirmationTreeReplace,
TMsgDlgType.mtConfirmation, [mrYes, sccsTrEdtYes, mrNo, sccsTrEdtNo,
mrCancel, sccsTrEdtCancel], 0) = mrYes
else
result := true;
end;
//
begin begin
FinishNodeEditing; if ConfirmTreeReplace and dlgOpen.Execute then
if dlgOpen.Execute then
begin begin
treEditor.LoadFromFile(dlgOpen.FileName); treEditor.LoadFromFile(dlgOpen.FileName);
treEditor.FullExpand; treEditor.FullExpand;
treEditor.Selected := treEditor.Items.GetFirstNode; treEditor.Selected := treEditor.Items.GetFirstNode;
treEditor.SetFocus; // return focus after button click treEditor.SetFocus;
UpdateEnabledStates; UpdateEnabledStates;
end; end;
end; end;
procedure TTreeViewItemsEditorForm.tbSaveClick(Sender: TObject); procedure TTreeViewItemsEditorForm.tbSaveClick(Sender: TObject);
//
function ImagesFound: boolean; function ImagesFound: boolean;
var var
i: Integer; i: Integer;
@ -415,21 +429,21 @@ procedure TTreeViewItemsEditorForm.tbSaveClick(Sender: TObject);
exit(true); exit(true);
result := false; result := false;
end; end;
//
function ConfirmImagesLoss: boolean; function ConfirmImagesLoss: boolean;
begin begin
if ImagesFound then if ImagesFound then
result := QuestionDlg(sccsTrEdtConfirmationCaption, sccsTrEdtConfirmationImages, result := QuestionDlg(sccsTrEdtConfirmationCaption, sccsTrEdtConfirmationImagesLoss,
TMsgDlgType.mtConfirmation, [mrYes, sccsTrEdtYes, mrNo, sccsTrEdtNo, TMsgDlgType.mtConfirmation, [mrYes, sccsTrEdtYes, mrNo, sccsTrEdtNo,
mrCancel, sccsTrEdtCancel], 0) = mrYes mrCancel, sccsTrEdtCancel], 0) = mrYes
else else
result := true; result := true;
end; end;
// //
function ConfirmReplace: boolean; function ConfirmFileReplace: boolean;
begin begin
if FileExists(dlgSave.FileName) then if FileExists(dlgSave.FileName) then
result := QuestionDlg(sccsTrEdtConfirmationCaption, sccsTrEdtConfirmationReplace, result := QuestionDlg(sccsTrEdtConfirmationCaption, sccsTrEdtConfirmationFileReplace,
TMsgDlgType.mtConfirmation, [mrYes, sccsTrEdtYes, mrNo, sccsTrEdtNo, TMsgDlgType.mtConfirmation, [mrYes, sccsTrEdtYes, mrNo, sccsTrEdtNo,
mrCancel, sccsTrEdtCancel], 0) = mrYes mrCancel, sccsTrEdtCancel], 0) = mrYes
else else
@ -437,12 +451,8 @@ procedure TTreeViewItemsEditorForm.tbSaveClick(Sender: TObject);
end; end;
// //
begin begin
FinishNodeEditing; if ConfirmImagesLoss and dlgSave.Execute and ConfirmFileReplace then
if ConfirmImagesLoss and dlgSave.Execute and ConfirmReplace then
treEditor.SaveToFile(dlgSave.FileName); treEditor.SaveToFile(dlgSave.FileName);
treEditor.SetFocus; // return focus after button click
end; end;
procedure TTreeViewItemsEditorForm.spnIndexChange(Sender: TObject); procedure TTreeViewItemsEditorForm.spnIndexChange(Sender: TObject);
@ -459,7 +469,7 @@ end;
// Show hints and "*" in label for invalid index // Show hints and "*" in label for invalid index
procedure TTreeViewItemsEditorForm.UpdateImageHints; procedure TTreeViewItemsEditorForm.UpdateImageHints;
//
procedure UpdateImageHint(aSpinEdit: TSpinEdit; procedure UpdateImageHint(aSpinEdit: TSpinEdit;
aIsStateImages: boolean; aLabel: TLabel; aCaption: string); aIsStateImages: boolean; aLabel: TLabel; aCaption: string);
var var
@ -497,9 +507,9 @@ procedure TTreeViewItemsEditorForm.UpdateImageHints;
// show asterisk if necessary // show asterisk if necessary
if aLabel.ShowHint then if aLabel.ShowHint then
aLabel.Caption := aCaption + '*' aLabel.Caption := Format(aCaption, ['*'])
else else
aLabel.Caption := aCaption; aLabel.Caption := Format(aCaption, ['']);
end; end;
// //
begin begin
@ -511,18 +521,6 @@ begin
end; end;
end; end;
procedure TTreeViewItemsEditorForm.FinishNodeEditing;
begin
if treEditor.Items.Count > 0 then
treEditor.Items[0].EndEdit(false);
end;
procedure TTreeViewItemsEditorForm.CancelNodeEditing;
begin
if treEditor.Items.Count > 0 then
treEditor.Items[0].EndEdit(true);
end;
procedure TTreeViewItemsEditorForm.LoadFromTree(aTreeView: TCustomTreeView); procedure TTreeViewItemsEditorForm.LoadFromTree(aTreeView: TCustomTreeView);
begin begin
fTreeView := aTreeView; fTreeView := aTreeView;
@ -538,10 +536,11 @@ begin
UpdateEnabledStates; UpdateEnabledStates;
end; end;
procedure TTreeViewItemsEditorForm.SaveToTree; procedure TTreeViewItemsEditorForm.SaveToSourceTree;
begin begin
if Assigned(fTreeView) then if Assigned(fTreeView) then
fTreeView.Items.Assign(treEditor.Items); fTreeView.Items.Assign(treEditor.Items);
fModified := true;
end; end;
procedure TTreeViewItemsEditorForm.UpdateEnabledStates; procedure TTreeViewItemsEditorForm.UpdateEnabledStates;