Вся активность

Этот поток обновляется автоматически   

  1. Вчера
  2. Это нужно обновиться или как ? Сможете поделится Fmx.Form.pas от Tokyo? зашел на оф сайт нефигасе 100.000р за лицензию, это что еще такое -
  3. у компонента пробовал включать Hint - Текст ShowHint - True никаких изменений, наводя мышку на компонент TImage, не выдает текст.. у окна используется BorderStyle=None может нужно какой-то uses подключить ?
  4. Посмотрел, на Берлин пока переходить не вариант... куча несостыковок. Весь мозг сломал как в этой версии XE6 обойтись без LiveBindings... Как руками заполнить Grid? Есть Query и Grid. Пробовал по-разному - то одного не знает, то другого
  5. Не могу разобраться, как выдавать ToolTip, когда наводишь мышкой на компонент TImage Среда: Delphi XE 10.1 Berlin FireMonkey
  6. enatechno, спасибо! Через LiveBindings. Если переходить на Berlin - Grid'ы надо как-то будет переделывать нынешние?
  7. Если нужно просто запустить программу, нажмите на "Подробнее", появится кнопка для запуска. инфа по цифровой подписи: Code Signing сертификаты или сертификаты разработчика. Виды, как выбрать Code signing для Open Source от Certum Code Signing в Windows, просто и недорого Где приобрести сертификат : KSoftware, Comodo, Symantec ... (ссылки есть в статьях) Как подписывать
  8. Или может тут нужно установить, какие галочки ?
  9. Как подключаете? Через LiveBindings? Если "да", то это может быть причиной торможения (тем в более в ранних версиях XE). Если заполняете "вручную", то проверьте наличие конструкций BeginUpdate, EndUpdate Grid1.BeginUpdate; try // заполнение finally Grid1.EndUpdate end; Большинство порекомендует Вам перейти на версию Berlin (в ней работа Grid значительно переработана)
  10. Нагуглил тут про FMX.Types.GlobalUseDirect2D := False; Не помогло. Что ещё отключить можно? Собственно приложение задумывалось быть кросслпатформенным. Но сейчас используется только под Windows. Так что все "навороты" можно поотключать, если в этом дело.
  11. Виндовс Антивирусник начал ругаться на неопознанный объект, как у моего приложения сделать цифровую подпись ? Среда Delphi XE 10.1 Berlin, FireMonkey
  12. Correção: Substituir: livAnuncioCaminhao.BeginUpdate e livAnuncioCaminhao.EndUpdate Para: ListView1.BeginUpdate e ListView1.EndUpdate procedure TMainForm.LIstView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); var URL_Foto: String; Foto: TListItemImage; Strm: TMemoryStream; TmpImagem: TImage; Http: TiDHTTP; myThread: TThread; begin Foto := TListItemImage(AItem.View.FindDrawable('FOTO')); URL_Foto := TListItemText(AItem.View.FindDrawable('URL_FOTO')).Text; TListItemText(AItem.View.FindDrawable('URL_FOTO')).Visible := False; if (not URL_Foto.IsEmpty ) and (Foto <> nil) and (Foto.Bitmap = nil) then begin URL_Foto := 'http://www.SEUDOMINIO.com.br/imagens/' + URL_Foto; myThread := TThread.CreateAnonymousThread( procedure () begin Strm := TMemoryStream.Create; Http := TiDHTTP.Create(Self); TmpImagem := TImage.Create(nil); ListView1.BeginUpdate; try Http.Get(URL_FOTO, Strm); if (Strm.Size > 0) then begin Strm.Position := 0; TThread.Synchronize(myThread, procedure () begin TmpImagem.Bitmap.LoadFromStream(Strm); Foto.OwnsBitmap := False; Foto.Bitmap := nil; Foto.Bitmap := TmpImagem.Bitmap; end);; end; finally Strm.Free; Http.Free; //Assim dá access violation //TmpImagem.Free; ListView1.EndUpdate; end; end); myThread.start(); end; end;
  13. Em tempo de execução, também pode utilizar o evento: UpdateObjects: procedure TMainForm.LIstView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); var URL_Foto: String; Foto: TListItemImage; Strm: TMemoryStream; TmpImagem: TImage; Http: TiDHTTP; myThread: TThread; begin Foto := TListItemImage(AItem.View.FindDrawable('FOTO')); URL_Foto := TListItemText(AItem.View.FindDrawable('URL_FOTO')).Text; TListItemText(AItem.View.FindDrawable('URL_FOTO')).Visible := False; if (not URL_Foto.IsEmpty ) and (Foto <> nil) and (Foto.Bitmap = nil) then begin URL_Foto := 'http://www.SEUDOMINIO.com.br/imagens/' + URL_Foto; myThread := TThread.CreateAnonymousThread( procedure () begin Strm := TMemoryStream.Create; Http := TiDHTTP.Create(Self); TmpImagem := TImage.Create(nil); livAnuncioCaminhao.BeginUpdate; try Http.Get(URL_FOTO, Strm); if (Strm.Size > 0) then begin Strm.Position := 0; TThread.Synchronize(myThread, procedure () begin TmpImagem.Bitmap.LoadFromStream(Strm); Foto.OwnsBitmap := False; Foto.Bitmap := nil; Foto.Bitmap := TmpImagem.Bitmap; end);; end; finally Strm.Free; Http.Free; //Assim dá access violation //TmpImagem.Free; livAnuncioCaminhao.EndUpdate; end; end); myThread.start(); end; end;
  14. в дополнение преидущего поста, нашел бесплатное решение для Delphi у китайских коллег QDAC3 uses qaes, NetEncoding; procedure TForm1.InitEncrypt(var AES: TQAES); var AKeyType: TQAESKeyType; const AInitVector: TQAESBuffer = (49, 50, 51, 52, 53, 54, 55, 56, 57, 48, 65, 66, 67, 68, 69, 70); // 1234567890ABCDEF begin AKeyType := kt128; AES.AsCBC(AInitVector, 'HJORNYCZJXJBUGOA', AKeyType); end; procedure TForm1.DecryptClick(Sender: TObject); var AES: TQAES; ABytes: TBytes; begin InitEncrypt(AES); MemoText.Lines.Clear; MemoText.Lines.Add(AES.Decrypt(TNetEncoding.Base64.DecodeStringToBytes(MemoQAES.Lines.Text))); end; procedure TForm1.EncryptClick(Sender: TObject); var AES: TQAES; ABytes: TBytes; begin InitEncrypt(AES); AES.Encrypt(Trim(MemoText.Lines.Text), ABytes); MemoQAES.Lines.Clear; MemoQAES.Lines.Add(TNetEncoding.Base64.EncodeBytesToString(ABytes)); end; проверка в GoLang и PHP работает, главное использовать вектор один
  15. Сроки перенесли на 2018 год, видимо на весну. PS. @Brovin Yaroslav, вылечи своего робота, он картинки не показывает.
  16. Нашел takephotofromlibraryaction.maxheight, maxwidth
  17. Официальное название: AlReader Официальный сайт: http://www.alreader.com/ (но лучше сюда - http://4pda.ru/forum/index.php?showtopic=340035) Платформы: Android, Windows, WinMobile, Windows CE
  18. Последняя неделя
  19. поделись методом, пытался поставить TGM там вроде надо Chromium чтоб работало на FMX но у меня только часть утановилась?)
  20. @haword А как подобную проблему решить в Windows? Сайт с неверным сертификатом. Как его нормально открыть?
  21. Ага, переделали. Спасибо еще за один компонент!
  22. Добрый день. Используя takephotofromlibrary получаю картинку из галереи но качество картинки очен плохая как можно узнать путь к файлу или хорошее качество? Заранее благодарю.
  23. Здравствуйте! Порекомендуйте годные игры, в которые играете (играли) больше всего! Формат сообщений: официальное название жанр ОС ссылка AppStore / Google Play стоимость (платная/бесплатная)
  24. Спасибо, как раз то, что нужно!)
  1. Загрузить больше активности