Главная страница | назад





Article #15627: Making text background transparent

 Question and Answer Database

FAQ627D.txt   Making text background transparent
Category   :Windows API
Platform    :All
Product    :All 32 bit  

Question:
How do I make the text background transparent?


Answer:
Use the Windows API function SetBkMode().

Example:

procedure TForm1.Button1Click(Sender: TObject);
var
  OldBkMode : integer;
begin
  with Form1.Canvas do begin
    Brush.Color := clRed;
    FillRect(Rect(0, 0, 100, 100));
    Brush.Color := clBlue;
    TextOut(10, 20, 'Not Transparent!');
    OldBkMode := SetBkMode(Handle, TRANSPARENT);
    TextOut(10, 50, 'Transparent!');
    SetBkMode(Handle, OldBkMode);
  end;
end;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99