AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Combobox Text geht nicht ins grafische Clipboard!???

Combobox Text geht nicht ins grafische Clipboard!???

Ein Thema von iphi · begonnen am 17. Jun 2012 · letzter Beitrag vom 19. Jun 2012
Antwort Antwort
iphi

Registriert seit: 13. Feb 2009
175 Beiträge
 
Delphi 6 Personal
 
#1

Combobox Text geht nicht ins grafische Clipboard!???

  Alt 17. Jun 2012, 11:47
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:

ComboBox1.Style:=csDropdownList; scheint das Problem zu beheben.

Geändert von iphi (17. Jun 2012 um 12:13 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.015 Beiträge
 
Delphi XE2 Professional
 
#2

AW: Combobox Text geht nicht ins grafische Clipboard!???

  Alt 17. Jun 2012, 16:40
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;
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
iphi

Registriert seit: 13. Feb 2009
175 Beiträge
 
Delphi 6 Personal
 
#3

AW: Combobox Text geht nicht ins grafische Clipboard!???

  Alt 19. Jun 2012, 16:17
Cool, bis auf die fehlende Deklaration
BitmapRect: TRect; funktioniert Dein Code prima!
Danke!
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.015 Beiträge
 
Delphi XE2 Professional
 
#4

AW: Combobox Text geht nicht ins grafische Clipboard!???

  Alt 19. Jun 2012, 16:45
Cool, bis auf die fehlende Deklaration
BitmapRect: TRect; funktioniert Dein Code prima!
Danke!
Auf Grund von Sparmaßnahmen wurde es wegrationalisiert
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  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 · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2014 by Daniel R. Wolf