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

Вниз

Помогите как сделать подсветку синтаксиса ........   Найти похожие ветки 

← →
Alexsey Orlov   (2003-02-17 06:07) [0]


private
...
function CurrText: TTextAttributes;
public
...
end;
....
var
...
SINT:Integer;
LenD:integer;
SIN_TEXT:array[0..15] of Char;
...
procedure TForm1.RichChange(Sender: TObject);
begin
SIN_TEXT:="SAR";
SINT:=AnsiPos(SIN_TEXT,Rich.Text);
LenD:=StrLen(SIN_TEXT);
Rich.SelStart:=SINT-1;
Rich.SelLength:=LenD;
with Rich.SelAttributes do
begin
if Sint>0 then
CurrText.Style := CurrText.Style + [fsBold];
end;
end;

работает но когда я пишу SAR он подсвечивает и выделяет ето слово а когда пишу дальше следующее слово оно пишется поверх выделенного SAR помогите как лечить?

---

← →
Cr@sh   (2003-02-17 06:13) [1]

Вечером в инет заходи, я те компонент дам. А щас не мучайся.
Че раньше-то не спросил?!

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.007 c