purebasic.info

PureBasic forum
Текущее время: Ср ноя 21, 2018 9:51 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 8 ] 
Автор Сообщение
 Заголовок сообщения: Раскраска исходников
СообщениеДобавлено: Ср апр 08, 2009 4:36 pm 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11325
Благодарил (а): 4 раз.
Поблагодарили: 441 раз.
Вот написал прогу, которая раскрашивает исходники примерно так
Цитата:
Global LayoutTemp , Count = 0 , Layout1

Procedure ScrollLock ( State )
If GetKeyState_ ( #VK_SCROLL ) = State
keybd_event_ ( #VK_SCROLL , $45 , 1 , 0 )
keybd_event_ ( #VK_SCROLL , $45 , 3 , 0 )
EndIf
EndProcedure


Procedure GetLayoutWindowActive ( )
WindowsHandle = GetForegroundWindow_ ( )
ProcessId = GetWindowThreadProcessId_ ( WindowsHandle , 0 )
Layout = GetKeyboardLayout_ ( ProcessId )
If Count = 0
If LayoutTemp < > Layout
LayoutTemp = Layout
Count = 1
EndIf
ElseIf Count = 1
Count = 0
If LayoutTemp = Layout
If Layout = 68748313
ChangeSysTrayIcon ( 1 , ImageID ( 0 ) )
SysTrayIconToolTip ( 1 , "Русский" )
ScrollLock ( 0 )
ElseIf Layout = 67699721
ChangeSysTrayIcon ( 1 , ImageID ( 1 ) )
SysTrayIconToolTip ( 1 , "Английский" )
ScrollLock ( 1 )
EndIf
EndIf
EndIf
EndProcedure



OpenWindow ( 0 , 2 , 2 , 20 , 20 , "" , #PB_Window_Invisible )

CatchImage ( 0 , ?RuIcon , 894 )
CatchImage ( 1 , ?EnIcon , 894 )

AddSysTrayIcon ( 1 , WindowID ( 0 ) , ImageID ( 0 ) )
SysTrayIconToolTip ( 1 , "Русский" )

If CreatePopupMenu ( 0 )
MenuItem ( 1 , "Закрыть" )
EndIf

SetTimer_ ( WindowID ( 0 ) , 1 , 200 , @GetLayoutWindowActive ( ) )

Repeat
Event = WaitWindowEvent ( )
Menu = EventMenu ( )
Type = EventType ( )

If Event = #PB_Event_SysTray
If Type = #PB_EventType_RightClick
DisplayPopupMenu ( 0 , WindowID ( 0 ) )
EndIf
EndIf

If Event = #PB_Event_Menu And Menu = 1
Break
EndIf

ForEver
KillTimer_ ( WindowID ( 0 ) , 1 )
End


DataSection
RuIcon:
IncludeBinary "Ru.ico"
RuIconend:

EnIcon:
IncludeBinary "En.ico"
EnIconend:
EndDataSection


Вложения:
Syntax Highlighting.rar [25.61 KiB]
Скачиваний: 308

_________________
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали. :) :)
Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср апр 08, 2009 4:49 pm 
Не в сети
BackupUser
Аватар пользователя

Зарегистрирован: Ср ноя 29, 2006 9:29 pm
Сообщений: 1492
Откуда: Москва
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Приятно глазу.
Красоту ты, Пётр, шибко ценишь.

Эстет.

_________________
ПОДПИСЬ____________ Fdisk, (пренеприятнейшая личность(С) ХроноСиндромо)


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср апр 08, 2009 6:06 pm 
Не в сети
профессор

Зарегистрирован: Чт фев 07, 2008 4:35 pm
Сообщений: 238
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Пётр
А много времени может занять, если в твой PicAsmEditor добавить подсветку для PHP? А то в SciTe пробую фон php кода сменить на серый - нифига не получается, а на белом фоне - глаза утомляет :evil:

В SciTe вообще чтобы к настройкам подсветки добраться - похоже надо ещё и язык этого самого SciTe изучить...


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср апр 08, 2009 6:09 pm 
Не в сети
BackupUser
Аватар пользователя

Зарегистрирован: Ср ноя 29, 2006 9:29 pm
Сообщений: 1492
Откуда: Москва
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
В Ultraedit есть подсветка РHP. с++ и многих других.
Ничего мудрить не надо, скачал и подсветил, что хочешь.

_________________
ПОДПИСЬ____________ Fdisk, (пренеприятнейшая личность(С) ХроноСиндромо)


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср апр 08, 2009 6:23 pm 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11325
Благодарил (а): 4 раз.
Поблагодарили: 441 раз.
kaligraf писал(а):
А много времени может занять, если в твой PicAsmEditor добавить подсветку для PHP
Ну там подсветка зависит он данных в файлах папки Library
Если подправить файлы, то может и получится.
Если нет, то надо в код лезть...

_________________
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали. :) :)


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт апр 09, 2009 6:11 am 
Не в сети
профессор

Зарегистрирован: Чт фев 07, 2008 4:35 pm
Сообщений: 238
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Пётр
Просто как-то мысль мелькала у меня, что твой редактор при соответствующем развитии тоже может поддерживать несколько языков и подсветку для них. Но этот если решишь его развивать. Каркас у редактора отличный. Навигатор по меткам - вообще супер полезная вещь и доступ к настройкам простой.

Fdisk
Спасибо за подсказку - попробую Ultraedit.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт апр 09, 2009 8:47 am 
Не в сети
профессор

Зарегистрирован: Пт фев 20, 2009 12:57 pm
Сообщений: 1713
Откуда: Алматы
Благодарил (а): 16 раз.
Поблагодарили: 46 раз.
Пункты репутации: 5
а этот как его... блокнот++ там же вроди бы все это уже есть


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт апр 09, 2009 9:24 am 
Не в сети
BackupUser
Аватар пользователя

Зарегистрирован: Ср ноя 29, 2006 9:29 pm
Сообщений: 1492
Откуда: Москва
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Это всё старо как мир.
В Ultaedit есть возможность подсветить даже Пурик, цвета на выбор, любые.

Только для Пурика надо дополнительные файлы поставить, которые есть у буржуев на сайте, специально для этого.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 8 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB