Дизайнер форм

[drronnie]

Господа, я пишу дизайнер форм и столкнулся с такими проблемами.
1. В инспекторе свойств я получаю все свойства контрола, через библиотеку TLI, но хотелось бы знать, как это делает VB6. Как он получает Description и Category свойства? Почему он не показывает допустим hWnd? Откуда он знает, что BackColor это цвет, когда, через TLI этот член имеет тип Long?

2. Я добавляю контролы на форму через Controls.Add(ProgID, Name). И вот кнопки есть свойство Style, у текстового поля Multiline, которые нельзя изменить в Run-time, только в Design-Time. Как мне добавить контрол и указать ему это свойство.

3. И вообще, что такое Design-Time? Как это прикрутить к моему дизайнеру?

[Antonariy]

Почему он не показывает допустим hWnd?

Потому что read only.

Откуда он знает, что BackColor это цвет, когда, через TLI этот член имеет тип Long?

Потому что BackColor это OLE_COLOR, о котором TLI ничего не известно.

Как мне добавить контрол и указать ему это свойство.

Никак. Создать свой контрол из двух текстбоксов с заранее проставленным свойством.

[drronnie]

Почему он не показывает допустим hWnd?

Потому что read only.

Я думаю по другой причине, т.к. SelStart не readonly, но в инспекторе свойств оно не показывается.

Откуда он знает, что BackColor это цвет, когда, через TLI этот член имеет тип Long?

Потому что BackColor это OLE_COLOR, о котором TLI ничего не известно.

Я спрашивал, откуда это может знать инспектор свойств VB6.

Как мне добавить контрол и указать ему это свойство.

Никак. Создать свой контрол из двух текстбоксов с заранее проставленным свойством.

А если для свойства будет 10 вариантов контрола - мне 10 контролов создавать?

[Antonariy]

Я думаю по другой причине, т.к. SelStart не readonly, но в инспекторе свойств оно не показывается.

hWnd — имнно по этой. Кроме того, похоже у свойств бывает атрибут типа "не показывать в дизайнере".

Я спрашивал, откуда это может знать инспектор свойств VB6.

Это сишный тип, typedef DWORD OLE_COLOR, в COM, с которым работает TLI, его нет.

А если для свойства будет 10 вариантов контрола - мне 10 контролов создавать?

А кто сказал, что будет легко? Не нравится гирлянда стандартных — делай свой нестандартный.

[drronnie]

hWnd — имнно по этой. Кроме того, похоже у свойств бывает атрибут типа "не показывать в дизайнере".

Это сишный тип, кастуемый к DWORD, в COM, с которым работает TLI, его нет.

Ладно, забудем про TLI! Как это делает инспектор в VB6?

[Antonariy]

Инспектор это делает через сишные интерфейсы, которыми из VB воспользоваться невозможно, насколько я слышал.

[drronnie]

Инспектор это делает через сишные интерфейсы, которыми из VB воспользоваться невозможно, насколько я слышал.

А сылочки нету, где такое читалось?
Что-то я ничего не нагуглил... честно говоря даже не знаю как сформулировать.

[Antonariy]

Не нашел
Копать нужно в сторону технологий создания контролов на c++.

[Хакер]

Нет такого понятия, как сишные интерфейсы.

[tyomitch]

Я думаю по другой причине, т.к. SelStart не readonly, но в инспекторе свойств оно не показывается.

hWnd — имнно по этой. Кроме того, похоже у свойств бывает атрибут типа "не показывать в дизайнере".

Я спрашивал, откуда это может знать инспектор свойств VB6.

Это сишный тип, typedef DWORD OLE_COLOR, в COM, с которым работает TLI, его нет.

А если для свойства будет 10 вариантов контрола - мне 10 контролов создавать?

А кто сказал, что будет легко? Не нравится гирлянда стандартных — делай свой нестандартный.

1) Tools -> Procedure Attributes -> Don't show in Property Browser
2) Ну прямо нет. Dim c As stdole.OLE_COLOR
3) Пример создания экземпляра ActiveX-контрола голыми руками я постил.

[tyomitch]

Инспектор это делает через сишные интерфейсы, которыми из VB воспользоваться невозможно, насколько я слышал.

И пример декомпиляции TLB через ITypeLib я тоже постил...

[drronnie]

Нашёл тут пример, как показать страницы свойств использую интерфейс ISpecifyPropertyPages. Наверно есть какие-то ещё интерфесы, для управления контролов в Design-Time? Подскажите, какие?

[tyomitch]

Специально для ленивых, вот те топики, что я имел в виду.
viewtopic.php?t=9370
viewtopic.php?t=14075

[drronnie]

Спасибо, Тёмыч. предыдущее сообщение запостил не прочитав твой ответ. Темы нашёл, вот сижу разбираюсь. Просто запустил пример товарища GM, я так понял, что у свойств есть флаг non-browsable, если он есть, то свойство не показываются в инспекторе.

Потому что read only.

[drronnie]

Если я правильно понял...
Если объект поддерживает интерфейс IProvideClassInfo - из него можно узнать необходимую информацию о свойствах, их типах и флагах.

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

  Dim disp As olelib.IProvideClassInfo, info As olelib.ITypeInfo
  Set disp = o
  Set info = disp.GetClassInfo


А если не поддерживает, то эту же информации мы узнаём из из IDispatch

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

  Dim disp As olelib.IDispatch, info As olelib.ITypeInfo
  Set disp = o
  Set info = disp.GetTypeInfo


Вот только мне кажется, что из IDispatch информация какая-то не понлная... например нигде нет флага FUNCFLAG_FNONBROWSABLE, даже у hWnd.

[drronnie]

Еслик ому интересно, выложил исходник тут