И так все, кому хоть что-то не понравилось в подсветке. Пожалуйста жалобы и предложения сюда!
Так как ошибки исправлены и делать стало нечего ( ) хочется наконец-то опубликовать окончательный вариант и закрыть проект.

Вот так будет выглядеть подсветка (изменения по сравнению с сущ. в языках Си++, дельфи, Хтмл).
_http://www.iwi-iuk.org:8081/tests/vingrad/...orum.vingrad.ru

Так же то, что дейчас не изменится, так и останется

Короче говоря конечный спурт!

Спасибо!

ПС:
Если найдёте ссылки на интересные коды на форум, плиз тоже сюда
Когда будете постить примеры кода, указывайте его язык!

Вот конкретно ссылка на новоподсвеченный код конкретно в этой теме:
_http://www.iwi-iuk.org:8081/tests/vingrad/...7&t=37700&st=0#
Нажимайте рефреш, если что

А когда планируется запустить в производство?

Как все довольны будут ну во всяком случае до нового года. Правда пока с Админом не разговаривал, но думаю, он против не будет

Цитата

Как все довольны будут

прямо коммунизм настанет

Delphi-хочу привычное выделение Bold для зарезервированных слов языка (Procedure, Var и т.п.)

Код

open "file.ext" for input as someVar open "file.ext" for input as #someVar

Для Vb

Код

Type typLinkInfo    fFileName As String End Type Dim a() As Byte ReDim Preserve a(11) a(1) = "b" a(1) = IIf(1 = 1, tyue, False) Me.Show If Len(Label1.Caption) Then If (Not DE.rsZ.BOF) And (Not DE.rsZ.EOF) Then

Type - тогоже цвет как и End
ReDim Preserve - тогоже цвет как и Dim
"()" скобки не подсвечиваются

далее для соотведствия, хоя мне нравится
IIf, Len, Me, Not, And - не подсвечивается

Vit, я чего то не понял... Разве сейчас не так?

Код

procedure var

Vach
"Type ReDim Preserve" добавлены. Скобки менять не будем, так как были люди за их синий цвет. Так же с "IIf, Len, Me, Not, And"

Akina
Поясните, а также указывайте плиз название языка.

Цитата(sergej @ 21.12.2004, 08:45)

Vit, я чего то не понял... Разве сейчас не так?

Всё нормально... Это как оказалось Clear Type сглаживание на ноутбуке так работает что почти не видно разницы

Цитата(Akina @ 21.12.2004, 12:28)

open "file.ext" for input as someVar open "file.ext" for input as #someVar

Это наверно из-за меня...
Я когда сождавал подсветку, задал покрас синим после символа #
Можно убрать конечно, это лишнее оказалось...

sergei.z, дай снова доступ к коду инициализации, я подправлю до нового года...

А также, предложение: можно ли сделать так, чтоб потом в последствии, можно было бы добавлять и корректировать подсветку?

Цитата(Mikle @ 21.12.2004, 23:13)

sergei.z, дай снова доступ к коду инициализации, я подправлю до нового года... А также, предложение: можно ли сделать так, чтоб потом в последствии, можно было бы добавлять и корректировать подсветку?

Доступ у тебя остался
А корректировать можно, но внедрять только релизами

Delphi

Код

type  TAboutBox = class(TForm)    OKButton: TButton;    ProgramIcon: TImage;    Label1: TLabel;    Version: TLabel;    Copyright: TLabel;    procedure OKButtonClick(Sender: TObject);    procedure FormShow(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  If (CheckBox4.Checked = true) and (CheckBox5.Checked = false) then    begin       Reg:=TRegIniFile.Create('SOFTWARE\Microsoft\Windows\CurrentVersion\Run');       Reg.RootKey := (HKEY_LOCAL_MACHINE);       s:=Application.ExeName + ' /a';       Reg.WriteString('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'Wall', s);       IniFile.WriteBool('Options', 'Reb', true);    end

Код

CPL_INQUIRE     : DoInquire(PCplInfo(lParam2)^);        CPL_NEWINQUIRE  : DoNewInquire(PNewCPLInfo(lParam2)^);        CPL_DBLCLK      : DoActivate(LongInt(lParam2));        CPL_STOP        : DoStop(LongInt(LParam2));        CPL_EXIT        : DoExit;        CPL_SETUP       : DoSetup; uses Types; {$HPPEMIT '#ifdef __linux__'} {$HPPEMIT '#ifdef CLX_USE_LIBQT'} {$HPPEMIT '#pragma link "libqtintf-6.9-qt2.3.so"'} {$HPPEMIT '#else'} {$HPPEMIT '#pragma link "libborqt-6.9-qt2.3.so"'} {$HPPEMIT '#endif'} asm        PUSH    ESI        PUSH    EDI        MOV     EDI,EAX        MOV     ESI,EDX        MOV     EDX,EAX        CLD @@1:    LODSB @@2:    OR      AL,AL        JE      @@4        CMP     AL,0AH        JE      @@3        STOSB        CMP     AL,0DH        JNE     @@1        MOV     AL,0AH        STOSB        LODSB        CMP     AL,0AH        JE      @@1        JMP     @@2 @@3:    MOV     EAX,0A0DH        STOSW        JMP     @@1 @@4:    STOSB        LEA     EAX,[EDI-1]        SUB     EAX,EDX        POP     EDI        POP     ESI end;

Хех.......

Это сообщение отредактировал(а) ~FoX~ - 22.12.2004, 11:14

А что это за конструкция? @@4
Может тоже подсветить?
Добавлено @ 13:30
Хотя в принципе p0s0l наверное бы подсветил, если бы надо было бы
(Во! 3 раза "бы" )

Удалите пост...


Это сообщение отредактировал(а) Pakshin A. S. - 24.12.2004, 23:23

Код

asm  @label1: jmp @@label2  @@label2: jmp @label1  @1: jmp @@2  @@2: jmp @1  @@@1label: ... end;

Добавлено @ 23:54
Ух, это плохо...
В принципе, тогда добавил подсветку меток (начинаются на @), но видимо, если после @ идёт цифра, а не буква, то облом получается... А также, если несколько споподряд символов @, то тоже не очень красиво (метка подсвечивается начиная только с последнего символа @)... Я не знаю, как это обойти...
sergej.z наверное знает