Залил новую версию с полностью измененным движком расскраски исходников.
Проверил на
стандартном дельфовом коде. Если старая раскраска была плоха, новая гораздо хуже. Конкретно:
1. Цвета - мягко говоря, не сахар. Раньше было лучше. А ещё лучше взять стандартную для среды.
2. Выделение чисел внутри комментариев - мягко говоря, не гуд. А что ещё там будет выделяться и как?
1.
2.
3.
4.
5.
6.
7.
{ *************************************************************************** }
{ }
{ Delphi and Kylix Cross-Platform Visual Component Library }
{ }
{ Copyright (c) 1995, 2001 Borland Software Corporation }
{ }
{ *************************************************************************** }
3. Комментарий не выделяется
4. Неверное выделение констант:
1.
2.
3.
4.
5.
6.
7.
8.
const
fmCreate = $FFFF;
scShift = $2000;
scCtrl = $4000;
scAlt = $8000;
scNone = 0;
5. А вот и ключевые слова внутри комментария, тоже выделяются
1.
2.
3.
4.
5.
6.
7.
8.
9.
// these operators are used in Assign and go beyond simply copying
// laCopy = dest becomes a copy of the source
// laAnd = intersection of the two lists
// laOr = union of the two lists
// laXor = only those not in both lists
// the last two operators can actually be thought of as binary operators but
// their implementation has been optimized over their binary equivalent.
// laSrcUnique = only those unique to source (same as laAnd followed by laXor)
// laDestUnique = only those unique to dest (same as laOr followed by laXor)
6. private, protected, public, property, destructor, class, overload, virtual - не выделяются, хотя должны. Список наверняка неполный. Наверняка ещё будут constructor, dynamic, override, published, stdcall, register, cdecl, read, write, index... Три последних, кстати, нужно уметь отличать, когда они должны выделяться, а когда - нет.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
TList = class(TObject)
private
FList: PPointerList;
FCount: Integer;
FCapacity: Integer;
protected
function Get(Index: Integer): Pointer;
procedure Grow; virtual;
procedure Put(Index: Integer; Item: Pointer);
procedure Notify(Ptr: Pointer; Action: TListNotification); virtual;
procedure SetCapacity(NewCapacity: Integer);
procedure SetCount(NewCount: Integer);
public
destructor Destroy; override;
function Add(Item: Pointer): Integer;
procedure Clear; virtual;
procedure Delete(Index: Integer);
class procedure Error(const Msg: string; Data: Integer); overload; virtual;
class procedure Error(Msg: PResStringRec; Data: Integer); overload;
procedure Exchange(Index1, Index2: Integer);
function Expand: TList;
function Extract(Item: Pointer): Pointer;
function First: Pointer;
function IndexOf(Item: Pointer): Integer;
procedure Insert(Index: Integer; Item: Pointer);
function Last: Pointer;
procedure Move(CurIndex, NewIndex: Integer);
function Remove(Item: Pointer): Integer;
procedure Pack;
procedure Sort(Compare: TListSortCompare);
procedure Assign(ListA: TList; AOperator: TListAssignOp = laCopy; ListB: TList = nil);
property Capacity: Integer read FCapacity write SetCapacity;
property Count: Integer read FCount write SetCount;
property Items[Index: Integer]: Pointer read Get write Put; default;
property List: PPointerList read FList;
end;
7. Некоторые синтаксические элементы (например, имена типов) подсвечены чем-то, очень мало отличающимся от основного текста. Только мешает, особенно если участь, что "что есть стандартный тип" - идёт с бухты-барахты. Например, integer подсвечивается, а pointer - нет.
8. object - это тоже ключевое слово.
1.
ApplicationShowException: procedure (E: Exception) of object = nil;
9. inherited - тоже ключевое слово
1.
2.
3.
constructor TRegGroup.Create(AClass: TPersistentClass);
begin
inherited Create;
10. Комментарий вообще никак не отрисован, хотя должен бы
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
begin
inherited Create;
FGroups := TList.Create;
InitializeCriticalSection(FLock);
// Initialize default group
Group := TRegGroup.Create(TPersistent);
// The group criterion has changed. We need to recalculate which groups the
// classes that have already been registered belong to. We can skip
// Group since we would just be moving a class to a group it already belongs
// to. We also only need to find the new group of classes that descend from
// AClass since that is the only criterion being changed. In other words,
// we only need to move classes that descend from AClass to Group if they
// are in another group.
for I := 0 to FGroups.Count - 1 do
begin
CurrentGroup := FGroups[I];
11. raise - это тоже ключевое слово
1.
2.
3.
4.
procedure Error;
begin
raise EFilerError.CreateFmt(SUnknownGroup, [AGroupClass.ClassName]);
end;
12. А здесь стандартные типы почему-то не подсвечены
1.
2.
3.
4.
5.
constructor TClassFinder.Create(AClass: TPersistentClass;
AIncludeActiveGroups: Boolean);
var
I: Integer;
Group: TRegGroup;
13. А ещё есть такая хорошая штука - ассемблер
1.
2.
3.
4.
5.
6.
7.
8.
function GetFieldClassTable(AClass: TClass): PFieldClassTable; assembler;
asm
MOV EAX,[EAX].vmtFieldTable
OR EAX,EAX
JE @@1
MOV EAX,[EAX+2].Integer
@@1:
end;
14. Последние 16 лет try и finally - тоже ключевые слова. И except тоже
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure UnRegisterClass(AClass: TPersistentClass);
begin
RegGroups.Lock;
try
RegGroups.UnregisterClass(AClass);
finally
RegGroups.Unlock;
end;
end;
15. И это тоже ключевое слово
1.
2.
3.
threadvar
GlobalLoaded: TList;
GlobalLists: TList;
16. #0 или там $0F - это целые лексемы, и подсвечивать их стоит соответственно
1.
2.
3.
if (QuoteChar <> #0) and (QuoteChar = Tail^) then
QuoteChar := #0
else if QuoteChar = #0 then
17. И at - это тоже ключевое слово
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
class procedure TList.Error(const Msg: string; Data: Integer);
function ReturnAddr: Pointer;
asm
MOV EAX,[EBP+4]
end;
begin
raise EListError.CreateFmt(Msg, [Data]) at ReturnAddr;
end;
18. Странно и нелогично выделять ^ и при этом не выделять @
1.
2.
3.
4.
if (NewIndex < 0) or (NewIndex >= FCount) then
Error(@SListIndexError, NewIndex);
Item := Get(CurIndex);
FList^[CurIndex] := nil;
Фух. Даже до четверти текста не дошёл, но уже устал. Пока хватит, наверное :)
