Combobox Text geht nicht ins grafische Clipboard!???

[iphi]

Hallo,

mein Programm soll sein eigenes Hauptfenster als Grafik ins Clipboard speichern.
Das ganze mache ich so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Clipbrd;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitMap;
begin
  try
    Bitmap:=GetFormImage;
    Clipboard.Assign(Bitmap);
  finally
    FreeAndNil(BitMap);
  end;
end;

end.

Das funktioniert im Prinzip auch, aber der Text, der in der Combobox gerade dargestellt wird, wird in der Grafik nicht dargestellt. Die Combobox in der Grafik ist einfach leer!???

Wie kann ich das reparieren?

Ich benutze Delphi7 Personal

Nachtrag:
Ich glaube ich habs:

Delphi-Quellcode:

ComboBox1.Style:=csDropdownList;

scheint das Problem zu beheben.

[Helmi]

Hallo,

ich wollte, aus Einfachheit, auch mal "GetFormImage" nutzen, aber das zeigte mir nicht alles an.
(das Problem war, dass ich Fenster ext. Programme in ein Panel eingebettet hab und mittels "GetFormImage" dies nicht erkannt wurde und somit im Bitmap die Panels leer waren).

Probier mal folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Bitmap  : TBitMap;
   i_Width : Integer;
   i_Height: Integer;

begin
  //Bitmap erzeugen
  Bitmap := TBitmap.Create;

  try
    //Höhe und Breite des Client-Bereiches ermitteln
    i_Width  := ClientWidth;     //oder Width;
    i_Height := ClientHeight;    //oder Height;

    //Rect des Clientbereiches definieren
    BitmapRect := Rect(0, 0, i_Width, i_Height);

    //Bitmap-Größe angeben
    Bitmap.Width  := i_Width;
    Bitmap.Height := i_Height;

    //Bild-Bereich in Bitmap kopieren
    Bitmap.Canvas.CopyRect(BitmapRect, Canvas, BitmapRect);

    Clipboard.Assign(Bitmap);
  finally
    FreeAndNil(BitMap);
  end;
end;

[iphi]

Cool, bis auf die fehlende Deklaration

Delphi-Quellcode:

BitmapRect: TRect;

funktioniert Dein Code prima!
Danke!

[Helmi]

Zitat:

Zitat von iphi (Beitrag 1171604)

Cool, bis auf die fehlende Deklaration

Delphi-Quellcode:

BitmapRect: TRect;

funktioniert Dein Code prima!
Danke!

Auf Grund von Sparmaßnahmen wurde es wegrationalisiert :-)