Nicht sichtbaren TPaintBox Inhalt speichern

[cramer]

Zitat von himitsu:

Grund: TPaintBox und TLabel (PS: das "echte" Windows-Label ist TStaticText) haben keine eigene Zeichenfläche, sondern verwenden die Ausgabe/Canvas des Parents.
Es wird direkt somit direkt in die Ausgabe/Ansicht gemalt, aber da dieses nirgenwo zwischengespeichert ist, kann man es nicht "sicher" wieder auslesen.

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 wurde die Region der Paintbox mit den Inhalten des TabSheet2 gespeichert.

Ich habe den Vorschlag aufgenommen und es wird alles in den Bitmap gehandelt und fürs Anzeigen gibts ne Show.

Code:

function  QRCodeShowImage( aImage : Timage; aSize : integer ) : boolean;
var scale : double;
begin
   result := false;
   try
      if ( ( QRCodeBitmap.Width > 0 ) and ( QRCodeBitmap.Height > 0 ) ) then begin
         aImage.Width  := aSize;
         aImage.Height := aSize;
         Scale := aImage.Height / QRCodeBitmap.Height;
         aImage.Canvas.StretchDraw( Rect( 0, 0, Trunc( Scale * QRCodeBitmap.Width  ),
                                                Trunc( Scale * QRCodeBitmap.Height ) ),
                                                QRCodeBitmap );
         result := true;
      end;
   except
      on e:exception do begin
         FehlerOk( 'QRCodeShow Fehler : ' + e.Message );
      end;
   end;
end;

function  QRCodeSave( aFileName : string;  aSize : integer ) : boolean;
var xBitmap : Graphics.TBitmap;
    scale : double;
Begin
   result := false;
   if fileDirOk( aFileName ) then begin
      try
         xBitmap := Graphics.TBitmap.Create;
         try
            if ( ( QRCodeBitmap.Width > 0 ) and ( QRCodeBitmap.Height > 0 ) ) then begin
               xBitmap.Width  := aSize;
               xBitmap.Height := aSize;
               Scale := xBitmap.Height / QRCodeBitmap.Height;
               xBitmap.Canvas.StretchDraw( Rect( 0, 0, Trunc( Scale * QRCodeBitmap.Width  ),
                                                       Trunc( Scale * QRCodeBitmap.Height ) ),
                                                       QRCodeBitmap );
               xBitmap.SaveToFile( aFileName );
               result := true;
            end;
         except
            on e:exception do begin
               FehlerOk( 'QR-Code Fehler : ' + e.Message );
            end;
         end;
      finally
         xBitmap.Free;
      end;
   end;
end;