AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Memo text ausdrucken

Ein Thema von Finki · begonnen am 2. Jul 2013 · letzter Beitrag vom 4. Jul 2013
Antwort Antwort
Seite 1 von 5  1 23     Letzte » 
Finki

Registriert seit: 2. Jul 2013
120 Beiträge
 
FreePascal / Lazarus
 
#1

Memo text ausdrucken

  Alt 2. Jul 2013, 16:05
Hey,

ich schreib grad eine art texteditor, eigentlich eine Memo componente und ein paar buttons.

Auf jedenfall will ich jetzt den Text in der Memo ausdrucken.

Dann kommt immer ein Fehler und eine verlinkung auf

printers.pas

Code:
//Raise error if Printer.Printing is not Value
procedure TPrinter.CheckPrinting(Value: Boolean);
begin
  if Printing<>Value then
  begin
    if Value then
      raise EPrinter.Create('Printer is not printing')
    else
      raise Eprinter.Create('Printer is printing');
  end;
end;
ich habs auch mal ganz simple gemacht und aus dem Lazarusforum den example code rauskopiert.

http://wiki.lazarus.freepascal.org/Using_the_printer

Code:
procedure TForm1.PrintBtnClick(Sender: TObject);
const
  LEFTMARGIN = 100;
  HEADLINE = 'I Printed My Very First Text On ';
var
  YPos, LineHeight, VerticalMargin: Integer;
  SuccessString: String;
begin
  with Printer do
  try
    BeginDoc;
    Canvas.Font.Name := 'Courier New';
    Canvas.Font.Size := 10;
    Canvas.Font.Color := clBlack;
    LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I')));
    VerticalMargin := 4 * LineHeight;
    // There we go
    YPos := VerticalMargin;
    SuccessString := HEADLINE + DateTimeToStr(Now);  
    Canvas.TextOut(LEFTMARGIN, YPos, SuccessString);
  finally
    EndDoc;
  end;
end;
gleicher Fehler!!!

kann mir einer sagen warum?

im vorraus vielen dank für die antwort (hoffentlich);D

lg

Finki
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 16:14
Dann kommt immer ein Fehler und eine verlinkung auf

printers.pas

...gleicher Fehler!!!
Sicherlich verrätst du uns auch noch welcher Fehler das ist und an welcher Stelle genau der auftritt.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Finki

Registriert seit: 2. Jul 2013
120 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 16:28
Sicher.

Da kommt einfach eine Meldung das ein Fehler in printers.pas in Zeile 504 aufgetreten ist.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#4

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 16:30
Und lautet der Fehler
Zitat:
Printer is printing
oder
Zitat:
Printer is not printing
? Eins von beiden kann es ja eigentlich nur sein.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 16:34
OK, mutmaßen wir mal weiter. Du kannst dein Projekt erst gar nicht kompilieren, weil ein Fehler in der Printers.pas in Zeile 504 auftritt, von dem Du uns nun sicher auch noch die Compiler-Fehlermeldung mitteilen willst.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Finki

Registriert seit: 2. Jul 2013
120 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 16:38
Sry, also komplementieren geht Programm startet auch.

Aber wenn ich dann was drucken will kommt ein Dialog wo darauf hin gewissen wird das ein error in printers.pas in 504 aufgetreten ist mehr nicht.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#7

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 16:50
Tu Dir und uns mal einen Gefallen: wenn die Fehlermeldung kommt, drückst Du STRG+C, erstellst hier einen neuen Beitrag und drückst dort STRG+V. Damit sehen wir dann den ganz genauen Wortlaut.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Finki

Registriert seit: 2. Jul 2013
120 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 16:59
Ich kann nix aus der Fehler Meldung raus kopieren. Aber ich kann euch ein Bild (Screenshot) hochladen. Oder was is besser kann beides erst daheim machen (in 15min).
  Mit Zitat antworten Zitat
Finki

Registriert seit: 2. Jul 2013
120 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 17:28
Also hier ist die Meldung
Miniaturansicht angehängter Grafiken
printerror.jpg  
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#10

AW: Memo text ausdrucken

  Alt 2. Jul 2013, 17:40
Interessant, das sieht nach Speicherfehler aus. Die Printer-Instanz ist aber gültig, oder muss die in Lazarus von Hand instanziert werden?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  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 · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz