Поиск в инспекторе объектов

[Владимир]

Господа-граждане, всем доброго!
Подскажите, реализован ли поиск в инспекторе объектов по именам компонентов (по аналогии с Дельфями)?

[Ask]

Только по первой букве

[Владимир]

Только по первой букве

Это предвыборная шутка что ли? Смешно.

[Ask]

Э... какая шутка?
Поиск в Object Inspector работает только по первой букве в Lazarus, по любому префиксу в Delphi.

[Владимир]

Э... какая шутка?
Поиск в Object Inspector работает только по первой букве в Lazarus, по любому префиксу в Delphi.

Тогда не дайте помереть дурой - как искать-то?. Пробовал по-всякому, не пашет.

[Ask]

Собственно, так же как и в Delphi -- нажимаешь Tab, нажимаешь букву -- курсор перемещается на первое свойство, начинающееся на эту букву.

[Владимир]

Собственно, так же как и в Delphi -- нажимаешь Tab, нажимаешь букву -- курсор перемещается на первое свойство, начинающееся на эту букву.

Не, я тупой наверное. Или неверно вопрос сформулировал - поиск не по свойствам, а по компонентам в инспекторе ( в верхнем окне)

[WAYFARER]

Или неверно вопрос сформулировал - поиск не по свойствам, а по компонентам в инспекторе ( в верхнем окне)

Так не в инспекторе объектов тогда, а палитре компонентов. Нет, там поиска нет.

Добавлено спустя 43 минуты 8 секунд:
А ведь есть там подобное: Вид->Компоненты

[Ask]

Или правая кнопка на любом компоненте + "Найти компонент"

[Владимир]

Или правая кнопка на любом компоненте + "Найти компонент"

Так не в инспекторе объектов тогда, а палитре компонентов. Нет, там поиска нет.

Да не в палитре, а в инспекторе объектов! Если на форме кликнуть что-нить, то в инспекторе это подсвечивается, здесь проблем нет. Проблема обратная - если нужный компонент на форме закрыт другими, как добраться до его свойств/событий в инспекторе?

[WAYFARER]

Т.е. имеется ввиду древовидный список объектов в верху инспектора объектов?
Ну можно сделать и там)) Нарисовать допустим TEdit сверху и обработать ввод текста в него, как то так примерно:

Код: Выделить всё

for i := 0 to ComponentTree.Items.Count - 1 do
  if Pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(ComponentTree.Items[i].Text)) <> 0 then
  begin
    ComponentTree.Selected := ComponentTree.Items[i];
    break;
end;   


Владимир, а мысль то интересную вы подали)) Действительно удобно будет, на досуге прикручу такое себе)

[Владимир]

Действительно удобно будет, на досуге прикручу такое себе)

Ну слава Богу, меня поняли! Кстати, в дельфях это было реализовано...
Прикрутить, наверное, можно (правда, не понимаю как - это в код Лазаруса лезть?). Ежели прикрУтите, поделИтесь (с подробностями).
Лучше до разработчиков это донести, чтоб всем счастье было.

[zub]

Владимир
>>Лучше до разработчиков это донести, чтоб всем счастье было.
Создайте багрепорт, думаю счастье не заставит себя долго ждать.
WAYFARER
>>Действительно удобно будет, на досуге прикручу такое себе)
Не забудте патчик к репорту приложить))

[Владимир]

Создайте багрепорт, думаю счастье не заставит себя долго ждать.

К сожалению, не владею багрепортом. Не возьмете ли это дело на себя (на приоритет не претендую!)?

[zub]

Не, спасибо))
а че там владеть? регестристрируешся и вперед, если че - translate.google.ru поможет