Форум: "Основная";
Поиск по всему сайту: 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.039 c
1-57372           Nuce                  2002-03-04 02:53  2002.03.18  
HTML?


7-57543           Cranium               2001-12-16 02:02  2002.03.18  
Как данные из таблицы бызы загрузить в TreeView


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


1-57413           Hewlping              2002-03-01 17:57  2002.03.18  
СРОЧНО!!!!


1-57349           Vadim                 2002-03-04 12:49  2002.03.18  
Артефакты при отображении TreeView