OnePeople

По быстрому) Paint.rar

Обновлено 1.Исправлено сохранение игры, если игра установлена на диск С:. 2.Исправления сетевой синхронизации 3.Мелкие ошибки интерфейса

Тоже свой вариант по быстрому накидал, как пример WhatNew.rar

1.Можно взять Rectangle, залить его с Alpha 70%. И поместить в него изображение. 2.Затем расчитать абсолютное положение контрола на форме, его размеры,сделать его скриншот. 3.Изображению задать соответствующие размеры, координаты и скриншот контрола, можно добавить свечение.

Делал чисто для себя! И только для своего удовольствия! Возможны ошибки!*(вернее точно есть))) Графика не окончательная! Скриншоты сервер: Скриншоты клиент: Сервер на комп, клиент Android (должны находиться в одной сети) P/S И так как все устройства у меня Full HD, проверял только на них( Monopoly.rar

Да всё проще, не стал заморачиваться, сделал поток с wait на количество секунд в анимации. Т.е. в потоке wait не вешает форму и всё, но это п...ц а не костыль(

Такая же проблема (Rio). Переделал всё на просто AnimateFloat с разными костылями(((

Android это просто беда Анимации с wait не выполняются сразу выводиться результат, другое приложение зависает при выводе фрейма причем очистил все секции выполняемые при запуске, жесть какая то(((

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

1.Потому что так работает и он находит окно, так как SetForegroundWindow(hwin) отрабатывает 2.4. Да мне главное чтобы приходило, а оно вообще не приходит т.к. ShowMessage('Получено сообщение от другой копии'); не отрабатывает 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;

Как понял в firemonkey нужно создать программно отдельное окно невидимое через AllocateHWND, но как с этим работать??

Платформа: Windows FMX Сделал просмоторщик изображений, сделал ассоциацию файлов, открытие их, if ParamStr(1)<>'' then begin tFileName.Text:=ParamStr(1); imMain.Bitmap.LoadFromFile(ParamStr(1)); end; запретил запуск второй копии. Теперь собственно вопрос, а как теперь передать запущенному ранее экземпляру программы путь до нового файла???

Как в android имитировать нажатие кнопки в другом приложении, зная ее KeyKode

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

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

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; Я делаю так!

with Server do begin BufferSize:=buffersize ??? with Server do begin BufferSize:=buffer_size

Ну так UDP же

Всё верно только не нравиться мне как это выглядит, просто при наведении добавил подсказку Также исправил исключение если нет принтера по умолчанию Добавил отображение времени при перемотке И выделил проигрываемый файл

Он есть)))

Перезалил. Итого: 1. Поправил звук, теперь проценты отображаются верно 2. Переместил иконку закрыть, не знаю даст это что то???(wamaco проверь пожалуйста) 3. Звук теперь регулируется вместе со звуком windows И так по мелочи доработал)

А у тебя в Windows масштабирование не стоит, я не тестил с масштабированием.

Да они и так нормально обновляются, с учётом того что по вкладкам не кто туда сюда прыгать не будет, ведь минус ищут постепенно прослушивая или просто определенный по названию. Но зависания при прыжках по вкладкам я убрал. 1. Нет такого( 2. Спасибо убрал) Перезалил еще дофига багов убрал)

Это исправил. Как и звук. А здесь наверно добавлю 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, а с эффектами в делфи беда(((