Canvas in TBitmap ???

[Birzenbae]

also ich hab das so gemeint du deklarierst ne variable vom TBitmap in private, auf der Variable/Bitmap kannst du dann zeichnen bzw. zeichnen lassen dann lässt du der Bitmap in die Paintbox zeichnen und du kannst die Variable/Bitmap mit der IF-Anweisung speichern. die eigenschaften der Bitmap und das erstellen machst du in der Create procedure der Form.

[dizzy]

Ich glaube Birzenbae meint folgendes: Zeichne nicht direkt in die PaintBox, sondern zeichne auf den Canvas eines TBitmaps dass du immer im Speicher hälst. Bei Bedarf kopierst du dieses dann zum Anzeigen in die PaintBox (Draw, BitBlt, ...), oder speichert es mit SaveToFile ab.
Dann hast du eine Variable im Hintergrund aus der heraus du sowohl anzeigen, als auch speichern kannst.

Gruss,
Fabian

[Magier]

Zitat von Birzenbae:

also ich hab das so gemeint du deklarierst ne variable vom TBitmap in private, auf der Variable/Bitmap kannst du dann zeichnen bzw. zeichnen lassen dann lässt du der Bitmap in die Paintbox zeichnen und du kannst die Variable/Bitmap mit der IF-Anweisung speichern. die eigenschaften der Bitmap und das erstellen machst du in der Create procedure der Form.

dann kann er auch direkt timage nehmen.

[Birzenbae]

ja das hängt dann davon ab ob er zeichnen oder es zeichnen lassen will, weil will er zeichnen lassen also vom programm selbst ist TImage besser da es zum anzeigen gedacht ist, will er jedoch selbst ist paintbox angebrachter da es wieder name schon sagt zum malen bzw. zeichnen gedacht ist, jedoch sollte nicht direkt auf die canvas der paintbox gezeichnet werden, sondern mit hilfe der größe der paintbox auf die canvas der TBitMap und dann in die Paintbox zeichnen lassen, da wenn er direkt auf die canvas der Paintbox zeichnen ist die zeichnung weg wenn ein fenster drüber ist oder er minimiert und dann maximiert.

[San]

verstehe das im moment alles nicht so wirklich, da ich mich mit delphi noch nicht so gut auskenne und vorallem nicht mit bitmaps.
kann mir das nicht vielleicht jemand in eine einfache ButtonClick procedure oder so schreiben?
damit wäre mir glaube ich am meißten geholfen, da ich sonst bestimmt nur immer neue probleme hätte, weil ich selbst einfache sachen nicht hinbekommen würde.

[Birzenbae]

@san dann sag mal was genau du haben bzw. machen willst, denn erst dann können wir dir wirklich helfen.

[San]

also, ich habe eine paintbox, in die in meinem programm eben etwas gezeichnet wird. wenn diese bild dann fertig gezeichnet ist, würde ich es gerne speichern.
also eigentlich möchte ich "nur" den inhalt einer paintbox speichern

[Birzenbae]

da paintbox kein savetofile besitzt wirst wohl oder übel über TBitMap speichern müssen und das machst du dann so:
ins private kommt das
Bild: TBitmap; //deklaration der variable Bild vom type TBitmap in die OnCreate-procedure der Form kommt das hier

Delphi-Quellcode:

Bild:=TBitmap.Create;  //Bitmap in den Speicher Laden
Bild.Height:=PaintBox1.Height;  //höhe
Bild.Width:=Paintbox1.Width;   //Breite der Bitmap festlegen
//kannst evtl. noch hier die qualität festlegen

und dann wenn du speichern willst kommt das z.B. in die OnClick-procedure eines Buttons

Delphi-Quellcode:

  BitBlt(Bild.Canvas.Handle, 0, 0, PaintBox1.Width, PaintBox1.Height,
  PaintBox1.Canvas.Handle, 0, 0, SRCCOPY); //um von paintbox in Bitmapt/Bild zu zeichnen
  if SaveDialog1.Execute then
    Bild.Savetofile(SaveDialog1.Filename) //speichern
  else
   exit;   //sonst verlassen des SaveDialogs

so das wäre das reine speichern von einer Paintbox per Bitmap
natürlich musst du noch die funktionen um auf die Paintbox zu zeichnen noch selbst reinschreiben.
wenn die Paintbox dann bemalt ist und du speicherst sollte deine gespeicherte bitmap auch das enthalten was die Paintbox enthielt.

[San]

vielen Dank Birzenbae!!!
jetzt klappt das speichern!!!

Liebe Grüße
San

PS: noch ein kleiner Hinweis, in der 2. Zeile des 3. Quelltextes hast du aus versehen PaintBox.Height anstatt PaintBox1.Height geschrieben.

[Birzenbae]

ach man hilft doch gerne....
hab doch gewusst das irgendwas mal wieder falsch ist.