Прозрачная надпись в TBitmap

[Lokos]

Здравствуйте.
Пробовал сделать след. образом

procedure TFormCompreesForm.btn1Click(Sender: TObject);
var
        bmp:TBItmap;
        OldBkMode : integer;
begin
         bmp:=TBitmap.create;
         bmp.Width:=imgEdit.Picture.Width;
         bmp.Height:=imgEdit.Picture.Height;
         bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, imgEdit.Picture.Graphic );

         bmp.Canvas.Font.Color := clBlue;
         bmp.Canvas.Font.Size:=40;
        OldBkMode := SetBkMode(bmp.Canvas.Handle,TRANSPARENT);

        bmp.Canvas.TextOut(100, 100, 'hellow');
        SetBkMode(bmp.canvas.handle,transparent);
        SetBkMode(bmp.Canvas.Handle,OldBkMode);
        imgEdit.Picture.Bitmap:=bmp;

но надпись получается не прозрачная

[Lokos]

извиняюсь нужна прозрачная кисть чтоб через надпись было видно картинку
если точней необходимо сделать textout со свойством AlphaBlend но у canvas'a такого свойства нету какой есть выход.

[antonn]

http://forum.sources.ru/index.php?showtopic=332418

[Aliens_wolfs]

Через надпись будет видно картинку, сразу надпись выводит в Image на картинку.

Попробуй так, простой вариант

  
procedure TFormCompreesForm.btn1Click(Sender: TObject);
begin
   imgEdit.Canvas.Font.Color := clBlue;
   imgEdit.Canvas.Font.Size:=40;
   SetBkMode(imgEdit.Canvas.Handle, TRANSPARENT);
   imgEdit.Canvas.TextOut(100, 100, 'hellow');

Либо так, шрифт красивый будет и сглажен, меняя значения CreateFont можно текст под наклоном сделать, подробнее о значениях CreateFont в интернете читайте.

procedure TFormCompreesForm.btn1Click(Sender: TObject);
var
iFont: hFont;
begin
  iFont := CreateFont(40, 40, 0, 0, 1000, 0, 0, 0,DEFAULT_CHARSET, OUT_DEFAULT_PRECIS,
  CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'Courier New' );
  SelectObject(imgEdit.Canvas.Handle, iFont);
  SetBkMode(imgEdit.Canvas.Handle, TRANSPARENT);
  SetTextColor(imgEdit.Canvas.Handle, clBlue);
   imgEdit.Canvas.TextOut(100, 100, 'hellow');
   DeleteObject(iFont);

[antonn]

Через надпись будет видно картинку, сразу надпись выводит в Image на картинку.

ему и надо чтобы через буквы картинка была видна

[kangreon]

Для прозрачного текста надо установить:

  bmp.Canvas.Brush.Style := bsClear;
  bmp.Canvas.TextOut(10,20,'Текст');

ну и для примера код. В Image1 уже есть изображение, на которое надо нанести текст

procedure TForm3.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Assign(Image1.Picture);
  bmp.Canvas.Brush.Style := bsClear;
  bmp.Canvas.TextOut(10, 20, 'Текст');
  Image1.Picture.Assign(bmp);
  bmp.Free;
end;

[antonn]

Для прозрачного текста надо установить:

для прозрачного фона текста, но не самого текста.
вы сообщения выше читаете?

[Aliens_wolfs]

Чем проще тем лучше.
Зачем использовать лишнее)))
выберите нужное

[antonn]

у меня в примере, кстати, шрифт тоже сглажен, плюс полупрозрачен

[Aliens_wolfs]

Если бы у меня не был бы прозрачен текст я не предлогал бы))))
Пусть сам решит что ему нужно.