Changeset 556

Timestamp:

Feb 10, 2022, 11:56:40 AM (2 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

Common

Files:

• UCommon.pas (modified) (5 diffs)
• ULastOpenedList.pas (modified) (2 diffs)

Common/UCommon.pas

@@ -68 +68 @@
 function OccurenceOfChar(What: Char; Where: string): Integer;
 procedure OpenWebPage(URL: string);
+procedure OpenEmail(Email: string);
 procedure OpenFileInShell(FileName: string);
 function PosFromIndex(SubStr: string; Text: string;
@@ -83 +84 @@
 function SplitString(var Text: string; Count: Word): string;
 function StripTags(const S: string): string;
-function TryHexToInt(Data: string; var Value: Integer): Boolean;
-function TryBinToInt(Data: string; var Value: Integer): Boolean;
+function TryHexToInt(Data: string; out Value: Integer): Boolean;
+function TryBinToInt(Data: string; out Value: Integer): Boolean;
 procedure SortStrings(Strings: TStrings);
 
@@ -246 +247 @@
 end;
 
-function TryHexToInt(Data: string; var Value: Integer): Boolean;
+function TryHexToInt(Data: string; out Value: Integer): Boolean;
 var
   I: Integer;
@@ -262 +263 @@
 end;
 
-function TryBinToInt(Data: string; var Value: Integer): Boolean;
+function TryBinToInt(Data: string; out Value: Integer): Boolean;
 var
   I: Integer;
@@ -473 +474 @@
 begin
   OpenURL(URL);
+end;
+
+procedure OpenEmail(Email: string);
+begin
+  OpenURL('mailto:' + Email);
 end;
 

Common/ULastOpenedList.pas

@@ -84 +84 @@
 destructor TLastOpenedList.Destroy;
 begin
-  Items.Free;
+  FreeAndNil(Items);
   inherited;
 end;
@@ -94 +94 @@
 begin
   if Assigned(MenuItem) then begin
-    MenuItem.Clear;
+    while MenuItem.Count > Items.Count do
+      MenuItem.Delete(MenuItem.Count - 1);
+    while MenuItem.Count < Items.Count do begin
+      NewMenuItem := TMenuItem.Create(MenuItem);
+      MenuItem.Add(NewMenuItem);
+    end;
     for I := 0 to Items.Count - 1 do begin
-      NewMenuItem := TMenuItem.Create(MenuItem);
-      NewMenuItem.Caption := Items[I];
-      NewMenuItem.OnClick := ClickAction;
-      MenuItem.Add(NewMenuItem);
+      MenuItem.Items[I].Caption := Items[I];
+      MenuItem.Items[I].OnClick := ClickAction;
     end;
   end;