Jump to content

Артем

Members
  • Posts

    363
  • Joined

  • Last visited

  • Days Won

    7

Posts posted by Артем

  1. Доброго времени суток!

    Не придумал в какую ветку - решил тут.

    А нет ли в планах или может наработок создания файлового менеджера? Кейс такой: в приложение например к задаче прикрепить с диска xls, pdf, etc

  2. Всем привет. Не понял в какой ветке создать тему. Но ближе показалось в этой.

    в рантайме создаю Page и в него пытаюсь затолкать и растянуть по размерам страницы TfgForm. На андроид работает верно. На iOS странное поведение.

    Подскажите что не так?

     

    testApp.7z

  3. 23 минуты назад, Yaroslav Brovin сказал:

    В основном исправление, найденных ошибок и реализация функционала для iOS. Я две недели тут проболел, поэтому ничего особенно нового не будет.

    • Через релиз выйдет TfgBottomSheetLayout для iOS + реализация оставшихся элементов карты (полилинии и полигоны) для iOS.
    • Чуть позже выйдет новая полноценная поддержка анимации. Мы уже разработали архитектуру будущей анимации и реализовали базовые типы анимации для iOS и Андроид. Так что теперь можно будет пользоваться полноценными видами анимации, включая перемещение позиции и изменение размеров компонентов.
    • Ну и естественно, в каждом релизе исправление, найденных ошибок.
    while true do
    
    waitForRelease

    ))

  4. 50 минут назад, Vitaldj сказал:

    А, понятно, как божий день... Это как анализ эффективности ремдесивира на фоне геномной репликации SARS-CoV-2, включая анализ выработки интерлейкина 6...

    PS Суть вопроса в вопросе. Каждый занимается и работает в своей сфере. Не всегда понятен кейс)))

    Именно так.

    50 минут назад, Vitaldj сказал:

    PS Суть вопроса в вопросе

    аминь!

  5. 27 минут назад, Vitaldj сказал:

    А в чем суть приложения?

    Работа с задачами из ServiceDesk & TaskManager.

    Инспекции магазинов + BPM и инициации на основании отклонений. 

    Проверка знаний БП

    Инспекция качества продукции

    В чем суть вопроса?

  6. Всем привет!

    Пора бы и мне поделиться тем что собрали на FGX. Проект не финальный. Главной задачей было перетянуть его прежде всего на FGX , чтобы обкатать возможности библиотеки. 

    Огромная благодарность ребятам, которые занимаются развитием сей либы! Без вас наши приложения были бы более скучными и менее производительными)

    Приложение по сути InHouse поэтому не могу пока выложить APK. Надеюсь скоро и это будет. По факту - пошумлю тут.

    image.thumb.png.0c5ee30ea167ffa42e45ce8fd73313e7.pngimage.thumb.png.1ed724b5f17c1e8d1c18b9201e3f7f8a.pngimage.thumb.png.18556e34e3deb4fa342888f5173baacb.pngimage.thumb.png.2b0fb6fae28f3e0fd7f17de794b4ec41.pngimage.thumb.png.a6ba2c60a8ba15b7866b07c5ce0e6abd.pngimage.thumb.png.f061a5842e6a597f6e8a98b53bf89c8e.pngimage.thumb.png.43ec894ee6e4233912254c6ece965a54.pngimage.thumb.png.64d574c962c1e7276ff2a7a0c18e4140.pngimage.thumb.png.7079833592a88729c09fa7059e6d38bc.pngimage.thumb.png.84afbcafd95276ce6cee82537a728654.pngimage.thumb.png.9385090de8657d9e80a10b6ece5ac658.pngimage.thumb.png.1ebe8998b00140da4ef86ff4db7ae189.png

     

     

    image.png

    • Like 11
    • Thanks 1
  7. 1 минуту назад, Viktor Akselrod сказал:

    Здравствуйте.

    Подтверждаю проблему.

    Постараемся исправить в ближайшее время.

    PS строки Bitmap.Canvas.EndPaint; и Bitmap.SaveToFile(filename); надо как минимум поменять местами

    PPS try finally поставить между конструктором и деструктором для надежности.

    Благодарю. Поправим у себя с учетом рекомендаций

  8. В продолжение темы.

    Пишу текст на фото. Но не срабатывает перенос строки. Что-то не так делаю?

      var Bitmap := TfgBitmap.Create;
      Bitmap.LoadFromFile(filename);
      Bitmap.Canvas.BeginPaint;
      try
        Bitmap.Canvas.Font.Size:= 50;
        Bitmap.Canvas.Fill.Color := TAlphaColorRec.Red;
        Bitmap.Canvas.Fill.Kind := TfgBrushKind.Solid;
        Bitmap.Canvas.FillText(Bitmap.Bounds, DateTimeToStr(now) + sLineBreak + DateTimeToStr(now) + sLineBreak + DateTimeToStr(now) ,True, TfgHorizontalAlignment.Right, TfgVerticalAlignment.Bottom);
      finally
        Bitmap.SaveToFile(filename);
        Bitmap.Canvas.EndPaint;
      end;
      FreeAndNil(Bitmap);

    Успешный сценарий который ожидаю. Дата в трех строчках

  9. 14 часов назад, Yaroslav Brovin сказал:

    Добрый вечер,

    1. Создать битмап
    2. Выполнить любую отрисовку поверх битмапа.

    Вот пример:

    Создал битмап FBitmap.

    
    procedure TForm4.fgFormCreate(Sender: TObject);
    begin
      FBitmap := TfgBitmap.Create(100, 100);
    
      FBitmap.Canvas.BeginPaint;
      try
        FBitmap.Canvas.Font.Size:= 50;
        FBitmap.Canvas.Fill.Color := TAlphaColorRec.Red;
        FBitmap.Canvas.Fill.Kind := TfgBrushKind.Solid;
        FBitmap.Canvas.FillText(FBitmap.Bounds, DateTimeToStr(now) ,False, TfgHorizontalAlignment.Right, TfgVerticalAlignment.Bottom);
      finally
        FBitmap.Canvas.EndPaint;
      end;
    end;

    И вывожу для проверки через TfgPaintBox:

    
    procedure TForm4.fgPaintBox1Paint(Sender: TObject; const Canvas: TfgCanvas);
    begin
      Canvas.DrawBitmap(FBitmap, FBitmap.Bounds);
    end;

     

     

    Не выходит image.thumb.png.5dc2d8135fa3da1dae47146f2a8bd274.png

  10. Всем привет! Позвольте и эту тему апнуть

    Не могу поверх фото текст наложить. Пробую так.

    Как это необходимо делать верно?

     

    AResult.Bitmap - приходит из CameraCapturePhotoReady(Sender: TObject;  const AResult: TfgCameraCaptureResult);

      filename := filename + strDate + '.png';
      var B := AResult.Bitmap;
    //  B.Canvas.BeginPaint;
      B.Canvas.Font.Size:= 50;
      B.Canvas.Fill.Color := TAlphaColorRec.Red;
      B.Canvas.Fill.Kind := TfgBrushKind.Solid;
    //  var mRect :=B.LogicalBounds;
    //  mRect.Width := mRect.Width - mRect.Width * 0.05;
    //  mRect.Height := mRect.Height - mRect.Height * 0.05;
      B.Canvas.FillText(B.Bounds, DateTimeToStr(now) ,False, TfgHorizontalAlignment.Right, TfgVerticalAlignment.Bottom);
      B.SaveToFile(filename);
    //  B.Canvas.EndPaint;
      TfgAssetsManager.Current.AddBitmap('asset_' + mainf.md5(filename), B);

×
×
  • Create New...