Как добавить свертывание к группам

@mestnyi33 · Регистрация: 25.05.2012

Студворк — интернет-сервис помощи студентам

Как добавить свертывание к группам?

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Procedure StringToUnicode(pbstrptr.l, ucstrptr.l)
  MultiByteToWideChar_ (#CP_ACP, 0, pbstrptr, Len(PeekS(pbstrptr)), ucstrptr, Len(PeekS(ucstrptr)))
  PokeL( ucstrptr + Len(PeekS(pbstrptr))*2, 0)
EndProcedure 
 
 
Procedure ListIcon_AddGroup(gadget.l, text.s, groupid.l)
  lvg.LVGROUP\cbSize = SizeOf(LVGROUP)
  lvg\mask = #LVGF_GROUPID | #LVGF_ALIGN | #LVGF_HEADER
  lvg\iGroupId = groupid
  lvg\uAlign = #LVGA_HEADER_LEFT
  text_uc.s = Space(260)  
  StringToUnicode(@text, @text_uc) 
  lvg\pszHeader = @text_uc
  SendMessage_ (GadgetID(gadget), #LVM_INSERTGROUP, -1, @lvg)
EndProcedure
 
 
Procedure ListIcon_EnableGroupView(gadget.l, state.l)
  SendMessage_ (GadgetID(gadget), #LVM_ENABLEGROUPVIEW, state, 0)
EndProcedure
 
 
Procedure ListIcon_AddItem(gadget.l, text.s, groupid.l)
  itm.LVITEM\mask = #LVIF_TEXT | #LVIF_GROUPID
  itm\pszText = @text
  itm\iGroupId = groupid
  SendMessage_ (GadgetID(gadget), #LVM_INSERTITEM, 0, @itm)
EndProcedure
 
 
;- Test
 
 
;XIncludeFile "ListIcon_Groups_XP.pb"
 
 
Enumeration
  #Window
  #ListIcon
EndEnumeration
 
 
If OpenWindow(#Window, 0, 0, 300, 400, "ListIcon_Groups_XP", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
 
    ListIconGadget(#ListIcon, 5, 5, 290, 390, "Game", 200)
 
  
  ListIcon_EnableGroupView(#ListIcon, 1)
  For g=1 To 5
    ListIcon_AddGroup(#ListIcon, "This is group "+Str(g), g)
    For i=1 To 5
      ListIcon_AddItem(#ListIcon, "Item "+Str((g-1)*5+i)+" belongs to group "+Str(g), g)
    Next
  Next
  
  Quit.l = 0
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Quit = 1
      Case #PB_Event_SizeWindow
        ResizeGadget(#ListIcon, 5, 5, WindowWidth(#Window)-10, WindowHeight(#Window)-10)
    EndSelect
  Until Quit > 0
EndIf
End

@Водяной Змей · 12.11.2013, 23:56

PureBasic
1
2
3
4
#LVGS_COLLAPSIBLE = 8
; ...
lvg\mask = #LVGF_HEADER | #LVGF_GROUPID | #LVGF_ALIGN | #LVGF_STATE
lvg\state = #LVGS_COLLAPSIBLE

P.S.
Лучше изучать WinAPI на C/C++ или на Delphi - гораздо больше пользы будет.
А пурик - он и есть пурик. Игрушка, конечно, неплохая, но программировать на нём - несерьёзно.
Ни вакансий по нему нет, ни специалистов, способных вовремя помочь на форуме.

@mestnyi33 · 13.11.2013, 18:01 **[ТС]**

LVGF; LVIF вот про токие ключевые слова где можно прочитать, мсдн не отправляй там не понятно бывает.

PureBasic
1
2
3
4
#LVGS_COLLAPSIBLE = 8
; ...
lvg\mask = #LVGF_HEADER | #LVGF_GROUPID | #LVGF_ALIGN | #LVGF_STATE
lvg\state = #LVGS_COLLAPSIBLE

это куда надо подставить?

Лучше изучать WinAPI на C/C++ или на Delphi - гораздо больше пользы будет

а мне козалось WinAPI на пурике ни чуть не хуже. И к тому же WinAPI кажется легче понимается на пурике.

@Водяной Змей · 13.11.2013, 20:29

ключевые слова

Может, константы?

мсдн не отправляй там не понятно бывает.

А что после пурика - понятно?
Ну кроме самого пурика.

это куда надо подставить?

Объявление константы #LVGS_COLLAPSIBLE - лучше в глобальную часть, в самый верх.
Последние две строчки - в функцию AddGroup() вместо этого:

PureBasic
1
lvg\mask = #LVGF_GROUPID | #LVGF_ALIGN | #LVGF_HEADER

а мне козалось WinAPI на пурике ни чуть не хуже. И к тому же WinAPI кажется легче понимается на пурике.

На Object Pascal (Delphi или Lazarus) тоже не хуже и тоже легко понимается.
Но:
1) Сайтов по Lazarus с Delphi - куча; по пурику - несколько штук, да и те обычно иностранные.
2) Заказов на фрилансе по Lazarus с Delphi - куча; по пурику - ни одного.
3) Вакансий по Lazarus и Delphi - куча; по пурику - ни одной.
Какие можно сделать выводы?

@locm · 13.11.2013, 22:15

Сообщение от Водяной Змей

2) Заказов на фрилансе по Lazarus с Delphi - куча; по пурику - ни одного.

Но это не мешает иногда (когда есть немного свободного времени) подробатывать на фрилансе. естественно кодя на пурике.

Сообщение от Водяной Змей

Какие можно сделать выводы?

Выводы?
Если проанализировать ваши сообщения то можно сделать вывод что вы начали проводить антипиар пурика.

@Водяной Змей · 13.11.2013, 22:35

Но это не мешает иногда (когда есть немного свободного времени) подробатывать на фрилансе. естественно кодя на пурике.

Да если клиенту ЯП не важен, можно хоть на брейнфаке кодить.
Но зачем, когда есть куда более удобные и современные ЯП?

[QUOTE]
Вот из чего стоит сделать выводы.
1) Сайтов по Lazarus с Delphi - куча; по пурику - несколько штук, да и те обычно иностранные.
2) Заказов на фрилансе по Lazarus с Delphi - куча; по пурику - ни одного.
3) Вакансий по Lazarus и Delphi - куча; по пурику - ни одной.
А вот переходить на личности для ухода от темы - напротив, НЕ стоит.

вы начали проводить антипиар пурика.

Ну какой антипиар.
Просто я даю советы, что лучше изучать, и, заметьте: даю я их только новичкам-ТСам, а не развожу пустые срачи с остальными участниками.
А там уж пусть сами решают.

Вы приходите в панику, когда говорят, что пурик - не более чем игрушка?
Плохо.
Вон когда я читаю, как ругают VB, я начинаю паниковать? Нисколько.
Ругают - и пусть ругают, а почти все мои программы на заказ написаны именно на нём.

@mestnyi33 · 14.11.2013, 00:27 **[ТС]**

Сайтов по Lazarus с Delphi - куча; по пурику - несколько штук, да и те обычно иностранные.

Ты прав действительности это так. Но потихонку я думаю и по пуребасику станет много.

Сообщение от Водяной Змей

что пурик - не более чем игрушка

Я думаю что пуребасик более удачный язык чем поскаль, проблема только в том, что мало людей заинтересованы в нем (имеется в виду не многие его знают). И если бы таких как Петр было бы побольше на форумах ситуация была бы иная.

Сообщение от Водяной Змей

а почти все мои программы на заказ написаны именно на нём

Лучше изучать WinAPI на C/C++ или на Delphi

Твой совет не очень ясен.

@JoraVoenyjHaker · 14.11.2013, 01:10

Пурик он недоступный для широкого круга пользователей
вот если бы разработчики не были такими деревянными
и не делали полуверсий(демо-версий)
и проработали интерфейс разработчика
то он стал-бы ЯП №1

@Водяной Змей · 14.11.2013, 01:19

Заранее извиняюсь за много букв, но оно того стоит.

Я думаю что пуребасик более удачный язык чем поскаль

Чем же он лучше Паскаля?

Поддержки ООП - нету.
Нормального WYSIWYG-редактора форм - нету.
Кроссплатформенности, по сути, - тоже нету.

15 лет с момента появления среды - ушло, как говорится, псу под хвост.

А как за это время изменился Паскаль?
Создана бесплатная среда реально кроссплатформенной разработки Lazarus... В Delphi XE* добавлена поддержка компиляции под iOS, Android и Mac.. Разработана GUI-библиотека FireMonkey - и опять-таки кроссплатформенная... В инете образовалась куча различных сайтов и форумов...

И если бы таких как Петр было бы побольше на форумах

PureBasic должны развивать сами создатели, т.е. фирма Fantaisie Software - привести в приличный вид визуальный редактор, добавить наконец ООП, в корне усовершенствовать (а лучше переделать) все библиотеки...
А раз они тратят десятки лет впустую, то и пуребасик так и останется никому не нужным.

Твой совет не очень ясен.

Суть в следующем.
Изучайте хоть VB, хоть Delphi, хоть C/C++ - всё же пользы будет больше.

@JoraVoenyjHaker · 14.11.2013, 01:19

Я перехажу на пурик !...
при беглом изучении я уже ему ставлю оценку +5
жаль что молодым забивают голову всякой чипушнёй как C/C++ или
Delphi - вообще ужас !

@Водяной Змей · 14.11.2013, 01:27

JoraVoenyjHaker,

Я перехажу на пурик !...

И кому это интересно?
Типа мерзко пробебекать, показав всем язык?

жаль что молодым забивают голову всякой чипушнёй как C/C++ или
Delphi

Ну я вроде бы не "старпёр", однако программирую и на C/C++, и на Delphi, и кое-на чём ещё.
И потом, чипушня-не чипушня, но за неё хотя бы платят. А за пурик - не очень-то.

@JoraVoenyjHaker · 14.11.2013, 01:38

От-того и платят, потому-что
тяжолый для изучения, и многим проще вам заплатить
чем разобраться в ироглифах делфи
что касается ООП пурик ещё слишком молодой
а у делфи как и VB есть длинная предыстория уж я то знаю

@Водяной Змей · 14.11.2013, 01:44

что касается ООП пурик ещё слишком молодой

Не такой уж и молодой.
1999 год, не моложе.

@JoraVoenyjHaker · 14.11.2013, 01:51

забыл добавить:
и мало продвигается на рынке, я и говорю что это ошибка разработчиков
так-бы у них и деньги нашлись и всё что угодно для необходимых наворотов,
если бы они были ближе к пользователям и не прятались по закаулкам интернета )))

@Водяной Змей · 14.11.2013, 01:56

Это даже не ошибка, а просто лень разработчиков.
Уж за 15 лет могли бы и WYSIWYG-редактор сделать нормальный, и много что ещё.

Да хоть просто PBIшек написать побольше, на разные случаи жизни, чтобы там был и Excel, и ADO, и IWebBrowser2...

@JoraVoenyjHaker · 14.11.2013, 01:57

всё ! мне уже не охота спорить и оффтопы писать
меня не переубедить, если будет возможность сам лично приложу
руку для популяризации

@mestnyi33 · 14.11.2013, 11:15 **[ТС]**

Водяной Змей, А ты как сюда попал, то, как вообще узнал про пурик? Я бы с удовольствием оставил бы пурик и перешел бы на лазарус но !!! пока он хуже в разы. Или хотя бы когда он станет как дельфы тогда можно на нем писать. Почему я так говорю, да потому что я писал программу на языках C++;C#

elphi;Lazarus;VB;PB так вот если не шитать некоторые моменты пурик был на высоте. Если интересно могу выложить исходники какие остались.

@locm · 14.11.2013, 11:38

Не по теме:

Сообщение от mestnyi33

Водяной Змей, А ты как сюда попал, то, как вообще узнал про пурик?

Есть предположение что это тролль, который уже предпринимал попытки "загаживать" PB форумы. Некоторые факты и стиль письма на это указывают.
Он и сюда добрался.

@Водяной Змей · 14.11.2013, 11:41

как вообще узнал про пурик?

Я фактически начинал с него изучение программирования.
Программировал я на нём целый год.
И за всё это время я не заработал ни копейки.
Вплоть до того, что однажды меня попросили написать простейший WYSIWYG-редактор Web-страниц (всего-то вставка картинок, ссылок и скриптов), я просидел над ним с месяц, но ничего так и не вышло - в единственном примере от mirashic и kvitaliy функционала не хватало, а дополнить было нечем.

Уже потом, спустя много времени, я решил, чисто для себя, попробовать написать такой редактор на шарпе.
И справился за один день! Хотя мой опыт на шарпе тогда составлял всего пару месяцев, а единственным источником знаний был Гугл.

Я бы с удовольствием оставил бы пурик и перешел бы на лазарус но !!! пока он хуже в разы.

Чем?
И инфы в инете - больше, и WYSIWYG-редактор форм - лучше.

Дело в другом... Пурик - это не просто язык. Это нонконформизм. Это способ выделиться из толпы, "стать не таким, как все", для тех, кто не может этого достичь более конструктивными методами.
Поэтому большинство пурекодеров столь рьяно защищает этот диалект, а когда кто-то начинает рассказывать об его недостатках, буквально впадает в панику. Когда же оказывается, что оппонент всё же прав, они говорят: да это тролль, что с него взять...
Жаль только, что денег за весь этот нонконформизм не платят.
А тем самым троллям, напротив, - не только платят, но и весьма неплохо.

@Quiet Snow · 16.11.2013, 22:14

Человек походу спутал раздел PureBasic c разделом Холивары.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@JoraVoenyjHaker Заблокирован
	14.11.2013, 01:10
	Пурик он недоступный для широкого круга пользователей вот если бы разработчики не были такими деревянными и не делали полуверсий(демо-версий) и проработали интерфейс разработчика то он стал-бы ЯП №1 0

@JoraVoenyjHaker Заблокирован
	14.11.2013, 01:19
	Я перехажу на пурик !... при беглом изучении я уже ему ставлю оценку +5 жаль что молодым забивают голову всякой чипушнёй как C/C++ или Delphi - вообще ужас ! 0

@JoraVoenyjHaker Заблокирован
	14.11.2013, 01:38
	От-того и платят, потому-что тяжолый для изучения, и многим проще вам заплатить чем разобраться в ироглифах делфи что касается ООП пурик ещё слишком молодой а у делфи как и VB есть длинная предыстория уж я то знаю 0

@JoraVoenyjHaker Заблокирован
	14.11.2013, 01:51
	забыл добавить: и мало продвигается на рынке, я и говорю что это ошибка разработчиков так-бы у них и деньги нашлись и всё что угодно для необходимых наворотов, если бы они были ближе к пользователям и не прятались по закаулкам интернета ))) 0

@Водяной Змей Заблокирован
	14.11.2013, 01:56
	Это даже не ошибка, а просто лень разработчиков. Уж за 15 лет могли бы и WYSIWYG-редактор сделать нормальный, и много что ещё. Да хоть просто PBIшек написать побольше, на разные случаи жизни, чтобы там был и Excel, и ADO, и IWebBrowser2... 0

@JoraVoenyjHaker Заблокирован
	14.11.2013, 01:57
	всё ! мне уже не охота спорить и оффтопы писать меня не переубедить, если будет возможность сам лично приложу руку для популяризации 0

@mestnyi33 2 / 2 / 2 Регистрация: 25.05.2012 Сообщений: 55
	14.11.2013, 11:15 [ТС]
	Водяной Змей, А ты как сюда попал, то, как вообще узнал про пурик? Я бы с удовольствием оставил бы пурик и перешел бы на лазарус но !!! пока он хуже в разы. Или хотя бы когда он станет как дельфы тогда можно на нем писать. Почему я так говорю, да потому что я писал программу на языках C++;C#elphi;Lazarus;VB;PB так вот если не шитать некоторые моменты пурик был на высоте. Если интересно могу выложить исходники какие остались. 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	16.11.2013, 22:14
	Человек походу спутал раздел PureBasic c разделом Холивары. 0