XProfan

- page 2 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 2 -

Uwe
''Pascal''
Niemeier

Hi Thomas!

alors ist "RTF dans RTF per OLE" für's Ausdrucken déjà la fois OK?
et es scheitert daran, qui qui eingebetteten RTFs (qui zusammen oui so 'ne Art Briefkopf bilden) pas bearbeitet volonté peut, si ne...aucune Word vorhanden ist?

Habe cela avec dem Drucken la fois getestet; allerdings seulement im MS Image Writer, weil je momentan keinen "echten" Drucker zur Disposition habe. Sieht exakt so aus comment per Wordpad ausgedruckt. Sollte alors brauchbar son. Siehe Anhang.

avec dem Travailler sans Word: la fois voyons...

encore un mot trop dem Code am Anfang cet Threads: qui wurde ursprünglich entwickelt, um un Bild au cours de des Druckens dans un Dokument sans OLE-Unterstützung einzublenden. tout autor trouver sich y verschiedene APIs zur Größenanpassung, qui zum Drucken reiner Dokumente (avec OLE) pas nötig sommes (hoffe je zumindest).

SeeYou
Pascal

druckdemo1.zip	346 kB

Version:	1

Kurzbeschreibung:	Drucken RTF

Hochgeladen:	15.10.2010

Downloadcounter:
		Download

15.10.2010 ▲

Hab quoi hinbekommen, druckt chez mir korrekt sur qui 1. page 3 RTFs et sur weiteren Seiten seulement 1 RTF:

(hab dispose fr# dans qui Funktion oublier qc, s'il te plaît nachtragen)

~~rtf.zip~~	941 kB

Hochgeladen:	13.10.2010

Downloadcounter:
		~~Download~~

13.10.2010 ▲

Thomas
Freier

hé, sieht chez dem ersten Test déjà bien aus. merci pour qui Aider. Werde aujourd'hui la fois ausloten wohin qui Grenzen sommes.

Gruß Thomas
Windows XP SP2, XProfan X2

14.10.2010 ▲

Uwe
''Pascal''
Niemeier

Hi Thomas!

Hintergrund ist, si MS Word sur dem System ist, peux homme weitere RTFs dans qui tête-RTF einbetten et vous aussi Travailler et ensuite aussi alles drucken

cela allez aussi sous Profan avec OLE-Unterstützung de Dieter ou bien mir! Ist peut-être encore einfacher comme cela Übereinanderlegen mehrerer Fichiers im Drucker-DC?

si pas, wirst du wahrscheinlich deux Druckroutinen brauchen; une pour qui 1. page avec Overlays et une avec Boucle pour qui Folgeseiten sans Overlays. Es doit plan seulement gewährleistet son. cela Routine 2 là anfängt trop drucken, wohin Routine 1 aufgehört hat (plan qui change de page 1 trop 2).

SeeYou
Pascal

14.10.2010 ▲

Thomas
Freier

hé Pascal,

wir reden ici naturellement de XProfan et deiner, bzw. Dieters, OLE-Objekten.
si MS-Office pas vorhanden ist, voulais je sur une Scoll-area qui tête-RTF et deux weitere sur qui tête-RTF comme Subproc-Element poser.
Im Moment suis je encore sur qui cherche, comment erfahre je, welches objet dans qui RTF qui Anwender angeklickt hat. Habe encore rien trouvé et aucun concept.

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

hé Pascal,

avec dem Travailler sans Word: la fois voyons...

si cela avec Xprofan possible wäre, ist cela qui marteau.
Habe la fois un Minibeispiel zusammengestellt. ici bleibt naturellement seulement qui Possibilité alles (but & situation) dans un INI trop saisir à trois erstellten et gespeicherten RTFs wieder récente trop magasin. Ist naturellement pas pour une Weitergabe approprié.
Kompilieren Marque Séparation

 $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)
cas dll&:freedll dll&

suis mir aussi encore pas sûrement, si qui facteur (d1x! / 720) endgültig ist. peut-être peux iF en supplément quelque chose dire.

richedit-scroll-mit-objekt.exe	406 kB

Hochgeladen:	16.10.2010

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

720 habe je imho pas geschrieben - habe avec 0.5 gerechnet um jedenfalls qui Mitte trop bestimmen. ^ ^

[offtopic]qui ENH plutôt gedacht comment qui PRC-Fichiers ou bien OBJ-Fichiers pour optimale Maschinenlesbarkeit statt avec cela trop wörkeln - ist oui sonst un bisl comment avec Notepad ne Exe Travailler. ^ ^[/offtopic]

Uwe
''Pascal''
Niemeier

Hi Thomas!

Äh... la hâte du dir mon Demo la fois angeschaut? et aussi qui beigefügte RTF la fois avec Word ou bien Wordpad ouvert? là venez oui un entier d'autre procéder zum Einsatz.
ou bien zeigt dein Beispiel seulement, comment cela Ganze im Prinzip air soll?

et comment steht's avec dem Ausdrucken sur mon Demo? Comme je le disais, je konnte es pas allzu gründlich testen.

quoi cela avec dem Travailler de eingebettetem RTF betrifft:
si cela klappt, wird's wohl so courir, qui qui eingebettete Text irgendwie extrahiert wird et ensuite z.B dans einem eigenen Dialogfenster bearbeitet volonté peux. Besondere Formatierungsfunktionen dois du chez besoin ensuite naturellement selbst einbauen.

So entier simple ist cela allerdings nicht; peux alors quelque chose dauern.

SeeYou
Pascal

Thomas
Freier

hé Pascal,

et comment steht's avec dem Ausdrucken sur mon Demo? Comme je le disais, je konnte es pas allzu gründlich testen.

erste Test sans Problem avec dem Dokumentenende comment chez iF.
Gehört mais im Prinzip trop : RTF et Ausdrucken

Äh... la hâte du dir mon Demo la fois angeschaut? et aussi qui beigefügte RTF la fois avec Word ou bien Wordpad ouvert? là venez oui un entier d'autre procéder zum Einsatz.
ou bien zeigt dein Beispiel seulement, comment cela Ganze im Prinzip air soll?

oui, mon Beispiel ist seulement Prinzip.
si un Text-objet sans Word bzw. OpenOffice realisierbar ist, veux du tesen?
cela sich un externer Editor ou bien à qui Stelle un Éditer-champ pour Double-cliquez sur ouvrez ist sûrement égal. Entscheident ist cela Einbetten dans qui tête-RTF, avec cela es mindestens dans Word, WordPad et XProfan-RTF aussi angezeigt wird et chez erneutem Abspeichern sur Word ou bien WordPad pas verloren allez.

Gruß Thomas
Windows XP SP2, XProfan X2

Uwe
''Pascal''
Niemeier

Hi Thomas!

je mach's kurz:

1. cela Zieldokument avec WordPad (!) ouvrir
2. "Einfügen/Objekt" choisir
3. Option "Neu erstellen" choisir bzw. gewählt laisser
4. Aus qui liste möglicher Typen "WordPad-Dokument" choisir
5. Es erscheint im WordPad-la fenêtre un champ, dans den on Text eingeben ou bien per Clipboard insérer peux

cela Ergebnis est un Dokument avec einem "echten" RTF-objet.
Andernfalls (si MS Word sur dem calculateur installiert ist et on "Einfügen aus Datei" wählt) kriegt on dans Wirklichkeit un Word (DOC) -objet.
tout autor kam je chez meinen Versuchen à den RTF-Voir le texte source aus einem solchen objet pas tour. Weil aucun là était...

Zur Verwendung dans einem Profan-Éditer avec OLE-Unterstützung:

chez Double-cliquez sur sur un solches objet wird WordPad (statt Word) zum Travailler ouvert.

Ausdrucken des fertigen Dokumentes per FormatRange-Message scheint trop marcher.

Beim Versuch, un objet dans WordPad trop Déplacer, wird es trop normalem Text. Ist chez Profan pas qui le cas.

cela WordPad-la fenêtre chez Double-cliquez sur est grand comment cela objet im Éditer et renversé.

Changements beim Travailler Im WordPad-la fenêtre volonté tout de suite im Éditer angezeigt. Ausnahme: Changement qui Fenstergröße. qui wird seulement auf's objet angewendet, si qui le contenu geändert wird.

chez Changement qui Taille des Objektes im Éditer wird qui le contenu zermatscht. Abhilfe: Zum Travailler doppelklicken et WordPad juste wieder schließen. (ou bien Undo effectuer)

s'il te plaît la fois ausprobieren. avec cela pourrait sich dein Problem erledigt avons

PS: comment on un réel RTF-objet sous Profan erzeugt, sais je encore pas. Wird mais aussi irgendwie aller...

SeeYou
Pascal

23.10.2010 ▲

Thomas
Freier

hé Pascal,
find je déjà toll, dass du toi dans cette direction versucht la hâte. mon Ergebnisse sommes oui c'est ca so comment du beschreibst. chacun geeignete Editor (Word, OpenOffice) erstellt son eigenes Textobject, cela vous pas einmal mutuel optimal Montrer ou bien gar éditer peut.

mais si du encore Zeit übrig la hâte, comment ist es avec einem Beispiel sur zum Erstellen einer Tabelle comment avec https://www.sybrex.com/products/gui/ezeepdf/ ?
là serait mais une Tabelle avec et sans Raster reichen. qui wird de allen RTF-Editoren juste bien dargestellt.

untitled.rtf	4 kB

Hochgeladen:	23.10.2010

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

23.10.2010 ▲