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

SynCompletion: Clean property names

Browse Source 
git-svn-id: trunk@35512 -
This commit is contained in:
martin 2012-02-20 18:56:54 +00:00
parent cbacc22f81
commit c5d5141847
2 changed files with 8 additions and 6 deletions
components/synedit
syncompletion.pas
examples/SynEdit/Completion
unit1.lfm

6
components/synedit/syncompletion.pas
View File

@ -300,6 +300,8 @@ type
property OnCancel: TNotifyEvent read GetOnCancel write SetOnCancel;
property CurrentString: string read GetCurrentString write SetCurrentString;
property FontHeight: integer read GetFontHeight;
property ClSelect: TColor read GetClSelect write SetClSelect; deprecated; // use SelectedColor
property NbLinesInWindow: Integer read GetNbLinesInWindow write SetNbLinesInWindow; deprecated;
published
property OnExecute: TNotifyEvent read FOnExecute write FOnExecute;
property OnPaintItem: TSynBaseCompletionPaintItem
@ -308,7 +310,7 @@ type
write SetOnMeasureItem;
property ItemList: TStrings read GetItemList write SetItemList;
property Position: Integer read GetPosition write SetPosition;
property NbLinesInWindow: Integer read GetNbLinesInWindow
property LinesInWindow: Integer read GetNbLinesInWindow
write SetNbLinesInWindow;
property OnSearchPosition: TSynBaseCompletionSearchPosition
read GetOnSearchPosition write SetOnSearchPosition;
@ -320,7 +322,7 @@ type
write SetOnKeyPrevChar;// e.g. arrow left
property OnPositionChanged: TNotifyEvent read GetOnPositionChanged
write SetOnPositionChanged;
property ClSelect: TColor read GetClSelect write SetClSelect;
property SelectedColor: TColor read GetClSelect write SetClSelect;
property CaseSensitive: boolean read GetCaseSensitive write SetCaseSensitive;
property Width: Integer read FWidth write SetWidth;
property LongLineHintTime: Integer read GetLongLineHintTime

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

@ -1,7 +1,7 @@
object Form1: TForm1
Left = 819
Left = 797
Height = 563
Top = 103
Top = 106
Width = 559
Caption = 'Form1'
ClientHeight = 563
@ -813,9 +813,9 @@ object Form1: TForm1
object SynCompletion1: TSynCompletion
OnExecute = DoExecute
Position = 0
NbLinesInWindow = 6
LinesInWindow = 6
OnSearchPosition = DoSearchPosition
ClSelect = clHighlight
SelectedColor = clHighlight
CaseSensitive = False
Width = 262
ShowSizeDrag = True