Как изменить фоновый цвет текста

Советы » Canvas » Как изменить фоновый цвет текста

procedure

TForm1.Button1Click(Sender: TObject); var

OldTextColor: TColorRef; OldBkColor: TColorRef; OldBkMode: Integer; begin

OldTextColor := SetTextColor(Form1.Canvas.Handle, clYellow); OldBkColor := SetBkColor(Form1.Canvas.Handle, clGreen); OldBkMode := SetBkMode(Form1.Canvas.Handle, OPAQUE); TextOut(Form1.Canvas.Handle, 20, 20, 'Delphi World - лучше всех! ;-)', 27); SetBkMode(Form1.Canvas.Handle, OldBkMode); SetBkColor(Form1.Canvas.Handle, OldBkColor); SetTextColor(Form1.Canvas.Handle, OldTextColor); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com