paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:20:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples, SynEdit, Completion: added sizedrag

Browse Source 
git-svn-id: trunk@28178 -
This commit is contained in:
martin 2010-11-10 13:50:27 +00:00
parent 16a309b442
commit 6d389c0b43
2 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
examples/SynEdit/Completion/unit1.lfm
View File

@ -737,8 +737,6 @@ object Form1: TForm1
end>
end
end
inline SynRightGutterPartList1: TSynRightGutterPartList
end
end
object Splitter1: TSplitter
Cursor = crVSplit
@ -849,8 +847,8 @@ object Form1: TForm1
TabOrder = 2
object Memo2: TMemo
Left = 1
Height = 236
Top = 39
Height = 217
Top = 58
Width = 268
Align = alClient
Lines.Strings = (
@ -870,7 +868,7 @@ object Form1: TForm1
object chkSearch: TCheckBox
Left = 1
Height = 19
Top = 20
Top = 39
Width = 268
Align = alTop
Caption = 'Use/Filter in SearchPosition'
@ -882,7 +880,7 @@ object Form1: TForm1
object chkExec: TCheckBox
Left = 1
Height = 19
Top = 1
Top = 20
Width = 268
Align = alTop
Caption = 'Filter in Execute'
@ -891,6 +889,18 @@ object Form1: TForm1
State = cbChecked
TabOrder = 2
end
object chkSizeDrag: TCheckBox
Left = 1
Height = 19
Top = 1
Width = 268
Align = alTop
Caption = 'Show size handle'
Checked = True
OnChange = chkSizeDragChange
State = cbChecked
TabOrder = 3
end
end
end
object SynAutoComplete1: TSynAutoComplete

9
examples/SynEdit/Completion/unit1.pas
View File

@ -13,6 +13,7 @@ type
{ TForm1 }
TForm1 = class(TForm)
chkSizeDrag: TCheckBox;
chkSearch: TCheckBox;
chkExec: TCheckBox;
Label1: TLabel;
@ -28,6 +29,7 @@ type
SynEdit1: TSynEdit;
procedure chkExecChange(Sender: TObject);
procedure chkSearchChange(Sender: TObject);
procedure chkSizeDragChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private
@ -106,6 +108,8 @@ begin
SynCompletion.CaseSensitive := False;
SynCompletion.OnExecute := @DoExecute;
SynCompletion.OnSearchPosition := @DoSearchPosition;
SynCompletion.ShowSizeDrag := True;
SynCompletion.DoubleClickSelects := True;
end;
procedure TForm1.chkExecChange(Sender: TObject);
@ -122,5 +126,10 @@ begin
SynEdit1.SetFocus;
end;
procedure TForm1.chkSizeDragChange(Sender: TObject);
begin
SynCompletion.ShowSizeDrag := chkSizeDrag.Checked;
end;
end.