Александр Гвоздев

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

 {$IFDEF MSWINDOWS}
    try
      picTovarT := TBitmap.Create;
      picTovarT.LoadFromFile(T1.Text + '.jpg');
      IItem := list.Objects.FindDrawable('photoTovar') as TListItemImage;
      IItem.Bitmap := picTovarT;
    except
      picTovarT := TBitmap.Create;
      picTovarT.LoadFromFile('nophoto.png');
      IItem := list.Objects.FindDrawable('photoTovar') as TListItemImage;
      IItem.Bitmap := picTovarT;
    end;
    {$ENDIF}
 
    {$IFDEF Android}
    try
      picTovarT := TBitmap.Create;
      picTovarT.LoadFromFile(TPath.GetDocumentsPath + PathDelim + T1.Text + '.jpg');
      IItem := list.Objects.FindDrawable('photoTovar') as TListItemImage;
      IItem.Bitmap := picTovarT;
    except
      picTovarT := TBitmap.Create;
      picTovarT.LoadFromFile(TPath.GetDocumentsPath + PathDelim + 'nophoto.png');
      IItem := list.Objects.FindDrawable('photoTovar') as TListItemImage;
      IItem.Bitmap := picTovarT;
    end;
    {$ENDIF}