Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Nicht sichtbaren TPaintBox Inhalt speichern

   
    by cramer, 11. Feb 2015
  Ja, das ist jetzt klar.
  
  Kleine Analyse, so wie ich das jetzt sehe.
  
  In meinem Fall lag die PaintBox auf einem Panel1 auf Tabsheet1 und wenn man auf ein anderes Tabsheet2 wechselt und wieder zurück bleibt der Inhalt der Paintbox scheinbar erhalten.
  
  Weil vermutlich auf das darunterliegende Panel1 gemalt wurde, und dieses erhalten bleibt.
  
  Beim Speichern war aber TabSheet2 aktiv und es...
• Forum: Object-Pascal / Delphi-Language

  AW: Nicht sichtbaren TPaintBox Inhalt speichern

   
    by cramer, 11. Feb 2015
  @ Sir Rufo.
  Danke für die Hinweise...:thumb:
  
  Nur bei den entsprechenden Anwendungen(ca 100000 Zeilen PAS-Code ohne Komponenten, Kommentar- und Leer-Zeilen), die seit 14 Jahren stetig wachsen und an Funktionsumfang zunehmen, bedeutet eine Änderung der bisherigen Fehlerlog und Meldungsstruktur ein Redesign, welches ich mir zeitlich nicht leisten kann und möchte.:oops:
  
  Mir graust es schon...
• Forum: Object-Pascal / Delphi-Language

  AW: Nicht sichtbaren TPaintBox Inhalt speichern

   
    by cramer, 10. Feb 2015
  :thumb: Danke für die Zusatzinfos.
• Forum: Object-Pascal / Delphi-Language

  AW: Nicht sichtbaren TPaintBox Inhalt speichern

   
    by cramer, 10. Feb 2015
  Vielen Dank ihr Beiden. :thumb: :thumb:
  
  
  :roll: Gute Frage
  Jetzt funktionieren beide Versionen, die "Glücklich Machende" und die "BTW" auch.
  
  Zur Frage "Und was soll dir dieses Exception-Handling bringen?"
  
  "FileDirOK()" prüft den Pfad und legt ihn ggf an.
  Wenn das schon nicht geht, liefert QRCodeSave "false" zurück und die übergeordneten Abläufe werten das aus.
• Forum: Object-Pascal / Delphi-Language

  AW: Nicht sichtbaren TPaintBox Inhalt speichern

   
    by cramer, 10. Feb 2015
  :roll:
  Das kommt wohl davon, wenn man um Grafiken immer einen großen Bogen gemacht hat.:oops:
  
  Ich habs auf ein Timage umgestellt, dieses wird auch richtig gezeichnet nur klappt es wieder mit dem Speichern nicht, AV in:
  
  function QRCodeSave( aFileName : string; aImage : Timage ) : boolean;
  var xBitmap : Graphics.TBitmap;
  Begin
  result := false;
  if fileDirOk( aFileName ) then begin
• Forum: Object-Pascal / Delphi-Language

  Nicht sichtbaren TPaintBox Inhalt speichern

   
    by cramer, 10. Feb 2015
  Ich baue mir eine QR-Code-Grafik in einer PaintBox MyPaintBox zusammen.
  Diese Paintbox liegt auf einem TabSheet, welches der Benutzer nicht sieht.
  Das klappt alles, bis auf das Speichern.
  
  // MyPaintBox speichern ...
  if not QRCodeSave( 'c:\temp\test.bmp', MyPaintBox ) then
  // ..
  
  function QRCodeSave( aFileName : string; aPaintBox : TPaintBox ) : boolean;
  var xBitmap :...