-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
12. Nov 2007
An dieser Stelle nochmal vielen Dank für deine Hilfe und die Geduld die du mit dir gebracht hast ;)
Also ich habe jetzt eine andere Lösung gefunden und zwar ein paar recht simple Rechnungen, hier mal meine Lösung falls es jemanden Interessiert bzw. mal jemand das gleiche Problem haben sollte:
Printer.Canvas.StretchDraw(Rect( 100, (PageHeight div 4)*(3 div 2), PageWidth - 100, (PageHeight...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
8. Nov 2007
Hmm ja, soweit war ich auch aber wenn ich bei google oder in verschiedenen Tutorials suche finde ich keine wirklich hilfreiche Antwort.
Nur wie kann ich jetzt die vom Formular erstellte Bitmap da anpassen, ich hab gedacht das geht mit
Bitmap.Height := Bitmap.Height * 7;
Bitmap.Width := Bitmap.Width * 8;
Da ja hier die größe des von mir erstellten Bitmaps verändert wird oder?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
7. Nov 2007
Hallo mal wieder :-D
nachdem ich mich mit StretchDraw mm für mm vorgetastet hatte und trotzdem keinen Schritt näher an mein Ziel gekommen bin das der Ausdruck auf dem Papier Zentriert ist versuche ich nun die Bitmap vorher zu vergrößern und dann mit Draw den Ausdruck zu Zentrieren, dies hat aber nur halbwegs geklappt denn der Ausdruck ist jetzt zwar Zentriert und die Druckfläche an sich...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
6. Nov 2007
Ah ok...das erklärt natürlich einiges :/
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
5. Nov 2007
Danke, sorry das ich jetzt erst zurückschreibe, hatte keinen PC übers Wochenende.
Ich habe deinen mal nach den Befehlen gegoogelt und bin auf folgendes (als einzig sinnvolles) Ergebnis gekommen:
Printer.Canvas.StretchDraw(Rect((Printer.PageWidth - Bitmap.Width) div 2, (Printer.PageHeight - Bitmap.Height) div 2, Bitmap.Width*10, Bitmap.Height*8), Bitmap);
Also, WENN ich das jetz...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
2. Nov 2007
War ich also doch auf dem falschen Weg...hab die Eingaben miteinander Vertauscht :oops:
Nun eine letzte Frage habe ich doch noch zu dem Thema, und zwar wie weit die X und Y Achsen bei Canvas gehen...genauer gesagt will ich damit versuchen das Bild auf dem Ausdruck zu Zentrieren o. gibts da vielleicht sogar eine direkte Anweisung?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
2. Nov 2007
Danke, damit kann ich was anfangen ;)
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
2. Nov 2007
Ah, jetzt versteh ich die Anweisung erst richtig ~~
Also steckt in Canvas.StretchDraw, Canvas.Draw gleich mit drinne (wenn ich das richtig interpretiert habe müssten dann die letzten beiden Felder zwischen den Kommas sein welche dann die Position des Objektes auf dem Papier bestimmen, oder etwa doch nicht?)
Die Felder zwischen den ersten beiden Kommas müssten die größe des Objektes auf dem...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
2. Nov 2007
Jetzt habe ich es umgestellt, es geht aber immernoch nicht...
procedure TForm1.Drucken1Click(Sender: TObject);
begin
if PrintDialog1.execute
then
Bitmap := GetFormImage;
try
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
2. Nov 2007
Oh...hab gedacht das muss in den try Abschnitt :?
Kannst du vielleicht auch noch kurz schreiben wieso das da unten rein muss? Wäre echt nett, ich komm da nämlich gerade nicht dahinter warum es unten rein muss :shock:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
2. Nov 2007
Hallo mal wieder und guten Morgen,
ich bin jetzt soweit das ich Self.Canvas.StretchDraw in meinen Quelltext Integriert habe, allerdings bewirkt es nichst :/
Ich weiß nicht was ich falsch mache, vielleicht gebe ich die Werte in der Anweisung falsch ein oder habe die Anweisung an einer Komplett falschen Stelle Geschrieben, vielleicht fehlt auch einfach nur eine weitere Anweisung die ich...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
1. Nov 2007
Danke da muss ich mich erstmal durchackern, danke für das Beispiel ich werd später bestimmt noch ein paar fragen dazu haben ;)
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
1. Nov 2007
Nein meine Form ist 375x518 Pixel groß aber er druckt sie aus welchem Grund auch immer so winzig aus :cry:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
1. Nov 2007
Hmm erstmal danke für deine Antwort aber bei der Procedure in dem Link wird nur direkt in das Bild reingezoomt, ich suche etwas damit ich das Bild, welches ausgedruckt wird, größer machen kann weil z.Z. ist dies nur ca 32x32 Pixel groß :/
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
1. Nov 2007
Hat geklappt danke erstmal ;)
Aber ein winzig kleines Problem ist noch vorhanden und zwar ist das Bild auf dem papier wirklich sehr klein, wie kann ich denn die Größe des Ausdruckes Einstellen?
Hab da zwar schon eine Vermutung aber ich weiß nicht wie die Eingabe dann aussehen muss :(
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
1. Nov 2007
Danke werd gleich mal loslegen :)
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Borschti,
1. Nov 2007
Hallo erstmal,
also wie der Threadname, sagt versuche ich (schon seit längerem) mein Komplettes Delphi Formular auszudrucken, allerdings vergebens.
Beim stöbern in Google ist mir ein schon etwas älterer Thread aufgefallen in dem jemand ein Problem mit dem ausdrucken einer RichEdit Komponente hat.
Hier mal der Link: http://www.delphipraxis.net/internal_redirect.php?t=7312
Ich habe also...