blob: 00d339fd8ed0b8eb9db3ad33b8a6883387eca86e (
plain)
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
101
102
103
104
105
106
107
108
109
110
|
{ Модуль для автозаполнения многострочного поля базы данных }
unit dbmemo_autocomplete;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, StdCtrls, DBCtrls;
{ Связывает автозаполнение и поле ввода }
procedure bindAutocomplete(var list: TListBox;
var dbmemo : TDbMemo;
var currentWord : String;
var foundWord : Boolean);
{ Обработчик выбора автодополнения }
procedure bindChange(var list: TListBox; var dbmemo: TDbMemo);
implementation
procedure bindAutocomplete(var list: TListBox;
var dbmemo : TDbMemo;
var currentWord : String;
var foundWord : Boolean);
var
CaretPos: Integer;
TextBeforeCaret, WordToLeft: String;
i: Integer;
begin
// Get the current caret position
CaretPos := dbmemo.SelStart;
// Extract the text before the caret
TextBeforeCaret := Copy(dbmemo.Text, 1, CaretPos);
// Find the last word before the caret
WordToLeft := '';
for i := Length(TextBeforeCaret) downto 1 do
begin
if (TextBeforeCaret[i] = '{') or (TextBeforeCaret[i] = '}') or
(TextBeforeCaret[i] = '(') or (TextBeforeCaret[i] = ')') or
(TextBeforeCaret[i] = '[') or (TextBeforeCaret[i] = ']') or
(TextBeforeCaret[i] = '<') or (TextBeforeCaret[i] = '>') or
(TextBeforeCaret[i] = '~') or (TextBeforeCaret[i] >= 'A') and (TextBeforeCaret[i] <= 'Z') or
(TextBeforeCaret[i] >= 'a') and (TextBeforeCaret[i] <= 'z') or
(TextBeforeCaret[i] >= '0') and (TextBeforeCaret[i] <= '9') then
begin
WordToLeft := TextBeforeCaret[i] + WordToLeft;
end
else
begin
Break; // Stop when encountering a non-word character
end;
end;
// Output the word to the left of the caret
foundWord := False;
for i := 0 to list.Items.Count-1 do begin
if list.Items[i].StartsWith(WordToLeft) then begin
foundWord:=True;
break;
end;
end;
list.Visible:=foundWord and (wordToLeft <> '');
list.Parent := dbMemo;
list.Top := dbMemo.Height div 2 - list.Height div 2;
list.Left := dbMemo.Width div 2 - list.Width div 2;
currentWord := wordToLeft;
end;
procedure bindChange(var list: TListBox; var dbmemo: TDbMemo);
var
txt: String;
CaretPos: Integer;
DelPos : Integer;
begin
if list.ItemIndex = 0 then list.Visible:=false;
// Get the selected item from the autocomplete list
if list.ItemIndex > 0 then
begin
txt := list.Items[list.ItemIndex];
// Hide the autocomplete list
list.Hide;
// Get the current caret position in the TDbMemo
CaretPos := dbmemo.SelStart;
// Insert the selected text at the caret position
dbmemo.Text := Copy(dbmemo.Text, 1, CaretPos) + txt +
Copy(dbmemo.Text, CaretPos + 1, Length(dbmemo.Text));
DelPos := CaretPos-1;
while (DelPos>=0) do begin
dbmemo.Lines.Text:=dbmemo.Lines.Text.Remove(DelPos, 1);
if dbmemo.Text[DelPos] = ' ' then break;
Dec(DelPos);
end;
// Update the caret position after insertion
dbmemo.SelStart := DelPos + Length(txt);
list.ItemIndex:=-1;
end;
end;
end.
|