Changeset 556
- Timestamp:
- Feb 10, 2022, 11:56:40 AM (3 years ago)
- Location:
- Common
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/UCommon.pas
r555 r556 68 68 function OccurenceOfChar(What: Char; Where: string): Integer; 69 69 procedure OpenWebPage(URL: string); 70 procedure OpenEmail(Email: string); 70 71 procedure OpenFileInShell(FileName: string); 71 72 function PosFromIndex(SubStr: string; Text: string; … … 83 84 function SplitString(var Text: string; Count: Word): string; 84 85 function StripTags(const S: string): string; 85 function TryHexToInt(Data: string; varValue: Integer): Boolean;86 function TryBinToInt(Data: string; varValue: Integer): Boolean;86 function TryHexToInt(Data: string; out Value: Integer): Boolean; 87 function TryBinToInt(Data: string; out Value: Integer): Boolean; 87 88 procedure SortStrings(Strings: TStrings); 88 89 … … 246 247 end; 247 248 248 function TryHexToInt(Data: string; varValue: Integer): Boolean;249 function TryHexToInt(Data: string; out Value: Integer): Boolean; 249 250 var 250 251 I: Integer; … … 262 263 end; 263 264 264 function TryBinToInt(Data: string; varValue: Integer): Boolean;265 function TryBinToInt(Data: string; out Value: Integer): Boolean; 265 266 var 266 267 I: Integer; … … 473 474 begin 474 475 OpenURL(URL); 476 end; 477 478 procedure OpenEmail(Email: string); 479 begin 480 OpenURL('mailto:' + Email); 475 481 end; 476 482 -
Common/ULastOpenedList.pas
r518 r556 84 84 destructor TLastOpenedList.Destroy; 85 85 begin 86 Items.Free;86 FreeAndNil(Items); 87 87 inherited; 88 88 end; … … 94 94 begin 95 95 if Assigned(MenuItem) then begin 96 MenuItem.Clear; 96 while MenuItem.Count > Items.Count do 97 MenuItem.Delete(MenuItem.Count - 1); 98 while MenuItem.Count < Items.Count do begin 99 NewMenuItem := TMenuItem.Create(MenuItem); 100 MenuItem.Add(NewMenuItem); 101 end; 97 102 for I := 0 to Items.Count - 1 do begin 98 NewMenuItem := TMenuItem.Create(MenuItem); 99 NewMenuItem.Caption := Items[I]; 100 NewMenuItem.OnClick := ClickAction; 101 MenuItem.Add(NewMenuItem); 103 MenuItem.Items[I].Caption := Items[I]; 104 MenuItem.Items[I].OnClick := ClickAction; 102 105 end; 103 106 end;
Note:
See TracChangeset
for help on using the changeset viewer.