OnePeople

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

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

  • Посещение

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

    1

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

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

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

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

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

437 просмотров профиля
  1. Глюк анимации

    Тут код в сообщении не тот, там в тесте animatefloatwait
  2. Глюк анимации

    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
  3. Определение цвета заголовка окна 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; Я делаю так!
  4. Локальная рация, Android, пример

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