Changeset 35 for trunk/Forms


Ignore:
Timestamp:
Nov 25, 2021, 3:04:55 PM (3 years ago)
Author:
chronos
Message:
  • Added: Support for QUOTED-PRINTABLE encoding.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormContact.lfm

    r33 r35  
    1717    Top = 10
    1818    Width = 893
    19     ActivePage = TabSheetGeneral
     19    ActivePage = TabSheetAll
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
    2121    ParentFont = False
    22     TabIndex = 0
     22    TabIndex = 2
    2323    TabOrder = 0
    2424    object TabSheetGeneral: TTabSheet
  • trunk/Forms/UFormContact.pas

    r33 r35  
    197197    Photo := Contact.Fields[cfPhoto];
    198198    if (Photo <> '') and (PhotoProperty.Encoding <> '') then begin
    199       Photo := PhotoProperty.GetDecodedValue;
    200199      Stream := TMemoryStream.Create;
    201200      try
Note: See TracChangeset for help on using the changeset viewer.