VPF::Под Delphi 7 и Delphi 2005 не устанавливается!

DwnldDany4Guest

Дата 8.5.2009, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.5.2009

Репутация: нет
Всего: нет

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  KL: TSynKeyList;
begin
  Kl := TSynKeyList.Create;
  with KL do
  begin
    Name := 'Errors';
    KeyList.Add('error');
    KeyList.Add('ошибка');
    Attribs.Foreground := clRed;
    Attribs.Style := [fsUnderline];
  end;
    UniSyn.MainRules.AddKeyList(KL);
  ShowMessage(ChangeFileExt(paramstr(0),'.lng'));
  UniSyn.SaveHglToFile(ChangeFileExt(paramstr(0),'.lng'));
  UniSyn.LoadHglFromFile(ChangeFileExt(paramstr(0),'.lng'));
  Button1.Caption := 'Ok';
  Button1.Enabled := false;
end;

файл

Код


<UniHighlighter>
 <ImportantInfo>
  ******* Please read carefully *************************
  * Please, make any changes in this file very carefuly!*
  * It is much more convinient to use native designer!  *
  *******************************************************
 </ImportantInfo>
 <Info>
  <General>
   <Name></Name>
   <FileTypeName></FileTypeName>
  </General>
  <Author>
   <Name></Name>
   <Email></Email>
   <Web></Web>
   <Copyright></Copyright>
   <Company></Company>
   <Remark></Remark>
  </Author>
  <Version>
   <Version>0</Version>
   <Revision>0</Revision>
   <Date>0</Date>
   <Type>Internal Test</Type>
  </Version>
  <History>
  </History>
  <Sample>
  </Sample>
 </Info>
 <SchemeIndex>-1</SchemeIndex>
 <Schemes>
 </Schemes>
 <Range Name="Root">
 <Enabled>True</Enabled>
 <OpenSymbol></OpenSymbol>
 <OpenSymbolFinishOnEol>False</OpenSymbolFinishOnEol>
 <CloseSymbol></CloseSymbol>
 <CloseSymbolFinishOnEol>False</CloseSymbolFinishOnEol>
 <OpenSymbolStartLine>False</OpenSymbolStartLine>
 <CloseSymbolStartLine>False</CloseSymbolStartLine>
 <DelimiterChars>!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~</DelimiterChars>
 <OpenSymbolPartOfTerm>True</OpenSymbolPartOfTerm>
 <CloseSymbolPartOfTerm>True</CloseSymbolPartOfTerm>
 <CloseOnTerm>False</CloseOnTerm>
 <CloseOnEol>False</CloseOnEol>
 <AllowPredClose>False</AllowPredClose>
 <CaseSensitive>False</CaseSensitive>
 <KW Name="Errors">
  <Enabled>True</Enabled>
  <W>error</W>
  <W>ошибка</W>
 </KW>
 </Range>
 <CopyRight>Rule file for UniHighlighter Delphi component (Copyright(C) Fantasist([email protected]), Vit([email protected]), Vitalik([email protected]), 2002-2004)</CopyRight>
</UniHighlighter>

Результат тот же. Другую версию пока не тестил smile

DwnldDany4Guest

Дата 8.5.2009, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.5.2009

Репутация: нет
Всего: нет

Поставил Uni 2.0b4, там все нормально

jhonyxakep

Дата 11.5.2011, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Divide Et Impera

Профиль
Группа: Участник
Сообщений: 983
Регистрация: 7.4.2009
Где: Что, Когда?

Репутация: нет
Всего: 8

Если тема всё еще жива....

...На Delphi 7 вылазят ошибки

Код



[Error] SynHighlighterManager.pas(161): Undeclared identifier: 'GetFriendlyLanguageName'
[Error] SynHighlighterManager.pas(261): Undeclared identifier: 'FindByFriendlyName'
[Error] SynHighlighterManager.pas(271): Undeclared identifier: 'FindByFriendlyName'
[Error] SynHighlighterManager.pas(462): Undeclared identifier: 'GetFriendlyLanguageName'
[Fatal Error] SynEditReg.pas(151): Could not compile used unit '..\Source\SynHighlighterManager.pas'

Может проект совсем того? Как-то жалко будет...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| SynUniHighlighter и SynEdit \| Следующая тема »