Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bearbeitetes Bild speichern
Autor: Markus Palcer
Datum: 30.08.04 19:12
Hi, ich benutze im Moment folgenden Code:   = 0 To .ScaleX(.Picture.Width, 8, 3) For Y = 0 To .ScaleY(.Picture.Width, 8, 3) Select Case .Point(X, Y) Case TColor.BackColor frmTColor.PIC.PSet (X, Y), RGB(0, 0, 0) Case RGB(0, 0, 0) frmTColor.PIC.PSet (X, Y), RGB(10, 10, 10) End Select If Y Mod 100 = 0 Then DoEvents Next Y DoEvents Next X [\code] Um ein Bild folgendermaßen bearbeiten zu lassen: Alles, was schwarz ist wird dunkelgrau (RGB(10,10,10) und alles, was in einer vorher vorgegebenen Farbe ist, wird schwarz. Das Ergebnis des Algorhytmus möchte ich als Bitmap speichern und zwar möglichst ohne, dass das Bild dabei sichtbar sein muss. Im moment benutze ich dazu die BitBlt-API, um einen Screenshot in eine 2. Picturebox zu übertragen, aber die Teile, die außerhalb des Formulars sind fallen weg, bzw. wenn das Formular zu schnell geschlossen wird (nach dem Speichern des Bildes in der 2.PB, wird das Programm beendet), sieht man nur das, was hinter dem Programm lag... Weiß jemand eine andere Möglichkeit, wie man ein Bild, welches man mit LoadPicture geladen hat und es mit PSet bearbeitet hat speichern kann? Übrigens: SavePicture geht nicht - es speichert nur die Originalversion! Ich hoffe, mir kann jemand helfen! ->MP<-

Bearbeitetes Bild speichern	647	Markus Palcer	30.08.04 19:12
Re: Bearbeitetes Bild speichern	569	Zardoz	30.08.04 20:54
Re: Bearbeitetes Bild speichern	388	Markus Palcer	30.08.04 21:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen