Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by tom_po,
6. Feb 2006
habe jetzt das Bild aus der Datenbank auf die Hälfte "zusammengestaucht" und dann ein einigermassen passables Ergebnis bekommen.
Jedoch für den Anwender gefällt mir die Lösung noch nicht...
kann man das im tnpdf nirgendwo beeinflussen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by tom_po,
6. Feb 2006
Hab's jetzt mal noch mit den anderen 2 Print-Procedures probiert. Funktioniert immer jetzt der Ausdruck, aber bei allen 3 Formen ist das Bild in die Länge verzerrt!
begin
img := TImage.Create(nil);
try
Img.Picture.Bitmap.Assign(DBImage1.Picture.Bitmap);
printpdf1.ImageOut(100,1100,Img);
//printpdf1.ImageOut(100,1100,TImage(Img));
//printpdf1.draw(100,1050, img);
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by tom_po,
6. Feb 2006
hier das Originalbild, ein ScreenPrint von meiner Delphi-application
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by tom_po,
6. Feb 2006
mensch marabu, es klappt!!!!!!!!!!!!!bin happy, konnte zum ersten Mal das Bild darstellen.....
VIIIIIIIIIIEEEEEEEEEEEEELEN DAAAAAAAAAAAAAAAAAAANK !!!!!!!!!!!
nur noch ein Problem, es ist nach oben und unten in die Länge gezerrt....schau mal
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by tom_po,
6. Feb 2006
Hahahah, wollen wir doch hoffen, dass du dich noch lange auf deinem Stuhl hälst....
anbei die gezippte Komponente inkl. eines Beispiels...mir gefällt die Komponente. Sie hat auch bisher bestens geklappt, habe Text, Memobox, Barcode schon erfoglreich gedruckt, auch schon ein Bild, aber ein TImage mit der Eigenschaft Bitmap, noch kein TDBImage!
Schicke ein Screenprint vom TImage Code im...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by tom_po,
6. Feb 2006
Malibu, zunächst herzlichen Dank, dass Du auf mein Problem antwortest, bin sehr froh darüber, da ich noch Anfänger bin...
Habe Deinen Code mal probiert, leicht geändert (image>>img und dbimage in dbimage1):
procedure Takn.Button3Click(Sender: TObject);
var img: Timage;
begin
img := TImage.Create(nil);
try
Img.Picture.Bitmap.Assign(DBImage1.Picture.Bitmap);