- 0
invalid class type cast в TakePhotoFromLibraryAction
-
Похожий контент
-
- 3 ответа
- 1 744 просмотра
-
- 8 ответов
- 3 756 просмотров
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
x11
procedure TfmEditObject.TakePhotoFromLibraryAction1DidFinishTaking( Image: TBitmap); begin ShowMessage('TakePhotoFromLibraryAction1DidFinishTaking'); AddPhoto(Image); end; procedure TfmEditObject.AddPhoto(Image: TBitmap); Var item: TListBoxItem; // ListItemImage: TListViewItem; imageV: TImageViewer; begin item := TListBoxItem.Create(lbPhotos); item.parent := lbPhotos; item.text := ''; item.Width := lbPhotos.Width; imageV := TImageViewer.Create(lbPhotos); imageV.HitTest := False; imageV.Parent := item; imageV.Align := TAlignLayout.Client; imageV.Bitmap.Assign(image); item.SetFocus; // ListItemImage := ListView1.Items.Add; // ListItemImage.Height := self.Width; // ListItemImage.Bitmap.Assign(Image); end;
При нажатии на SpeedButton получаю invalid class type cast.
Ставлю бряку (на картинке подтверждение). Но ошибка вываливается до неё.
ShowMessage('TakePhotoFromLibraryAction1DidFinishTaking'); не появляется
Ссылка на комментарий
4 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.