---

Hej

Jeg har et bitmap billede i en TImage, jeg skal have skrevet noget text i
dette billede, f.eks.

Image.Picture.Bitmap.Canvas.Font.Color:=clred;
Image.Picture.Bitmap.Canvas.TextOut(20,20,'TEST');

det virker også fint, jeg får skrevet TEST med rød, men texten står i en
hvid firkant. Hvordan undgår jeg denne firkant?

Mvh
HK

---

Harald skrev i
news:3d50342b$0$89520$edfadb0f@dspool01.news.tele.dk

> Jeg har et bitmap billede i en TImage, jeg skal have skrevet noget
> text i dette billede, f.eks.
>
> Image.Picture.Bitmap.Canvas.Font.Color:=clred;
> Image.Picture.Bitmap.Canvas.TextOut(20,20,'TEST');
>
> det virker også fint, jeg får skrevet TEST med rød, men texten står i
> en hvid firkant. Hvordan undgår jeg denne firkant?

En løsning kunne være at oprette et nyt Bitmap object og skrive på det,
og sætte Transparent := True og TransparentColor := clWhite, og så
kopiere dette over i Image1.

Følgende er testet, og virker her.

edText er en TEdit.
*** \kode ***
procedure TForm1.btnWriteToBmpClick(Sender: TObject);
var
sz: TSize;
txtBmp: TBitmap;
begin
txtBmp := TBitmap.Create;
try
txtBmp.Canvas.Font.Size := 22;
txtBmp.Canvas.Font.Color := clRed;
sz := txtBmp.Canvas.TextExtent(edText.Text);
txtBmp.Height := sz.cy;
txtBmp.Width := sz.cx;
txtBmp.Canvas.Textout( 0, 0, edText.Text);
txtBmp.Transparent := True;
txtBmp.TransparentColor := clWhite;
Image1.Picture.Bitmap.Canvas.Draw( 20, 20, txtBmp);
finally
txtBmp.Free;
end;
end;
*** kode\ ***

--
*/*
jUno
spamfilter: Fjern din bh

---

"Juno" <bauer.juno@dinbhget2net.dk> skrev i en meddelelse
news:3d508d63$0$78191$edfadb0f@dspool01.news.tele.dk...
> Harald skrev i
> news:3d50342b$0$89520$edfadb0f@dspool01.news.tele.dk
>
> > Jeg har et bitmap billede i en TImage, jeg skal have skrevet noget
> > text i dette billede, f.eks.
> >
> > Image.Picture.Bitmap.Canvas.Font.Color:=clred;
> > Image.Picture.Bitmap.Canvas.TextOut(20,20,'TEST');
> >
> > det virker også fint, jeg får skrevet TEST med rød, men texten står i
> > en hvid firkant. Hvordan undgår jeg denne firkant?
>
> En løsning kunne være at oprette et nyt Bitmap object og skrive på det,
> og sætte Transparent := True og TransparentColor := clWhite, og så
> kopiere dette over i Image1.

<KLIP>

Tak for svaret men jeg har fået et svar på samme spørgsmål i en anden
gruppe, og denne metode er lidt mere enkel , men din løsning virkede da
også fint.

ImageMain.Canvas.Font.Color:=clRed;
Imagemain.Canvas.Brush.Style:=bsClear;
ImageMain.Canvas.TextOut(20,20,'TEST');

Mvh
HK