[burnedhead]

Ich will ein kleines Programm schreiben, mit dem man auch auf Bildern (In diesem Fall TImage) auf einer bestimmten Koordinate anfangen kann zu schreiben und dieses als Bild abzuspeichern.

[burnedhead]

In dem TImage wird ein Bild geladen. Dann möchte ich ähnlich wie bei einem Memofeld ab Koordinate (Pixel x Pixel: Bsp.: 120x560) Text in das Bild hineinschreiben (Wie bei Paint) können.

[ProgMaster]

Zitat von burnedhead

In dem TImage wird ein Bild geladen. Dann möchte ich ähnlich wie bei einem Memofeld ab Koordinate (Pixel x Pixel: Bsp.: 120x560) Text in das Bild hineinschreiben (Wie bei Paint) können.

Der Unterschied zwischen einer Bild-Host-Komponente und einer Texteingabe-Komponente ist dir aber klar, oder?

Ist es denn so schwer einmal ausführlich zu beschreiben, was du GENAU machen/haben willst?

[Your_Conscience]

Zitat von ProgMaster

Ist es denn so schwer einmal ausführlich zu beschreiben, was du GENAU machen/haben willst?

Hat er doch, er will in einem Bild einen Text schreiben.
In C++ würde das z.B. so aussehen, Delphi ist da ganz ähnlich.

	TBitmap *bmp = new TBitmap;
	bmp->SetSize(500, 500);
	bmp->Canvas->TextOutW(50, 50, "bla");
	Image1->Picture->Bitmap = bmp;
	delete(bmp);

[burnedhead]

Okay hab soweit ich konnte den Quelltext versucht in Pascal umzuformen:

procedure TForm1.FormCreate(Sender: TObject);
var Bitmap : TBitmap;
begin
        Image1.canvas.brush.style := bsClear;
	Image1.Canvas.TextOut(1, 1, 'bla');
end;

Okay, jetzt frage ich mich warum ich auf die Idee nicht gekommen bin...

Bin jetzt fertig geworden mit meinem Testprogramm. Danke vielmals!

[Your_Conscience]

Zitat von burnedhead

Und wie kann ich noch Schriftart bestimmen?

bmp->Canvas->Font->Name = "Arial";

[burnedhead]

Noch eine Frage. Wie kann ich Bitmaps als PNG speichern? (Mit Delphi XE)

[Your_Conscience]

Einfach

bmp->SaveToFile("C:\\Pfad\\Dateiname.png")

Delphi XE arbeitet hier automatisch mit PNG Dateien.

PS: Wieso zum Teufel bist du um 3 Uhr morgens noch on???

[burnedhead]

Warum bist du noch on gewesen?