IDEIntf: add possibility to add frames to project options, issue #30032

git-svn-id: trunk@52215 -

components/ideintf/ideoptionsintf.pas

@@ -116,6 +116,7 @@ type
   TAbstractIDEOptionsClass = class of TAbstractIDEOptions;
 
   TAbstractIDEEnvironmentOptions = class(TAbstractIDEOptions);
+  TAbstractIDEProjectOptions = class(TAbstractIDEOptions);
   TAbstractIDEHelpOptions = class(TAbstractIDEEnvironmentOptions);
 
   TOnAddToRecent = procedure(Sender: TObject; AFileName: string; var AAllow: Boolean) of object;

components/ideintf/languages/objinspstrconsts.ca.po

@@ -491,6 +491,14 @@ msgstr "Crea l'esdeveniment predeterminat"
 msgid "Create new field and add it at current position"
 msgstr ""
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 #, fuzzy
 #| msgid "Cut components"
@@ -778,6 +786,14 @@ msgstr ""
 msgid "Select All Fields"
 msgstr ""
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -814,6 +830,10 @@ msgstr "Fica a predeterminat: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Mostra arbre de components"

components/ideintf/languages/objinspstrconsts.cs.po

@@ -475,6 +475,14 @@ msgstr "Vytvořit výchozí událost"
 msgid "Create new field and add it at current position"
 msgstr "Vytvořit nové pole a přidat je na aktuální pozici"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -758,6 +766,14 @@ msgstr "Vybrat vše"
 msgid "Select All Fields"
 msgstr "Vybrat všechna pole"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -794,6 +810,10 @@ msgstr "Nastavit na výchozí: %s"
 msgid "Set property value to Default"
 msgstr "Natavit hodnotu vlastnosti jako Výchozí"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Ukázat strom komponent"

components/ideintf/languages/objinspstrconsts.de.po

@@ -474,6 +474,14 @@ msgstr "Default-Ereignis erzeugen"
 msgid "Create new field and add it at current position"
 msgstr "Neues Feld an aktueller Position einfügen"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -751,6 +759,14 @@ msgstr "Alle au&swählen"
 msgid "Select All Fields"
 msgstr "Alle Felder auswählen"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "Gewählte Eigenschaften"
@@ -787,6 +803,10 @@ msgstr "Auf Voreinstellung %s setzen"
 msgid "Set property value to Default"
 msgstr "Eigenschaftswert auf Vorgabe setzen"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Komponentenbaum anzeigen"

components/ideintf/languages/objinspstrconsts.es.po

@@ -473,6 +473,14 @@ msgstr "Crear evento por defecto"
 msgid "Create new field and add it at current position"
 msgstr "Crear nuevo campo y añadirlo en la posición actual"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -750,6 +758,14 @@ msgstr "&Selecciona todo"
 msgid "Select All Fields"
 msgstr "Seleccionar todos los campos"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "Propiedades &Seleccionadas"
@@ -786,6 +802,10 @@ msgstr "Establecer por defecto: %s"
 msgid "Set property value to Default"
 msgstr "Establecer valor de la propiedad como predeterminado"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Mostar Árbol de Componentes"

components/ideintf/languages/objinspstrconsts.fi.po

@@ -466,6 +466,14 @@ msgstr "Luo oletustapahtuma"
 msgid "Create new field and add it at current position"
 msgstr "Luo uusi kenttä ja lisää se nykyiseen kohtaan"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -743,6 +751,14 @@ msgstr "&Valitse kaikki"
 msgid "Select All Fields"
 msgstr "Valitse kaikki kentät"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "&Valitut ominaisuudet"
@@ -779,6 +795,10 @@ msgstr "Aseta oletusarvo: %s"
 msgid "Set property value to Default"
 msgstr "Aseta ominaisuuden arvoksi oletus"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Näytä komponenttipuu"

components/ideintf/languages/objinspstrconsts.fr.po

@@ -474,6 +474,14 @@ msgstr "Création d'un événement par défaut"
 msgid "Create new field and add it at current position"
 msgstr "Créer un nouveau champ et l'ajouter à la position en cours"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -751,6 +759,14 @@ msgstr "Tout &sélectionner"
 msgid "Select All Fields"
 msgstr "Sélectionner tous les champs"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "Propriétés &sélectionnées"
@@ -787,6 +803,10 @@ msgstr "Définir par défaut : %s"
 msgid "Set property value to Default"
 msgstr "Définir la valeur de la propriété à celle par défaut"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Afficher l'arbre du composant"
@@ -1583,3 +1603,4 @@ msgstr "Déplacer l'onglet vers la gauche"
 #: objinspstrconsts.tccesmovetabright
 msgid "Move tab right"
 msgstr "Déplacer l'onglet vers la droite"
+

components/ideintf/languages/objinspstrconsts.he.po

@@ -491,6 +491,14 @@ msgstr "צור אירוע ברירת מחדל"
 msgid "Create new field and add it at current position"
 msgstr "צור שדה חדש והוסף אותו במיקום הנוכחי"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -781,6 +789,14 @@ msgstr "בחר הכל"
 msgid "Select All Fields"
 msgstr "בחר את כל השדות"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -818,6 +834,10 @@ msgstr "קבע כברירת מחדל: s%"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "הראה את עץ הרכיבים"

components/ideintf/languages/objinspstrconsts.hu.po

@@ -473,6 +473,14 @@ msgstr "Alapértelmezett esemény létrehozása"
 msgid "Create new field and add it at current position"
 msgstr "Mező létrehozása és hozzáadása az aktuális helyhez"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -750,6 +758,14 @@ msgstr "Ö&sszes kijelölése"
 msgid "Select All Fields"
 msgstr "Minden mező kijelölése"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "Kijelölt tulajdonságok"
@@ -786,6 +802,10 @@ msgstr "Beállítás alapértelmezettre: %s"
 msgid "Set property value to Default"
 msgstr "A tulajdonság értéke legyen Alapértelmezett"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Komponensek fájának megjelenítése"
@@ -1582,3 +1602,4 @@ msgstr "Fül mozgatása eggyel balra"
 #: objinspstrconsts.tccesmovetabright
 msgid "Move tab right"
 msgstr "Fül mozgatása eggyel jobbra"
+

components/ideintf/languages/objinspstrconsts.id.po

@@ -491,6 +491,14 @@ msgstr "Buat event default"
 msgid "Create new field and add it at current position"
 msgstr ""
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 #, fuzzy
 #| msgid "Cut components"
@@ -780,6 +788,14 @@ msgstr ""
 msgid "Select All Fields"
 msgstr ""
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -816,6 +832,10 @@ msgstr "Set ke default: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Tampilkan Susunan Komponen"

components/ideintf/languages/objinspstrconsts.it.po

@@ -474,6 +474,14 @@ msgstr "Crea evento predefinito"
 msgid "Create new field and add it at current position"
 msgstr "Crea un nuovo campo e aggiungilo alla posizione corrente"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -751,6 +759,14 @@ msgstr "&Seleziona tutto"
 msgid "Select All Fields"
 msgstr "Seleziona tutti i campi"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "Proprietà &Selezionate"
@@ -787,6 +803,10 @@ msgstr "Imposta al valore predefinito: %s"
 msgid "Set property value to Default"
 msgstr "Imposta come Default il valore della proprietà"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Mostra l'albero dei componenti"

components/ideintf/languages/objinspstrconsts.ja.po

@@ -473,6 +473,14 @@ msgstr "デフォルトイベントの作成"
 msgid "Create new field and add it at current position"
 msgstr "新しいフィールドを作成し、それを現在の位置に加える"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -756,6 +764,14 @@ msgstr "すべて選択(&S)"
 msgid "Select All Fields"
 msgstr "すべてのフィールドを選択"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "選択されたプロパティ(&S)"
@@ -792,6 +808,10 @@ msgstr "デフォルトに設定: %s"
 msgid "Set property value to Default"
 msgstr "プロパティ値を既定値に設定"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "コンポーネントツリーを表示"

components/ideintf/languages/objinspstrconsts.lt.po

@@ -475,6 +475,14 @@ msgstr "Kurti numatytą įvykį"
 msgid "Create new field and add it at current position"
 msgstr "Sukurti naują laukelį ir jį įdėti į dabartinę poziciją"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -758,6 +766,14 @@ msgstr "Žymėti &viską"
 msgid "Select All Fields"
 msgstr "Pažymėti visus laukelius"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -794,6 +810,10 @@ msgstr "Keisti į numatytą: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Rodyti komponentų medį"

components/ideintf/languages/objinspstrconsts.nl.po

@@ -484,6 +484,14 @@ msgstr "Creëer standaard gebeurtenis"
 msgid "Create new field and add it at current position"
 msgstr ""
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -767,6 +775,14 @@ msgstr ""
 msgid "Select All Fields"
 msgstr ""
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -803,6 +819,10 @@ msgstr "Zet naar standaardinstelling: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Laat componenten boom zien"

components/ideintf/languages/objinspstrconsts.pl.po

@@ -492,6 +492,14 @@ msgstr "Utwórz domyślne zdarzenie"
 msgid "Create new field and add it at current position"
 msgstr ""
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 #, fuzzy
 #| msgid "Cut components"
@@ -779,6 +787,14 @@ msgstr ""
 msgid "Select All Fields"
 msgstr ""
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -815,6 +831,10 @@ msgstr "Ustaw domyślną wartość: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Pokaż drzewo komponentów"

components/ideintf/languages/objinspstrconsts.po

@@ -466,6 +466,14 @@ msgstr ""
 msgid "Create new field and add it at current position"
 msgstr ""
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -743,6 +751,14 @@ msgstr ""
 msgid "Select All Fields"
 msgstr ""
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -779,6 +795,10 @@ msgstr ""
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr ""

components/ideintf/languages/objinspstrconsts.pt_BR.po

@@ -474,6 +474,14 @@ msgstr "Criar evento padrão"
 msgid "Create new field and add it at current position"
 msgstr "Criar novo campo e adicioná-lo na posição atual"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -757,6 +765,14 @@ msgstr "&Selecionar tudo"
 msgid "Select All Fields"
 msgstr "Selecionar todos campos"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "Propriedades &Selecionadas"
@@ -793,6 +809,10 @@ msgstr "Definir para padrão: %s"
 msgid "Set property value to Default"
 msgstr "Definir valor da propriedade para o padrão"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Exibir árvore componentes"

components/ideintf/languages/objinspstrconsts.ru.po

@@ -473,6 +473,14 @@ msgstr "Создать событие по умолчанию"
 msgid "Create new field and add it at current position"
 msgstr "Создать новое поле и вставить его в текущую позицию"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -750,6 +758,14 @@ msgstr "Вы&делить все"
 msgid "Select All Fields"
 msgstr "Выделить все поля"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr "Вы&бранные свойства"
@@ -786,6 +802,10 @@ msgstr "Установить по умолчанию: %s"
 msgid "Set property value to Default"
 msgstr "Установить значение свойства по умолчанию"
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Показывать дерево компонентов"

components/ideintf/languages/objinspstrconsts.sk.po

@@ -497,6 +497,14 @@ msgstr "Vytvoriť predvolenú udalosť"
 msgid "Create new field and add it at current position"
 msgstr ""
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 #, fuzzy
 #| msgid "Cut components"
@@ -786,6 +794,14 @@ msgstr ""
 msgid "Select All Fields"
 msgstr ""
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -822,6 +838,10 @@ msgstr "Nastaviť na predvolené: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Zobraziť Strom komponentov"

components/ideintf/languages/objinspstrconsts.uk.po

@@ -476,6 +476,14 @@ msgstr "Створити подію за замовчуванням"
 msgid "Create new field and add it at current position"
 msgstr "Створити нове поле і додати його в поточну позицію"
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 msgctxt "objinspstrconsts.oiscutcomponents"
 msgid "Cu&t"
@@ -759,6 +767,14 @@ msgstr "Ви&брати все"
 msgid "Select All Fields"
 msgstr "Вибрати Всі Поля"
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -795,6 +811,10 @@ msgstr "Встановити за замовчуванням: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "Показати Дерево Компонентів"

components/ideintf/languages/objinspstrconsts.zh_CN.po

@@ -498,6 +498,14 @@ msgstr "创建默认的事件"
 msgid "Create new field and add it at current position"
 msgstr ""
 
+#: objinspstrconsts.oiscurrentparent
+msgid "Current parent"
+msgstr ""
+
+#: objinspstrconsts.oiscurrentparents
+msgid "Current parents"
+msgstr ""
+
 #: objinspstrconsts.oiscutcomponents
 #, fuzzy
 #| msgid "Cut components"
@@ -787,6 +795,14 @@ msgstr ""
 msgid "Select All Fields"
 msgstr ""
 
+#: objinspstrconsts.oisselectedcontrol
+msgid "Selected control"
+msgstr ""
+
+#: objinspstrconsts.oisselectedcontrols
+msgid "Selected controls"
+msgstr ""
+
 #: objinspstrconsts.oisselectedproperties
 msgid "&Selected Properties"
 msgstr ""
@@ -823,6 +839,10 @@ msgstr "设为默认: %s"
 msgid "Set property value to Default"
 msgstr ""
 
+#: objinspstrconsts.oisshowclasses
+msgid "Show classes"
+msgstr ""
+
 #: objinspstrconsts.oisshowcomponenttree
 msgid "Show Component Tree"
 msgstr "显示组件树"

ide/main.pp

@@ -4061,7 +4061,7 @@ end;
 
 procedure TMainIDE.mnuProjectOptionsClicked(Sender: TObject);
 begin
-  ProjectOptionsHelper([TProjectIDEOptions, TProjectCompilerOptions]);
+  ProjectOptionsHelper([TAbstractIDEProjectOptions, TProjectCompilerOptions]);
 end;
 
 procedure TMainIDE.mnuBuildModeClicked(Sender: TObject);
@@ -4829,9 +4829,10 @@ var
   AProject: TProject;
 begin
   //debugln(['TMainIDE.DoProjectOptionsBeforeRead ',DbgSName(Sender)]);
+  if not (Sender is TProjectIDEOptions) then exit;
   ActiveSrcEdit:=nil;
   BeginCodeTool(ActiveSrcEdit, ActiveUnitInfo, []);
-  AProject:=(Sender as TProjectIDEOptions).Project;
+  AProject:=TProjectIDEOptions(Sender).Project;
   AProject.BackupSession;
   AProject.BackupBuildModes;
   AProject.UpdateExecutableType;
@@ -4926,7 +4927,8 @@ var
 
 begin
   //debugln(['TMainIDE.DoProjectOptionsAfterWrite ',DbgSName(Sender),' Restore=',Restore]);
-  AProject:=(Sender as TProjectIDEOptions).Project;
+  if not (Sender is TProjectIDEOptions) then exit;
+  AProject:=TProjectIDEOptions(Sender).Project;
   if Restore then
   begin
     AProject.RestoreBuildModes;

ide/project.pp

@@ -673,7 +673,7 @@ type
 
   { TProjectIDEOptions }
 
-  TProjectIDEOptions = class(TAbstractIDEOptions)
+  TProjectIDEOptions = class(TAbstractIDEProjectOptions)
   private
     FProject: TProject;
   public