mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 23:52:31 +02:00
78 lines
1.6 KiB
ObjectPascal
78 lines
1.6 KiB
ObjectPascal
unit SynUniReg;
|
|
|
|
(*
|
|
|
|
Tom Lisjac <vlx@users.sourceforge.net> http://theseus.sf.net
|
|
Initially adapted for use with Lazarus and FPC - 2003-06-12
|
|
Changes can be found by searching for: ////TL
|
|
Issues that need review are flagged with one or more ! suffixes after TL
|
|
*)
|
|
interface
|
|
|
|
{$I SynEdit.inc}
|
|
|
|
uses
|
|
{$IFDEF SYN_COMPILER_6_UP}
|
|
DesignIntf,
|
|
DesignEditors,
|
|
{$ELSE}
|
|
////TL DsgnIntf,
|
|
componenteditors, ////TL added
|
|
{$ENDIF}
|
|
Classes,
|
|
SynEditStrConst,
|
|
SynUniHighlighter,
|
|
SynUniDesigner;
|
|
|
|
type
|
|
////TL! TDefaultEditor doesn't appear to exist... changed to TDefaultComponentEditor
|
|
////TL! TSynUniEditor = class(TDefaultEditor)
|
|
TSynUniEditor = class(TDefaultComponentEditor)
|
|
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
|
|
// ToDo: port the component editor to lazarus and register it
|
|
//RegisterComponentEditor(TSynUniSyn, TSynUniEditor);
|
|
end;
|
|
|
|
{ TSynUniEditor }
|
|
|
|
procedure TSynUniEditor.Edit;
|
|
begin
|
|
////TL explicitly passed null string to the formerly optional parm
|
|
TSynUniDesigner.EditHighlighter(Component as TSynUniSyn, '' );
|
|
end;
|
|
|
|
procedure TSynUniEditor.ExecuteVerb(Index: Integer);
|
|
begin
|
|
Edit;
|
|
end;
|
|
|
|
////TL FPC wants resources defined globally... moved from the function below
|
|
resourcestring
|
|
sEditUni = 'Edit...';
|
|
|
|
function TSynUniEditor.GetVerb(Index: Integer): string;
|
|
////TL resourcestring
|
|
////TL sEditUni = 'Edit...';
|
|
begin
|
|
Result := sEditUni;
|
|
end;
|
|
|
|
function TSynUniEditor.GetVerbCount: Integer;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
end.
|
|
|