mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-24 17:36:04 +02:00
129 lines
2.8 KiB
ObjectPascal
129 lines
2.8 KiB
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, SynEdit,
|
|
SynCompletion;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
chkSizeDrag: TCheckBox;
|
|
chkSearch: TCheckBox;
|
|
chkExec: TCheckBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Memo1: TMemo;
|
|
Memo2: TMemo;
|
|
Panel1: TPanel;
|
|
Panel2: TPanel;
|
|
Panel3: TPanel;
|
|
Splitter1: TSplitter;
|
|
Splitter2: TSplitter;
|
|
SynAutoComplete1: TSynAutoComplete;
|
|
SynCompletion1: TSynCompletion;
|
|
SynEdit1: TSynEdit;
|
|
procedure chkExecChange(Sender: TObject);
|
|
procedure chkSearchChange(Sender: TObject);
|
|
procedure chkSizeDragChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure Memo1Change(Sender: TObject);
|
|
procedure DoExecute(Sender: TObject);
|
|
procedure DoSearchPosition(var APosition: integer);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.Memo1Change(Sender: TObject);
|
|
begin
|
|
SynAutoComplete1.AutoCompleteList := Memo1.Lines;
|
|
end;
|
|
|
|
procedure TForm1.DoExecute(Sender: TObject);
|
|
procedure Add(s: String);
|
|
begin
|
|
if pos(lowercase(SynCompletion1.CurrentString), lowercase(s)) = 1 then
|
|
SynCompletion1.ItemList.Add(s);
|
|
end;
|
|
begin
|
|
SynCompletion1.ItemList.Clear;
|
|
if chkExec.Checked then begin
|
|
Add('Personal Computer');
|
|
Add('Personal');
|
|
Add('Computer');
|
|
Add('Police Constable');
|
|
Add('Police');
|
|
Add('Constable');
|
|
end else begin
|
|
SynCompletion1.ItemList.Add('Personal Computer');
|
|
SynCompletion1.ItemList.Add('Personal');
|
|
SynCompletion1.ItemList.Add('Computer');
|
|
SynCompletion1.ItemList.Add('Police Constable');
|
|
SynCompletion1.ItemList.Add('Police');
|
|
SynCompletion1.ItemList.Add('Constable');
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.DoSearchPosition(var APosition: integer);
|
|
procedure Add(s: String);
|
|
begin
|
|
if pos(lowercase(SynCompletion1.CurrentString), lowercase(s)) = 1 then
|
|
SynCompletion1.ItemList.Add(s);
|
|
end;
|
|
begin
|
|
SynCompletion1.ItemList.Clear;
|
|
Add('Personal Computer');
|
|
Add('Personal');
|
|
Add('Computer');
|
|
Add('Police Constable');
|
|
Add('Police');
|
|
Add('Constable');
|
|
if SynCompletion1.ItemList.Count > 0 then
|
|
APosition := 0
|
|
else
|
|
APosition := -1;
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
Memo1Change(nil);
|
|
end;
|
|
|
|
procedure TForm1.chkExecChange(Sender: TObject);
|
|
begin
|
|
SynEdit1.SetFocus;
|
|
end;
|
|
|
|
procedure TForm1.chkSearchChange(Sender: TObject);
|
|
begin
|
|
if chkSearch.Checked then
|
|
SynCompletion1.OnSearchPosition := @DoSearchPosition
|
|
else
|
|
SynCompletion1.OnSearchPosition := nil;
|
|
SynEdit1.SetFocus;
|
|
end;
|
|
|
|
procedure TForm1.chkSizeDragChange(Sender: TObject);
|
|
begin
|
|
SynCompletion1.ShowSizeDrag := chkSizeDrag.Checked;
|
|
end;
|
|
|
|
end.
|
|
|