Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

TrichEdit 


AndreyB   (2002-03-02 20:52) [0]

Как в RichEdit выделять текст рзным цветом,как например в редакторе кода Delphi и Visual C++



Mbo   (2002-03-03 07:52) [1]

selstart,sellength,selattributes



MegaVolt   (2002-03-04 09:59) [2]

есть ещё один метод заключается в преобразовании входного файла во время открытия в RTF формат с разноцветной подсветкой. Это реализуется используя конвертер который подключается к RichEdit. Пример:

Type
p =class(Tconversion)
function ConvertReadStream(Stream: TStream; Buffer: PChar; BufSize: Integer): Integer; override;
function ConvertWriteStream(Stream: TStream; Buffer: PChar; BufSize: Integer): Integer; override;
end;

function p.ConvertReadStream(Stream: TStream; buffer: PChar; BufSize: Integer): Integer;
Begin
//тута вставляем текст преобразователя на чтение
end;

function p.ConvertWriteStream(Stream: TStream; Buffer: PChar; BufSize: Integer): Integer;
begin
Result := Stream.Write(Buffer^, BufSize);
// преобразование на запись не требуется так что пишем всй что поступило :)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
richedit1.registerConversionFormat("pas",p);
richedit1.DefaultConverter:=p;
//регистрируем конвертер
end;


При открытии файлов делалось преобразование в Дельфяшную раскраску. Скорость работы самого конвертера без отображения результата была порядка 1Мб/сек что вполне достаточно :)
Недостаток этого метода в том что ежели неоюходим не просмотр а редактирование то автоматической подсветки синтаксиса не происходит :( Как это обойти я не прибумал :(




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
1-57425           виктор_л              2002-03-01 11:46  2002.03.18  
Почему так получается?


3-57286           Alex17                2002-02-18 17:32  2002.03.18  
Поиск Lookup


14-57514          Sir Alex              2002-01-29 18:49  2002.03.18  
Клиент для чтения форумов DMFC 1.1.002a


1-57381           1g0r                  2002-03-01 16:11  2002.03.18  
TIniFile.RenameSection


1-57353           Gayrus                2002-03-04 16:57  2002.03.18  
To