* В примере создаются два объекта управления ListBoxes с именами
* lstMyList1 и lstMyList2, и ComboBox с именем cmbMyCombo Выводится на
* экран свойство Name каждого объекта ListBox

* Функция COMPOBJ( ) используется для сравнения свойств первого из
* объектов ListBox со свойствами объекта ComboBox. Так как многие из их
* свойств различны, высвечивается "ложь" (.F.). Затем сравниваются
* свойства первого и второго объекта ListBox. Свойства Names у них
* отличаются, поэтому результатом COMPOBJ( ) будет "ложь" (.F.).
* Свойства Names объекта lstMyList2 заменяются на свойства Names
* oбъекта lstMyList1. При повторном сравнении COMPOBJ( ) возвращает
* "истина"(.T.).

lstMyList1 = CREATEOBJ('ListBox') && Creates a ListBox

lstMyList2 = CREATEOBJ('ListBox') && Creates a second ListBox

cmbMyCombo = CREATEOBJ('ComboBox') && Creates a ComboBox

CLEAR

? lstMyList1.Name && Displays List1 Name property

? lstMyList2.Name && Displays List2 Name property

? COMPOBJ(lstMyList1, cmbMyCombo) && Displays .F.

? COMPOBJ(lstMyList1, lstMyList2) && Displays .F., different Names

lstMyList2.Name = lstMyList1.Name

? COMPOBJ(lstMyList1, lstMyList2) && Displays .T., same properties