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

IDE: find dialog: hint for enable auto completion

Browse Source 
git-svn-id: trunk@20948 -
This commit is contained in:
mattias 2009-07-25 15:50:50 +00:00
parent 6b224cd088
commit 5fc45d9f1c
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/findreplacedialog.pp
View File

@ -106,6 +106,7 @@ type
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure UpdateHints;
public
property Options: TSynSearchOptions read GetOptions write SetOptions;
property EnableAutoComplete: boolean read GetEnableAutoComplete
@ -138,6 +139,7 @@ begin
TextToFindLabel.Caption:=dlgTextToFing;
ReplaceTextComboBox.Text:='';
ReplaceWithCheckbox.Caption:=dlgReplaceWith;
UpdateHints;
OptionsGroupBox.Caption:=dlgFROpts;
@ -194,6 +196,14 @@ begin
LazFindReplaceDialog:=nil;
end;
procedure TLazFindReplaceDialog.UpdateHints;
begin
if EnableAutoComplete then
EnableAutoCompleteSpeedButton.Hint:=lisAutoCompletionOn
else
EnableAutoCompleteSpeedButton.Hint:=lisAutoCompletionOff;
end;
procedure TLazFindReplaceDialog.TextToFindComboBoxKeyDown(
Sender: TObject; var Key:Word; Shift:TShiftState);
var Component: TFindDlgComponent;
@ -265,6 +275,7 @@ procedure TLazFindReplaceDialog.EnableAutoCompleteSpeedButtonClick(
begin
TextToFindComboBox.AutoComplete:=EnableAutoCompleteSpeedButton.Down;
ReplaceTextComboBox.AutoComplete:=EnableAutoCompleteSpeedButton.Down;
UpdateHints;
end;
procedure TLazFindReplaceDialog.OkButtonClick(Sender:TObject);
@ -347,6 +358,7 @@ begin
EnableAutoCompleteSpeedButton.Down:=AValue;
TextToFindComboBox.AutoComplete:=AValue;
ReplaceTextComboBox.AutoComplete:=AValue;
UpdateHints;
end;
procedure TLazFindReplaceDialog.SetOnKey(const AValue: TOnFindDlgKey);

2
ide/lazarusidestrconsts.pas
View File

@ -909,6 +909,8 @@ resourcestring
dlgNaming = 'Naming';
lisFPDocEditor = 'FPDoc Editor';
dlgCancel = 'Cancel';
lisAutoCompletionOn = 'Auto completion: on';
lisAutoCompletionOff = 'Auto completion: off';
lisSAMSelectNone = 'Select none';
lisKMClassic = 'Classic';
lisKMLazarusDefault = 'Lazarus (default)';