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

apromix

Пользователи
  • Постов

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

  • Посещение

Достижения apromix

  1. Собственно во всем разобрался, заминка только с этим: 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; Есть решения? Спасибо за ответы :)
×
×
  • Создать...