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

@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 разделом Холивары.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@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