PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » PureBasic для Windows » GlobalAutoCompletion - автозавершение текста

GlobalAutoCompletion - автозавершение текста

Страница: 1

Сообщений 1 страница 10 из 10

1

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 936
  • Уважение: [+13/-0]
  • Позитив: [+13/-0]
  • Провел на форуме:
    18 дней 11 часов
  • Последний визит:
    Сегодня 17:05:10

GlobalAutoCompletion - автозавершение текста (пока только Linux, на Windows не проверял)

Скачать: yandex upload.ee

https://i.imgur.com/t1lOsHn.png https://i.imgur.com/Q5axXHn.png

Использование:
1. Выделяем в любом месте текст (в браузере, текстовом редакторе и т.д.)
2. Жмём горячую клавишу Ctrl+L (или другую назначенную)
3. Выбираем пункт в меню, появляется список возможных автозавершений. Кликаем любой пункт, программа сворачивается или закрывается, а в место выделения будет вставлен выбранный в списке текст или текст из файла.

Подробнее в ReadMe.txt

Отредактировано AZJIO (08.09.2021 08:54:24)

0

2

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 936
  • Уважение: [+13/-0]
  • Позитив: [+13/-0]
  • Провел на форуме:
    18 дней 11 часов
  • Последний визит:
    Сегодня 17:05:10

AutoCompletionIDE

Скачать: yandex upload.ee

скриншот-Windows
Linux: скриншот, калька
Windows скриншот

Старое

Обновление

Добавлено автовыделение select=1 для Windows, не требуется предварительно нажимать Ctrl+Shift+Left
Добавлены фрагменты.

Всвязи с функцией ChrisR для Win10, в которой полосы прокрутки можно сделать в чёрном стиле обновил (ссылки во втором посте), сделав отдельный исходник и скомпилированный файл в суффиксом Black. теперь чёрная тема в Win10 единственное цвета надо будет подправить в ini-файлах.

AutoCompletion.ini
ColorAct = 6666cc
ColorNotAct = 3f3f3f

.lst
1-Snippets - 72ADC0
2-Tracing_paper - 72ADC0
3-Procedure - DBA6AA
4-PB_Const - DE98D9
4-KeyWord - ff9900 (без именений)
6-API - E68A7D
7-API_Const - DE98D9

Сделал автозавершение индивидуально для IDE.
Командная строка для инструмента: %WORD %CURSOR
Цифра в конце файла-списка указывает на способ поиска (подробнее в ReadMe)
Число списков зависит от числа файлов lst
В заголовке указано время поиска, достаточно быстро, 4 мс.

Использовал регулярное выражение, исполняемый файл конечно вырос в 2 раза, но скорость поиска минимальна, в 10 раз быстрее, но и 40 мс это мелочь, просто приходилось делать костыли.

Обновление
Добавлен флаг 128 для кальки (поиск от начала слова но не по заглавной, а по предстоящему пробелу или началу строки)
Добавлен второй флаг в списки, чтобы чекбокс переключил поиск на второй режим.
Параметры ком-строки не обязательны. Теперь используется WM_COPY или буфера обмена, что позволяет использовать прогу вообще без привязки к редактору или если у проги нет возможности передать выделенное слово через ком-строку. Ранее прога требовала параметр, теперь использует WM_COPY. Но дополнительно сделал что если WM_COPY не сработала, то в любом случае используется захват из буфера обмена, то есть для надёжности можно даже самому выделить и начать Ctrl+C и надёжно получит поиск выделенного слова, например в браузере или в MS-Word или ещё где.

В плане добавить комбобокс, чтобы вернуть Global-режим как в GlobalAutoCompletion, то есть можно выбрать расширение/тип где искать, при чём если выбор изменяется, то происходит сохранение в ini-файл, тем самым исключаем промежуточное окно как GlobalAutoCompletion.

Обновление AutoCompletionIDE
Добавлено меню (открыть ini, lst, папку, и найденное в буфер обмена), в Linux - заголовкам списка, в Windows - кнопке "Найти".
Добавлена подсказка заголовкам списка о количестве элементов в списке.

Элемент ссылки (HyperLinkGadget) в Linux поддерживает правый клик, поэтому использовал его для открытия меню, когда перезагрузил на Windows это не работало, пришлось использовать WM_RBUTTONUP, чтобы прикрутить меню на кнопку "Найти".

Обновление
Сделал 3 примера, скачать:

ComboBoxGadget
ListIconGadget
ListViewGadget

по 15 кнопок в GUI по работе с пунктами, чтобы просто копировать нужный кусок кода, а не вычитывать справку.

Ну и обновил фрагменты кода в AutoCompletionIDE, изменённые 73 файла, удалил ещё с пол-сотни. Переставил порядок столбцов, фрагменты сделал первым столбцом, потому что их в основном и приходится использовать.

Отредактировано AZJIO (02.03.2024 08:45:42)

0

3

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 936
  • Уважение: [+13/-0]
  • Позитив: [+13/-0]
  • Провел на форуме:
    18 дней 11 часов
  • Последний визит:
    Сегодня 17:05:10

На яндексе обновил AutoCompletionPB, добавив Windows-версию исходника.

На данный момент проблема во вставке текста из буфера обмена, выкладываю проблемную часть кода, она самостоятельная, то есть должна вставить то что сейчас в буфере обмена в окно документа PureBasic. Надо компилировать, так как работающий код не даст вставить, то есть вызвать как инструмент.

Код:
EnableExplicit
Global classText.s = Space(256), hWnd_Find = 0

Procedure.l enumChildren(hwnd.l)
	If hwnd
    GetClassName_(hwnd, @classText, 256)
    If classText = "Scintilla"
    	hWnd_Find = hwnd
    	ProcedureReturn 0
    EndIf
    ProcedureReturn 1
	EndIf
	ProcedureReturn 0
EndProcedure
    

Procedure SendHotKeyCtrlIns(hWnd, sleep = 20, sleep1=110)
;	Protected hWnd = GetForegroundWindow_()
; 	keybd_event_(#VK_CONTROL,0,0,0)
	SendMessage_(hWnd, #WM_KEYDOWN, #VK_SHIFT, 0)
	Delay(sleep1)
	SendMessage_(hWnd, #WM_KEYDOWN, #VK_INSERT, 0)
	Delay(sleep1)
	SendMessage_(hWnd, #WM_KEYUP, #VK_INSERT, 0)
	Delay(sleep1)
; 	keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0)
	SendMessage_(hWnd, #WM_KEYUP, #VK_SHIFT, 0)
EndProcedure

Procedure Execute()
	Protected hWin, title$, Length, hWin2
	hWin = FindWindowEx_(0, 0, "WindowClass_2", 0)
	If hWin
    Length = GetWindowTextLength_(hWin)+2
    title$ = Space(Length)
    GetWindowText_(hWin,@title$, Length)
    If Left(title$ , 9) = "PureBasic"
;     	ShowWindow_(hWin, #SW_SHOWNORMAL)
;     	hWin2= FindWindowEx_(hWin, 0, "Scintilla", 0)
    	EnumChildWindows_(hWin, @enumChildren(), 0)
;     	MessageRequester("", "1")
;     	If hWin2
    	If hWnd_Find
;         MessageRequester("2", Str(hWnd_Find))
;         SetForegroundWindow_(hWnd_Find)
;         SendMessage_(hWnd_Find, #WM_KEYDOWN, #VK_SHIFT | #VK_INSERT, 0)
        SendHotKeyCtrlIns(hWnd_Find)
;         SendMessage_(hWnd_Find, #WM_KEYDOWN, #VK_CONTROL, 0)
;         Delay(200)
;         SendMessage_(hWnd_Find, #WM_KEYDOWN, #VK_V, 0)
    	EndIf
    EndIf
	Else
    MessageRequester("", "Окно не найдено")
	EndIf
EndProcedure

Execute()

Отредактировано AZJIO (06.09.2021 12:28:16)

0

4

  • Автор: Sergeihik
  • Активный участник
  • Зарегистрирован: 27.07.2021
  • Приглашений: 0
  • Сообщений: 180
  • Уважение: [+3/-3]
  • Позитив: [+0/-0]
  • Провел на форуме:
    2 дня 15 часов
  • Последний визит:
    31.03.2024 09:26:43

Нужен какой то другой подход,по тому как имя класса относительно вдруг изменится,да и имя окна у каждой версии своё.
;и зачем нам тогда имя класса на данном этапе,если можно просто получить хендл по заголовку окна?

Код:


OpenWindow(0,0,0,100,180,"",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
StringGadget(1,2,2,96,96,"taimer",#PB_Text_Center)

Debug Str(FindWindow_(0,"PureBasic"))+"  "+Str(FindWindow_("WindowClass_2",0))

hwnd=FindWindow_("WindowClass_2",0)

buff.s=Space(200)
GetClassName_(hwnd,@buff,200)
Debug buff

Procedure.s GETWINDOWTEXT(HWNDokna.i,zagolovok.s="                          ")
  GetWindowText_(HWNDokna,@zagolovok,25)
  ProcedureReturn zagolovok
EndProcedure

Debug GETWINDOWTEXT(hwnd)

;и зачем нам тогда имя класса на данном этапе,если можно просто получить хендл по заголовку окна?

Debug FindWindow_(0,GETWINDOWTEXT(hwnd))

;а эта типа для поиска дочерних окон и  опять же будет ли имя класса постоянным и одинаковым во всех версиях?
;1 аргумент
;Дескриптор родительского окна, в дочерних окнах которого нужно искать.
;Если hwndParent имеет значение NULL , функция использует окно рабочего стола в качестве родительского окна.
;Функция ищет среди окон, которые являются дочерними окнамирабочего стола.

Debug FindWindowEx_(0,0,"WindowClass_2",0);



Repeat 
 Select WaitWindowEvent() 
   Case #PB_Event_CloseWindow
       Break
     Case #PB_Event_Gadget
       
       
    EndSelect
ForEver
End

Может проще тогда предоставить пользователю указать в настройках свою версию пурика?

Отредактировано Sergeihik (06.09.2021 20:11:30)

0

5

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 936
  • Уважение: [+13/-0]
  • Позитив: [+13/-0]
  • Провел на форуме:
    18 дней 11 часов
  • Последний визит:
    Сегодня 17:05:10

Обновил AutoCompletionPB на яндексе.

Sergeihik написал(а):

и зачем нам тогда имя класса на данном этапе,если можно просто получить хендл по заголовку окна?

Можно получить хендл другого заголовка окна, например эксплорера с открытой папкой PureBasic

Sergeihik написал(а):

Нужен какой то другой подход,по тому как имя класса относительно вдруг изменится,да и имя окна у каждой версии своё.

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

Со вставкой все намного проще

Код:
SendMessage_(hWnd_Find, #WM_PASTE, 0, 0)

Добавлено поле, в котором можно подправить искомый текст.
Прога стала похожа на ранее известную Advanced_Search, помню как я увидел и сделал аналог на AutoIt3, теперь такие же списки, только нет прыжка в интернет, но долго ли сделать, конечно не такое продвинутое как раньше с выбором доменов, чтобы не захламлять прогу, но вполне можно сгенерировать меню на основе пунктов в ini-файле, см ReadMe.
Проверил в том числе на Notepad++ и AkelPad, работает надёжно, со вставкой.
Для Notepad++ в shortcuts.xml надо добавить:

Код:
<Command name="AutoCompletionPB" Ctrl="no" Alt="yes" Shift="no" Key="113">&quot;$(NPP_DIRECTORY)\Tools\AutoCompletionPB.exe&quot; &quot;$(CURRENT_WORD)&quot;</Command>

Для AkelPad пункт меню:

Код:
"AutoCompletionPB" Exec(`"%a\AkelFiles\Tools\AutoCompletionPB\AutoCompletionPB.exe"`, "%d") Icon("%a\AkelFiles\Tools\AutoCompletionPB\AutoCompletionPB.exe")

У AkelPad не передаётся параметр ком-строки, хотел быстро найти но не стал заострятся и добавил в прогу, что если ничего не передаётся через ком-строку, то попытатся SendMessage_(hWnd_Find, #WM_COPY, 0, 0) и это сработало.

Отредактировано AZJIO (08.09.2021 07:13:37)

0

6

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 936
  • Уважение: [+13/-0]
  • Позитив: [+13/-0]
  • Провел на форуме:
    18 дней 11 часов
  • Последний визит:
    Сегодня 17:05:10

Обновил
Добавил галку переключения поиска принудительно от начала или в центре
Добавлена кнопка поиска в интернете. В ini-файле секция ссылок.

Отредактировано AZJIO (10.09.2021 10:55:50)

0

7

  • Автор: Sergeihik
  • Активный участник
  • Зарегистрирован: 27.07.2021
  • Приглашений: 0
  • Сообщений: 180
  • Уважение: [+3/-3]
  • Позитив: [+0/-0]
  • Провел на форуме:
    2 дня 15 часов
  • Последний визит:
    31.03.2024 09:26:43

Посмотри вот как вариант.(конечно оптимизировать немного нужно)

Код:

;;=====================
Procedure.s GETWINDOWTEXT(HWNDokna.i,zagolovok.s="                               ")
  GetWindowText_(HWNDokna,@zagolovok,30)
  ProcedureReturn zagolovok
EndProcedure
;

Procedure.s GetClassName(HWNDClassa.i,ClassName.s="                          ")
  GetClassName_(HWNDClassa,@ClassName,25)
  ProcedureReturn ClassName
EndProcedure
Procedure.s RealGetWindowClass(HWNDClassa.i,ClassName.s="                              ")
  RealGetWindowClass_(HWNDClassa,@ClassName,25)
  ProcedureReturn ClassName
EndProcedure





Global hwnd_p.i
Procedure.i enumfunczuy(HWND.i,lp.i)
    Protected s.s
  If  HWND<>0 
    s=GETWINDOWTEXT(HWND)
      s=Left(s,5)
    If s="PureB";сдесь можно сделать поиск подстроки
        hwnd_p=HWND
       ProcedureReturn #False
    EndIf
   ProcedureReturn #True
 Else
   ProcedureReturn #False
  EndIf
EndProcedure
Procedure.i enumfunczuy1(HWND.i,lp.i)
  ;Debug HWND
  If HWND<>0
    
    Debug GetClassName(HWND)
     Debug "hwnd окна  "+Str(HWND)
    ;Debug Str(GetClassLong_(HWND,#GCL_WNDPROC))
      Debug "hwnd родителя  "+Str(GetWindowLongPtr_(HWND,#GWLP_HWNDPARENT));дескриптор родительского окна, если он есть
        
     ;Debug Str(GetWindowLongPtr_(HWND,#GWLP_WNDPROC))
      Debug  "---------------------"
                 
    

       If GetClassName(HWND)="Scintilla"
           
         Debug Str(GetWindow_(HWND,#GW_HWNDFIRST));типа определяет верхнее окно из однотипных (а однотипные по сути это в классе)
         ;ну и для проверки рисуем в контект окна
         ds=GetDC_(GetWindow_(HWND,#GW_HWNDFIRST))

         s.s="5555554444444444444444444444444444444444444444444444444444444444444444444444444444444444455"
         TextOut_(ds,5,1,@s,Len(s))
         For i=0 To 20
         ;SendMessage_(GetWindow_(HWND,#GW_HWNDFIRST),#WM_CHAR,55,0);печать в каретку
         Next

          ProcedureReturn #False
       EndIf
   ProcedureReturn #True
 Else
   ProcedureReturn #False
  EndIf
EndProcedure

  

 
;========================
 EnumWindows_(@enumfunczuy(),0);перечисляет дискрипторы windows окон на рабочем столе
 Debug "===================="

  If hwnd_p<>0
   Debug "======Заголовок окна, Дескриптор окна и класс родителя========"
   Debug GETWINDOWTEXT(hwnd_p);заголовок окна
   Debug Str(hwnd_p)
   Debug RealGetWindowClass(hwnd_p)
   Debug Str(GetTopWindow_(hwnd_p));получает дискриптор самого верхнего окна в z порядке
   Debug "-----"
     

    EnumChildWindows_(hwnd_p,@enumfunczuy1(),0);перечисляет дискрипторы дочерних окон,nul=окна Windows
    
  EndIf



OpenWindow(0,0,0,100,180,"",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
StringGadget(1,2,2,96,96,"taimer",#PB_Text_Center)




Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
     ;SetClassLong_(hwndd,#GCL_WNDPROC,calbac)
      Quit = 1
  EndSelect
Until Quit = 1

Отредактировано Sergeihik (11.09.2021 00:10:58)

0

8

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 936
  • Уважение: [+13/-0]
  • Позитив: [+13/-0]
  • Провел на форуме:
    18 дней 11 часов
  • Последний визит:
    Сегодня 17:05:10

Обновил
Добавлено автовыделение select=1 для Windows, не требуется предварительно нажимать Ctrl+Shift+Left

0

9

  • Автор: AZJIO
  • Активный участник
  • Зарегистрирован: 07.08.2020
  • Приглашений: 0
  • Сообщений: 936
  • Уважение: [+13/-0]
  • Позитив: [+13/-0]
  • Провел на форуме:
    18 дней 11 часов
  • Последний визит:
    Сегодня 17:05:10

Видео записал для демонстрации работы инструмента. Скачать 88 Мб

0

10

  • Автор: Webarion
  • Активный участник
  • Откуда: Москва
  • Зарегистрирован: 19.12.2021
  • Приглашений: 0
  • Сообщений: 213
  • Уважение: [+5/-0]
  • Позитив: [+19/-1]
  • Пол: Мужской
  • Возраст: 42 [1981-08-05]
  • Провел на форуме:
    7 дней 9 часов
  • Последний визит:
    Сегодня 01:08:57
AZJIO написал(а):

Видео записал для демонстрации работы инструмента.

:cool:

0

Страница: 1

Вы здесь » PureBasic - форум » PureBasic для Windows » GlobalAutoCompletion - автозавершение текста