Как вывести полупрозрачный текст

Previous  Top  Next

    
 

 

Пример вывода полупрозрачного текста.

Code:

procedure TForm1.FormPaint(Sender: TObject);

var

x, y: integer;

bm: TBitMap;

begin

Form1.ClientWidth := 200;

Form1.ClientHeight := 100;

randomize;

for x := 0 to 199 do

   for y := 0 to 99 do

     if random(3) = 1

       then Form1.Canvas.Pixels[x,y] := clGreen

       else Form1.Canvas.Pixels[x,y] := clLime;

bm := TBitMap.Create;

bm.Width := 200;

 

bm.Height := 100;

with bm.Canvas do begin

   Brush.Color := clGreen;

   FillRect(ClipRect);

   Font.Name := 'Arial';

   Font.Size := 50;

   Font.Color := clGray;

   Font.Style := [fsBold];

   TextOut((bm.Width - TextWidth('Text')) div 2,

     (bm.Height - TextHeight('Text')) div 2, 'Text');

end;

Form1.Canvas.CopyMode := cmSrcPaint;

Form1.Canvas.CopyRect(bm.Canvas.ClipRect, bm.Canvas,

   bm.Canvas.ClipRect);

 

bm.Destroy;

end;

 

©Drkb::03653

Автор советов: Даниил Карапетян

e-mail: delphi4all@narod.ru

 

Автор справки: Алексей Денисов

e-mail: aleksey@sch103.krasnoyarsk.su