paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 15:33:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed comment lcl/stdctrls.pp

Browse Source 
git-svn-id: trunk@36323 -
This commit is contained in:
mattias 2012-03-25 17:43:49 +00:00
parent 35a5f303ff
commit 1b0d5b1061
2 changed files with 4 additions and 2 deletions

2
ide/findinfilesdlg.pas
View File

@ -320,6 +320,8 @@ begin
AssignToComboBox(DirectoryComboBox, InputHistories.FindInFilesPathHistory);
if (SrcEdit<>nil) and (FilenameIsAbsolute(SrcEdit.FileName)) then
AddFileToComboBox(DirectoryComboBox, ExtractFilePath(SrcEdit.FileName));
if DirectoryComboBox.Items.Count>0 then
DirectoryComboBox.Text:=DirectoryComboBox.Items[0];
// show last used file masks
AssignToComboBox(FileMaskComboBox, InputHistories.FindInFilesMaskHistory);
Options := InputHistories.FindInFilesSearchOptions;

4
lcl/stdctrls.pp
View File

@ -394,8 +394,8 @@ type
property Items: TStrings read FItems write SetItems;
property ItemIndex: integer read GetItemIndex write SetItemIndex default -1;
property ReadOnly: Boolean read FReadOnly write SetReadOnly stored IsReadOnlyStored;
property SelLength: integer read GetSelLength write SetSelLength;// byte length
property SelStart: integer read GetSelStart write SetSelStart;// byte position
property SelLength: integer read GetSelLength write SetSelLength;// UTF-8 length
property SelStart: integer read GetSelStart write SetSelStart;// UTF-8 position
property SelText: String read GetSelText write SetSelText;
property Style: TComboBoxStyle read FStyle write SetStyle default csDropDown;
property TabStop default true;