26
26
Splitter1: TSplitter;
27
27
Splitter2: TSplitter;
28
28
SynAutoComplete1: TSynAutoComplete;
29
SynCompletion1: TSynCompletion;
29
30
SynEdit1: TSynEdit;
30
31
procedure chkExecChange(Sender: TObject);
31
32
procedure chkSearchChange(Sender: TObject);
32
33
procedure chkSizeDragChange(Sender: TObject);
33
34
procedure FormCreate(Sender: TObject);
34
35
procedure Memo1Change(Sender: TObject);
36
procedure DoExecute(Sender: TObject);
37
procedure DoSearchPosition(var APosition: integer);
36
39
{ private declarations }
37
SynCompletion: TSynCompletion;
38
procedure DoExecute(Sender: TObject);
39
procedure DoSearchPosition(var APosition: integer);
41
41
{ public declarations }
58
58
procedure TForm1.DoExecute(Sender: TObject);
59
59
procedure Add(s: String);
61
if pos(lowercase(SynCompletion.CurrentString), lowercase(s)) = 1 then
62
SynCompletion.ItemList.Add(s);
61
if pos(lowercase(SynCompletion1.CurrentString), lowercase(s)) = 1 then
62
SynCompletion1.ItemList.Add(s);
65
SynCompletion.ItemList.Clear;
65
SynCompletion1.ItemList.Clear;
66
66
if chkExec.Checked then begin
67
67
Add('Personal Computer');
74
SynCompletion.ItemList.Add('Personal Computer');
75
SynCompletion.ItemList.Add('Personal');
76
SynCompletion.ItemList.Add('Computer');
77
SynCompletion.ItemList.Add('Police Constable');
78
SynCompletion.ItemList.Add('Police');
79
SynCompletion.ItemList.Add('Constable');
74
SynCompletion1.ItemList.Add('Personal Computer');
75
SynCompletion1.ItemList.Add('Personal');
76
SynCompletion1.ItemList.Add('Computer');
77
SynCompletion1.ItemList.Add('Police Constable');
78
SynCompletion1.ItemList.Add('Police');
79
SynCompletion1.ItemList.Add('Constable');
83
83
procedure TForm1.DoSearchPosition(var APosition: integer);
84
84
procedure Add(s: String);
86
if pos(lowercase(SynCompletion.CurrentString), lowercase(s)) = 1 then
87
SynCompletion.ItemList.Add(s);
86
if pos(lowercase(SynCompletion1.CurrentString), lowercase(s)) = 1 then
87
SynCompletion1.ItemList.Add(s);
90
SynCompletion.ItemList.Clear;
90
SynCompletion1.ItemList.Clear;
91
91
Add('Personal Computer');
94
94
Add('Police Constable');
97
if SynCompletion.ItemList.Count > 0 then
97
if SynCompletion1.ItemList.Count > 0 then
103
103
procedure TForm1.FormCreate(Sender: TObject);
105
105
Memo1Change(nil);
106
SynCompletion := TSynCompletion.Create(Form1);
107
SynCompletion.Editor := SynEdit1;
108
SynCompletion.CaseSensitive := False;
109
SynCompletion.OnExecute := @DoExecute;
110
SynCompletion.OnSearchPosition := @DoSearchPosition;
111
SynCompletion.ShowSizeDrag := True;
112
SynCompletion.DoubleClickSelects := True;
115
108
procedure TForm1.chkExecChange(Sender: TObject);
120
113
procedure TForm1.chkSearchChange(Sender: TObject);
122
115
if chkSearch.Checked then
123
SynCompletion.OnSearchPosition := @DoSearchPosition
116
SynCompletion1.OnSearchPosition := @DoSearchPosition
125
SynCompletion.OnSearchPosition := nil;
118
SynCompletion1.OnSearchPosition := nil;
126
119
SynEdit1.SetFocus;
129
122
procedure TForm1.chkSizeDragChange(Sender: TObject);
131
SynCompletion.ShowSizeDrag := chkSizeDrag.Checked;
124
SynCompletion1.ShowSizeDrag := chkSizeDrag.Checked;