FIX: Combobox text was not updated, when history was full -> result in empty directory view

Author: PascalCorpsman

unit1.lfm

@@ -9,20 +9,20 @@ object Form1: TForm1
   ClientWidth = 777
   Constraints.MinHeight = 200
   Constraints.MinWidth = 400
+  Position = poScreenCenter
+  LCLVersion = '3.99.0.0'
   OnActivate = FormActivate
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDropFiles = FormDropFiles
-  Position = poScreenCenter
-  LCLVersion = '2.3.0.0'
   object PairSplitter1: TPairSplitter
     Left = 50
     Height = 400
     Top = 50
     Width = 400
-    OnResize = PairSplitter1Resize
     Position = 200
+    OnResize = PairSplitter1Resize
     object PairSplitterSide1: TPairSplitterSide
       Cursor = crArrow
       Left = 0
@@ -45,18 +45,18 @@ object Form1: TForm1
         OnResize = Panel1Resize
         object cbDirLeft: TComboBox
           Left = 12
-          Height = 27
-          Top = 40
+          Height = 28
+          Top = 39
           Width = 148
           Anchors = [akLeft, akRight, akBottom]
           ItemHeight = 0
+          PopupMenu = PopupMenu3
+          TabOrder = 0
+          TextHint = 'Directory left'
           OnDblClick = cbDirLeftDblClick
           OnKeyDown = cbDirLeftKeyDown
           OnKeyPress = cbDirLeftKeyPress
           OnSelect = cbDirLeftSelect
-          PopupMenu = PopupMenu3
-          TabOrder = 0
-          TextHint = 'Directory left'
         end
         object btnDirLeft: TSpeedButton
           Left = 164
@@ -71,7 +71,7 @@ object Form1: TForm1
       end
       object ListView1: TListView
         Left = 0
-        Height = 302
+        Height = 301
         Top = 75
         Width = 200
         Align = alClient
@@ -106,8 +106,8 @@ object Form1: TForm1
       end
       object StatusBar1: TStatusBar
         Left = 0
-        Height = 23
-        Top = 377
+        Height = 24
+        Top = 376
         Width = 200
         Panels = <        
           item
@@ -138,18 +138,18 @@ object Form1: TForm1
         OnResize = Panel2Resize
         object cbDirRight: TComboBox
           Left = 8
-          Height = 27
-          Top = 40
+          Height = 28
+          Top = 39
           Width = 148
           Anchors = [akLeft, akRight, akBottom]
           ItemHeight = 0
+          PopupMenu = PopupMenu4
+          TabOrder = 0
+          TextHint = 'Directory right'
           OnDblClick = cbDirRightDblClick
           OnKeyDown = cbDirRightKeyDown
           OnKeyPress = cbDirRightKeyPress
           OnSelect = cbDirRightSelect
-          PopupMenu = PopupMenu4
-          TabOrder = 0
-          TextHint = 'Directory right'
         end
         object btnDirRight: TSpeedButton
           Left = 160
@@ -164,8 +164,8 @@ object Form1: TForm1
       end
       object StatusBar2: TStatusBar
         Left = 0
-        Height = 23
-        Top = 377
+        Height = 24
+        Top = 376
         Width = 195
         Panels = <        
           item
@@ -175,7 +175,7 @@ object Form1: TForm1
       end
       object ListView2: TListView
         Left = 0
-        Height = 302
+        Height = 301
         Top = 75
         Width = 195
         Align = alClient

unit1.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* CopyCommander2                                                  15.02.2022 *)
 (*                                                                            *)
-(* Version     : 0.10                                                         *)
+(* Version     : 0.11                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -75,6 +75,8 @@
 (*                        einer Drop-Down-Liste angeboten,                    *)
 (*                      Die Liste kann via contextmenü gelöscht werden        *)
 (*               0.10 = TODO im STRG+S Dialog implementiert                   *)
+(*               0.11 = FIX: Combobox text was not updated, when history was  *)
+(*                           full -> result in empty directory view           *)
 (*                                                                            *)
 (******************************************************************************)
 (*  Silk icon set 1.3 used                                                    *)
@@ -325,15 +327,17 @@
 
 Procedure UpdateComboboxHistory(cb: TComboBox; maxCount: integer);
 Var
-  directory: String;
+  tmp, directory: String;
 Begin
-  directory := IncludeTrailingPathDelimiter(cb.Text);
+  tmp := cb.Text;
+  directory := IncludeTrailingPathDelimiter(tmp);
   // DropDownListe füllen
   If (directory <> '') And (cb.Items.IndexOf(directory) < 0) Then // nur wenn noch nicht in Liste
     cb.Items.Insert(0, directory);
   // ggf Anzahl in Liste begrenzen
   If cb.Items.Count > MaxCount Then
     cb.Items.Delete(MaxCount);
+  cb.Text := tmp;
 End;
 
 (*
@@ -531,7 +535,7 @@
   (*
    * Historie : Siehe ganz oben
    *)
-  Caption := 'Copycommander2 ver. 0.10';
+  Caption := 'Copycommander2 ver. 0.11';
   (*
    * Mindest Anforderungen:
    *  - Alle "Todo's" erledigt