paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: added < and > as default word break characters

Browse Source 
git-svn-id: trunk@14053 -
This commit is contained in:
mattias 2008-02-09 19:14:53 +00:00
parent a7835482d9
commit 5a6bbf49a4
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedittypes.pp
View File

@ -46,7 +46,7 @@ const
TSynValidStringChars = ['_', '0'..'9', 'A'..'Z', 'a'..'z'] + TSynSpecialChars; TSynValidStringChars = ['_', '0'..'9', 'A'..'Z', 'a'..'z'] + TSynSpecialChars;
TSynWhiteChars = [' ', #9]; TSynWhiteChars = [' ', #9];
TSynWordBreakChars = ['.', ',', ';', ':', '"', '''', '!', '?', '[', ']', '(', TSynWordBreakChars = ['.', ',', ';', ':', '"', '''', '!', '?', '[', ']', '(',
')', '{', '}', '^', '-', '=', '+', '*', '/', '\', '|']; ')', '{', '}', '^', '-', '=', '+', '*', '/', '\', '|','<','>'];
type type
TSynIdentChars = set of char; TSynIdentChars = set of char;

1
examples/anchordocking/dockform1unit.pas
View File

@ -118,6 +118,7 @@ begin
ClearLayout; ClearLayout;
Form1:=CreateNewForm; Form1:=CreateNewForm;
with Form1 do SetBounds(Left,Top,400,200);
Form2:=CreateNewForm; Form2:=CreateNewForm;
DockingManager.Manager.InsertControl(Form2,alClient,Form1); DockingManager.Manager.InsertControl(Form2,alClient,Form1);
end; end;