Autor Beitrag
dTrace
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 31


Delphi 5 Enterprise
BeitragVerfasst: Sa 21.06.03 23:16 
Hi :D
habe ein kleines Problem und zwar: Ich will den Inhalt eines Formulars drucken z.B. Form1 . In diesem Formular befindet sich ein Bild (BMP) und dieses Bild ist wesentlich größer als das Formular. Dank der Scrollbar von dem Formular kann ich das Bild komplett betrachten.

Nun zu meiner Frage: Wie kann ich den kompletten Formularinhalt drucken :?:
Andreas Pfau
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 997



BeitragVerfasst: So 22.06.03 14:30 
Hallo,

mit TForm.Print(). Aber dann ist dein BMP nicht ganz drauf. Entscheide dich: Entweder das Form SO WIE ANGEZEIT drucken, oder das Form so vergrößern, dass das Bitmap voll dargestellt wird. Anders ist nix.

_________________
Life is a bad adventure, but the graphic is really good!
dTrace Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 31


Delphi 5 Enterprise
BeitragVerfasst: So 22.06.03 19:39 
Titel: Formular drucken
Doch, es gibt z.B. eine Komponente die den kompletten Inhalt eines Formulars ausdruckt...diese Komponente kostet allerding 199 $ .

:think: naja...ich werde schon noch dahinter kommen!!!

dTrace
Andreas Pfau
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 997



BeitragVerfasst: So 22.06.03 19:50 
Hallo,

jetzt muss ich nachhaken: Du hast ein Form, auf dem ist ein Bitmap nur teiliwese zu sehen, weil es in 'ner ScrollBox steckt. Und DENNOCH willst du es KOMPLETT ausdrucken? Wie soll das gehen? Wie?

Du kannst:
- Das Bitmap verkleinern, z.B. in einem TImage mit "Stretch" und "Proporional" oder
- Das Form soweit vergrößern, dass das Bitmap komplett dargestellt wird

Oder reden wir aneinander vorbei? Dein Text hört sich schon ziemlich utopisch an, so wie ich das verstehe. :nixweiss:

_________________
Life is a bad adventure, but the graphic is really good!
dTrace Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 31


Delphi 5 Enterprise
BeitragVerfasst: So 22.06.03 19:54 
Titel: Formular drucken
Also wir reden nicht aneinander vorbei...

es geht nur darum, den kompletten Inhalt eines Formulars auszudrucken (auch der Bereich nach der Scrollbar)...

hier ist der Name der Komponente (zufinden bei Torry.net) : TExcellentForm Printer v.3.2

:?
Tweafis
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 647

WinXP + fbsd
Delphi 5 Prof
BeitragVerfasst: So 22.06.03 19:56 
capture halt den Inhalt, scroll weiter, capture und anhängen und so weiter.

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.
dTrace Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 31


Delphi 5 Enterprise
BeitragVerfasst: So 22.06.03 19:59 
Titel: Inhalt drucken
Tweafis hat folgendes geschrieben:
capture halt den Inhalt, scroll weiter, capture und anhängen und so weiter.


hmm...daran habe ich schon gedacht, ich denke es führt auch leider kein weg dran vorbei...ist nur ziemlich aufwendig....

dTrace :wink:
Tweafis
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 647

WinXP + fbsd
Delphi 5 Prof
BeitragVerfasst: So 22.06.03 20:00 
Scheint wohl die einzige Möglichkeit zu sein... ;)

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.
Andreas Pfau
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 997



BeitragVerfasst: So 22.06.03 20:34 
Hallo,

ich scheine nicht ganz bei der Sache zu sein... wie soll das gehen? Erklärs' mir, das kann doch gar nicht gehen, du willst also was ausdrucken, was man auf dem Bildschirm NICHT sieht? Hä? Ich gebe dir 2 Wege vor:
- Den Inhalt der Scrollbox VERKLEINERN
- Das Form mit der gesamen Scrollbox VERGRÖßERN

Dazu setzt man halt TForm.Width und TForm.Height auf entsprechende Werte, kopiert das TForm.Canvas in ein Bitmap, am besten mi TBitmap.Canvas.StretchDraw, um es auf die Druckerauflösung anzupassen, Bingo!

Ist es das, was du willst? Ehrlich, ich steh' im Wald, ich kapier' net...

_________________
Life is a bad adventure, but the graphic is really good!
dTrace Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 31


Delphi 5 Enterprise
BeitragVerfasst: Mo 23.06.03 18:39 
Hi :wink:

also man sieht den Inhalt wenn man weiter runter scrollt...stell dir das so vor wie bei einem Text in Microsoft Word. Wenn du eine ganze Seite geschrieben hast, dann musst du auch hin und her scrollen und trotzdem kann man die Seite ausdrucken...


dTrace :D

_________________
Wenn du aufsteigen willst, dann solltest du es mit dem Wind tun.
Andreas Pfau
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 997



BeitragVerfasst: Mo 23.06.03 19:36 
Hallo,

klick' doch auf "Edit" und vervollständige den Quote-Tag, oder liegt das an mienem Browser? Ansonsten, jetzt ist mir das klar. Aber ich versteh' das immer noch net so ganz, dann wilst du also nicht das Form, sondern nur den Inhalt der Scrollbox drucken, oder was?

_________________
Life is a bad adventure, but the graphic is really good!
dTrace Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 31


Delphi 5 Enterprise
BeitragVerfasst: Mo 23.06.03 20:58 
HI :wink:
genau, ich will nicht das Formular sondern nur den Inhalt der Scrollbox drucken, wo sich z.B. ein Bild und einige Eingabefelder befinden!

Gruss: dTrace

_________________
Wenn du aufsteigen willst, dann solltest du es mit dem Wind tun.
Andreas Pfau
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 997



BeitragVerfasst: Mo 23.06.03 21:05 
Hallo,

ach so.... Naja, kopiere das Bitmap in ein TBitmapObjekt, drucke es. Fertig.

_________________
Life is a bad adventure, but the graphic is really good!
dTrace Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 31


Delphi 5 Enterprise
BeitragVerfasst: Mo 23.06.03 21:19 
Genau da ist ja das Problem, das Bitmap dient praktisch als Hintergrund und auf dem Bitmap befinden sich Eingabefelder...

dTrace

_________________
Wenn du aufsteigen willst, dann solltest du es mit dem Wind tun.