summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-08-01 09:42:46 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-08-01 09:42:46 +0000
commitda6cdde16981dd2ce1d9cad7cd9632c94ecc2298 (patch)
tree65a4df7968b42a39c8d817397f3383c44bda7f3d /src
parent33f72fbc58ee1fd33b17e77b5d97a9aaa308314c (diff)
downloadfpGUI-da6cdde16981dd2ce1d9cad7cd9632c94ecc2298.tar.xz
* Minor patch from Jean-Marc for EditCombo.
Diffstat (limited to 'src')
-rw-r--r--src/gui/gui_editcombo.pas19
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