Tilføj tekst til billeder

du læser det bare ind i en Tbitmap tegner/skriver din tekst på Canvas'en og gemmer det igen, delphi's TJPG kan assigne frem og tilbage mellem TBitmap

Godt besvaret...! men jeg forstår ikke hvad du mener, du må gerne uddybe lidt...

Du kan indlæse dine billeder i TBitmap-komponenten. Den har vistnok en loadfromfile() du kan bruge. Dernæst kan du tage din TBitmap komponent - lad os kalde den bitmap1 og skrive på canvas'et (tegnebrættet hvorpå dit billede er indlæst på). Det er noget med bitmap1.canvas.textout() og lignende funktioner. Husk på at x,y koordinaterne starter i øverste venstre hjørne.

Noget i denne stil

uses jpg + <std. uses>

VAR
  Bmp,Bmp2 : TBitmap;
  Jpg : TJpgimage;

begin
  Bmp := TBitmap.Create();
  Bmp2 := TBitmap.Create();
  Jpg := TJpgimage.Create();
  Jpg.LoadFromFile('mitJPG.JPG');
  Bmp2.Assign(Jpg);
  Bmp.LoadFromFile('mitpic.bmp');
  Bmp.Canvas.TextOut(Bmp.Height-Bmp.Canvas.Font.TextHeight-10,10,'Hello World');
  Bmp2.Canvas.TextOut(Bmp.Height-Bmp.Canvas.Font.TextHeight-10,10,'Hello JPG World');

// Her kan du så printe/vise dine bmp'er
//
  Din kode....
 

// og Huske at ryde op :)
  Bmp2.Free;
  Bmp.Free;
  Jpg.Free;
end;

f.eks. kan du efter du har skrevet i dem gøre sådan

Bmp.SaveToFile('mitpic2.bmp');
Jpg.Assign(Bmp2);
Jpg.SaveToFile('mitJPG2.JPG');

jeg må desværre sige at jeg ikke helt er med på hvad der forgår... fordi det jeg har brugt indtil videre til mine billeder det er Timage...! og jeg kender ikke noget til Tbitmap...! jeg kan heller ikke gennemskue hvordan jeg får teksten til at stå centeret på billede (og ikke bare 10,10) eller hvordan jeg skifter formateringen af teksten???

procedure TfrmImage.ButtonClick(Sender: TObject);
var
  tw, th : integer;
  x, y : integer;
begin
  Image.Picture.LoadFromFile('billede.bmp');

  Image.Canvas.Font.Name := 'Ariel';
  Image.Canvas.Font.Size := 128;
  Image.Canvas.Font.Color := clRed;
  Image.Canvas.Font.Style := [fsBold];
  tw := Image.Canvas.TextWidth(GreetingText);
  th := Image.Canvas.TextHeight(GreetingText);

  x := (Image.Picture.Bitmap.Width - tw) shr 1;
  y := (Image.Picture.Bitmap.Height - th) shr 1;
  Image.Picture.Bitmap.Canvas.TextOut(x,y,GreetingText);
end;

Der er en enkelt fælde idet en TImage har et canvas direkte under sig mens at der under picture.bitmap også er et. Den første har en font-property under sig, så det er åbenbart der man sætter den mens billedet findes under den sidste - teksten skal skrives der.

En beklagelig mangel med TImage er, at den ikke understøtter jpg. På Delphi-cd'en ligger der en komponent der kan det (men den skulle være dårlig). Prøv at kigge hos Torry hvis du vil have den med.

men hvis det vil være smartere i et Tbitmap så vil jeg da gerne ændre det i min form, men hvor kan jeg så læse mere om det, og hvor er det for jeg sys ikke at være stødt på det...!

TImage samler en række komponenter deriblandt TBitmap. Stil cursoren på teksten "timage" og tryk F1 så får du al den information der er i Delphi. Alternativt kan du prøve at skrive "+delphi +timage" i Google