Перейти к содержанию
  • Регистрация

juppy

Пользователи
  • Публикаций

    11
  • Зарегистрирован

  • Посещение

  • Победитель дней

    1

juppy стал победителем дня 13 октября

juppy имел наиболее популярный контент!

Информация о juppy

  • Звание
    Пользователь
  1. Ребя, сам разобрался. Спасибо всем переживающим Перенес апдейт листбокса туда, где он должен быть. Теперь кусочек стал выглядеть вот так: TThread.Synchronize(nil, procedure () begin lbTare.BeginUpdate; UpdateTareBalanceItems; Label7.Text := 'Обновлено'; lclCloseAnimationT; lbTare.EndUpdate; end); Теперь работает вот так: https://www.youtube.com/watch?v=XABighMePBo Если есть замечания по коду - поделитесь...
  2. Всем привет! Ребята: спасайте. Понимаю: что вопрос детский но не могу победить. Выручайте... В общем вот кусок кода: procedure TMainClient.lbTareMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var ValidateAnswer:TValidateAnswer; begin if (not UpdateMouseDownT) then exit; UpdateMouseDownT := false; if (not UpdateDoT) then begin if (Layout4.Height <> 0) then lclCloseAnimationT; Exit; end; lclUpAnimationT; TThread.CreateAnonymousThread(procedure () begin TThread.Synchronize (nil, procedure () begin lbTare.BeginUpdate; Label7.Text := 'Обновляется'; end); ValidateAnswer := ValidateID; if ValidateAnswer = TValidateAnswer.aValid then begin ClientModule1.FDConnLocalSQLight.StartTransaction; try ClientModule1.GetTareBlanceToLocalBD; ClientModule1.FDConnLocalSQLight.Commit; except on E: Exception do begin ClientModule1.FDConnLocalSQLight.Rollback; TThread.Synchronize (nil, procedure () begin ShowToastMessage('Синхронизация прервана '+E.Message,TShowMessageType.aToastDlg); end); end; end; TThread.Synchronize(nil, procedure () begin UpdateTareBalanceItems; lclCloseAnimationT; Label7.Text := 'Обновлено'; lbTare.EndUpdate; end); end else begin TThread.Synchronize(nil, procedure () begin if (Layout4.Height <> 0) then lclCloseAnimationT; lbTare.EndUpdate; case ValidateAnswer of TValidateAnswer.aNotValid: ShowToastMessage('Код Регистрации Отклонен', TShowMessagetype.aToastDlg); TValidateAnswer.aNoConnection: ShowToastMessage('Нет Соедиения с Сервером Поставщика', TShowMessagetype.aToastDlg); end; end); end; end).Start; UpdateDoT := false; end; В се работает хорошо. Но вот есть одна проблема... Часть ЛистБокса не отрисовывается до окончания обновления данных. Вот как это выглядит в приложении:https://www.youtube.com/watch?v=NeZmUKwTfEk Видно, что внизу остается белая часть до тех пор, пока все не выполнится. Как ее победить - не знаю! Помогите...
  3. Ребят, спасибо всем за помощь! Опубликовалось и все его видят.
  4. Всем привет! Очередной вопрос... Домучил я наконец Play Market и они мне прислали вот такое письмо счастья (выдержка): Я посмотрел с 64 разрядного устройства в Play Market, но приложения по прежнему не видно. В документе по ссылке просто общие требования. В примере проверки 64 бит из этого документа у меня в контроле версий так и написано как в примере. Нужно что-то по новой загрузить или просто подождать?...
  5. А вот это вот жутсво кто-нибудь пробовал проделать?... Источник
  6. Всем привет! Чот тема заглохла, а ответа так и нет. У меня вот с таким манифестом публикуется: <uses-sdk android:minSdkVersion="19" android:targetSdkVersion="28" android:maxSdkVersion="27" /> А вот с таким уже нет: <uses-sdk android:minSdkVersion="19" android:targetSdkVersion="28" android:maxSdkVersion="28" /> Поет песенку про то, что надо еще и 64 бит сборку бла бла. Все бы итак хорошо, но проблема проявляется так, что на 64 разрядные телефоны в Плей Маркете приложение не выдается в поиске. Как можно решить эту проблему? ЗЫ Delphi 10.3 Version 26.0.33219.4899
  7. Всем привет! Помогите пожалуйста разобраться. Проблема следующая: Есть структура: type PTreeItem = ^TTreeItem; TTreeItem = record FType:integer; // 0 - Group, 1 - Item FCode: String; FParent: String; FDescription: string; FChildCount: string; FExpanded:boolean; FTradeMark:string; FBUOM:string; FUPP:Double; end; Мне нужно ее сохранить в LisBox-е, чтобы обрабатывать вместе с итемеми лисбокса Есть вот такая конструкция при заполнении листбокса: var TreeItem:PTreeItem; LBI:TListBoxItem; begin New(TreeItem); TreeItem.FType := 0; TreeItem.FCode := ClientDataSet1.FieldByName('CategoryNo').AsString; TreeItem.FParent := ClientDataSet1.FieldByName('ParentCategoryNo').AsString; TreeItem.FDescription := ClientDataSet1.FieldByName('Description').AsString; TreeItem.FExpanded := false; TreeItem.FChildCount := ClientModule1.ClientDataSet1.FieldByName('ChildCount').AsString; LBI := TListBoxItem.Create(self); LBI.Data := TObject(TreeItem); <<<<<<------------------------- вот здесь под Android вылетает ошибка. LBI.Text := TreeItem.FDescription; LBI.Parent := lbItemTree; Помогите разобраться что я делаю не так? Ошибка: Access violation at address....
×
×
  • Создать...