OnePeople

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

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

  • Посещение

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

    1

Весь контент OnePeople

  1. OnePeople

    Как работать с Z-order в Delphi 10.3 RIO

    Android это просто беда Анимации с wait не выполняются сразу выводиться результат, другое приложение зависает при выводе фрейма причем очистил все секции выполняемые при запуске, жесть какая то(((
  2. Не знаю куда уж проще? Кидаешь на форму StyleBook и в свойствах формы выставляешь его. Создаешь свой прогрессбар например. Кликаешь по нему правой кнопкой мыши и выбираешь изменить стиль по умолчанию или же создать свой новый стиль для компонента. Затем редактируешь его как компонент содержащий в себе другие компоненты, причем не обязательно как я сделал для примера из прямоугольников, можно сделать и из картинок, главное чтобы названия StyleName совпадали c родными.
  3. Платформа: Windows FMX Сделал просмоторщик изображений, сделал ассоциацию файлов, открытие их, if ParamStr(1)<>'' then begin tFileName.Text:=ParamStr(1); imMain.Bitmap.LoadFromFile(ParamStr(1)); end; запретил запуск второй копии. Теперь собственно вопрос, а как теперь передать запущенному ранее экземпляру программы путь до нового файла???
  4. OnePeople

    [FGX Native] Большие новости с полей

    А будет что то типо tethering manager'a и хорошо бы компонент для голосовых запросов из коробки)
  5. 1.Потому что так работает и он находит окно, так как SetForegroundWindow(hwin) отрабатывает 2.4. Да мне главное чтобы приходило, а оно вообще не приходит т.к. ShowMessage('Получено сообщение от другой копии'); не отрабатывает 3. И что я от этого могу узнать?
  6. Делал через первый способ, но FMX приложение не хочет ловить сообщения hwin := FindWindowA(nil,'Photo_NP'); SetForegroundWindow(hwin); SetFocus(hwin); // ShowWindow(hwin, SW_restore); with ParamCmd do begin dwData := 0; cbdata:=strlen(pchar(paramstr(1)))+1; lpData:=pchar(paramstr(1)); end; SendMessage(hwin, WM_COPYDATA,0,longint(@ParamCmd)); На передний план вылазит, а сообщение не принимает( protected procedure Getmessage(var msg: TWMCopyData); message WM_COPYDATA; procedure TfMain.Getmessage(var msg: TWMCopyData); var sText: array[0..99] of Char; begin ShowMessage('Получено сообщение от другой копии'); StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData); //Преобразуем полученные данные в строку tFilePath.Text:=stext; end;
  7. Как понял в firemonkey нужно создать программно отдельное окно невидимое через AllocateHWND, но как с этим работать??
  8. Как в android имитировать нажатие кнопки в другом приложении, зная ее KeyKode
  9. OnePeople

    Глюк анимации

    Тут код в сообщении не тот, там в тесте animatefloatwait
  10. OnePeople

    Глюк анимации

    procedure TfGeneral.Button4Click(Sender: TObject); var BlurTransition: TBlurTransitionEffect; update: TBitmap; begin Button4.Enabled:=false; BlurTransition:= TBlurTransitionEffect.Create(fGeneral); BlurTransition.Progress:=0; BlurTransition.Enabled:=true; BlurTransition.Parent:=scbGeneral; Update := scbGeneral.MakeScreenshot; BlurTransition.Target.Assign(Update); TAnimator.AnimateFloat(BlurTransition,'Progress',100,1); Update.Free; FreeAndNil(BlurTransition); Button4.Enabled:=true; end; Делаю анимацию, Win 10, размер экрана 1920х1080. При размере формы в пол экрана все отлично, но я делаю полноэкранное приложение и при размере формы приблизительно больше половины экрана, после нескольких раз выполнения анимации, вся анимируемая поверхность становиться белой и происходит резкое увеличение объема оперативной памяти(( Тестовое приложение прилагается, по нажимайте Change раз 5-10( Тестовое приложение: Test.rar
  11. OnePeople

    Определение цвета заголовка окна Windows 10 [WinAPI]

    var Reg:TRegistry; begin Reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.openKey('SOFTWARE\Microsoft\Windows\DWM',true); value:=reg.ReadInteger('ColorizationColor'); Reg.CloseKey; Reg.Free; TAlphaColorRec(Value).R:=Round(TAlphaColorRec(Value).R /100 *35); TAlphaColorRec(Value).G:=Round(TAlphaColorRec(Value).G /100 *35); TAlphaColorRec(Value).B:=Round(TAlphaColorRec(Value).B /100 *35); Color:=Value; Я делаю так!
  12. OnePeople

    Локальная рация, Android, пример

    with Server do begin BufferSize:=buffersize ??? with Server do begin BufferSize:=buffer_size
  13. Всё верно только не нравиться мне как это выглядит, просто при наведении добавил подсказку Также исправил исключение если нет принтера по умолчанию Добавил отображение времени при перемотке И выделил проигрываемый файл
  14. Перезалил. Итого: 1. Поправил звук, теперь проценты отображаются верно 2. Переместил иконку закрыть, не знаю даст это что то???(wamaco проверь пожалуйста) 3. Звук теперь регулируется вместе со звуком windows И так по мелочи доработал)
  15. А у тебя в Windows масштабирование не стоит, я не тестил с масштабированием.
  16. Да они и так нормально обновляются, с учётом того что по вкладкам не кто туда сюда прыгать не будет, ведь минус ищут постепенно прослушивая или просто определенный по названию. Но зависания при прыжках по вкладкам я убрал. 1. Нет такого( 2. Спасибо убрал) Перезалил еще дофига багов убрал)
  17. Это исправил. Как и звук. А здесь наверно добавлю webbrowser, там потом перекидывает на страницу проверки на бота( А вот баг с отрисовкой, это не мой косяк, а делфи procedure TForm1.rTopBackgroundPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); var BitmapSource: TBitmap; BitmapDest: TBitmap; DestWidth: Integer; DestHeight: Integer; BitmapSourceRect: TRectF; BitmapDestRect: TRectF; lt: TLayout; begin BitmapSource := lbMinusList.MakeScreenshot; BitmapSourceRect := TRectF.Create(TPointF.Create(lTop.Position.X, lTop.Position.Y), lTop.Width, lTop.Height); DestWidth := Max(0, Round(rTopBackground.Width)); DestHeight := Max(0, Round(rTopBackground.Height)); BitmapDest := TBitmap.Create(DestWidth, DestHeight); BitmapDestRect := TRectF.Create(0, 0, BitmapDest.Width, BitmapDest.Height); if BitmapDest.Canvas.BeginScene then try BitmapDest.Canvas.DrawBitmap(BitmapSource, BitmapSourceRect, BitmapDestRect, 1); finally BitmapDest.Canvas.EndScene; end; rTopBackground.Fill.Bitmap.Bitmap.Assign(BitmapDest); BitmapSource.Free; BitmapDest.Free; end; В rTopBackground лежит GaussianBlurEffect, а с эффектами в делфи беда(((
  18. У меня что то не воспроизводится этот баг((( Исправим, косяк bass.dll Так он же есть, там где отображается название выбранной категории это поле поиска)
  19. И точно, зачем то браузеру нужны были права администратора) Перезалил, с небольшими исправлениями и увеличенной областью нажатия на прогрессы) Оставил ListBox, но добавил ручной скролл колёсика мыши с небольшой анимацией) Как такое решение с началом закачки файла? Andrey Efimov, спасибо за отзыв;)
  20. Спасибо за отзыв и что забросили на форум! Просто файл у меня не заливается на форум((( Очень полезные мысли и заметки, поправим))
  21. OnePeople

    Release vs Debug

    На процедуре декомпрессии gzip просто замирает поток и всё, причем в debug она выполняется как положено.