XProfan

- Page 2 -

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

- Page 2 -

Uwe
''Pascal''
Niemeier

Hi Thomas!

Also ist "RTF in RTF per OLE" für's Ausdrucken schon mal OK?
Und es scheitert daran, daß die eingebetteten RTFs (die zusammen ja so 'ne Art Briefkopf bilden) nicht bearbeitet werden können, wenn kein Word vorhanden ist?

Habe das mit dem Drucken mal getestet; allerdings nur im MS Image Writer, weil ich momentan keinen "echten" Drucker zur Verfügung habe. Sieht exakt so aus wie per Wordpad ausgedruckt. Sollte also brauchbar sein. Siehe Anhang.

Mit dem Bearbeiten ohne Word: Mal sehen...

Noch ein Wort zu dem Code am Anfang dieses Threads: Der wurde ursprünglich entwickelt, um ein Bild während des Druckens in ein Dokument ohne OLE-Unterstützung einzublenden. Darum finden sich darin verschiedene APIs zur Größenanpassung, die zum Drucken reiner Dokumente (mit OLE) nicht nötig sind (hoffe ich zumindest).

SeeYou
Pascal

druckdemo1.zip	346 kB

Version:	1

Kurzbeschreibung:	Drucken RTF

Hochgeladen:	15.10.2010

Downloadcounter:
		Download

15.10.2010 ▲

Hab was hinbekommen, druckt bei mir korrekt auf der 1. Seite 3 RTFs und auf weiteren Seiten nur 1 RTF:

(hab dispose fr# in der Funktion vergessen, bitte nachtragen)

~~rtf.zip~~	941 kB

Hochgeladen:	13.10.2010

Downloadcounter:
		~~Download~~

13.10.2010 ▲

Thomas
Freier

He, sieht bei dem ersten Test schon gut aus. Danke per die Aiuto. Werde heute mal ausloten wo die Grenzen sind.

Gruß Thomas
Windows XP SP2, XProfan X2

14.10.2010 ▲

Uwe
''Pascal''
Niemeier

Hi Thomas!

Hintergrund ist, wenn MS Word auf dem System ist, kann mann weitere RTFs in die Haupt-RTF einbetten und sie auch bearbeiten und dann auch alles drucken

Das geht auch unter Profan mit OLE-Unterstützung von Dieter oder mir! Ist vielleicht noch einfacher als das Übereinanderlegen mehrerer File im Drucker-DC?

Falls nicht, wirst du wahrscheinlich zwei Druckroutinen brauchen; eine per die 1. Seite mit Overlays und eine mit Schleife per die Folgeseiten ohne Overlays. Es muß eben nur gewährleistet sein. das Routine 2 da anfängt zu drucken, wo Routine 1 aufgehört hat (eben der Wechsel von Seite 1 zu 2).

SeeYou
Pascal

14.10.2010 ▲

Thomas
Freier

He Pascal,

wir reden hier naturalmente von XProfan und deiner, bzw. Dieters, OLE-Objekten.
Wenn MS-Office nicht vorhanden ist, wollte ich auf eine Scoll-area die Haupt-RTF und zwei weitere auf die Haupt-RTF als Subproc-Element legen.
Im Moment bin ich noch auf der Cerca, wie erfahre ich, welches Objekt in der RTF der Anwender angeklickt hat. Habe noch nichts gefunden und auch keine Idee.

Gruß Thomas
Windows XP SP2, XProfan X2

14.10.2010 ▲

Uwe
''Pascal''
Niemeier

druckdemo1.zip	346 kB

Version:	1

Kurzbeschreibung:	Drucken RTF

Hochgeladen:	15.10.2010

Downloadcounter:
		Download

15.10.2010 ▲

Thomas
Freier

He Pascal,

Mit dem Bearbeiten ohne Word: Mal sehen...

wenn das mit Xprofan possibile wäre, ist das der Hammer.
Habe mal ein Minibeispiel zusammengestellt. Hier bleibt naturalmente nur die Möglichkeit alles (Ziel & Lage) in un INI zu packen um die drei erstellten und gespeicherten RTFs wieder neu zu laden. Ist naturalmente nicht per eine Weitergabe geeignet.
Kompilieren Markieren Separieren

 $H Include/Windows.ph
 $H Include/Messages.ph
 $H Include/commctrl.ph
 $H Include/RichEdit.ph
' NUR mit der RTF.PCU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ für Bilder und OLE-Objekte aktivieren
 $U Include/RTFHANDLING.PCU=R_
 $U Include/OBJECTS.PCU=R_
var pcu_dll& =  R_INTITFORCREATERTF()'DLL laden mit PCU
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
declare __cfObj&,__cf0&,__cf1&,__cf2&,__cf3&,__cf4&,__cf5&,__cf6&,__cf7&,__cf8&,__cf9&,__cfS_10&,__cf11&,__cf12&,__cf13&,__cf14&,__cf15&,__cf16&,__cf17&,__cf18&,__cf19&,__cf20&,__cf21&,__cf22&,__cf23&,__cf24&,__cf25&,__cf26&,__cf27&,__cfS_28&,__cfS_29&,__cfS_30&,__cfS_31&,__cfS_32&,__cfS_33&,__cfS_34&,__cfS_35&,__cfS_36&,__cfS_37&,__cfS_38&,__cfS_39&,__cfS_40&,__cfS_41&,__cf42&,__cfS_43&,__cfS_44&,__cf45&,__cf46&
var __cfMode&=0
var __cfdll1&=USEDLL("WINMM.DLL")
def __cf1(2) !"KERNEL32","GetProcAddress"
def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf0&=0
__cf1&=__cf1(__cf2("KERNEL32"),"GlobalAlloc")
__cf2&=__cf1(__cf2("KERNEL32"),"GlobalFree")
__cf3&=__cf1(__cf2("KERNEL32"),"GlobalSize")
__cf4&=0
__cf5&=__cf1(__cf2("WINMM"),"timeGetTime")
__cf6&=__cf1(__cf2("KERNEL32"),"RtlMoveMemory")
__cf7&=__cf1(__cf2("KERNEL32"),"ExitProcess")
__cf8&=0 : CASE __cfMode& : __cf8&=__cf3("__xeEOP")
__cf9&=__cf1(__cf2("USER32"),"MessageBoxA")
__cfS_10&=__cfStaticS("")
__cf11&=__cf1(__cf2("KERNEL32"),"Sleep")
__cf12&=0
__cf13&=__cf1(__cf2("USER32"),"IsWindow")
__cf14&=__cf1(__cf2("NTDLL"),"RtlRandom")
__cf15&=call(__cf1&,64,4)
long __cf15&,0=&getTickCount
__cf16&=0 : CASE __cfMode& : __cf16&=__cf3("__xeIMP")
__cf17&=0
__cf18&=0
__cf19&=0
__cf20&=0
__cf21&=%hInstance
__cf22&=__cf1(__cf2("USER32"),"GetDesktopWindow")
__cf23&=__cf1(__cf2("USER32"),"GetWindowRect")
__cf24&=__cf1(__cf2("USER32"),"GetClientRect")
__cf25&=__cf1(__cf2("USER32"),"ClientToScreen")
__cf26&=__cf1(__cf2("USER32"),"GetCursorPos")
__cf27&=__cf1(__cf2("USER32"),"GetAsyncKeyState")
__cfS_28&=__cfStaticS("d. MMMM yyyy")
__cfS_29&=__cfStaticS("dddd, 'd'e'r' d'.' MMMM yyyy")
__cfS_30&=__cfStaticS("yyyyMMdd")
__cfS_31&=__cfStaticS("SunMonTueWedThuFriSat")
__cfS_32&=__cfStaticS("JanFebMarAprMayJunJulAugSepOctNovDec")
__cfS_33&=__cfStaticS("HH':'mm':'ss ")
__cfS_34&=__cfStaticS(", ")
__cfS_35&=__cfStaticS(" ")
__cfS_36&=__cfStaticS("+")
__cfS_37&=__cfStaticS("0")
__cfS_38&=__cfStaticS("00")
__cfS_39&=__cfStaticS("HH':'mm")
__cfS_40&=__cfStaticS("ss")
__cfS_41&=__cfStaticS(".")
__cf42&=__cf1(__cf2("USER32"),"SendMessageA")
__cfS_43&=__cfStaticS("LISTBOX")
__cfS_44&=__cfStaticS("DIALOG")
__cf45&=__cf1(__cf2("gdi32.dll"),"SetMapMode")
__cf46&=__cf1(__cf2("gdi32.dll"),"GetDeviceCaps")

proc __cfEOP

    parameters exitcode&
    FREEDLL __cfdll1&
    case %pcount=1 : end exitcode&
    end

endproc

proc __cfStaticS

    parameters s$
    var a&=__cfArgS(s$)
    long a&,-8=-1
    return a&

endproc

proc __cfArgS

    parameters s$
    s$=s$+" "
    var a&=addr(s$)
    var l&=long(a&,-4)-1
    var h&=call(__cf1&,64,l&+13)
    case l& : call(__cf6&,h&+8,a&,l&)
    long h&,0=1
    long h&,4=l&
    return h&+8

endproc

proc PRINTRTFS

    PARAMETERS WND1&,WND2&,WND3&
    call(__cf45&,&pdc,1)
    VAR IWIDTHTWIPS&=INT((call(__cf46&,&pdc,8)/call(__cf46&,&pdc,88)))*1440
    VAR IHEIGHTTWIPS&=INT((call(__cf46&,&pdc,10)/call(__cf46&,&pdc,90)))*1440
    DECLARE FR#
    DIM FR#,48
    LONG FR#,0=&PDC,&PDC,call(__cf46&,&pdc,112),call(__cf46&,&pdc,113),IWIDTHTWIPS&,IHEIGHTTWIPS&
    DECLARE FR2#
    DIM FR2#,48
    LONG FR2#,0=&PDC,&PDC,call(__cf46&,&pdc,112)+IWIDTHTWIPS&*(d1x!/720),call(__cf46&,&pdc,113),IWIDTHTWIPS&*0.5,IHEIGHTTWIPS&*0.1
    DECLARE FR3#
    DIM FR3#,48
    LONG FR3#,0=&PDC,&PDC,call(__cf46&,&pdc,112)+IWIDTHTWIPS&*(d2x!/720),call(__cf46&,&pdc,113),IWIDTHTWIPS&,IHEIGHTTWIPS&*0.1
    SENDMESSAGE(WND1&,$00B1,0,-1)
    SENDMESSAGE(WND1&,$0400 + 52,0,ADDR(FR#)+40)
    VAR CPMIN&=0
    VAR PG&=0

    WHILE 1

        INC PG&

        IF PG&=2

            LONG FR#,12=call(__cf46&,&pdc,113)

        ENDIF

        CPMIN&=SENDMESSAGE(WND1&,$0400 + 57,1,ADDR(FR#))

        IF PG&=1

            SENDMESSAGE(WND2&,$00B1,0,-1)
            SENDMESSAGE(WND2&,$0400 + 52,0,ADDR(FR2#)+40)
            SENDMESSAGE(WND3&,$00B1,0,-1)
            SENDMESSAGE(WND3&,$0400 + 52,0,ADDR(FR3#)+40)
            SENDMESSAGE(WND2&,$0400 + 57,1,ADDR(FR2#))
            SENDMESSAGE(WND3&,$0400 + 57,1,ADDR(FR3#))

        ENDIF

        IF CPMIN&>=LONG(FR#,44)

            BREAK

        ENDIF

        LONG FR#,40=CPMIN&
        NEXTPAGE
        call(__cf45&,&pdc,1)

    ENDWHILE

    SENDMESSAGE(WND1&,$0400 + 57,0,0)
    SENDMESSAGE(WND2&,$0400 + 57,0,0)
    SENDMESSAGE(WND3&,$0400 + 57,0,0)

endproc

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
declare a#
dim a#,8'--POINT-Struktur
def Redraw(1) ~RedrawWindow(&(1),0,0,~RDW_FRAME | ~RDW_INVALIDATE | ~RDW_ALLCHILDREN | ~RDW_ERASE)
def SetWndPos(3) ~SetWindowPos(&(1),0,%(2),%(3),0,0,~SWP_NOSIZE | ~SWP_NOZORDER)
window 50,50-900,700
settruecolor 1
usefont "ms sans serif",15,7,0,0,0
setdialogfont 1
usermessages 16
var font&=CreateFont("Verdana",14,0,0,0,0)
declare rtf&,dll&
dll&=usedll("riched20.dll")
rtf&=control("RichEdit20A",mkstr$("noch ne Zeile\n",50),$54301044,80,10,780,560,%hwnd,1234,0,$200)
sendmessage(rtf&,~EM_HIDESELECTION,0,1)
var d1x!=120
declare Dummy1&,Dummy2&
Dummy1&=control("RichEdit20A",mkstr$("Titel\n",2),$54301044,d1x!,0,450,100,rtf&,1234,0,$200)
sendmessage(dummy1&,~EM_HIDESELECTION,0,1)
var d2x!=600
Dummy2&=control("RichEdit20A",mkstr$("Adresse\n",4),$54301044,d2x!,0,150,100,rtf&,1234,0,$200)
sendmessage(dummy2&,~EM_HIDESELECTION,0,1)
var Print&=CreateButton(%hWnd,"Drucken",700,600,80,20)
SetFont print&,font&
' NUR mit der RTF.PCU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var rtf_hdc& = R_PREPAREFORLINEBREAK(rtf&)' Device Context erzeugen mit PCU
R_Init_object(rtf&)'Zum Bildempfang vorbereiten
MCls 100,100 ,RGB(0,0,255)
StartPaint -1
UseFont "Arial",16,0,0,0,0
DrawText 20,50,"mein Logo"
Endpaint
var bmp1&=Create("hPic",0,"&MEMBMP" )
SavePic "Test.jpg", bmp1&, 100
R_GotoStart(rtf&)
R_RTFLOADPICTURE(rtf&, "Test.jpg")
SendString(rtf&,"^{ENTER}")
SendString(rtf&,"^{ENTER}")
SendString(rtf&,"^{ENTER}")
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

while 1

    sendmessage( rtf&,(~WM_USER+221),0,a# )
    SetWndPos( Dummy1&,d1x!,0-long(a#,4) )
    SetWndPos( Dummy2&,d2x!,0-long(a#,4) )
    Redraw(rtf&)
    locate 0,0
    waitinput
    case %umessage=16:break
    case GetFocus(dummy2&):print "3.rtf"
    case GetFocus(dummy1&):print "2.rtf"
    case GetFocus(rtf&): print "1.rtf"

    If GetFocus(Print&)

        STARTPRINT "*xx"
        PRINTRTFS(RTF&,Dummy1&,Dummy2&)
        ENDPRINT

    EndIf

endwhile

' NUR mit der RTF.PCU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
R_DEINITRTF(rtf&,RTF_HDC&,PCU_DLL&)
R_DEINIT_OBJECT()
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DeleteObject font&
destroywindow(rtf&)
destroywindow(dummy1&)
destroywindow(dummy2&)
destroywindow(%hwnd)
case dll&:freedll dll&

Bin mir auch noch nicht sicher, ob der Faktor (d1x! / 720) endgültig ist. Vielleicht kann iF dazu etwas sagen.

richedit-scroll-mit-objekt.exe	406 kB

Hochgeladen:	16.10.2010

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

720 habe ich imho nicht geschrieben - habe mit 0.5 gerechnet um jedenfalls die Mitte zu bestimmen. ^^

[offtopic]Die ENH eher gedacht wie die PRC-File oder OBJ-File per optimale Maschinenlesbarkeit statt damit zu wörkeln - ist ja sonst ein bisl wie mit Notepad ne Exe bearbeiten. ^^[/offtopic]

Uwe
''Pascal''
Niemeier

Hi Thomas!

Äh... hast du dir meine Demo mal angeschaut? Und auch die beigefügte RTF mal mit Word oder Wordpad geöffnet? Da kommt ja ein ganz anderes Verfahren zum Einsatz.
Oder zeigt dein Beispiel nur, wie das Ganze im Prinzip aussehen soll?

Und wie steht's mit dem Ausdrucken circa meine Demo? Wie gesagt, ich konnte es nicht allzu gründlich testen.

Was das mit dem Bearbeiten von eingebettetem RTF betrifft:
Wenn das klappt, wird's wohl so laufen, daß der eingebettete Text irgendwie extrahiert wird und dann z.B in einem eigenen Dialogfenster bearbeitet werden kann. Besondere Formatierungsfunktionen mußt du bei Bedarf dann naturalmente selbst einbauen.

So ganz einfach ist das allerdings nicht; kann also etwas dauern.

SeeYou
Pascal

Thomas
Freier

He Pascal,

Und wie steht's mit dem Ausdrucken circa meine Demo? Wie gesagt, ich konnte es nicht allzu gründlich testen.

erste Test ohne Problem mit dem Dokumentenende wie bei iF.
Gehört aber im Prinzip zu : RTF und Ausdrucken

Äh... hast du dir meine Demo mal angeschaut? Und auch die beigefügte RTF mal mit Word oder Wordpad geöffnet? Da kommt ja ein ganz anderes Verfahren zum Einsatz.
Oder zeigt dein Beispiel nur, wie das Ganze im Prinzip aussehen soll?

Ja, mein Beispiel ist nur Prinzip.
Ob ein Text-Objekt ohne Word bzw. OpenOffice realisierbar ist, willst du tesen?
Das sich ein externer Editor oder an der Stelle ein Edit-Feld nach Doppelklick öffnet ist sicher egal. Entscheident ist das Einbetten in die Haupt-RTF, damit es mindestens in Word, WordPad und XProfan-RTF auch angezeigt wird und bei erneutem Abspeichern circa Word oder WordPad nicht verloren geht.

Gruß Thomas
Windows XP SP2, XProfan X2

Uwe
''Pascal''
Niemeier

Hi Thomas!

Ich mach's kurz:

1. Das Zieldokument mit WordPad (!) öffnen
2. "Einfügen/Objekt" wählen
3. Option "Neu erstellen" wählen bzw. gewählt lassen
4. Aus der Liste möglicher Typen "WordPad-Dokument" wählen
5. Es erscheint im WordPad-Fenster ein Feld, in den man Text eingeben oder per Clipboard einfügen kann

Das Ergebnis ist ein Dokument mit einem "echten" RTF-Objekt.
Andernfalls (wenn MS Word auf dem Rechner installiert ist und man "Einfügen aus Datei" wählt) kriegt man in Wirklichkeit ein Word (DOC) -Objekt.
Darum kam ich bei meinen Versuchen an den RTF-Quelltext aus einem solchen Objekt nicht dran. Weil keiner da war...

Zur Verwendung in einem Profan-Edit mit OLE-Unterstützung:

Bei Doppelklick auf ein solches Objekt wird WordPad (statt Word) zum Bearbeiten geöffnet.

Ausdrucken des fertigen Dokumentes per FormatRange-Message scheint zu klappen.

Beim Versuch, ein Objekt in WordPad zu verschieben, wird es zu normalem Text. Ist bei Profan nicht der Fall.

Das WordPad-Fenster bei Doppelklick ist so grande wie das Objekt im Edit und umgekehrt.

Änderungen beim Bearbeiten Im WordPad-Fenster werden sofort im Edit angezeigt. Ausnahme: Cambiamento der Fenstergröße. Die wird erst auf's Objekt angewendet, wenn der Inhalt geändert wird.

Bei Cambiamento der Dimensione des Objektes im Edit wird der Inhalt zermatscht. Abhilfe: Zum Bearbeiten doppelklicken und WordPad gleich wieder schließen. (Oder Undo ausführen)

Bitte mal ausprobieren. Damit potuto sich dein Problem erledigt haben

PS: Wie man ein echtes RTF-Objekt unter Profan erzeugt, weiß ich noch nicht. Wird aber auch irgendwie gehen...

SeeYou
Pascal

23.10.2010 ▲

Thomas
Freier

He Pascal,
find ich schon toll, dass du dich in dieser Richtung versucht hast. Meine Ergebnisse sind genau so wie du beschreibst. Jeder geeignete Editor (Word, OpenOffice) erstellt sein eigenes Textobject, das sie nicht einmal gegenseitig optimal Mostra oder gar editieren können.

Aber wenn du noch Zeit übrig hast, wie ist es mit einem Beispiel circa zum Erstellen einer Tabelle wie mit https://www.sybrex.com/products/gui/ezeepdf/ ?
Da würde aber eine Tabelle mit und ohne Raster reichen. Die wird von allen RTF-Editoren gleich gut dargestellt.

untitled.rtf	4 kB

Hochgeladen:	23.10.2010

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

23.10.2010 ▲