Changeset 15 for trunk/UContact.pas

Timestamp:

Feb 27, 2018, 6:11:44 PM (7 years ago)

Author:

chronos

Message:

• Added: Partial support for color theming.
• Added: Allow to edit contact properties in the list of all.

File:

• trunk/UContact.pas (modified) (2 diffs)

trunk/UContact.pas

@@ -435 +435 @@
   Charset: string;
   Encoding: string;
+  Language: string;
   CommandItems: TStringList;
 begin
@@ -465 +466 @@
           Encoding := CommandItems.Values['ENCODING'];
           CommandItems.Delete(CommandItems.IndexOfName('ENCODING'));
+        end
+        else if CommandItems.IndexOfName('LANGUAGE') >= 0 then begin
+          Language := CommandItems.Values['LANGUAGE'];
+          CommandItems.Delete(CommandItems.IndexOfName('LANGUAGE'));
         end;
         Command := CommandItems.DelimitedText;