paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 05:17:33 +01: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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syncompletion.pas
View File

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

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

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