myGully.com - Delphi: Auf ein Bild schreiben.

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - Delphi: Auf ein Bild schreiben. (https://mygully.com/showthread.php?t=2596461)

burnedhead

25.03.12 18:12

Delphi: Auf ein Bild schreiben.

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

25.03.12 19:24

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

25.03.12 20:19

Zitat:

Zitat von burnedhead (Beitrag 23390440)

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

25.03.12 20:44

Zitat:

Zitat von ProgMaster (Beitrag 23390589)

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.

Code:

        TBitmap *bmp = new TBitmap;

        bmp->SetSize(500, 500);

        bmp->Canvas->TextOutW(50, 50, "bla");

        Image1->Picture->Bitmap = bmp;

        delete(bmp);

burnedhead

26.03.12 17:01

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

Code:

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

26.03.12 17:21

Zitat:

Zitat von burnedhead (Beitrag 23392316)

Und wie kann ich noch Schriftart bestimmen?

Code:

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

burnedhead

04.04.12 21:39

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

Your_Conscience

05.04.12 02:08

Einfach

Code:

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

05.04.12 13:17

Warum bist du noch on gewesen? :D

Alle Zeitangaben in WEZ +1. Es ist jetzt 18:47 Uhr.