Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > SynUniHighlighter и SynEdit > Под Delphi 7 и Delphi 2005 не устанавливается!

Автор: The MASTER 22.2.2005, 14:18

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

Автор: Vitalik 22.2.2005, 14:23

Цитата(The @ 22.2.2005, 14:18) Под Delphi 7 и Delphi 2005 не устанавливается! Я работаю в Delphi 7 и без проблем. Что оно говорит при установке? А Delphi 2005 у меня нету...

Автор: The MASTER 22.2.2005, 16:24

Запускаю файлик SynUniSyn_D7 - Delphi Package, и говорит: Цитата Cannot find resource file: C:\Program Files\Borland Delph7\Lib\SynUniSyn_D7.res. Recreated Вот и всё!

Автор: Vitalik 22.2.2005, 16:59

The MASTER, это не ошибка! Это так и надо! Потом компиль и устанавливай - всё будет работать

Автор: Kordub 22.2.2005, 23:17

Не устанавливается пакет версии 1.8 - ошибка при компиляции File not found: 'DsgnIntf.dcu' . У меня Delphi 7. Правда, устанавливается старая версия SynUniSyn, но она не работает с компонентом SynEdit. Т. е. если присвоить свойство Код SynEdit1.Highlighter := SynUniSyn1; никакой подсветки нет. Версия SynEdit - synedit-cvs-2004-10-09

Автор: The MASTER 22.2.2005, 23:36

Ошибка в строке: SynEdit_D7, Required package 'Syn_Edit_D7' not found

Автор: Vitalik 23.2.2005, 00:06

Цитата(Kordub @ 22.2.2005, 23:17) File not found: 'DsgnIntf.dcu' Странно... Я даже не знаю, почему у тебя такая трабла... Но ответ, наверняка, лежит на поверхности... Цитата(Kordub @ 22.2.2005, 23:17) Т. е. если присвоить свойство Код SynEdit1.Highlighter := SynUniSyn1; никакой подсветки нет. Версия SynEdit - synedit-cvs-2004-10-09 А ты свойства компонента SynUniSyn1 задаёшь двойным щелчком по нему в дизайнере формы или с помощью методов загрузки из файла/потока (или динамическим созданием)? Цитата(The @ 22.2.2005, 23:36) Ошибка в строке: SynEdit_D7, Required package 'Syn_Edit_D7' not found Перед установкой компонента SynUniSyn нужно установить компоненты http://sourceforge.net/projects/synedit/ и XmlParser

Автор: The MASTER 23.2.2005, 12:30

Вот это да!

Автор: The MASTER 23.2.2005, 12:40

Код DsgnIntf, Добавлено @ 12:41 Там ошибка!

Автор: Kordub 23.2.2005, 22:33

Цитата А ты свойства компонента SynUniSyn1 задаёшь двойным щелчком по нему в дизайнере формы или с помощью методов загрузки из файла/потока (или динамическим созданием)? Дизайнером. Очень понятный дизайнер, все классно работает и в окне примера отображается нужная подсветка. Но свойство SynEdit1.Highlighter я не могу задать во время разработки - ругается на несовместимость типов. Только runtime. Не работает, гадость Насчет ошибки с DsgnIntf.dcu - файл SysUniReg, строка 12 Код unit SynUniReg; interface {$I SynEdit.inc} uses {$IFDEF SYN_COMPILER_6_UP}  DesignIntf,  DesignEditors, {$ELSE}  DsgnIntf,            //----- тут ошибка {$ENDIF}  Classes,  SynEditStrConst,  SynUniHighlighter,  SynUniDesigner;

Автор: Vitalik 23.2.2005, 22:38

Цитата(The @ 23.2.2005, 12:40) DsgnIntf, Хм... Интересно... Это у вас ошибка получается в файле SynUniReg.pas? Там такой код: Код unit SynUniReg; interface {$I SynEdit.inc} uses {$IFDEF SYN_COMPILER_6_UP}  DesignIntf,  DesignEditors, {$ELSE}  DsgnIntf, {$ENDIF} //... То есть для Delphi выше шестой версии должны использоваться модули DesignIntf и DesignEditors, и только для более ранних версий используется DsgnIntf Возможно у вас не правильно инициируется SYN_COMPILER_6_UP в файле SynEdit.inc... Запустите такую программку (на форме только один Button): Код //... procedure TForm1.Button1Click(Sender: TObject); var  Msg: string; begin  Msg := '';  {$I SynEdit.inc}  {$IFDEF SYN_COMPILER_5}   Msg := Msg + 'Compiler version 5.0'#13#10;{$ENDIF}  {$IFDEF SYN_COMPILER_5_UP}Msg := Msg + 'Compiler version 5.0 or higher'#13#10;{$ENDIF}  {$IFDEF SYN_COMPILER_6}   Msg := Msg + 'Compiler version 6.0'#13#10;{$ENDIF}  {$IFDEF SYN_COMPILER_6_UP}Msg := Msg + 'Compiler version 6.0 or higher'#13#10;{$ENDIF}  {$IFDEF SYN_COMPILER_7}   Msg := Msg + 'Compiler version 7.0'#13#10;{$ENDIF}  {$IFDEF SYN_COMPILER_7_UP}Msg := Msg + 'Compiler version 7.0 or higher'#13#10;{$ENDIF}  {$IFDEF SYN_CPPB}         Msg := Msg + 'Borland C++ Builder'#13#10;{$ENDIF}  {$IFDEF SYN_CPPB_5}       Msg := Msg + 'Borland C++ Builder 5.0'#13#10;{$ENDIF}  {$IFDEF SYN_CPPB_5_UP}    Msg := Msg + 'Borland C++ Builder 5.0'#13#10;{$ENDIF}  {$IFDEF SYN_CPPB_6}       Msg := Msg + 'Borland C++ Builder 6.0'#13#10;{$ENDIF}  {$IFDEF SYN_CPPB_6_UP}    Msg := Msg + 'Borland C++ Builder 6.0'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI}       Msg := Msg + 'Borland Delphi'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_PE}    Msg := Msg + 'Borland Delphi PE'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_5}     Msg := Msg + 'Borland Delphi 5.0'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_5_UP}  Msg := Msg + 'Borland Delphi 5.0 or higher'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_6}     Msg := Msg + 'Borland Delphi 6.0'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_6_UP}  Msg := Msg + 'Borland Delphi 6.0 or higher'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_7}     Msg := Msg + 'Borland Delphi 7.0'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_7_UP}  Msg := Msg + 'Borland Delphi 7.0 or higher'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_8}     Msg := Msg + 'Borland Delphi 8.0'#13#10;{$ENDIF}  {$IFDEF SYN_DELPHI_8_UP}  Msg := Msg + 'Borland Delphi 8.0 or higher'#13#10;{$ENDIF}  {$IFDEF SYN_KYLIX}        Msg := Msg + 'Kylix';{$ENDIF}  {$IFDEF SYN_CLX}          Msg := Msg + 'CLX';{$ENDIF}  Application.MessageBox(PChar(Msg), 'SynEdit.inc', MB_ICONINFORMATION); end; И напишите здесь, какое сообщение она выдаёт Добавлено @ 22:43 Цитата(Kordub @ 23.2.2005, 22:33) Но свойство SynEdit1.Highlighter я не могу задать во время разработки - ругается на несовместимость типов. Странно... Опиши подробно, что ты делаешь и что оно говорит...

Автор: The MASTER 24.2.2005, 15:06

Выдаёт просто пустое окно!

Автор: Vitalik 24.2.2005, 15:57

The MASTER, а что у тебя за версия Delphi? Ты ведь SynEdit установил перед установкой SynUniHighlighter? P.S. У тебя есть ICQ?

Автор: The MASTER 25.2.2005, 17:09

Да, всё есть, Ася в профиле!

Автор: The MASTER 27.2.2005, 16:05

Ладно потом разберусь!

Автор: Kordub 28.2.2005, 21:28

Цитата И напишите здесь, какое сообщение она выдаёт Вот что: Compiler version 5.0 or higher Compiler version 6.0 or higher Compiler version 7.0 Compiler version 7.0 or higher Borland Delphi Borland Delphi 5.0 or higher Borland Delphi 6.0 or higher Borland Delphi 7.0 Borland Delphi 7.0 or higher Вроде все правильно. Но если явно написать {$DEFINE SYN_COMPILER_6_UP} то должно заработать. Сейчас попробую.

Автор: Kordub 28.2.2005, 21:39

Все! Работает!!! Просто не тот .inc файл подключался. Я очистил Environment Options/Library/Library Path - оставил там только нужные директории, и все стало работать. Спасибо всем за советы. Мужики, респект вам! Единственный такой комонент во всем нете. Если б был статус то добавил бы вам однозначный "+" к репутации. Удачи! Поспешил я с воплями радости На стадии разработки, если задать правила подсветки в SynUniSyn и какой-то нетривиальный текст в SynEdit.Lines, и выставить свойство SynEdit.Highlighter = SynUniSyn, то текст подсвечивается (на этапе разработки). Но после запуска подсветка пропадает. В чем бага? Если задать SynEdit.Highlighter = SynFortranSyn1 (к примеру, одна из стандартных подсветок), то она отображается, а SynUniSyn - нет.

Автор: Vit 28.2.2005, 22:04

Покажи код, вроде всё работает...

Автор: Kordub 1.3.2005, 08:40

Да собственно кода как такового нету... Код {Unit21.pas} unit Unit21; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, SynEditHighlighter, SynUniHighlighter, SynEdit; type  TForm1 = class(TForm)    SynEdit1: TSynEdit;    SynUniSyn1: TSynUniSyn;  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} end. //----------------------------------------------------------------- {Unit21.dfm} object Form1: TForm1  Left = 192  Top = 107  Width = 696  Height = 480  Caption = 'Form1'  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object SynEdit1: TSynEdit    Left = 112    Top = 96    Width = 200    Height = 150    Font.Charset = DEFAULT_CHARSET    Font.Color = clWindowText    Font.Height = -13    Font.Name = 'Courier New'    Font.Style = []    TabOrder = 0    Gutter.Font.Charset = DEFAULT_CHARSET    Gutter.Font.Color = clWindowText    Gutter.Font.Height = -11    Gutter.Font.Name = 'Courier New'    Gutter.Font.Style = []    Highlighter = SynUniSyn1    Lines.Strings = (      'sample text')  end  object SynUniSyn1: TSynUniSyn    Left = 376    Top = 112  end end

Автор: Vitalik 2.3.2005, 20:34

Kordub, я думаю ты имеешь ввиду следующее? На этапе проектрирования формы при изменении правил подсветки компонента они визуально применяются к SynEdit'у, но после компиляции на созданные правила не остаётся и намёка? Это баг. При изменении правил подсветки у компонента, Delphi их пишет в DFM-файл, но почему-то думает, что никаких изменений не произошло и поэтому не считает нужным сохранять "неизменённый" файл и тем более перекомпилировать проект... Если же после изменения правил подсветки изменить еще что-то в проекте, то Delphi увидит, что проект изменён, всё сохранит, и перекомпилит. Но почему так получается я еще не понял...

Автор: Kordub 2.3.2005, 21:09

Да, это оно. Я пытался менять проект после изменения правил подсветки, но ничего не помогает. Тогда я решил проблему по другому: сначала сохраняю нужную мне подсветку в файл, а потом читаю: Код procedure TForm1.FormActivate(Sender: TObject); begin  SynUniSyn1.LoadFromFile('default.hlr');  SynEdit1.Highlighter:=SynUniSyn1; end; Так даже лучше - можно менять подсветки по желанию.

Автор: Vitalik 3.3.2005, 18:46

Цитата(Kordub @ 2.3.2005, 21:09) Так даже лучше - можно менять подсветки по желанию. С этим я согласен. Сам только так и пользуюсь... Но проблему с использованием подсветки на этапе проектирования формы надо будет решить...

Автор: Vitalik 4.3.2005, 20:53

Kordub, Vit, Исправил! Всё оказалось очень просто! Нужно добавить в файле SynUniReg.pas в метод TSynUniEditor.Edit() еще одну строчку: Код procedure TSynUniEditor.Edit(); begin  TSynUniDesigner.EditHighlighter( Component as TSynUniSyn );  Designer.Modified(); // Воть! ;) end; И всё будет работать как часы! (Ну или по крайней мере у меня работает. Ничего больше вроде не менял) http://forum.sources.ru/smiles/Main/wink.gif

Автор: New Invision Master 20.3.2005, 17:17

Я начинающий, помогите мне! У меня вот что глючит: Код unit SynUniReg; interface {$I SynEdit.inc} uses {$IFDEF SYN_COMPILER_6_UP}   DesignIntf,   DesignEditors, {$ELSE}   DsgnIntf, {$ENDIF}   Classes,   SynEditStrConst,   SynUniHighlighter,   SynUniDesigner; type   TSynUniEditor = class(TDefaultEditor)     procedure Edit; override;     procedure ExecuteVerb(Index: Integer); override;     function GetVerb(Index: Integer): string; override;     function GetVerbCount: Integer; override;   end; procedure Register; implementation procedure Register; begin   RegisterComponents( SYNS_ComponentsPage, [TSynUniSyn] );   RegisterComponentEditor(TSynUniSyn, TSynUniEditor); end; { TSynUniEditor } procedure TSynUniEditor.Edit; begin   TSynUniDesigner.EditHighlighter( Component as TSynUniSyn ); end; procedure TSynUniEditor.ExecuteVerb(Index: Integer); begin   Edit; end; function TSynUniEditor.GetVerb(Index: Integer): string; resourcestring   sEditUni = 'Edit...'; begin   Result := sEditUni; end; function TSynUniEditor.GetVerbCount: Integer; begin   Result := 1; end; end. Так в инклюде SynEdit.inc'а Делфи не может найти файл SynEdit.inc SynEdit 2.0 установлен. Версия SynUniHighlighter 1.8 Делфи 7 Enterprise

Автор: Vitalik 20.3.2005, 18:02

New Invision Master, ты прописал путь к SynEdit\Sources в "Tools -> Environment Options -> Library -> Library path"?

Автор: New Invision Master 21.3.2005, 13:08

Заработало! Был бы рейтинг. поставил бы +

Автор: Vit 21.3.2005, 20:14

Цитата(New @ 21.3.2005, 04:08) Был бы рейтинг. поставил бы + Будет... Со 100 сообщений

Автор: New Invision Master 22.3.2005, 16:40

Это скоро. У меня уже 57...

Автор: senpai 28.4.2005, 16:19

Ha Delphi 7 все ставится влет, и работает. А вот под 2005 Delphi выдает ошибку компиляции. Кто нибудь пробовал ставить под 2005 Дельфи, преобразуя пакет под Win32.

Автор: Vitalik 28.4.2005, 21:20

senpai, я не пробовал. У меня и Delphi 2005 нету, чтобы проверить...

Автор: senpai 29.4.2005, 09:41

Цитата(Vitalik @ 28.4.2005, 21:20) senpai, я не пробовал. У меня и Delphi 2005 нету, чтобы проверить... На китайских сайтах лежит и на наших фтп уже почти пол года. К примеру istudio.dynserv.com У меня все получилось. Нужно было с утра на свежую голову.

Автор: Quadr0 22.9.2005, 15:29

...

Автор: Guest 7.11.2005, 20:58

такойже трабл как и у мастера Cannot find resource file: C:\Program Files\Borland Delph7\Lib\SynUniSyn_D7.res. Recreated у меня 2005 дельфи в 7 получилось установить в 2005 чета не палит ((((

Автор: Quadr0 8.11.2005, 19:03

...

Автор: Vitalik 9.11.2005, 21:01

Э... Файла SynUni_D9 в поставке нету Выложи его здесь, пожалуйста

Автор: Quadr0 10.11.2005, 01:22

...

Автор: Гость_Denis 15.12.2005, 14:46

Не удается скачать файл SynUni_D2005.zip

Автор: Vitalik 15.12.2005, 20:09

У меня отлично качает...

Автор: stdenis 16.12.2005, 09:02

Нажимаю на ссылку с файлом , и мне возвращается ответ Код The requested URL could not be retrieved -------------------------------------------------------------------------------- While trying to process the request:  GET /index.php?act=Attach&type=post&id=559578 HTTP/1.0 Via: 1.0 W481 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.2 (build 01102); .NET CLR 1.1.4322) Host: forum.vingrad.ru Accept: */* Referer: http://forum.vingrad.ru/index.php?showtopic=43330&view=all Accept-Language: ru Cookie: CookieIp=195.140.181.2; proforumforum_read=a%3A1%3A%7Bi%3A170%3Bi%3A1127102374%3B%7D; phpAds_blockAd[35]=1134733327; hotlog=1; proforumsession_id=26a498f3e26674807d9fc2a468e5205e; proforummember_id=16104; proforumpass_hash=bc693613ad44d19e6148d578d5d0dce9; phpAds_newCap[4edc62753e57a4bfe766986208bb439e]=7; phpAds_capAd[7]=14; phpAds_newCap[0346aaa4578547f2ccf13422d262e2c6]=7; proforumanonlogin=-1 Connection: Keep-Alive The following error was encountered:  Invalid Response  The HTTP Response message received from the contacted server could not be understood or was otherwise malformed. Please contact the site operator. Your cache administrator may be able to provide you with more details about the exact nature of the problem if needed.

Автор: stdenis 16.12.2005, 14:04

Господа, думаю, что я не первый и не последний кто использует D2005 в связке с вашей замечательной библиотекой. Поэтому предлагаю включить файл SynUni_D2005.zip в общий пакет.

Автор: Vitalik 16.12.2005, 17:54

Согласен, так и в следующей версии и будет А пока можете скачать этот пакет отсюда: http://www.unihighlighter.com/files/other/SynUni_D2005.zip

Автор: Hrum 8.5.2006, 06:58

Ответьте плиз, почему у мя дублируется текст при вводе в SynEdit и повторяется последний символ при загрузке файла, когда я активизмрую подсветку (UniSyn1.Enabled:=True) Я и так увозюкался устанавливать эти компоненты под Delphi 2005, а тут на те     Ой блин... последнее сообщение в декабре прошлого года, а я то думал форум поддерживается

Автор: gambit 16.2.2007, 14:06

Ребята помогите. Код [Warning] SynUniSyn_D7.dpk(4): File not found: 'SynUniHighlighter.dcr' [Fatal Error] SynUniReg.pas(47): File not found: 'SynUniHighlighter.dcu'

Автор: DwnldDany4Guest 8.5.2009, 12:11

Та же проблема под D7 Сделал так: Код procedure TForm1.FormCreate(Sender: TObject); begin   SE.Highlighter := UniSyn; end; Ошибку не выдает. Кинул кнопку: Код 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); end; Компилируем, запускаем, тыкаем кнопку, результат: Т.е. не пашет. D7, SynEdit2.0.3stable, Uni 1.8 Счас буду пробовать другую версию

Автор: Crw 8.5.2009, 15:13

А при загрузке подсветки из файла, тоже ничего не работает?

Автор: DwnldDany4Guest 8.5.2009, 15:38

Код 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> Результат тот же. Другую версию пока не тестил

Автор: DwnldDany4Guest 8.5.2009, 16:16

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

Автор: jhonyxakep 11.5.2011, 10:08

Если тема всё еще жива.... ...На 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' Может проект совсем того? Как-то жалко будет...

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)