diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-08-01 09:42:46 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-08-01 09:42:46 +0000 |
| commit | da6cdde16981dd2ce1d9cad7cd9632c94ecc2298 (patch) | |
| tree | 65a4df7968b42a39c8d817397f3383c44bda7f3d /src/gui/gui_editcombo.pas | |
| parent | 33f72fbc58ee1fd33b17e77b5d97a9aaa308314c (diff) | |
| download | fpGUI-da6cdde16981dd2ce1d9cad7cd9632c94ecc2298.tar.xz | |
* Minor patch from Jean-Marc for EditCombo.
Diffstat (limited to 'src/gui/gui_editcombo.pas')
| -rw-r--r-- | src/gui/gui_editcombo.pas | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/src/gui/gui_editcombo.pas b/src/gui/gui_editcombo.pas index 68f8a510..a02211ce 100644 --- a/src/gui/gui_editcombo.pas +++ b/src/gui/gui_editcombo.pas @@ -523,17 +523,20 @@ begin anYes: FItems.Add(FText); anAsk: - if TfpgMessageDialog.Question(rsNewItemDetected, Format(rsAddNewItem, [FText])) = mbYes then + begin + if TfpgMessageDialog.Question(rsNewItemDetected, Format(rsAddNewItem, [FText])) = mbYes then begin - FItems.Add(FText); - FocusItem := Pred(FItems.Count); + FItems.Add(FText); + FocusItem := Pred(FItems.Count); end - else + else begin - FNewItem:= False; - FocusItem := -1; - FText:= ''; - end; + FNewItem:= False; + FocusItem := -1; + FText:= ''; + end; { if/else } + Parent.ActivateWindow; + end; end; hasChanged := True; if Assigned(FDropDown) then |