EventlParam(), EventwParam()

            x = EventlParam() & $FFFF  ; Не-полновесное слово (16 Bits)
            y = EventlParam()>>16        ; Полновесное слово  (16 Bits)

Надо так:

            x = EventlParam() & $FFFF  ; Младшее слово (16 бит)
            y = EventlParam()>>16        ; Старшее слово  (16 бит)

Здесь одно длинное число типа Quad (8 байтов) состоит из двух чисел по 4 байта Long. Визуально напишем в виде числа 55552222, здесь старшее слово 5555, а младшее 2222, чтобы взять старшее слово надо сдвинуть число вправо на 16 байт и получим 5555 уже в младшем регистре, а чтобы взять младшее слово, надо 5555 обнулить превратив в 0000 и получится 00002222 т.е. 2222. Вот смысл операции, хранить два числа рядом в одной ячейке и взять любое из них битовыми операциями. Можно также сделать структуру POINT и взять из неё x.l или y.l. Хоть это и не привычно, причём тут слово (тип Word), но в любой литературе именно так описывают эти термины. В WinAPI есть макросы MAKEWORD объединяет два числа High и Low и макросы LoWord, HiWord для взятия одного из чисел двойного числа.

Отредактировано AZJIO (08.02.2022 02:38:43)

В описании SetGadgetItemState для ListIconGadget я не увидел флаг что-то типа UnChecked, проверил "0", работает.

DatabaseQuery()

$1, $2 - тут пишется слитно

————————————————————————————————————————————

В "Структуры" упоминается про "динамические объекты" возможно стоит упомянуть что под этим подразумевается, например строки, списки, карты, массивы, то есть как я понимаю объекты, которые не определяют размер структуры как SizeOf, а содержат только указатели на данные. То есть когда мы очищаем структуру с помощью ClearStructure(), она должна сначала очистить контент на который ссылается указатель структуры, то есть вызвать FreeList(), FreeMap(), FreeArray() и т.д., а потом уже заполнить нулями собственно элемент структуры - указатель, иначе в памяти останется список, не смотря что указатель в структуре был затёрт. В то же время в описании  ResetStructure() из сказаного я понимаю что для динамических объектов используется ClearList(), ClearMap(), ReDim. То есть динамические объекты для структуры является всё то, что указывается с помощью указателя.

ReadByte()
В примере комментарий, но понятно что не построчный, а побайтовый.

ReadByte(0) ; Построчный просмотр содержимого файла

Резидентные объекты
что бы - пишется вместе

Встроенный отладчик
Структур считается
со запуска
byref (не по ссылке, а по указателю)

CheckFilename

двойное отрицание, проще написать "Возвращает не нулевое значение, если имя файла допустимое", а ещё хот и это выглядит неофициально, но кратко "Возвращает #True, если имя файла правильное"

Preferences
В этом разделе по работе с ini-файлами стоит упомянуть некоторое поведение:
1. ExaminePreferenceKeys перечисляет все ключи, даже если они имеют одинаковое имя, в отличии от ReadPreference...(), которое читает первое попавшееся. То есть если ini-файл предназначен только для чтения, то можно не заботиться о разности имён ключей.
2. Игнор пробелов: пробелы перед и после ключа игнорируются. Для значения ситуация иная, перед значением игнорируются, после значения не игнорируются. Чтобы не игнорировать перед значением, надо использовать кавычку, естественно потом её удалять после прочтения.
3. Так как кодировка UTF-8, то ключ может состоять из любого символа, даже пробела если он не первый и не последний, то есть понятие ключ определяется началом некого символа отличным от пробела и до первого символа "=", а всё что после "=" является значением до конца строки (до \r или до \n). Это позволяет использовать ключ как носитель информации при использовании ExaminePreferenceKeys, как бы 2 ячейки разделённых символом "=".
4. Если в строке отсутствует "=", то при использованиии ExaminePreferenceKeys вся строка является ключём, то есть с помощью PreferenceKeyName() можно перечислить строки в файле.

Отредактировано AZJIO (16.11.2022 05:22:28)

Sergey2400
После работы могу ещё накидать идей, так как пришлось переводить SpiderBasic, в принципе там тоже самое, но я со 2 страницы понял и уже перевёл несколько, а потом сравнивал.
И кстати примеры можно переработать. Если будет желание править, то я и идеи для улучшенных примеров накидаю, точнее можно не только их перевести - переменные с французского на англ., но и немного изменить, а где то и добавить в виду отсутствия.

Я тоже скоро в отпуск, может пересекёмся отпусками и будет продуктивнее.

Отредактировано AZJIO (31.01.2023 17:18:20)

Sergey2400
Если бы предупредил, то я бы специально подготовил примеры, А то я даже пару ошибок не стал отписывать, потому что думал что подвижек не будет.

Пример для ButtonImageGadget не очень удачный, так как в реальности рисунки лучше сразу в код вшивать, а не надеяться что они будут загружены по указанному пути. То есть вот реальный пример:

EnableExplicit
UseGIFImageDecoder()

DataSection
	icon:
	IncludeBinary "images" + #PS$ + "icon.gif"
EndDataSection

If OpenWindow(0, 0, 0, 220, 100, "Пример...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	If CatchImage(0, ?icon)
    ButtonImageGadget(0, 10, 10, 30, 30, ImageID(0))
	EndIf

	Repeat
	Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Классический GUI (в OpenWindow). Переменная Event там ни к чему. Константы тоже именованные. Перечисление Enumeration ладно опустим.

#btn0 = 0
#Window = 0

If OpenWindow(#Window, 0, 0, 220, 100, "Пример...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	ButtonGadget(#btn0, 10, 60, 200, 30, "Сообщение")

	Repeat
    Select WaitWindowEvent()
    	Case #PB_Event_Gadget
        Select EventGadget()
        	Case #btn0
            MessageRequester("", "Событие")
        EndSelect
    	Case #PB_Event_CloseWindow
        CloseWindow(#Window)
        End
    EndSelect
	ForEver
EndIf

Пример для ResizeGadget

#Window = 0
Enumeration Gadget
	#edr0
	#btn0
EndEnumeration

Define ww = 220
Define wh = 100

If OpenWindow(#Window, 0, 0, ww, wh, "Измени размер окна", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
	WindowBounds(0, ww, wh, #PB_Ignore, #PB_Ignore)

	EditorGadget(#edr0, 10, 10, ww - 20, wh - 60)
	ButtonGadget(#btn0, 10, wh - 40, ww - 20, 30, "Кнопка")

	Repeat
    Select WaitWindowEvent()
    	Case #PB_Event_SizeWindow
        wh = WindowHeight(#Window) 
        ww = WindowWidth(#Window) 
        ResizeGadget(#edr0, #PB_Ignore, #PB_Ignore, ww - 20, wh - 60) 
        ResizeGadget(#btn0, #PB_Ignore, wh - 40, ww - 20, #PB_Ignore) 
    	Case #PB_Event_CloseWindow
        CloseWindow(#Window)
        End
    EndSelect
	ForEver
EndIf

Пример для EventDropFiles и/или EnableGadgetDrop

#Window = 0
Enumeration Gadget
	#str0
	#edr0
EndEnumeration

If OpenWindow(#Window, 0, 0, 500, 200, "Кинь сюда файл", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

	StringGadget(#str0, 10, 10, 500 - 20, 30, "")
	EditorGadget(#edr0, 10, 50, 500 - 20, 140)
	
	EnableGadgetDrop(#str0, #PB_Drop_Files, #PB_Drag_Copy)
	EnableGadgetDrop(#edr0, #PB_Drop_Files, #PB_Drag_Copy)

	Repeat
    Select WaitWindowEvent()
    	Case #PB_Event_GadgetDrop ; событие перетаскивания
        Select EventGadget()
        	Case #str0 ; гаджеты, которые получили событие перетаскивания файлов/папок
            If Not FindString(EventDropFiles(), Chr(10))
            	SetGadgetText(#str0, EventDropFiles())
            EndIf
        	Case #edr0
            SetGadgetText(#edr0, EventDropFiles())
        EndSelect
    	Case #PB_Event_CloseWindow
        CloseWindow(#Window)
        End
    EndSelect
	ForEver
EndIf

TailleFichier в примере FileSize, все имена функций и переменных поменять на англоязычные

ReadAsciiCharacter, ReadByte, ReadCharacter, ReadDouble, ReadFloat, ReadInteger, ReadLong, ReadQuad, в примерах в комментарии "Построчный просмотр содержимого файла", на самом деле везде разный, посимвольный, побайтовый.

Некоторые страницы отсутствуют в дереве, например параметры компилятора в командной строке. Замучаешься вспоминать, чтобы найти, это есть только на странице "Справочное руководство", хорошо бы добавить эти страницы в дерево и в указатель.

В "Структуры" можно добавить пример список списков структур, обрабатывая в двух вложенных циклах. Я подобное делал в одной из своих программ (поиск дубликатов), что показывает сложную вложенность структур. В общем я не один раз пытался там найти пример структур со списками и каждый раз не находил и говорил себе надо бы этот пример добавить. Самое интересное что доступ к элементу выглядел так a()\b()\x и это работало и даже сортировка по вложенному списку работала.

Reference\links.html - Полезные ссылки - там теперь ссылка на русский форум не работают, думаю надо указать этот форум и раздел киберфорума по PureBasic.

Я делаю дерево, куда включил ключевые слова, разные темы и доп.инфу. Пробуйте
В связи с этим вопрос, как сделать, например в AutoIt3 ключевые слова сортированы, то есть в одном списке указаны ВСЕ ключевые слова, а не группами: основные, разные, прочие, другие. То есть Global, If, For, Goto, Include, Data - все они являются ключевыми словами и не разделяются на важные и не важные. И удобство что когда я кликнул ключевое слова в "Указатель", то на вкладке "Содержание" автоматически открывается раздел ключевых слов и можно просматривать там другие варианты, а не возвращаться на общую страницу.и искать там, то есть сразу в дереве кликать любые.

Отредактировано AZJIO (02.02.2023 07:38:31)

В справочном файле нужно обязательно указать использование ReadStringFormat(), перед тем как использовать ReadString(), чтобы поставить указатель в конце метки BOM и читать данные файлы. Если этого не сделать, то при чтении UTF-8 в начало строки попадает один лишний символ из метки BOM.
Во всех примерах, где используется ReadString() нужно добавить эту функцию, чтобы ляпов не было.
Допустим если первый символ кавычка и получив строку проверяем Left(str$, 1) <> ";" то первый символ при таком расчёте оказывается вторым.

До кучи столкнулся с тем, что если InitSound() возвращает 0, то программа падает при попытке использования LoadSound(). Нужно изменить пример и как-то предупредить кодера, что если наушники вытащены из компа, то прога упадёт и требуется флаг проверки InitSound(), перед тем как вызвать любую функцию в разделе звука. Ну ладно ещё на старте сделать проверку и выход, а если звук является второстепенным и выход по звуку не критерий останавливать прогу, тогда важен флаг наличия инициализированного модуля. А как это будет работать, если звук выключен в процессе, то есть после запуска проги выдернут шнур, может тогда надо снова запросить InitSound()?.

Отредактировано AZJIO (03.11.2023 13:33:53)

Sergeihik

Я же не знаю почему она упадёт, я по факту. Я записывал видосы с USB наушниками (с микрофоном), а обычно у меня наушники штекерные. И я загрузил винду без наушников совсем. Открываю свою прогу "Календарь", она падает, сначала подменил её файлом из комплекта, падает, запускаю исходник, пишет LoadSound() не может без InitSound(). И тут я понимаю что у InitSound() есть флаг, но как это отработает если я вытащу наушники в загруженной винде или после запуска проги. Если что обсуждение проблемы документации тут и тут.

Отредактировано AZJIO (03.11.2023 15:14:32)