OnePeople

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

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

  • Посещение

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

    1

OnePeople стал победителем дня 7 января

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

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

  • Звание
    Продвинутый пользователь

Посетители профиля

635 просмотров профиля
  1. OnePeople

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

    Android это просто беда Анимации с wait не выполняются сразу выводиться результат, другое приложение зависает при выводе фрейма причем очистил все секции выполняемые при запуске, жесть какая то(((
  2. Не знаю куда уж проще? Кидаешь на форму StyleBook и в свойствах формы выставляешь его. Создаешь свой прогрессбар например. Кликаешь по нему правой кнопкой мыши и выбираешь изменить стиль по умолчанию или же создать свой новый стиль для компонента. Затем редактируешь его как компонент содержащий в себе другие компоненты, причем не обязательно как я сделал для примера из прямоугольников, можно сделать и из картинок, главное чтобы названия StyleName совпадали c родными.
  3. OnePeople

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

    А будет что то типо tethering manager'a и хорошо бы компонент для голосовых запросов из коробки)
  4. 1.Потому что так работает и он находит окно, так как SetForegroundWindow(hwin) отрабатывает 2.4. Да мне главное чтобы приходило, а оно вообще не приходит т.к. ShowMessage('Получено сообщение от другой копии'); не отрабатывает 3. И что я от этого могу узнать?
  5. Делал через первый способ, но 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;
  6. Как понял в firemonkey нужно создать программно отдельное окно невидимое через AllocateHWND, но как с этим работать??
  7. Платформа: Windows FMX Сделал просмоторщик изображений, сделал ассоциацию файлов, открытие их, if ParamStr(1)<>'' then begin tFileName.Text:=ParamStr(1); imMain.Bitmap.LoadFromFile(ParamStr(1)); end; запретил запуск второй копии. Теперь собственно вопрос, а как теперь передать запущенному ранее экземпляру программы путь до нового файла???
  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. Всё верно только не нравиться мне как это выглядит, просто при наведении добавил подсказку Также исправил исключение если нет принтера по умолчанию Добавил отображение времени при перемотке И выделил проигрываемый файл