Hallo Leute,
ich habe mit dem Drucksystem der Topdown-Lib einen Ausdruck realisiert. Funktioniert auch.
Mit dem Befehl:
prImage(nRow,nCol,cPathname,nRowHt,nColWd,[nColWdPt],;
[nXadj],[nYadj],[aSourceRect],[nRasterOp],[nCompress])
kann man ein Bild drucken, das als Datei vorliegt.
Ich möchte nun im Seitenkopf ein Logo unterbringen, dieses aber nicht als Grafikdatei im Verzeichnis ablegen, sondern als Ressource in die EXE-Datei einbinden, so dass ich mit der entsprechenden Ziffer darauf zugreifen kann.
Gibt's einen Weg dies zwischen 'StartDoc()' und 'EndDoc()' zu drucken?
Danke für jede Hilfe.
Gruß
Christof
Topdown-Lib Ressource drucken?
Moderator: Moderatoren
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Topdown-Lib Ressource drucken?
hi,
in C:\TOPDOWN\appfram\tdcPrn2.prg
TopDown werden aber die BMP, GIF, JPG und PNG über :LoadFile geladen,
welches als 3st. Parameter ( cPathname ) das File enthält.
Du müsstes also den Source von C:\TOPDOWN\appfram\tdcPrn2.prg modifizieren (Backup !) damit er die als Resource lädt.
Das ist das Printdemo No.2 als Formular sehen kannst. Von dort wird
ja auch die rImage() METHOD aufgerufen
gruss by OHR
Jimmy
Ich habe nur die älter Version, welche hast du ?Christof hat geschrieben: ich habe mit dem Drucksystem der Topdown-Lib einen Ausdruck realisiert. Funktioniert auch.
Du meinst die METHOD tdcPrn2:prImage()Christof hat geschrieben: Mit dem Befehl:
prImage(nRow,nCol,cPathname,nRowHt,nColWd,[nColWdPt],;
[nXadj],[nYadj],[aSourceRect],[nRasterOp],[nCompress])
kann man ein Bild drucken, das als Datei vorliegt.
in C:\TOPDOWN\appfram\tdcPrn2.prg
dafür wäre die METHOD :Load zuständig. In meiner älteren Version vonChristof hat geschrieben: Ich möchte nun im Seitenkopf ein Logo unterbringen, dieses aber nicht als Grafikdatei im Verzeichnis ablegen, sondern als Ressource in die EXE-Datei einbinden, so dass ich mit der entsprechenden Ziffer darauf zugreifen kann.
TopDown werden aber die BMP, GIF, JPG und PNG über :LoadFile geladen,
welches als 3st. Parameter ( cPathname ) das File enthält.
Du müsstes also den Source von C:\TOPDOWN\appfram\tdcPrn2.prg modifizieren (Backup !) damit er die als Resource lädt.
klar, dazu musst du dir C:\TOPDOWN\appfram\tdcPrv2.prg ansehen.Christof hat geschrieben: Gibt's einen Weg dies zwischen 'StartDoc()' und 'EndDoc()' zu drucken?
Das ist das Printdemo No.2 als Formular sehen kannst. Von dort wird
ja auch die rImage() METHOD aufgerufen
gruss by OHR
Jimmy
- Rolf Ramacher
- Der Entwickler von "Deep Thought"
- Beiträge: 1931
- Registriert: Do, 09. Nov 2006 10:33
- Wohnort: Bergheim
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Hallo Christoph,
druckt du direktauf einen Standarddrucker oder kann der Drucker ausgewählt werden. ?
Dieses Thema hatte ich auch schon einmal vor ein paar Jahren. Wir hatten dann folgende Lösung.
Es gibt ein Programm namens FinePrint. Dieser installiert sich als Drucker-treiber. Hier kannst du dann auch Grafiken als Logo mit einbinden und noch dirverse andere Dinge.
Von da aus kannst du auf jeden anderen Drucker drucken.
Vielleicht wäre das ja etwas. Dann brauchst du nichts zu programmieren.
druckt du direktauf einen Standarddrucker oder kann der Drucker ausgewählt werden. ?
Dieses Thema hatte ich auch schon einmal vor ein paar Jahren. Wir hatten dann folgende Lösung.
Es gibt ein Programm namens FinePrint. Dieser installiert sich als Drucker-treiber. Hier kannst du dann auch Grafiken als Logo mit einbinden und noch dirverse andere Dinge.
Von da aus kannst du auf jeden anderen Drucker drucken.
Vielleicht wäre das ja etwas. Dann brauchst du nichts zu programmieren.
- Christof
- Rekursionen-Architekt
- Beiträge: 265
- Registriert: Mo, 01. Okt 2007 17:14
- Wohnort: Bedburg
- Hat sich bedankt: 1 Mal
- Danksagung erhalten: 1 Mal
Hallo Jimmy,
Dein Hinweis war klasse. Ich habe in der 'tdcPrn3.prg' (ist wohl die neuere Version) einfach noch folgendes eingefügt:
...
******* what kind of file?
IF valtype(cPathname)="N"
::oImg := xbpBitmap():new():create(::oPS)
lRetval := ::oImg:load(,cPathname)
IF lRetval
******* draw the image
::oImg:draw(::oPS,{aLL[1],aLL[2],aUR[1],aUR[2]},;
aSourceRect,nRasterOp,nCompress)
::oImg:destroy()
::oImg := nil
ENDIF
ELSE IF upper(right(cPathname,3)) $ 'BMP GIF JPG PNG'
...
Jetzt kann ich als 'cPathname' auch einfach eine Ressourcennummer angeben und diese drucken lassen.
Danke und Gruß
Christof
Dein Hinweis war klasse. Ich habe in der 'tdcPrn3.prg' (ist wohl die neuere Version) einfach noch folgendes eingefügt:
...
******* what kind of file?
IF valtype(cPathname)="N"
::oImg := xbpBitmap():new():create(::oPS)
lRetval := ::oImg:load(,cPathname)
IF lRetval
******* draw the image
::oImg:draw(::oPS,{aLL[1],aLL[2],aUR[1],aUR[2]},;
aSourceRect,nRasterOp,nCompress)
::oImg:destroy()
::oImg := nil
ENDIF
ELSE IF upper(right(cPathname,3)) $ 'BMP GIF JPG PNG'
...
Jetzt kann ich als 'cPathname' auch einfach eine Ressourcennummer angeben und diese drucken lassen.
Danke und Gruß
Christof