Tilføje tekst på billede

Åben billedet i et billedbehandlingsprogram f.eks. Photoshop og tryk på tekstværktøjet. Alternativt prøv med ACDSee.
Skal du f.eks. bruge billedet i Word, kan du bare sætte billedet ind først og så lægge teksten oven på.

//Laje

Image1.Canvas.TextOut(10, 10, 'Text');

>>laje3
Prøv lige at tjekke kategorien en gang! ;)

Sorry! Den havde jeg overset. ;-)

Her er en lidt bedre:

procedure SkrivTekst(xPos, yPos: Integer; Text: String);
begin
  with Image1.Canvas do
  begin
    Font.Color := clLime;
    Font.Name := 'Tahoma';
    Font.Size := 8;
    Font.Style := [fsBold];
    Brush.Style := bsClear;
    TextOut(xPos, yPos, Text);
  end;
end;

//hermandsen

Hehe... Det går nok skal du se! ;)

I skal da andmelde laje. Det er da indlysene.. :)

Jaaaah mand.... Det er MEGA SPAM!!! Især i forhold til hvad jeg nu sidder og skriver... ;)

Tror nu godt laje kan sove med en udemærket fornemmelse i maven i nat! ;)

Speaking of the devil... Det da egentlig ved at være lidt sent... Nåååh hva'... Har en kammerat der sidder på netcafé, så han ka' lave en hulens god server!!! ;)

Ja !

Hvordan angiver man baggrundensfarven på teksten, som man har lavet?

Brush.Style := bsSolid;
Brush.Color := SomeColor;

Hvad mener du? Vil du have ændret farven på teksten, eller det som teksten står oven i?

Hvis det er tekst-farven:
Image1.Canvas.Font.Color := RGB(Random(256), Random(256), Random(256)); //bare en eller anden farve.

Hvis du vil have at der i bag ved teksten skal være en farve så:
Image1.Brush.Style := bsSolid; //det er standard
Image1.Brush.Color := $42F87F //Endnu en underlig farve...

Fandt selv ud af det :)