| Автор | Сообщение |
|
Vlad04
|
| постоянный участник
|
Пост 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:.... |
 |
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4761
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.03.16 23:36. Заголовок: Haz пишет: теперь с..
Haz пишет: | цитата: | | теперь с форума будем собирать идеи по наполнению класса CLASS TSBcell |
|
А можно сделать так, чтобы при наведении мышкой на колонку с определённым номером, в ячейке всплывала подсказка ?  Как у всех объектов TOOLTIP, или как в примере MiniGUI\SAMPLES\BASIC\COMM_2\demo-main.prg функция My_Message() |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 879
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.03.16 01:42. Заголовок: Andrey пишет:А можно..
Andrey пишет: | цитата: | | А можно сделать так ... Как у всех объектов TOOLTIP |
|
надо внести изменения, на мой взгляд: Скрытый текст
METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ;
...
было
...
EndIf
SetToolTip ( ::hWnd , ::cToolTip , hToolTip ) //JP V90
IF nValue > 0 .AND. nValue <= ::nLen
...
стало
ctooltip := ::cToolTip
If Valtype(ctooltip) == "B"
ctooltip := Eval(ctooltip, Self, 0) // 0 - new method
If Valtype(ctooltip) != "C"
ctooltip := ""
EndIf
EndIf
SetToolTip ( ::hWnd , ctooltip , hToolTip ) //JP V90
IF nValue > 0 .AND. nValue <= ::nLen
...
METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) CLASS TSBrowse
...
было
If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ;
! Empty( ::aColumns[ nColumn ]:cToolTip )
If nToolTip != nColumn
SetToolTip ( ::hWnd , ::aColumns[ nColumn ]:cToolTip , hToolTip )
SysRefresh()
EndIf
nToolTip := nColumn
Else
If nToolTip != 0
SetToolTip ( ::hWnd , ::cToolTip , hToolTip )
SysRefresh()
endif
nToolTip := 0
EndIf
...
стало
Local ctooltip
...
If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ;
! Empty( ::aColumns[ nColumn ]:cToolTip )
If nToolTip != nColumn
SetToolTip ( ::hWnd , ::aColumns[ nColumn ]:cToolTip , hToolTip )
SysRefresh()
EndIf
nToolTip := nColumn
Else
If nToolTip != 0
ctooltip := ::cToolTip
If Valtype(ctooltip) == "B"
ctooltip := Eval(ctooltip, Self, nColumn)
If Valtype(ctooltip) != "C"
ctooltip := ""
EndIf
EndIf
SetToolTip ( ::hWnd , ctooltip , hToolTip )
SysRefresh()
endif
nToolTip := 0
EndIf
...
|
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 880
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.03.16 09:07. Заголовок: Haz пишет:будем соби..
Haz пишет: | цитата: | | будем собирать идеи по наполнению класса CLASS TSBcell |
|
просится Скрытый текст
METHOD Desktop() CLASS TSBcell
::nRow := 0
::nCol := 0
::nWidth := GetDesktopWidth()
::nHeight := GetDesktopHeight() - GetTaskBarHeight()
RETURN Self
METHOD App() CLASS TSBcell
::Window()
RETURN Self
METHOD Window( hWnd ) CLASS TSBcell
Default hWnd := _HMG_MainHandle
::nRow := GetWindowRow(hWnd)
::nCol := GetWindowCol(hWnd)
::nWidth := GetWindowWidth(hWnd)
::nHeight := GetWindowHeight(hWnd)
RETURN Self
METHOD Client( hWnd ) CLASS TSBcell
Local actpos := { 0, 0, 0, 0 }
Default hWnd := _HMG_MainHandle
GetClientRect(hWnd, actpos)
::nCol := actpos[1]
::nRow := actpos[2]
::nWidth := actpos[3]-actpos[1]
::nHeight := actpos[4]-actpos[2]
RETURN Self
|
тогда oDesktop := TSBcell():New():Desktop() DEFINE WINDOW ... AT oDesktop:Row, oDesktop:Col ... oAppWin := TSBcell():New():App() oAppCli := TSBcell():New():Client() oFormCli := TSBcell():New():Client(GetFormHandle("Form_1")) ... может название не TSBcell ? |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 881
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.03.16 12:02. Заголовок: SergKis пишет:надо в..
SergKis пишет: Уточненные (проверил) изменения: Скрытый текст
METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ;
...
было
...
EndIf
SetToolTip ( ::hWnd , ::cToolTip , hToolTip ) //JP V90
IF nValue > 0 .AND. nValue <= ::nLen
...
стало
ctooltip := ::cToolTip
If Valtype(ctooltip) == "B"
ctooltip := Eval(ctooltip, Self)
EndIf
SetToolTip ( ::hWnd , ctooltip , hToolTip ) //JP V90
IF nValue > 0 .AND. nValue <= ::nLen
...
METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) CLASS TSBrowse
...
было
If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ;
! Empty( ::aColumns[ nColumn ]:cToolTip )
If nToolTip != nColumn
SetToolTip ( ::hWnd , ::aColumns[ nColumn ]:cToolTip , hToolTip )
SysRefresh()
EndIf
nToolTip := nColumn
Else
If nToolTip != 0
SetToolTip ( ::hWnd , ::cToolTip , hToolTip )
SysRefresh()
endif
nToolTip := 0
EndIf
...
стало
Local ctooltip
...
If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ;
! Empty( ::aColumns[ nColumn ]:cToolTip )
If nToolTip != nColumn
ctooltip := ::cToolTip
If Valtype(ctooltip) == "B"
ctooltip := Eval(ctooltip, Self, nColumn)
EndIf
SetToolTip ( ::hWnd , ctooltip , hToolTip )
SysRefresh()
EndIf
nToolTip := nColumn
Else
If nToolTip != nColumn
ctooltip := ::cToolTip
If Valtype(ctooltip) == "B"
ctooltip := Eval(ctooltip, Self, nColumn)
EndIf
SetToolTip ( ::hWnd , ctooltip , hToolTip )
SysRefresh()
endif
nToolTip := nColumn
EndIf
...
пример
oBrw:cToolTip := {|oBr,nNr| "My TsBrowse tooltip "+str(nNr,3)+str(oBr:nAt,5) }
oBrw:aColumns[1]:cToolTip := {|oBr,nNr| "My columns Header tooltip "+str(nNr,3)+str(oBr:nAt,5) }
oBrw:aColumns[2]:cToolTip := {|oBr,nNr| "My columns Header tooltip "+str(nNr,3)+str(oBr:nAt,5) }
...
или
bBlock := {|oBr,nNr| "My columns Header tooltip "+str(nNr,3)+str(oBr:nAt,5) }
aEval(oBrw:aColumns, {|oCol| oCol:cToolTip := bBlock })
|
|
|
|
|
Haz
|
| |
Пост N: 826
Зарегистрирован: 20.02.11
|
|
Отправлено: 03.03.16 12:23. Заголовок: SergKis пишет: oDes..
SergKis пишет: | цитата: | | oDesktop := TSBcell():New():Desktop() |
|
Сергей, это больше на клаасс Windows похоже. Так мы придем к HwGui  ( что тоже не плохо ) и будет oWin := Win():New() oWin:name := "Form_1" oWin:Type := 'child' и т.д. |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 882
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.03.16 13:28. Заголовок: Haz oWin - больший ..
Haz
oWin - больший класс и его сост. частью является TSBcell (название не очень подходит)
в данном случае 4 значения, которые можно заполнить методами и в окнах проще писать (часть кода скрыта в методе)
oA := TSBcell():New():Desktop() // можно в стиле VO: oA := TSBcell{}:Desktop()
oA:nRow, oA:nCol ... чем Application.Row ... для Desktop аналогично
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 883
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.03.16 13:31. Заголовок: PS можно сгородить ф..
PS
можно сгородить ф-ии
Func oDesktop()
Return TSBcell():New():Desktop()
...
и останемся в стиле MiniGui
|
|
|
|
Haz
|
| |
Пост N: 827
Зарегистрирован: 20.02.11
|
|
Отправлено: 03.03.16 13:52. Заголовок: SergKis пишет: TSBc..
SergKis пишет: | цитата: | | TSBcell (название не очень подходит) |
|
подходит к ячейке бровса , как дочернего класса этого бровса, в твоем случае тогда класс назвать можно :WinRect( hWnd ) |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 884
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.03.16 15:05. Заголовок: Haz пишет: назвать м..
Haz пишет: | цитата: | | назвать можно :WinRect( hWnd ) |
|
Согласен, лучше не смешивать.  |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4764
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.03.16 23:03. Заголовок: Что то вылетает у ме..
Что то вылетает у меня функция, при повторном входе в бровс ! Делаю так: // по правой кнопки мышки - контекстное меню TBROWSE
DEFINE CONTEXT MENU CONTROL oBrw1
......
MENUITEM "Current record / Текущая запись: " NAME MYTABLETEXT // строка 533
MENUITEM "Record number / Номер записи: " NAME MYTABLERECNO
...
END MENU
При повторном входе в эту функцию - вылет программы с ошибкой: Error BASE/1132 Переполнение массива: Неверное количество аргументов
Called from _GETMENUIDS(648)
Called from MENUCAPTIONSET(546)
Called from CHANGETABLE(533)
Called from (b)MYCREATETABLE(431)
Я так подозреваю, что нужно чистить (удалять) объявленные переменные NAME MYTABLETEXT и NAME MYTABLERECNO ? Или что то другое нужно ? P.S. простое удаление (после закрытии формы) не помогает... RELEASE MYTABLETEXT RELEASE MYTABLERECNO Вылетает на строке 648: x := GetControlIndex ( ItemName , FormName ) MsgLog(x, ItemName , FormName) h := _HMG_aControlPageMap [ x ] // строка 648 В отладочном файле _MsgLog.txt следующее: 7 MYTABLETEXT Form_Table45549
8 MYTABLERECNO Form_Table45549
0 MYTABLETEXT Form_Table47864
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4791
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.03.16 12:29. Заголовок: Andrey пишет: А мож..
Andrey пишет: | цитата: | А можно сделать так, чтобы при наведении мышкой на колонку с определённым номером, в ячейке всплывала подсказка ?
Как у всех объектов TOOLTIP, или как в примере MiniGUI\SAMPLES\BASIC\COMM_2\demo-main.prg функция My_Message()
|
|
Так как - это можно реализовать ? А то писали-писали, а к чему пришли так и не понял. Или результат в новой версии МиниГуи ждать ? |
|
|
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 903
Зарегистрирован: 11.02.10
|
|
Отправлено: 17.03.16 12:54. Заголовок: Andrey пишет: Или р..
Andrey пишет: | цитата: | | Или результат в новой версии МиниГуи |
|
Именно так - уже скоро. Сегодня выпустил pre-release версию новой сборки  На всякий случай мой контрольный пример для проверки этой фичи ниже: Скрытый текст
rocedure Brw_5()
IF !_IsControlDefined ("oBrw5","Form_1")
Select("Test")
@ 10,630 TBROWSE oBrw5 ;
ALIAS "Test" ;
OF Form_1 WIDTH 250 HEIGHT 380 ;
CELLED ;
HEADERS "Code","First","Last","Birth","Bio" ;
WIDTHS 50,150,150,100,200 ;
FIELDS FieldWBlock( "Code", Select() ),Test->First,Test->Last,FieldWBlock( "Birth", Select() ),FieldWBlock( "Bio", Select() ) ;
EDITABLE ;
READONLY {.f.,.t.,.t.} ;
BACKCOLOR YELLOW ;
FONTCOLOR BLUE ;
TOOLTIP "TsBrowse - Standard definition" ;
;// MESSAGE " Browse DataBase 2 " ;
AUTOSEARCH
oBrw5:lNoResetPos := .F.
oBrw5:lPickerMode := .F.
oBrw5:cToolTip := {|oBr,nCol,nRow| "My TBrowse tooltip. Col ="+str(nCol,3)+" Row ="+str(nRow,3) }
aEval(oBrw5:aColumns, {|oCol| oCol:cToolTip := {|oBr,nCol,nRow| "My column tooltip. Col ="+str(nCol,3)+" Row ="+str(nRow,3) } })
endif
RETURN
|
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4796
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.03.16 21:48. Заголовок: Столкнулся с такой н..
Столкнулся с такой непоняткой... Создаю таблицу: DEFINE TBROWSE oBrw1 ;
................
MyCreateTable(....)
END TBROWSE
SetNoHoles( oBrw1 ) // убрать дырку внизу таблицы перед подвалом
MyCreateTableMenu(....)
В функции MyCreateTable(....) задаю: 1) цвета // -------------------- Установить цвета в таблице ------------------------------
oBrw1:SetColor( { 1}, { { || CLR_BLACK } } ) // 1 , текста в ячейках таблицы
............
oBrw1:SetColor( { 6}, { { || { 4915199,255} } } ) // 6 , фона курсора 2) создаю столбцы ADD COLUMN TO oBrw1 HEADER "1-столбец" ;
............ // и т.д.
3) и там все остальные назначения... // -------------- Fixed cursor , фиксированный курсор ---------
For nI := 1 To oBrw1:nColCount()
oBrw1:aColumns[nI]:lFixLite := TRUE
Next Пытаюсь после этого считать цвет 6 - фона курсора oCol := oBrw1:aColumns[ 1 ]
aColor := oCol:aColorsBack
aCursorBC := aColor[6]
oBrw1:SetColor( { 6 }, { { |a,b,c| IF( c:nCell == b, aCursorBC ,;
{ CLR_GRAY, CLR_WHITE } ) } } ) Получаю в aCursorBC чёрный цвет... Почему ? Что нужно ещё сделать для инициализации цвета ? Если цвета поставить ниже, то 6-цвет получается нормально... |
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 525
Зарегистрирован: 13.10.05
|
|
Отправлено: 22.03.16 20:59. Заголовок: Уажаемые ГУРУ! Не м..
Уажаемые ГУРУ!
Не могли бы Вы для полноты дополнить некоторые примеры TsBrowse следующим:- это кнопки навигации , добавить , удалить , изменить режим(непосредственное редактирование разрешено - запрещено), вызов контекстного меню.
Представляют интерес примеры на основе - Tsb_filter,Tsb_sbrowse (или подобные) , т.е. те, где TsBrows формируется отдельной процедурой.
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4804
Зарегистрирован: 12.09.06
|
|
Отправлено: 22.03.16 22:59. Заголовок: Vlad04 пишет: это к..
Vlad04 пишет: | цитата: | | это кнопки навигации , добавить , удалить , изменить режим(непосредственное редактирование разрешено - запрещено), вызов контекстного меню. |
|
Смотри пример SAMPLES\Advanced\Tsb_config Могу дать на его базе более продвинутый пример из двух TsBrowse (кнопка цвет) - https://cloud.mail.ru/public/2CHr/h9u2vn7JR Вот еще один пример с картинками и продвинутым контекстным меню - https://cloud.mail.ru/public/2s2Z/gmH9d5VWD |
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 526
Зарегистрирован: 13.10.05
|
|
Отправлено: 23.03.16 09:21. Заголовок: Примеры хорошие, но ..
Примеры хорошие, но это не то.Речь шла о примерах, где TsBrows формируется отдельной процедурой, а в этих - все в одной и создание окна и создание Бровса в нем. Ниже - твой пример, где я добавил кнопки навигации.При добавлении новой записи экран не обновляется. TsBrows с навигацией |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 903
Зарегистрирован: 17.02.12
|
|
Отправлено: 23.03.16 10:44. Заголовок: Vlad04 пишет:При доб..
Vlad04 пишет: | цитата: | | При добавлении новой записи экран не обновляется. |
|
на базе Tsb_addrecord AddRecord(obrw) сделал похоже (в примере) - работает
********************
Static Procedure Append(obrw)
********************
(obrw:cAlias)->( DbAppend() )
(obrw:cAlias)->( FieldPut( 1, Procname()+": "+strzero(RecNo(),7 )+str(procline(), 7) ) )
(obrw:cAlias)->( FieldPut( 2, RecNo() ) )
obrw:GoToRec( RecNo() )
obrw:SetFocus()
Return
или надо как то иначе ? |
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 527
Зарегистрирован: 13.10.05
|
|
Отправлено: 23.03.16 18:38. Заголовок: Это учел. На основе ..
Это учел. На основе Tsb_addrecord другой пример Tsb_addrecord2 Здесь возникают ошибки, неувязки в Procedure Edit(met,cForm,oBrw,cAlias) | цитата: |
// &(cForm).readRec.Visible:=.t.
// &(cForm).readRecN.Visible:=.f.
|
|
Здесь должна меняться видимость картинок. И в STATIC FUNCTION MyKeyAction(l_Key,cForm,oBrw, cParent) // &(cForm).STATUSBAR.Item(1):='Точный поиск:'+sSeek //'Точный поиск:'+ |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 904
Зарегистрирован: 17.02.12
|
|
Отправлено: 23.03.16 22:06. Заголовок: Vlad04 CASE ..
Vlad04
CASE l_key>32.and.l_key<254
sl_key := KeyToChar(l_key ) // моя функция обработки клавиш / my processing function keys
sSeek:=sSeek+sl_key
nRec:=Recno()
Seek sSeek
if Found()
nRec := RecNo()
endif
oBrw:GotoRec(nRec)
только, на мой взгляд, проще сделать GetBox вместе с tsb, скрыть его, на lostfocus\return\esc повесить переход на tsb и скрытие, а на onchange подвод или scope, show GetBox делать в координатах ячейки в Footer tsb
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 905
Зарегистрирован: 17.02.12
|
|
Отправлено: 23.03.16 22:11. Заголовок: PS подсветку того, ч..
PS
подсветку того, что набрали посимвольно , все равно надо делать (нужно место), а GetBox и с этим справится
|
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
( что тоже не плохо ) и будет 
- участник сейчас на форуме
- участник вне форума