1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
{ Contains editor for javascript }
unit editor_js;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
SynEdit, SynHighlighterJScript, SynCompletion, Types, LCLType, FontSettings;
type
{ TfrmEditorJs }
{ Window with javascript editor }
TfrmEditorJs = class(TForm)
btnClose: TButton;
btnAddFunction: TButton;
lbScriptName: TLabel;
editor: TSynEdit;
panJs: TPanel;
SynCompletion1: TSynCompletion;
SynJScriptSyn1: TSynJScriptSyn;
{ Handles click of btnAddFunction }
procedure btnAddFunctionClick(Sender: TObject);
{ Handles click of btnClose }
procedure btnCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
{ Handles click of panJs }
procedure panJsClick(Sender: TObject);
{ Handles autocompletions for javascript }
procedure SynCompletion1CodeCompletion(var Value: string;
SourceValue: string; var SourceStart, SourceEnd: TPoint;
KeyChar: TUTF8Char; Shift: TShiftState);
private
public
end;
var
frmEditorJs: TfrmEditorJs;
implementation
{$R *.lfm}
{ TfrmEditorJs }
procedure TfrmEditorJs.btnCloseClick(Sender: TObject);
begin
modalresult:=mrok;
close;
end;
procedure TfrmEditorJs.FormCreate(Sender: TObject);
var
FontManager: TFontManager;
begin
FontManager := TFontManager.Create();
editor.Font := FontManager.Font;
FontManager.Free;
end;
procedure TfrmEditorJs.btnAddFunctionClick(Sender: TObject);
var funcName : String;
begin
funcName := InputBox('Новая функция', 'имя функции', 'newF');
editor.Lines.Add(' function '+funcName+'(){');
editor.Lines.Add('}');
end;
procedure TfrmEditorJs.panJsClick(Sender: TObject);
begin
end;
procedure TfrmEditorJs.SynCompletion1CodeCompletion(var Value: string;
SourceValue: string; var SourceStart, SourceEnd: TPoint; KeyChar: TUTF8Char;
Shift: TShiftState);
begin
end;
end.
|