"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