apromix Опубликовано 23 января, 2019 Опубликовано 23 января, 2019 Собственно во всем разобрался, заминка только с этим: 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; Есть решения? Спасибо за ответы :) Цитата
0 krapotkin Опубликовано 23 января, 2019 Опубликовано 23 января, 2019 Вообще не понял вопрос http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.Graphics.TCanvas_Methods что из этого вызывает затруднения? Цитата
Вопрос
apromix
Собственно во всем разобрался, заминка только с этим:
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 ответ на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.