Отправлено: 29.06.10 08:37. Заголовок: Раскрывающийся древовидный список

Подскажите пожалуйста, возможен ли в MiniGUI или OOHG раскрывающийся древовидный список. То есть COMBOBOX с поддержкой древовидной структуры вводимых данных. Я точно помню, что в Дельфине это есть.

 Отправлено: 29.06.10 10:35. Заголовок: Dr. Oldwarez что то..

Dr. Oldwarez
что то типа этого ?

 Отправлено: 29.06.10 11:58. Заголовок: Не совсем то - он до..

Не совсем то - он должен в спокойном состоянии быть свёрнут как комбобокс, но и это тоже надо - древовидный список с множественным выбором!

 Отправлено: 29.06.10 12:10. Заголовок: Я делал подобные ком..

Я делал подобные компоненты
Надо создать TGet с кнопкой, на нажати кнопку повесить функцию, которая создавала бы окно со стилем WS_VISIBLE, WS_POPUP, и рисовала бы в окне treeview
Как это сделать в mgw, oohg: да надо просто сделать

 Отправлено: 29.06.10 14:08. Заголовок: Dima пишет: что то ..

Dima пишет:

цитата:

что то типа этого ?

Дима, а что за прога такая ?

 Отправлено: 29.06.10 14:15. Заголовок: Andrey пишет: Дима,..

Andrey пишет:

цитата:

Дима, а что за прога такая ?

Без понятия , просто нагуглил ;)
Если не ошибаюсь то же самое можно сделать и в MiniGUI (я про GUI морду)

 Отправлено: 29.06.10 14:33. Заголовок: Dima пишет: Если не..

Dima пишет:

цитата:

Если не ошибаюсь то же самое можно сделать и в MiniGUI (я про GUI морду)

А как ?

 Отправлено: 29.06.10 15:05. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как ?

Думаю Григорий Филатов знает , но похоже такой TREE пока не сделать в MiniGUI

 Отправлено: 29.06.10 17:49. Заголовок: IBXExTrees вообще-то..

IBXExTrees вообще-то предназначен для тех баз данных, которые действуют на моего шефа как красная тряпка на быка. Он желает исключительно древний DBF, причём без естественных в таком случае BDE и ODBC, поскольку их надо устанавливать в систему. В противном случае я бы работал на Дельфине, где упомянутые мной элементы существуют как нечто само собой разумеющееся.
По этой же причине мне не подходит дельфиновский ReportSmith.

 Отправлено: 29.06.10 19:12. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

По этой же причине мне не подходит дельфиновский ReportSmith.

Воспользуйся FastReport'om для [x]Harbour ! И проблем не будет !

 Отправлено: 29.06.10 20:07. Заголовок: Уже работаю с тестов..

Уже работаю с тестовой версией. Ещё обкатаю её и перейду на полную. Шеф обещал оплатить. А сам не могу - это 3/4 моей зарплаты.

 Отправлено: 29.06.10 20:57. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

А сам не могу - это 3/4 моей зарплаты.

Дык, кто ж его на свои деньги покупает !!! Всегда клиент оплачивал !!!

 Отправлено: 29.06.10 21:00. Заголовок: Dima пишет: Думаю Г..

Dima пишет:

цитата:

Думаю Григорий Филатов знает , но похоже такой TREE пока не сделать в MiniGUI

А давайте ВСЕ его попросим ДРУЖНО !!! Елочка зажгись !

 Отправлено: 29.06.10 21:07. Заголовок: Andrey :sm12: :sm1..

Andrey

 Отправлено: 30.06.10 15:10. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

раскрывающийся древовидный список

Попробуйте ...\minigui\samples\applications\PHONE_BASE

 Отправлено: 30.06.10 17:14. Заголовок: Дык, там нет МНОЖЕСТ..

Дык, там нет МНОЖЕСТВЕННОГО ВЫБОРА из древовидного списка. А мне именно его и надо.

 Отправлено: 30.06.10 18:25. Заголовок: Что значит "МНОЖ..

Что значит "МНОЖЕСТВЕННОГО" ? В этом примере всего 2 вложения . Мне надо было 3 - я сделал 3,
можно хоть 10 !!!

 Отправлено: 30.06.10 19:00. Заголовок: MMK просил передать ..

MMK просил передать привет и скринчег ;)



PS
Коменты он сам напишет.

 Отправлено: 30.06.10 19:06. Заголовок: Спасибо , Дима :)..

Спасибо , Дима :)))
Да это , как вариантик: FW позволяет несколько , этот с бровсом :
во второй графе число элементов в группе, в
третьем данные с "подбивающимся" итогом, в четвертой среднее.
FW стоит как фаст , но возможности мне кажется поширее будут :))

 Отправлено: 01.07.10 08:01. Заголовок: Так это FiveWin? Мн..

Так это FiveWin?

Мне именно древовидный BROWSE и нужен

 Отправлено: 01.07.10 10:55. Заголовок: Да это FiveWin. В..

Да это FiveWin. Вот исходничек этого примера , может интересно будет ....

static function TreeBrowse( nMethod )

local oWnd, oBrw, oCol
local oRs, oRsTot
local oTree, oItem
local oBold, bFont

cFunc := ProcName( 0 )

oRs := AdoGetSummary() // function to get group summary as RecSet
// Create Tree
// There are two alternatives for referring to the data pertaining to
// the TreeItem
// Method. 1. Assign all the values as an array to oItem:Cargo
// OR
// Method. 2. Assign the bookmark of the orginal data source to oItem:Cargo
oTree := MakeTree( oRs, nMethod )
oItem := oTree:oFirst

DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD
DEFINE WINDOW oWnd MDICHILD OF WndMain() ;
TITLE If( nMethod == 1, ;
"Tree Browse with data", ;
"Tree Browse with data from Linked Recordset" )

@ 0,0 XBROWSE oBrw OF oWnd LINES CELL

if nMethod == 1
oBrw:SetTree( oTree, ; // Tree object
{ "OPEN","CLOSE","GREEN" } ) // [Optional] Bitmap Resources Open, Close and NoChildren

ADD TO oBrw DATA oBrw:oTreeItem:Cargo[ 1 ] PICTURE "9999" HEADER "Employees"
ADD TO oBrw DATA oBrw:oTreeItem:Cargo[ 2 ] PICTURE "999,999,999.99" HEADER "TotSalary"
ADD TO oBrw DATA oBrw:oTreeItem:Cargo[ 2 ] / oBrw:oTreeItem:Cargo[ 1 ] ;
PICTURE "999,999,999.99" HEADER "AvgSalary"

else
oBrw:SetTree( oTree, ; // Tree object
{ "OPEN","CLOSE","GREEN" }, ; // [Optional] Bitmap Resources Open, Close and NoChildren
{ | OItem | oRs:AbsolutePosition := oItem:Cargo } ) // To Sync DataSource with oItem

ADD TO oBrw DATA oRs:Fields("Employees"):Value PICTURE "9999" HEADER "Employees"
ADD TO oBrw DATA oRs:Fields("TotSalary"):Value PICTURE "999,999,999.99" HEADER "TotSalary"
ADD TO oBrw DATA oRs:Fields("TotSalary"):Value / oRs:Fields("Employees"):Value ;
PICTURE "999,999,999.99" HEADER "AvgSalary"

endif

oBrw:aCols[ 1 ]:cHeader := "State / City"
// If different fonts are required on the basis of oItem:nLevel
AEval( oBrw:aCols, { |oCol| oCol:oDataFont := { || If( oBrw:oTreeItem:nLevel == 1, oBold, oBrw:oFont ) } } )

// Get Totals for footers
oRsTot := AdoGetTotals()

// Set Totals in Footers
oBrw:lFooter := .t.
oBrw:aCols[ 1 ]:cFooter := "Total"
oBrw:aCols[ 2 ]:cFooter := oRsTot:Fields( 0 ):Value
oBrw:aCols[ 3 ]:cFooter := oRsTot:Fields( 1 ):Value
oBrw:aCols[ 4 ]:cFooter := oRsTot:Fields( 1 ):Value / oRsTot:Fields( 0 ):Value
oRsTot:Close()
// note: cFooter can be of any data type. If cFooter is not Character,
// the value will be formatted using column's picture
// cFooter can be a codeblock also
AEval( oBrw:aCols, { |oCol| oCol:oFooterFont := oBold } )

oBrw:MakeTotals()
oBrw:createFromCode()
oWnd:oClient := obrw

// Create ButtonBar
BtnBar( oBrw ) // Commn ButtonBar for all sample Browses

DEFINE BUTTON OF oWnd:oBar ;
RESOURCE "EXPAND" TOP PROMPT "Expand ALL" ;
ACTION ( oBrw:oTree:Expand(), oBrw:Refresh(), oBrw:SetFocus() )

DEFINE BUTTON OF oWnd:oBar ;
RESOURCE "COLLAPS" TOP PROMPT "Collapse ALL" ;
ACTION ( oBrw:oTree:Collapse(), oBrw:Refresh(), oBrw:SetFocus() )

SET MESSAGE OF oWnd TO oWnd:cCaption 2007
ACTIVATE WINDOW oWnd ON INIT oBrw:SetFocus()

return nil