On-line: SergKis, гостей 1. Всего: 2 [подробнее..]
АвторСообщение
постоянный участник


Пост N: 420
Зарегистрирован: 13.10.05
ссылка на сообщение  Отправлено: 19.12.13 18:16. Заголовок: TsBrowse в Минигуи (продолжение)


TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений
К примеру

 цитата:

DEFINE TBROWSE oBrw2 ;
AT 60,450 ;
ALIAS cAlias ;
OF Form1 ;
WIDTH 330 ;
HEIGHT 340 ;
FONT "Verdana" ;
SIZE 9 ;
ON DBLCLICK CopyRec();
ON GOTFOCUS fModelo_Hab(2) ;
AUTOFILTER ;
CELLED EDIT;
VALUE nRec;
GRID


Здесь я собрал параметры из разных tBrows
Можно или нет и какие парметры заменить
выражением ( и каким) ?
oBrw2:....
oBrw2:....



Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 289 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]


администратор




Пост N: 1768
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 10.09.21 12:22. Заголовок: SergKis пишет: Смущ..


SergKis пишет:

 цитата:
Смущает только default lEditMode := .F.


можно оставить по дефолту .T.
пример отлично работает

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 3870
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 10.09.21 12:58. Заголовок: Haz пишет можно оста..


Haz пишет
 цитата:
можно оставить по дефолту .T.


Так и сделал. Для примера ничего не изменилось в работе, но править в старом коде придется по любому
 
FUNCTION PrevEdit(xVal, oBrw)
LOCAL oCell := oBrw:GetCellInfo(oBrw:nRowPos)
LOCAL nY := oCell:nRow //+ oBrw:nHeightHead + 4


Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1925
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 10.09.21 13:06. Заголовок: SergKis пишет: прав..


SergKis пишет:

 цитата:
править в старом коде придется по любому


Да.
Например, сломался режим добавления по клавише F2 в примере из папки
\SAMPLES\Advanced\Tsb_addrecord_3

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 3871
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 10.09.21 13:24. Заголовок: gfilatov2002 пишет ..


gfilatov2002 пишет
 цитата:
сломался режим добавления по клавише F2 в примере из папки


Правится легко, но геморой остается в др. текстах
 
STATIC FUNCTION Add_Rec( oBrw )
...
nRow := 0 //:nTop + GetWindowRow( hWnd ) - GetBorderHeight()
nCol := 0 //:nLeft + GetWindowCol( hWnd ) - GetBorderWidth () + 1

Может метод другой сделать GetCellRect, как Игорь ф-ю называл или GetCellSize

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 1769
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 10.09.21 13:36. Заголовок: SergKis пишет: но ..


SergKis пишет:

 цитата:
но править в старом коде придется по любому


может еще один параметр ввести в GetCellInfo(....lParentPos )
hb_default( @lParentPos, .f.)
определяет учитывать ли координаты парент окна

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 1770
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 10.09.21 13:37. Заголовок: SergKis пишет: Може..


SergKis пишет:

 цитата:
Может метод другой сделать GetCellRect, как Игорь ф-ю называл или GetCellSize


возможно это выход

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1926
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 10.09.21 14:12. Заголовок: SergKis пишет: мето..


SergKis пишет:

 цитата:
метод другой сделать GetCellSize


Пошел по этому пути.
Теперь пример работает нормально

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 3872
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 10.09.21 14:19. Заголовок: gfilatov2002 пишет П..


gfilatov2002 пишет
 цитата:
Пошел по этому пути.


Тогда есть смысл убрать lEditMode и строки с использованием ::aEditCellAdjust из метода

Добавил метод GetCellSize, убрал lEditMode и строки с использованием ::aEditCellAdjust из него
Пример Tsb_addrecord_3 нормально
В своем примере (выше) использовал новый метод, вместо GetCellInfo, все работает OK!

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1927
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 10.09.21 14:25. Заголовок: SergKis пишет: убра..


SergKis пишет:

 цитата:
убрать lEditMode и строки с использованием ::aEditCellAdjust из метода


Ok.
Также изменил описание:

 цитата:
* Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:
- added the new useful method GetCellSize().
Suggested and contributed by Sergej Kiselev and Igor Nazarov
(see demo in folder \samples\Advanced\Tsb_addrecord_3)



Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 289 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 242
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет