Changeset 26 for trunk/Forms/UFormMain.pas

Timestamp:

May 9, 2016, 3:34:24 PM (9 years ago)

Author:

chronos

Message:

• Added: Open file name given by command line parameter.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -86 +86 @@
     procedure CheckBoxExactMathChange(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure FormShow(Sender: TObject);
     procedure LastOpenedList1Change(Sender: TObject);
     procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
@@ -318 +318 @@
   PersistentForm1.Load(Self);
 
-  if (LastOpenedList1.Items.Count > 0) and  FileExists(LastOpenedList1.Items[0]) then
+  if ParamCount > 0 then begin
+    AcronymDB.LoadFromFile(ParamStr(1));
+    LastOpenedList1.AddItem(OpenDialog1.FileName);
+  end else
+  if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
     AcronymDB.LoadFromFile(LastOpenedList1.Items[0]);
   UpdateAcronymsList;