| Autor |
Beitrag |
schulle
Hält's aus hier
Beiträge: 10
|
Verfasst: Fr 09.05.03 15:46
Guten tag!
ich habe in einem Projekt mein bildschirm in 2 hälften geteilt! links ein memofeld und rechts ein panel auf dem ich grafiken erzeuge! nun möchte ich diese grafik ausdrucken-hab aber keine ahnung wie! die grafik ist keine tgrafik! ist ja auch egal-ich will sie einfach nur asu dem drucker haben! Kann mir da jemand helfen??
Danek im voraus
|
|
maxk
      
Beiträge: 1696
Erhaltene Danke: 1
Win XP, Debian Lenny
Delphi 6 Personal
|
Verfasst: Fr 09.05.03 15:56
Ich gebe zu, davon auch keine Ahnung zu haben! Versuchs mal mit Printer.Canvas...
maxk
_________________ Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.
|
|
schulle 
Hält's aus hier
Beiträge: 10
|
Verfasst: Fr 09.05.03 15:59
super-hat mir auch nicht allzu sehr geholfen aber trotzdem danke für mühe
|
|
Alibi
      
Beiträge: 458
Win2K SP3
Delphi 6 Ent
|
Verfasst: Fr 09.05.03 16:00
Yep, einfach den Canvas des Panels auf Printer.Canvas kopieren.
|
|
schulle 
Hält's aus hier
Beiträge: 10
|
Verfasst: Fr 09.05.03 16:05
schön schön-und wie funzt das???
|
|
Alibi
      
Beiträge: 458
Win2K SP3
Delphi 6 Ent
|
Verfasst: Fr 09.05.03 17:14
Du hast einen Canvas auf dem Panel und einen Canvas auf dem Printer Objekt, wo ist dein Problem?
|
|
schulle 
Hält's aus hier
Beiträge: 10
|
Verfasst: Fr 09.05.03 17:17
um ehrlich zu sein-wie sieht denn genau die textzeile aus??
Danke
|
|
Alibi
      
Beiträge: 458
Win2K SP3
Delphi 6 Ent
|
Verfasst: Fr 09.05.03 17:24
Hm, Gegenvorschlag: Du suchst dir ein paar Tutorials über Canvas, wirst du noch oft brauchen, jedenfalls so ziemlich jedesmal, wenn du etwas "ohne" Komponenten zeichnen willst (Canvas eine Komponente? Denke nicht, eher eine Kapselung der Windows Zeichenfunktionen.).
www.google.de/search...mp;meta=lr%3Dlang_de
|
|
schulle 
Hält's aus hier
Beiträge: 10
|
Verfasst: Fr 09.05.03 17:36
Soweit hab ich das ja-was mir fehlt ist noch wie ich nun wirklich drucke! haltet mich für dumm-aber es ist so! wäre nett wenn mir jemand helfen könnte! dafür bin ich schließlich hier!
procedure THauptForm.DruckenStgMClick(Sender: TObject);
begin
if PrintDialogQC.Execute then
Begin
Printer.BeginDoc;
Printer.EndDoc;
end;
end;
|
|
Alibi
      
Beiträge: 458
Win2K SP3
Delphi 6 Ent
|
Verfasst: Fr 09.05.03 17:40
Zwischen BeginDoc und EndDoc kannst du auf dem Canvas malen, wie du lustig bist. Vorher würd ich aber mit SetMapMode den Abbildungsmodus ändern:
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
Somit wäre 1 Pixel 1/10mm groß.
ACHTUNG: Y hat sich nun geändert, wird nach oben größer.
Also ist der Punkt 1cm/1cm von oben auf dem Blatt (10/-10). 
|
|
schulle 
Hält's aus hier
Beiträge: 10
|
Verfasst: Fr 09.05.03 17:45
ich verstehe dich nicht-oder du mich, etwas davon!
ich habe doch schon längst alles gemalt! ich habe das fertige bild auf nem panel und will es drucken! würd dir ja n pic schicken wie es aussieht damit du mal n plan hast was ich genau meine! aber geht ja hier nicht!
|
|
Alibi
      
Beiträge: 458
Win2K SP3
Delphi 6 Ent
|
Verfasst: Fr 09.05.03 17:55
Davon geh ich doch auch die ganze Zeit aus, sage die aber NICHT einen möglichen Lösungsweg, weil du dir das ganze selbst erarbeiten sollst.
Nächster *Hinweis*, mit dem du das mitsamt Delphihilfe (F1) ohne Probleme schaffen müsstest. Canvas.DrawRect.
|
|
maxk
      
Beiträge: 1696
Erhaltene Danke: 1
Win XP, Debian Lenny
Delphi 6 Personal
|
Verfasst: Sa 10.05.03 08:19
| Alibi hat folgendes geschrieben: | | ...weil du dir das ganze selbst erarbeiten sollst.... |
Du solltest erstmal etwas versuchen, bevor du sagst dass du es nicht kannst. Später kannst du immernoch Fragen, warum etwas nicht geht. Selbsterlerntes prägt sich einfach besser ein...
_________________ Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.
|
|