powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Грид
7 сообщений из 7, страница 1 из 1
Грид
    #32195636
iwa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем здравствуйте!
Подскажите пожалуйста, как вставить в грид дополнительную колонку, которая не является полем таблицы, а должна быть полем с кнопкой для вызова другой формы.

Например.
Таблица пример.дбф имеет поле фио
Грид должен выглядеть так:

-------------------------------
ФИО | Отбор |
-------------------------------
Иванов И.И. |[буттон] |
-------------------------------
|
|___ а здесь кнопка

Спасибо за ответы.
...
Рейтинг: 0 / 0
Грид
    #32195658
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в Дизайнере форм
увеличиваешь grd.ColumnCount на 1
выбираешь нужную колонку
выбираешь из контролов формы кнопку
щелкаешь по этой колонке -> контрол кнопки добавлен в колонку
в grd.grc.CurrentControl меняешь на свою кнопку.
выставляешь grd.grc.Sparse=.F. чтоб кнопки были видны везде.
фс:е.
можно конечно удалить ненужный TextBox, но пусть будет.. итак много
...
Рейтинг: 0 / 0
Грид
    #32195669
iwa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо Hel!Riser за ответ.

Я, к стати делал по той же схеме, но получилась одна странная вещь.
Форма при просмотре открывалась как бы пустой, но стоило мне ее немного раздвинуть, то все появлялось.

Я так и не понял, что это за эффект.
Поэтому пришлось вернуться к варианту без новой колонки, почему и задал этот вопрос, думая, что что-то делаю не то...
...
Рейтинг: 0 / 0
Грид
    #32195805
Flex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поставь для нужно тебе колонки свойсво Sparse в .F. и все будет видно
thisfrom.GRD.columns(i).Sparse = .F.
...
Рейтинг: 0 / 0
Грид
    #32195827
Flex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дополнение:
with thisfrom.GRD
i= 1 *-- для примера одна колонка с кнопками
.addcolumn(i)
.columns(i).RemoveObject("Text1")
.columns(i).AddObject("MyButton","mycomandbutton")
.columns(i).CurrentControl = "MyButton"
.columns(i).Sparse = .F.
endwith

*-- comandbutton, это товй класс на основании которого ты создаешь
*-- экзепляр объекта типа кнопка, там и код пропиши, что ему делать.


Define class Mycomandbutton as comandbutton
Procedure valid
*- тут твой код при нажимании
Endproc
Enddefine

*-- если прописываешь описание классов в отдельном файле,
*-- то перед запуском кода примера пропиши путь
*-- SET PROCEDURE TO [твой файл] ADDITIVE
*-- если валяется в библиотеке классов то
*-- SET CLASSLIB TO [твоя библиотека] ADDITIVE
...
Рейтинг: 0 / 0
Грид
    #32195848
iwa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо всем за ответы...
...
Рейтинг: 0 / 0
Грид
    #32195885
Samir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто интересно - зачем столько кнопок?
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Грид
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]