Цитата

И напишите здесь, какое сообщение она выдаёт

Вот что:
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} то должно заработать. Сейчас попробую.

Все! Работает!!! Просто не тот .inc файл подключался. Я очистил Environment Options/Library/Library Path - оставил там только нужные директории, и все стало работать. Спасибо всем за советы. Мужики, респект вам! Единственный такой комонент во всем нете. Если б был статус то добавил бы вам однозначный "+" к репутации. Удачи!

Поспешил я с воплями радости На стадии разработки, если задать правила подсветки в SynUniSyn и какой-то нетривиальный текст в SynEdit.Lines, и выставить свойство SynEdit.Highlighter = SynUniSyn, то текст подсвечивается (на этапе разработки). Но после запуска подсветка пропадает. В чем бага? Если задать SynEdit.Highlighter = SynFortranSyn1 (к примеру, одна из стандартных подсветок), то она отображается, а SynUniSyn - нет.

Это сообщение отредактировал(а) Kordub - 28.2.2005, 22:03

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

Да собственно кода как такового нету...

Код

{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

Kordub, я думаю ты имеешь ввиду следующее?

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

Но почему так получается я еще не понял...

Да, это оно. Я пытался менять проект после изменения правил подсветки, но ничего не помогает. Тогда я решил проблему по другому: сначала сохраняю нужную мне подсветку в файл, а потом читаю:

Код

procedure TForm1.FormActivate(Sender: TObject); begin  SynUniSyn1.LoadFromFile('default.hlr');  SynEdit1.Highlighter:=SynUniSyn1; end;

Так даже лучше - можно менять подсветки по желанию.

Цитата(Kordub @ 2.3.2005, 21:09)

Так даже лучше - можно менять подсветки по желанию.

С этим я согласен. Сам только так и пользуюсь...
Но проблему с использованием подсветки на этапе проектирования формы надо будет решить...

Kordub,
Vit,
Исправил!

Всё оказалось очень просто! Нужно добавить в файле SynUniReg.pas в метод TSynUniEditor.Edit() еще одну строчку:

Код

procedure TSynUniEditor.Edit(); begin  TSynUniDesigner.EditHighlighter( Component as TSynUniSyn );  Designer.Modified(); // Воть! ;) end;

И всё будет работать как часы!
(Ну или по крайней мере у меня работает. Ничего больше вроде не менял)

Я начинающий, помогите мне!

У меня вот что глючит:

Код

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

Это сообщение отредактировал(а) New Invision Master - 20.3.2005, 17:18

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

Заработало!

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

Цитата(New @ 21.3.2005, 04:08)

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

Будет... Со 100 сообщений

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

Ha Delphi 7 все ставится влет, и работает.
А вот под 2005 Delphi выдает ошибку компиляции.

Кто нибудь пробовал ставить под 2005 Дельфи,
преобразуя пакет под Win32.

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