• 0
apromix

Перенос старого кода на FMX

Вопросы

Собственно во всем разобрался, заминка только с этим:

1. Залить канву одним цветом:

  BG.Canvas.Brush.Color := clBlack;
  BG.Canvas.FillRect(Rect(0, 0, fMain.ClientRect.Right, fMain.ClientRect.Bottom));

2. Отрисовать на канве изображение .png с прозрачностью:

fMain.Canvas.Draw(0, 0, BG);

 

3. Текст на канве:

procedure TextOut(const AX, AY: Integer; const AText: string; AColor: Integer);
begin
  BG.Canvas.Font.Color := AColor;
  BG.Canvas.TextOut(AX * CharWidth, AY * CharHeight, AText);
end;

Есть решения? Спасибо за ответы :)

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

1 ответ на этот вопрос

  • 0

Вообще не понял вопрос

http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.Graphics.TCanvas_Methods

что из этого вызывает затруднения?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу