Перейти к содержанию
Fire Monkey от А до Я

BenTen

Пользователи
 Профиль  Обзор контента

  • Постов

    7

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

  • Посещение

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

    1

Активность репутации

  1. Like
    BenTen
    BenTen отреагировална Slym в MSPOS - смарт-терминалы от компании Мультисофт   
    multisoft.zip
    Проект jar файла, aidl+ exceptioncallback
  2. Like
    Andrey Efimov
    BenTen получил реакцию от Andrey Efimov в MSPOS - смарт-терминалы от компании Мультисофт   
    Добрый день!
    Большое спасибо уважаемому Slym  за помощь и поддержку в разработке тестового проекта на Embarcadero Delphi для доступа к фискальному ядру смарт-терминала MSPOS.
    Выкладываю в открытый доступ этот проект. Пользуйтесь на здоровье.
    MSPOSFiscalCore_Delphi.7z
  3. Like
    BenTen
    BenTen отреагировална FIL в Как нарисовать круглый TImage   
    Еще вариант: Можно ли вывести изображение в виде ромба, круга и тд?
  4. Like
    BenTen
    BenTen отреагировална AngryOwl в Как нарисовать круглый TImage   
    var   BmpNew     : TBitmap; begin     BmpNew := TBitmap.Create;     BmpNew.SetSize({нужный размер}, {нужный размер});     BmpNew.Canvas.BeginScene;     try       BmpNew.Canvas.Fill.Kind := TBrushKind.Bitmap;       BmpNew.Canvas.Fill.Bitmap.WrapMode := TWrapMode.TileStretch;       BmpNew.Canvas.Fill.Bitmap.Bitmap := {ваш битмап};       BmpNew.Canvas.Clear(0);       BmpNew.Canvas.FillEllipse(RectF(0, 0, {нужный размер}, {нужный размер}), 1);     finally       BmpNew.Canvas.EndScene;     end;     TImage{ваш объект}.Bitmap.Assign(BmpNew); end; думаю так
×
×
  • Создать...