Changeset 35 for trunk/Forms
- Timestamp:
- Nov 25, 2021, 3:04:55 PM (3 years ago)
- Location:
- trunk/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r33 r35 17 17 Top = 10 18 18 Width = 893 19 ActivePage = TabSheet General19 ActivePage = TabSheetAll 20 20 Anchors = [akTop, akLeft, akRight, akBottom] 21 21 ParentFont = False 22 TabIndex = 022 TabIndex = 2 23 23 TabOrder = 0 24 24 object TabSheetGeneral: TTabSheet -
trunk/Forms/UFormContact.pas
r33 r35 197 197 Photo := Contact.Fields[cfPhoto]; 198 198 if (Photo <> '') and (PhotoProperty.Encoding <> '') then begin 199 Photo := PhotoProperty.GetDecodedValue;200 199 Stream := TMemoryStream.Create; 201 200 try
Note:
See TracChangeset
for help on using the changeset viewer.