paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 16:58:25 +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 public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure UpdateHints;
public public
property Options: TSynSearchOptions read GetOptions write SetOptions; property Options: TSynSearchOptions read GetOptions write SetOptions;
property EnableAutoComplete: boolean read GetEnableAutoComplete property EnableAutoComplete: boolean read GetEnableAutoComplete
@ -138,6 +139,7 @@ begin
TextToFindLabel.Caption:=dlgTextToFing; TextToFindLabel.Caption:=dlgTextToFing;
ReplaceTextComboBox.Text:=''; ReplaceTextComboBox.Text:='';
ReplaceWithCheckbox.Caption:=dlgReplaceWith; ReplaceWithCheckbox.Caption:=dlgReplaceWith;
UpdateHints;
OptionsGroupBox.Caption:=dlgFROpts; OptionsGroupBox.Caption:=dlgFROpts;
@ -194,6 +196,14 @@ begin
LazFindReplaceDialog:=nil; LazFindReplaceDialog:=nil;
end; end;
procedure TLazFindReplaceDialog.UpdateHints;
begin
if EnableAutoComplete then
EnableAutoCompleteSpeedButton.Hint:=lisAutoCompletionOn
else
EnableAutoCompleteSpeedButton.Hint:=lisAutoCompletionOff;
end;
procedure TLazFindReplaceDialog.TextToFindComboBoxKeyDown( procedure TLazFindReplaceDialog.TextToFindComboBoxKeyDown(
Sender: TObject; var Key:Word; Shift:TShiftState); Sender: TObject; var Key:Word; Shift:TShiftState);
var Component: TFindDlgComponent; var Component: TFindDlgComponent;
@ -265,6 +275,7 @@ procedure TLazFindReplaceDialog.EnableAutoCompleteSpeedButtonClick(
begin begin
TextToFindComboBox.AutoComplete:=EnableAutoCompleteSpeedButton.Down; TextToFindComboBox.AutoComplete:=EnableAutoCompleteSpeedButton.Down;
ReplaceTextComboBox.AutoComplete:=EnableAutoCompleteSpeedButton.Down; ReplaceTextComboBox.AutoComplete:=EnableAutoCompleteSpeedButton.Down;
UpdateHints;
end; end;
procedure TLazFindReplaceDialog.OkButtonClick(Sender:TObject); procedure TLazFindReplaceDialog.OkButtonClick(Sender:TObject);
@ -347,6 +358,7 @@ begin
EnableAutoCompleteSpeedButton.Down:=AValue; EnableAutoCompleteSpeedButton.Down:=AValue;
TextToFindComboBox.AutoComplete:=AValue; TextToFindComboBox.AutoComplete:=AValue;
ReplaceTextComboBox.AutoComplete:=AValue; ReplaceTextComboBox.AutoComplete:=AValue;
UpdateHints;
end; end;
procedure TLazFindReplaceDialog.SetOnKey(const AValue: TOnFindDlgKey); procedure TLazFindReplaceDialog.SetOnKey(const AValue: TOnFindDlgKey);

2
ide/lazarusidestrconsts.pas
View File

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