Существует ли по возможности бесплатный компонент/библиотека для SynEdit которая посвечивает нужное (неправильное) слово красной чертой/плавающей по примеру Word...

Или просто метод посветки слова подчеркиванием


P.S Виталик,


Спасибо

Уже в асе ответил, но напишу и здесь.

Есть такой замечательный компонент TSynSpellCheck.
Найти его можно здесь: http://www.realmind.us/sites/synspellcheck/

Кстати, в этой темке можно обсудить проблемы его установки и использования

А пробем с ним куча Он устарели и "не подходит" для версии SynEdit

1. Первое это TPoint -> TBufferCoord;
2. Строка Result := Point(X,Y); //что-то типа того

ну и еще по мелочам


3. Сайт с которо качать загнулся. Надеюсь временно. Компонент взял из Syn Editor
....
Вот так

Здравствуйте. Хочу обсудить проблему его установки! Всё начилось с того что немогу нигде его найти, может кто выложет, помогите добрые люди, ну очень-очень надо.

У меня по-итогу получилось Я могу тебе либо прислать его на почту либо тут прикрепить

Это сообщение отредактировал(а) GORI - 22.11.2005, 19:11

Присоединённый файл ( Кол-во скачиваний: 50 )
 Spell.rar 19,15 Kb

Оооо спасибо, установил.
А как вот оно работает?
Как указать базу слов? И можно ли использовать в качестве базы текстовый файл со списком?
А еще хотелось бы знать как он проверяет? после каждого слова или по команде сразу всё?

Ну...
Как раз так и работает Есть дириктория со словарями... Словари на офф сайте:

Цитата(Vitalik @ 15.11.2005, 20:56)

Найти его можно здесь: http://www.realmind.us/sites/synspellcheck/

Потом подключить к SynEdit

Компонента оказалась глючной, в ней есть процедура добавления слов в словарь, так вот она неправильно определяет место в массиве для нового слова!!!

Код

procedure TSynSpellCheck.AddDictWord(Word: string); var   AWordItem: PWordRec;   pos:integer;   { Return list position for insert new word }   function GetInsertPos(const Word: string): Integer;   var     iI: Integer;   begin     Result := -1;     // If not any words at all starting with this letter, we find next word     if FCacheArray[Ord(Word[1])][1] = 0 then begin       for iI := Ord(Word[1]) + 1 to 255 do         if FCacheArray[iI][1] <> 0 then begin           Result := FCacheArray[iI][0];           Break;         end;     end else       // Words with this letter exists, we find right pos       for iI := FCacheArray[Ord(Word[1])][0] to Succ(FCacheArray[Ord(Word[1])][1]) do         if PWordRec(FWordList.Items[iI])^.Word > Word then begin           Result := iI;           Break;         end;   end; begin   if Trim(Word) = '' then     Exit;   Word:=Trim(Word);     Word := AnsiLowerCase(Word);   if FindWord(Word) = -1 then begin     New(AWordItem);     FMaxWordLength := Max(FMaxWordLength, Length(Word));     AWordItem^.Word  := Word;     AWordItem^.User  := True;     AWordItem^.Value := ElfHash(Word);     if FHashAlgorithm <> haDiff then begin       if FHashAlgorithm = haSoundEx then         AWordItem^.Hash := SoundEx(Word, FHashLength)       else         AWordItem^.Hash := MetaPhone(PChar(Word), FHashLength);     end;     // Quickest way is insert one word than add and than sort whole list        pos:=GetInsertPos(Word);        pos:=max(FWordList.Count-1,pos);             FWordList.Insert(pos, AWordItem);   //WordList.Add(AWordItem);     CalculateCacheArray; // Calculate cache array to speed up searches     FModified := True;     if Assigned(FOnAddWord) then       FOnAddWord(Self, Word);   end; end;

Это сообщение отредактировал(а) Gorcer - 29.11.2005, 02:31

Ну что она глючиная мы уже выяснили

Цитата(Gorcer @ 29.11.2005, 01:29)

Компонента оказалась глючной

Попробуй сторонние разработки. Например, качественно выполнен Aspell и в нем есть поддержка SynEdit... Только он чуть платный кажется. Но это не есть большая проблема Я когда-то находил. Могу еще раз, но это лучше в аське

Поправка не Aspell a Addict...

вот линк :
http://www.addictivesoftware.com/archives/...t/msg00483.html

Вот что пишет Maël Hörz, автор UniSynEdit (версии SynEdit, поддерживающей Unicode):

Цитата(Ma)

I updated some months ago SynSpellChecker to work with the actual ANSI and Unicode version of SynEdit. Note however that this is totally unsupported! Can be found here: ANSI-version: http://mh-nexus.de/downloads/SynSpell.zip Unicode-version: http://mh-nexus.de/downloads/UniSynSpell.zip Cheers, Maël.

Т.о. это можно считать последней версией SynSpellCheck

Человек паук, я в тебя снова верю!........спасссибо....всё заработало!

Цитата

Человек паук

прикольно

Я в тебя тоже всегда верю, Виталик!