OnePeople

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

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

  • Посещение

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

    1

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

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

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

    Тут код в сообщении не тот, там в тесте animatefloatwait
  7. 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
  8. 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; Я делаю так!
  9. OnePeople

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

    with Server do begin BufferSize:=buffersize ??? with Server do begin BufferSize:=buffer_size
  10. Всё верно только не нравиться мне как это выглядит, просто при наведении добавил подсказку Также исправил исключение если нет принтера по умолчанию Добавил отображение времени при перемотке И выделил проигрываемый файл
  11. Перезалил. Итого: 1. Поправил звук, теперь проценты отображаются верно 2. Переместил иконку закрыть, не знаю даст это что то???(wamaco проверь пожалуйста) 3. Звук теперь регулируется вместе со звуком windows И так по мелочи доработал)
  12. А у тебя в Windows масштабирование не стоит, я не тестил с масштабированием.
  13. Да они и так нормально обновляются, с учётом того что по вкладкам не кто туда сюда прыгать не будет, ведь минус ищут постепенно прослушивая или просто определенный по названию. Но зависания при прыжках по вкладкам я убрал. 1. Нет такого( 2. Спасибо убрал) Перезалил еще дофига багов убрал)
  14. Это исправил. Как и звук. А здесь наверно добавлю 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, а с эффектами в делфи беда(((
  15. У меня что то не воспроизводится этот баг((( Исправим, косяк bass.dll Так он же есть, там где отображается название выбранной категории это поле поиска)
  16. И точно, зачем то браузеру нужны были права администратора) Перезалил, с небольшими исправлениями и увеличенной областью нажатия на прогрессы) Оставил ListBox, но добавил ручной скролл колёсика мыши с небольшой анимацией) Как такое решение с началом закачки файла? Andrey Efimov, спасибо за отзыв;)
  17. Спасибо за отзыв и что забросили на форум! Просто файл у меня не заливается на форум((( Очень полезные мысли и заметки, поправим))
  18. OnePeople

    Release vs Debug

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

    Release vs Debug

    Delphi 10.2.1 Программа отлично работает в debug, и не работает в Release, не работает ZLibExGZ.pas, причем раньше с ним проблем не было, что на это влияет?
  20. @kami, под задачу сделать быстро, легко и не изобретая велосипед, это именно самое правильное решение!
  21. Во первых зачем что то изобретать если уже есть, а если уж так надо тогда самое быстрое решение, да скорее всего и самое правильное App Tethering