Italia
Unità

RTFHandling.pcu

 
- Page 1 -



Dieter
Zornow
Hier mein zweiter Wettbewerbsbeitrag

Download

Ich habe mich mal mit dem Richedit befasst und eine PCU geschrieben, die das ganze Handling
stark vereinfachen soll. Es sind 99 Funktionen enthalten, mit vielen Features wie zoomen, das komplette
Handling einschließlich der Dialoge per Suchen und Suchen und Ersetzen sowie verschiedene Bullets
Zeilenumbruch, ein Kontextmenü und drucken, hoffe dass das Drucken überall funktioniert, da ich nur mit
dem PDF-Printer getestet habe
Dabei ist eine, wie ich meine, gute Documentazione und ein Beispielprogramm als prf das die Funktionen lauffähig
zeigt, so dass es kinderleicht sein sollte sie zu nutzen.
Ich habe Wert darauf gelegt immer das komplette Handling einer Funktion zu integrieren, so dass das meiste
mit einem Aufruf abgedeckt ist, sowie die Anzahl der Parameter so gering als possibile zu halten, meistens wird
nur das Handle des Richedits trasferimento.
Es ist kein Subclassing vorhanden, da ich die PCU ab XProfan 8.0 lauffähig machen wollte.
Da ich keine 8 er Version installiert habe, müssen Tests zeigen ob es mir gelungen ist.
Auch im Beispielprogramm habe ich mich bemüht nur Befehle der 8.0 Version zu nutzen, kenne aber
den Befehlsumfang nicht genau. Unter Version 11 corre aber alles.
Bilder einfügen ist ebenfalls noch nicht integriert, da mir aus Zeitgründen der Aufwand zu grande war.
Kommt aber noch, wie es meine Zeit erlaubt.
Proposte und Kritik zur Weiterentwicklung sind Benvenuto.

Im Paket enthalten sind

Demo.prf, Ein Demonstartionsprogramm per Möglichkeiten der PCU
Documentazione.chm, Die Documentazione der 99 Funktionen.
Documentazione.rtf, Die Documentazione als RTF-File
MinitextPad.zip, Ein kleiner Editor den ich zur Demonstartion geschrieben habe (als Exe)
RTFHandling.def, Die von XPSE erzeugte Definationsdatei,
RTFHandling.pcu, Die PCU
RTFHandling.html Die von XPSE erzeugte Aiuto.

Saluto

Dieter

139 kB
Kurzbeschreibung: Version 1.0.5 - 07.09.2009
Hochgeladen:07.09.2009
Downloadcounter273
Download
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
24.11.2008  
 



 
- Page 4 -



Dieter
Zornow
Hallo Thomas,

UTF-8. kann nicht funktionieren. hat schon einige erhebliche Unterschiede zu Unicode,

Unicode: Hier werden die Zeichen immer mit 2 Bytes dargestellt und am Anfang der Textdatei stehen
zwei Bytes (FF FE), die kennzeichnen, dass es sich um eine Unicode-File handelt.

UTF-8: Bei UTF-8 verbrauchen die Zeichen unterschiedlich viele Bytes.

Wenn du aber UTF-8 normal als Ansi und nicht als Unicode lädst wird alles bis auf die Sonderzeichen normal angezeigt
bedeutet wahrscheinlich, dass die normalen Ansizeichen in UTF-8 auch nur ein Byte grande sind und nur die Sonderzeichen aus mehreren Bytes bestehen.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
08.09.2009  
 




Thomas
Freier
Hallo Dieter,
ich hatte jetzt eine kleine RTF-Anwendung auf die RTFHandling.pcu umgestellt.
Leider bekomme Io l' Zeilenumbruch (kommt zu presto) nicht wie gewünscht hin.
Wo liegt mein Problem?

567 kB
Hochgeladen:21.02.2010
Downloadcounter92
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
21.02.2010  
 




Dieter
Zornow
Hallo Thomas,

Ich stehe im Moment auch auf dem Schlauch, muss ich mich erst mal schlau machen, wenn ich was finde melde ich mich.
Vielleicht könntest du ein Richedit ohne Scrollen verwenden. Würde aber horizontales und vertikales Scrollen verhindern

ed& = Control("Richedit","",$54011004,10,40,360,362,%hwnd,9000,%hinstance,$0)

Dein Programm ist mir als Prf abgestürzt, da das Bild nicht gespeichert werden konnte. Kann sein, dass das ein Problem von XProfan 12 ist, denn deine Exe corre ja einwandfrei, auch bei mir unter Win 7.
so wie du es gespeichert hast, hat es im Interpreter nicht funktioniert, es kam ein Bild der Dimensione 0 heraus.
KompilierenMarkierenSeparieren
text$=new_file$+"\Bild.png"
FileMode 1
Assign #1,text$
OpenRW #1
BlockWrite #1,mem#,0,2736
CloseRW #1

so funktioniert es aber einwandfrei
KompilierenMarkierenSeparieren
text$=new_file$+"\Bild.png"
BlockWrite text$,mem#,0,2736
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
21.02.2010  
 




Thomas
Freier
Dieter,
ist eigentlich nicht so wichtig. Hatte es beim optischen Aufpeppen einmal circa die PCU versucht.
Kann aber auch wieder wie vorher angewendet, aus Pascals Beispiel (RTF-Edit mit fester Höhe und Breite), die Breite festlegen.
 
Gruß Thomas
Windows XP SP2, XProfan X2
22.02.2010  
 




Dieter
Zornow
Hallo Thomas,

habe die Lösung gefunden, ich habe einen festen Multiplikator eingebaut der den Text immer auf eine feste Dimensione relativ zur Controlgröße setzt. Da ich das nur zum lesen überlanger Texte gedacht hatte, funktioniert es bei so speziellen Anwendungen, wo es sehr genau sein muss, nicht zufriedenstellend. Ich muss wohl die Funktion um einen Parameter zum Einstellen des Multiplikators erweitern, dann kann man die Relative Dimensione zum Control einstellen.
Ich habe 12 als Standard eingestellt, bei dir müsste es 15 sein um genau die gewünschte Dimensione zu erhalten
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
23.02.2010  
 




Thomas
Freier
Hallo Dieter,
DANKE per die Mühe. Geht jetzt, und werde es noch bei den Etiketten testen, wenn du bitte die Funktion ändern Font markierter Text dahin erweitern würdest, dass im Fontdialog gleich Art, Höhe, Farbe, usw. des markierten Textes vorgegeben werden.
 
Gruß Thomas
Windows XP SP2, XProfan X2
23.02.2010  
 




Dieter
Zornow
Hallo Thomas,

ich weiß jetzt nicht was du meinst. Meinst du SETMARKEDTEXTFONT Der Fontdialog ist ja nicht in der PCU vorhanden. Hier wird ja nur der Name des Fonts als String trasferimento. Den Dialog dazu musst du ja selbst erstellen. Im Demo ist er auch außerhalb. Oder meinst du was anderes.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
24.02.2010  
 




Thomas
Freier
Ja, der Fontdialog ist extern. Habe das Beispiel mal erweitert. Ein GETGetMarkedTextSize(), ists FETT, KURSIV, usw., kann ich nicht finden oder wie hast du das realisiert hast.
Ob die Lösung per Höhe und Farbe allgemeingültig ist???
Lassen sich die anderen Einstellungen auch noch circa eine GetMarkedTextSize(ed&)-Abfrage realisieren?

8 kB
Hochgeladen:24.02.2010
Downloadcounter167
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
24.02.2010  
 




Dieter
Zornow
Hallo Thomas,

Das Auslesen ob eine Schrift Fett usw ist, ist nicht enthalten, diese Funktionen habe ich nur als Umschalter drin. Wenn etwas fett ist wird es beim Aufruf normal und umgekehrt. Wäre aber kein Problem sowas einzubauen, da ich beim umschalten ja auch den jeweiligen Zustand ermitteln muss. Werde das in den nächsten Tagen einbauen.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
24.02.2010  
 




Thomas
Freier
Das liest sich gut. Neben dem Fontdialog läßt sich ja dann auch bei markiertem oder bei Curserposition im Text, die Darstellung des entsprechenden Button steuern. DANKE!
 
Gruß Thomas
Windows XP SP2, XProfan X2
25.02.2010  
 




Thomas
Freier
Hallo Dieter,

bevor ich mich den Objekten zuwende, habe ich noch ein Problem.
Bis dato bin ich mit der Erstellung, Bearbeitung, usw. der RTF sehr zufrieden. Nun, durch Zufall entdeckt, führt ein Rechtsklick in der RTF zu einer Speicherverletzung.
Könntest du, oder jeder der daran Divertimento hat, bitte einmal auf den stark eingekürzten Script sehen, was falsch corre.
KompilierenMarkierenSeparieren
 $U RTFHandling.pcu = R_'TRF-PCU einbinden
 $U objects.pcu = R_
cls
Bilder_Rep
WaitInput
end
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Bilder Report ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc Bilder_Rep

    Declare RichEdit&,rtf_dll&,rtf_hdc&,linebreak&
    rtf_dll& =  R_INTITFORCREATERTF()'DLL laden mit PCU
    WINDOWSTYLE 538
    var B_dlg& = @Create("Window",%hwnd,"  Bilder-Report " ,80,10,900,720)
    rtf_dll& =  R_INTITFORCREATERTF()'DLL laden mit PCU
    RichEdit& = R_CREATERICHEDIT(B_dlg&,"",9000,60,750,580)' Richedit erstellen mit PCU
    rtf_hdc& = R_PREPAREFORLINEBREAK(RichEdit&)' Device Context erzeugen mit PCU
    R_Init_object(RichEdit&)'Zum Bildempfang vorbereiten
    R_SETMARKEDTEXTSIZE(RichEdit&,18)
    R_SETMARKEDTEXTFONT(RichEdit&,"Sheffield")
    R_RTFREPLACE(RichEdit&,"SAV Pliete e.V. Lübeck")
    SendString(RichEdit&,"^{ENTER}")
    R_SETMARKEDTEXTSIZE(RichEdit&,14)
    R_SETMARKEDTEXTFONT(RichEdit&,"Sheffield")
    R_RTFREPLACE(RichEdit&,"Bilder vom Bootsplatz")
    SendString(RichEdit&,"^{ENTER}")
    R_GotoEnd(Richedit&)
    R_SETMARKEDTEXTSIZE(RichEdit&,12)
    R_SETMARKEDTEXTFONT(RichEdit&,"Verdana")

    WhileLoop 3

        SendString(RichEdit&,"^{ENTER}")

    EndWhile

    R_GotoEnd(Richedit&)
    SetWindowPos RichEdit&=60,60
    R_RTFMarkAll(Richedit&)
    R_SETTEXTCENTER(RichEdit&)
    R_RTFSetCaretPosition(RichEdit&,0,0)
    setfocus(B_Dlg&)

    While 1

        WaitInput
        case %key=2:BREAK

    wend

    R_DEINITRTF(RichEdit&,rtf_hdc&,RTF_DLL&)'RTF-Aufräumen
    R_DeInit_object()
    DestroyWindow(B_dlg&)
    setfocus(%hwnd)

EndProc


540 kB
Hochgeladen:09.12.2010
Downloadcounter169
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
09.12.2010  
 




Thomas
Freier
Hallo Dieter,
habe den Fehler einkreisen können:
R_GETRIGHTCLICKMENU(ed&) 'Rechtsklickabfrage muß vorhanden sein, auch wenn RTFMenu(ed&) nicht gesetzt ist. Ist im Beispiel DEMO.rtf nachzuvollziehen.
Leider öffnet sich dann auch ohne RTFMenu(ed&) das Menü, was mich nicht stören würde, aber leider ist bei meiner Bilder-RTF der Druck dann unvollständig.
 
Gruß Thomas
Windows XP SP2, XProfan X2
10.12.2010  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

44.975 Views

Untitledvor 0 min.
Georg Teles19.10.2022
H.Brill08.02.2022
RudiB.06.09.2021
Jürgen Strahl29.08.2021
Di più...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie