newJS
Был бы удобен поиск констант не только по первым символам.

Вот, кстати, "конкурент" https://www.manhunter.ru/releases/1570_ … r_1_1.html

newJS
1. Вроде полезная прога, зачем её в раздел "Оффтоп" выкладывать? "PureBasic для Windows" вроде больше подходит
2. Просто интересно, х64 зачем?
3. library5.dll, library6.dll - улыбнули
4. Имхо вкладки "Настройки" и "Работать" - лучше поменять местами для удобности

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

newJS

Надо подставлять не GetCurrentDirectory, которая МОЖЕТ ОТЛИЧАТЬСЯ от папки программы, а путь к самой программе, полученный из полного пути к исполняемому файлу, полученному, например, через GetModuleFileName_ (WinApi) или ProgramFilename.

Иногда нужен поиск не только по первым символам. Посмотрите как у конкурента (хотя он и отстаёт по функционалу).

На счёт "текущая папка программы" столкнулся когда прописал в батник запуск своей программы. Батник в другой папке и там где батник папка была текущей, программа запустившись не видит своих библиотек.  Другой аналогичный случай с любым практически редактором, прописываем запуск программы из Notepad++ и папка Notepad++ становится текущей, поэтому когда в скрипте указываешь относительный путь _ только имя файла он появится в корне папки Notepad++, а если бы запустить прогу кликнув на EXE, то сохранился бы в папке программы. Но мы то уже научены как это работает и уже знаем где искать файл, если он не найден в папке программы. Поэтому я в проге всегда использовал функцию установки текущей рабочей папки, причём не той что указывается при открытии диалога выбора папки, в AutoIt3 есть функция и после её использование программа видит свои файлы с какого бы батника она не запустилась.

Сейчас думаю, а не создаст ли это проблемы для батника? Может тогда правильней получить просто папку программы и указывать абсолютные пути для подключения ресурсов?

newJS
А поиск по тексту справки есть? Например ввёл TreeGadget и программа вывела все константы в комментариях которых есть слово TreeGadget.

Отредактировано AZJIO (25.08.2022 16:03:04)

Ком-строка была бы полезной. Выделил константу в коде, нажал хоткей, запускается проге и ей передаётся выделенный текст, прога сразу переводит курсор и открывает описание.

Шрифт очень тяжело читать. Например я предпочитаю шрифты без засечек, и принудительно в браузере переопределяю шрифты и запрещаю использовать шрифты указанные сайтом, несмотря на стилистику и прочее, задаю минимальный размер 15-16, то есть как бы сайт не подсовывал мелкий шрифт, у меня он будет 16. И всегда одно и то же начертание Arial, то есть мозг не пытается анализировать иное начертание, привыкать к нему, чтобы воспринимать машинально. Поэтому по возможности вынести все параметры шрифта в ini-файл (имя, размер)

Цвета тоже вынести в ini-файл, чтобы фон можно было сделать чёрным, текст белым, цвета ключевых слов в своём стиле.
Кстати, попытаться открыть цвета из конфига PureBasic в AppData\Roaming\PureBasic.

Отредактировано AZJIO (25.08.2022 21:34:30)

Нет. Текущая папка у каждого процесса своя. Она же "текущая директория", она же "рабочая директория".
Хотя на самом деле у процесса для каждой буквы диска своя рабочая директория. Т.е, если дисков несколько, то и их несколько.

Имхо, для ресурсов программы абсолютные пути всегда предпочтительнее.

Отредактировано Smitis (26.08.2022 02:27:42)

Это как?
Текущую папку можно получить функцией GetCurrentDirectory().

Как этим пользоваться не зная какая папка будет текущей?
Результат ожидаем (корень диска).

Directory$ = "D:"
If ExamineDirectory(0, Directory$, "*.*")
  While NextDirectoryEntry(0)
    If DirectoryEntryType(0) = #PB_DirectoryEntry_File
      Type$ = "[File] "
      Size$ = " (Size: " + DirectoryEntrySize(0) + ")"
    Else
      Type$ = "[Directory] "
      Size$ = "" ; A directory doesn't have a size
    EndIf
    Debug Type$ + DirectoryEntryName(0) + Size$
  Wend
  FinishDirectory(0)
EndIf

В википедии, как не странно, всё есть
https://ru.wikipedia.org/wiki/Рабочий_каталог

никто из ком-строки запускать не будет. Запускают из редактора. Редактор позволяет передать параметры поиска через ком-строку. Это не значит что будет открыт cmd.exe, это значит, что программа откроется сразу там где надо. К примеру я не так давно прописал в нескольких своих программа ком-строку, теперь проги можно открывать из проводника, передавая через ком-строку путь к файлу или папке, а без этого прога откроется с настройками по умолчанию и путь надо было бы копировать из папки в поле программы. Это не обязательно должен быть путь, например в другой проге открывает библиотеку связанную с PureBasic, потому что программная среда PureBasic, в другую программную среду можно прописать другую библиотеку открываемую по умолчанию. То есть запустить прогу учитывая что она запущена из какой то среды. Например, можно даже не константу передавать а гаджет, например ButtonGadget, то есть я в IDE PureBasic ставлю курсор на ButtonGadget и вызываю хоткей запуска твоей проги, IDE передаёт выделенное слово или слово в котором находится курсор, то есть ButtonGadget, используя параметр %WORD в функционале запуска инструментов. Твоя прога получает ButtonGadget как параметр, ты проверяешь, если параметр пуст, то запускаем по умолчанию, если параметр некое ключевое слово, то открывает в комбо ButtonGadget и в левом списке автоматически открываются константы ButtonGadget. То есть прога сразу открывает то что человеку нужно. Можно например проверить есть ли слева у переданного слова "#", если есть , то это константа и открываем сразу на этой константе и открываем описание, то есть программист  сразу открывает описание константы не набирая её повторно в поисковой строке. Если не константа и не один из элементов комбо-списка, то воспринимаем это как текст поиска по описанию с открытием первого найденного в описании.

Отредактировано AZJIO (29.08.2022 11:05:55)

И ещё. Зачем программа создаёт папку library и сохраняет в ней две dll? Во-первых, эти файла в архиве и так есть, во-вторых, без двух других файлов (а их нет, если нет и library) программа всё равно не работает.

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

Procedure SetProgParam()
	Protected CountP, Param$, i, find, Count
	CountP = CountProgramParameters()
	If CountP
    Param$ = ProgramParameter(0)
    If Left(Param$, 1) = "#"
    	SetGadgetText(#field, Param$)
    	ProcedureReturn
    EndIf
    ; вариант 1
    ForEach Combo()
    	;     	If Combo() = Param$
    	If FindString(Combo(), Param$)
        SetGadgetText(#Combo, Param$)
        find = 1
    	EndIf
    Next
    ; вариант 2
    Count = CountGadgetItems(#Combo)
    For i = 0 To Count - 1
    	tmp$ = GetGadgetItemText(#Combo, i)
    	If FindString(tmp$, Param$)
        ;         SetGadgetText(#Combo, tmp$)
        SetGadgetState(#Combo , i)
        find = 1
    	EndIf
    Next
    If Not find
    	; тогда поиск по содержимому, поиск файлов в папке "constans", чтение, поиск текста, поиск "constantData" назад,
    	; сохранение константы в список, вывод списка в гаджет для клика.
    EndIf
	EndIf
EndProcedure

Отредактировано AZJIO (03.09.2022 08:43:17)