AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Panel zu Bitmap konvertieren funktioniert nur im sichtbaren Bereich

Panel zu Bitmap konvertieren funktioniert nur im sichtbaren Bereich

Ein Thema von DelphiDude · begonnen am 1. Jun 2020 · letzter Beitrag vom 1. Jun 2020
Antwort Antwort
DelphiDude

Registriert seit: 13. Feb 2020
10 Beiträge
 
#1

Panel zu Bitmap konvertieren funktioniert nur im sichtbaren Bereich

  Alt 1. Jun 2020, 14:41
Ich hab ein Panel in einer Scrollbox, das Panel wächst und schrumpft zur Laufzeit.
Ich möchte das Panel als Bild ausdrucken können also dachte ich mir, ich packs erstmal in eine TBitnmap.

Code:
function TForm1.PanelToBmp(Panel:TPanel):TBitmap;
var
  bmp:TBitmap;
  DC:HDC;
begin
  bmp:=TBitmap.Create();
  bmp.Width:=Panel.Width;
  bmp.Height:=Panel.Height;
  DC:=GetDc(Panel.Handle);
  BitBlt(bmp.canvas.handle,0,0,Panel.Width,Panel.Height,DC,0,0,SRCCOPY);
  ReleaseDC(Panel.handle,DC);
  result:=bmp;
end;

procedure TForm1.ButtonDruckenClick(Sender: TObject);
var
  PBM:TBitmap;
begin
  PBM:=PanelToBmp(Panel1);
  try
    Image1.Width:=Panel1.Width;
    Image1.Height:=Panel1.Height;
    Image1.Picture.Bitmap.Assign(PBM);

  finally
    FreeAndNil(PBM);
  end;
end;

Das funktioniert gut solange das Panel noch auf den Bildschirm passt.
Wächst das Panel jetzt auf 3000px * 3000px an und man müsste scrollen um das Ende zu sehen, dann wird das Bitmap zwar in
der passenden Größe erstellt, aber man bekommt nur den Bildschirmbereich reinkopiert (also auch die Komponenten um das Panel herum), alles was über
den Bildschirm hinausgeht wird weiß dargestellt.

Weiß jemand was ich machen kann damit das ganze Panel kopiert wird?
Muss ich Schritt für Schritt das Panel Scrollen und die Bitmaps zusammenflicken?

Canvas.CopyRect hab ich auch versucht, liefert dasselbe Ergebnis.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
36.149 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Panel zu Bitmap konvertieren funktioniert nur im sichtbaren Bereich

  Alt 1. Jun 2020, 16:08
Tja, das ist halt so, es wird alles (Windows und ihr DC) auf die Größe des Desktops begrenzt, was sich irgendwie auf dem Desktop befindet.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
DelphiDude

Registriert seit: 13. Feb 2020
10 Beiträge
 
#3

AW: Panel zu Bitmap konvertieren funktioniert nur im sichtbaren Bereich

  Alt 1. Jun 2020, 16:23
Die Panel.PaintTo(Canvas,X,Y) Methode ist das was ich gebraucht habe.
Den Ziel-Canvas sollte man vorher in Höhe und Breite anpassen und danach Canvas.Lock() aufrufen.
nach der PaintTo()-Methode, wieder Canvas.Unlock()

Geändert von DelphiDude ( 1. Jun 2020 um 16:28 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf