-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Und hier aus dem lazarusforum.de der entscheidene Hinweis:
Da wäre ich nie drauf gekommen.
Danke, allen die mir bei der Lösung geholfen haben.
Heiko
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
N'abend,
Tja, bei mir ist das irgendwie nie Binär :(
Ist aber so. Erst der Aufruf der Druck-Procedure sorgt für einen Absturz.
Eigentlich nicht, außer bei mir.
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
N'abend,
Nein.
Ja.
Ja.
Deine Quellcode-Hinweise (der Code stammt ja nicht von mir und läuft ungeändert bei anderen)
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
Um das Problem in den Griff zu bekommen habe ich nur die Druckroutine, ein StringGrid und einen Button in ein neues Projekt gepackt.
Der Code steht in Beitrag 25:
http://www.delphipraxis.net/1290424-post25.html
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Nein, wenn ich auf den Button klicke der den Ausdruck starten soll.
Ich kann die Anwendung starten und Daten ins Grid eintragen, aber wehe ich starte den Ausdruck.
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Projekt project1 hat Exception-Klasse >>External: SIGSEGV<< ausgelöst. Bei Adresse 403B70
Im Assembler wird :
00403B70 833800 cmpl $0x0,(%eax)
00403B73 7501 jne 0x403b76 <fpc_ansistr_decr_ref+6>
Angezeigt.
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Kann es sein das ich für die Lazarus-Nutzung unter Windows irgendwelche Einstellungen Global oder in den Projekteinstellungen machen muß die jetzt zu den Problemen führen?
In meienm PC sind 32GB Ram verbaut, könnte das dass Problem sein?
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
War ja nur ein Gedanke.
Ich habe Lazarus jetzt komplett platt gemacht und neu installiert - Ergebis: keine Änderung. :cry:
Gruß Heiko
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Die aus #25??
Steht da doch drin. Zwischen Grid und Windows.
Wäre es eigentlich zulässig und machbar die Uses direkt in die Units zu packen in den sie gebraucht werden? Wenn ja, würden die Uses in der Procedure die anderen Uses ersetzen oder ergänzen?
Gruß Heiko
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Ich glaube mein Lazarus hat einen Schuß
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Also, ich bin jetzt mal Deinen Weg hiermit gegangen:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Y2 := 450;
In welchem Kontext? Mal eben Ein Grid platziert und das ausgedruckt?
Gruß heiko
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Irgendwie scheinen die Druck und die Suchfunktionen nicht sauber zu sein, so das man sie nicht einfach einbinden kann.
@ DeddyH: Jetzt bekomme ich keine Syntax-fehler aber wieder den "SIGSEGV"
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
Habe ich gemacht. Jetzt hängt es wieder beim Drucken:
TR := Rect(X1,
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
Procedure FindFiles (aPath, aFindMask: String; aWithSub: Boolean; aResult: tStrings);
Var
FindRecord: tSearchRec;
tempstr: String;
Begin
//
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
Dann meint Lazarus
Und zwar hier : FindClose (FindRecord);
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
Ähh, Nein. Wenn ich die einbinde, dann knallt es in der Suchroutine. :evil:
Gruß Heiko
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
Ja.
und springt in Printers an diese Stelle:
//Raise error if Printer.Printing is not Value
procedure TPrinter.CheckPrinting(Value: Boolean);
begin
if Printing<>Value then
begin
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
So, jetzt habe ich den anderen Code eingebunden und bei dem kennt Lazarus
GetDeviceCaps nicht.
//Druck auf mm einstellen
mmx := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALWIDTH) /
GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX) * 25.4;
mmy := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALHEIGHT) /
GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY) * 25.4;
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
procedure PrintGrid(sGrid: TStringGrid; sTitle: string);
var
X1, X2: Integer;
Y1, Y2: Integer;
TmpI: Integer;
F: Integer;
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Hallo DeddyH,
Den Inhalt des Grids mit waagerechten und senkrechten Linien.
Das Grid kann aber Höher und Breiter als der Bildschirm werden.
-
Forum: Programmieren allgemein
FreePascal
by Kralle,
18. Feb 2015
Moin,
jetzt suche ich schon seit 2 Tage nach einer funktionierenden Funktion um aus Lazarus heraus ein Stringgrid auszudrucken.
Ich schätze 99% der Treffer haben den Quellcode untereinander kopiert oder verlinkt.
Gefunden habe ich:
http://www.swissdelphicenter.ch/de/showcode.php?id=1577
http://www.delphitricks.com/source-code/printing/print_a_tstringgrid.html