paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/LCL: Prevent using the TListItems component editor when the associated listview is in virtual mode. https://forum.lazarus.freepascal.org/index.php/topic,66660.0.html, patch by dsiders.

Browse Source 
(cherry picked from commit 5621ec7af3)
This commit is contained in:
wp_xyz 2024-03-18 21:07:15 +01:00 committed by Maxim Ganetsky
parent 381cf5293e
commit ab700311a7
23 changed files with 97 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/languages/objinspstrconsts.ca.po
View File

@ -1615,6 +1615,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr ""
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
#, fuzzy
msgctxt "objinspstrconsts.sccslvedtnewitem"

4
components/ideintf/languages/objinspstrconsts.cs.po
View File

@ -1562,6 +1562,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Stavový index:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

14
components/ideintf/languages/objinspstrconsts.de.po
View File

@ -2,7 +2,7 @@ msgid ""
msgstr ""
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: 2022-04-06 00:06+0200\n"
"PO-Revision-Date: 2024-03-18 21:06+0100\n"
"Last-Translator: Swen Heinig <swen@heinig.email>\n"
"Language-Team: Deutsch <lazarus@miraclec.com>\n"
"Language: de\n"
@ -10,7 +10,7 @@ msgstr ""
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Poedit-SourceCharset: utf-8\n"
"X-Generator: Poedit 3.0.1\n"
"X-Generator: Poedit 3.4.1\n"
#: objinspstrconsts.cactionlisteditorallcategory
msgid "(All)"
@ -242,11 +242,11 @@ msgstr "&Name:"
#: objinspstrconsts.fesnofields
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
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
msgctxt "objinspstrconsts.fesokbtn"
@ -1560,6 +1560,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Status-Index:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr "Listeneinträge können zur Entwurfszeit nicht bearbeitet werden, wenn OwnerData aktiviert ist. Verwenden Sie dafür stattdessen Items.Count und das OnData-Ereignis."
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"
@ -1649,8 +1653,6 @@ msgid "Load ..."
msgstr "Laden..."
#: objinspstrconsts.sccssgedtmoverowscols
#, fuzzy
#| msgid "Move Rows/Columns"
msgid "Move rows/columns"
msgstr "Zeilen/Spalten verschieben"

4
components/ideintf/languages/objinspstrconsts.es.po
View File

@ -1563,6 +1563,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Índice de estado:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.fi.po
View File

@ -1554,6 +1554,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Tila osoitin:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.fr.po
View File

@ -1558,6 +1558,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "État de l'index :"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.he.po
View File

@ -1622,6 +1622,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "אינדקס מצב:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.hu.po
View File

@ -1561,6 +1561,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Állapot index:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.id.po
View File

@ -1622,6 +1622,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Indeks Keadaan:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
#, fuzzy
msgctxt "objinspstrconsts.sccslvedtnewitem"

4
components/ideintf/languages/objinspstrconsts.it.po
View File

@ -1564,6 +1564,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Indice di stato:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.ja.po
View File

@ -1569,6 +1569,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "ステートのインデックス:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.lt.po
View File

@ -1562,6 +1562,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Būsenos indeksas:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.nl.po
View File

@ -1609,6 +1609,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Status index:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.pl.po
View File

@ -1556,6 +1556,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr ""
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.pot
View File

@ -1548,6 +1548,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr ""
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.pt_BR.po
View File

@ -1557,6 +1557,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Índice Estado:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.ru.po
View File

@ -1557,6 +1557,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Индекс состояния:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.sk.po
View File

@ -1571,6 +1571,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Stavový index:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.tr.po
View File

@ -1557,6 +1557,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Durum dizini:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.uk.po
View File

@ -1560,6 +1560,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "Індекс стану:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

4
components/ideintf/languages/objinspstrconsts.zh_CN.po
View File

@ -1558,6 +1558,10 @@ msgctxt "objinspstrconsts.sccslvedtlabelstateindex"
msgid "State Index:"
msgstr "状态索引:"
#: objinspstrconsts.sccslvedtmsgownerdata
msgid "List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead."
msgstr ""
#: objinspstrconsts.sccslvedtnewitem
msgctxt "objinspstrconsts.sccslvedtnewitem"
msgid "New Item"

9
components/ideintf/listviewpropedit.pp
View File

@ -29,7 +29,7 @@ interface
uses
Classes, SysUtils,
// LCL
Forms, Controls, ComCtrls, StdCtrls, Buttons, ButtonPanel,
Forms, Controls, ComCtrls, StdCtrls, Dialogs, Buttons, ButtonPanel,
// IdeIntf
PropEdits, ComponentEditors, ObjInspStrConsts, IDEWindowIntf;
@ -92,6 +92,13 @@ function EditListView(AListView: TListView): Boolean;
var
ListViewEditorDlg: TListViewItemsEditorForm;
begin
if AListView.OwnerData then
begin
MessageDlg(sccsLvEdtMsgOwnerData, mtError, [mbOK], 0);
Result := false;
exit;
end;
ListViewEditorDlg := TListViewItemsEditorForm.Create(Application);
try
ListViewEditorDlg.LoadFromList(AListView);

1
components/ideintf/objinspstrconsts.pas
View File

@ -127,6 +127,7 @@ resourcestring
sccsLvEdtLabelImageIndex = 'Image Index:';
sccsLvEdtLabelStateIndex = 'State Index:';
sccsLvEdtItem = 'Item';
sccsLvEdtMsgOwnerData = 'List items cannot be edited at design-time when OwnerData is enabled. Use Items.Count and OnData at run-time instead.';
// Image editor strings
oisImageListComponentEditor = 'I&mageList Editor ...';