| |
| |
|
| - page 1 - |
|
Dieter
Zornow | ici mon zweiter Wettbewerbsbeitrag
Télécharger
j'ai mich la fois avec dem Richedit befasst et une PCU geschrieben, qui cela ganze Handling
stark simplifier soll. il y a 99 Funktionen enthalten, avec vielen Features comment zoomen, cela komplette
Handling einschließlich qui Dialoge pour chercher et chercher et Ersetzen sowie verschiedene Bullets
Zeilenumbruch, un Kontextmenü et drucken, hoffe dass cela Drucken überall funktioniert, là je seulement avec
dem PDF-Printer getestet habe
Dabei ist une, comment je mon, gute Documentation et un Beispielprogramm comme prf cela qui Funktionen courir
zeigt, so dass es kinderleicht son sollte vous trop nutzen.
j'ai Wert puis gelegt toujours cela komplette Handling einer Funktion trop intégrer, so dass cela meiste
avec einem Aufruf abgedeckt ist, sowie le nombre qui paramètre so gering comme possible trop tenir, la plus part du temps wird
seulement cela Handle des Richedits transfert.
c'est ne...aucune Subclassing vorhanden, là je qui PCU ab XProfan 8.0 courir faire voulais.
là je aucun 8 il Version installiert habe, doit Tests montrer si es mir gelungen ist.
aussi im Beispielprogramm habe je mich prêt seulement Befehle qui 8.0 Version trop nutzen, kenne mais
den Befehlsumfang pas oui c'est ca. sous Version 11 fonctionne mais alles.
Bilder insérer ist également encore pas integriert, là mir aus Zeitgründen qui Aufwand trop grand était.
venez mais encore, comme mon Zeit erlaubt.
Propositions et Kritik zur Weiterentwicklung sommes willkommen.
Im paquet enthalten sommes
Demo.prf, un Demonstartionsprogramm pour Opportunités qui PCU
Documentation.chm, qui Documentation qui 99 Funktionen.
Documentation.rtf, qui Documentation comme RTF-Dossier
MinitextPad.zip, un kleiner Editor den je zur Demonstartion geschrieben habe (comme Exe)
RTFHandling.def, qui de XPSE erzeugte Definationsdatei,
RTFHandling.pcu, qui PCU
RTFHandling.html qui de XPSE erzeugte Aider.
Salut
Dieter |
 |
| |
| 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 | allô Thomas,
UTF-8. peux pas marcher. hat déjà quelques erhebliche Unterschiede trop Unicode,
Unicode: ici volonté qui marque toujours avec 2 Bytes dargestellt et am Anfang qui Textdatei stehen
deux Bytes (FF FE), qui kennzeichnen, dass es sich um une Unicode-Dossier handelt.
UTF-8: chez UTF-8 dépenser qui marque unterschiedlich viele Bytes.
si du mais UTF-8 normal comme Ansi et pas comme Unicode lädst wird alles jusqu'à sur qui Sonderzeichen normal angezeigt
bedeutet wahrscheinlich, dass qui normalen Ansizeichen dans UTF-8 aussi seulement un Byte grand sommes et seulement qui 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 | allô Dieter,
je hatte maintenant une kleine RTF-Anwendung sur qui RTFHandling.pcu umgestellt.
malheureusement bekomme Je l' Zeilenumbruch (venez trop tôt) pas comment gewünscht hin.
wohin liegt mon Problem? |
|
| |
| |
| |
|
|
Dieter
Zornow | allô Thomas,
je stehe im Moment aussi sur dem Schlauch, muss je mich seulement la fois malain faire, si je quoi finde melde je mich.
peut-être könntest du un Richedit sans Scrollen verwenden. Würde mais horizontales et vertikales Scrollen verhindern
ed& = Contrôle("Richedit",»,$54011004,10,40,360,362,%hwnd,9000,%HINSTANCE,$0)
Dein Programme c'est moi comme Prf abgestürzt, là cela Bild pas gespeichert volonté konnte. peux son, dass cela un Problem de XProfan 12 ist, car deine Exe fonctionne oui einwandfrei, aussi chez mir sous Win 7.
so comment du es gespeichert la hâte, hat es im Interpreter pas funktioniert, es kam un Bild qui Taille 0 heraus.
KompilierenMarqueSéparation
so funktioniert es mais einwandfrei
KompilierenMarqueSéparationtext$=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 pas so important. Hatte es beim optischen Aufpeppen einmal sur qui PCU versucht.
peux mais aussi wieder comment auparavant angewendet, aus Pascals Beispiel (RTF-Éditer avec fester Hauteur et Breite), qui Breite festlegen. |
|
| |
| |
| |
|
|
Dieter
Zornow | allô Thomas,
habe qui Solution trouvé, j'ai une festen Multiplikator incorporé qui den Text toujours sur une feste Taille relativ zur Controlgröße mets. là je cela seulement zum lesen überlanger Textes gedacht hatte, funktioniert es chez so speziellen Anwendungen, wohin es très oui c'est ca son muss, pas zufriedenstellend. je muss wohl qui Funktion um une paramètre zum Einstellen des Multiplikators erweitern, ensuite peux on qui Relative Taille zum Contrôle einstellen.
j'ai 12 comme Standard eingestellt, chez dir devrait es 15 son um oui c'est ca qui gewünschte Taille trop conservé |
|
| |
| 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 | allô Dieter,
DANKE pour qui Mühe. allez maintenant, et werde es encore chez den Etiketten testen, si du s'il te plaît qui Funktion changement Font markierter Text dahin erweitern würdest, dass im Fontdialog juste Art, Hauteur, la couleur, usw. des markierten Textes vorgegeben volonté. |
|
| |
| |
| |
|
|
Dieter
Zornow | allô Thomas,
je sais maintenant pas quoi du meinst. Avez- du SETMARKEDTEXTFONT qui Fontdialog ist oui pas dans qui PCU vorhanden. ici wird oui seulement qui nom des Fonts comme String transfert. Den Dialog en supplément musst du oui selbst erstellen. Im Demo ist il aussi außerhalb. ou bien meinst du quoi d'autre. |
|
| |
| 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 | oui, qui Fontdialog ist extern. Habe cela Beispiel la fois erweitert. un GETGetMarkedTextSize(), ists FETT, KURSIV, usw., peux je pas trouver ou bien comment la hâte du cela realisiert la hâte.
si qui Solution pour Hauteur et la couleur allgemeingültig ist???
laisser sich qui anderen Einstellungen aussi encore sur une GetMarkedTextSize(ed&)-Abfrage realisieren? |
|
| |
| |
| |
|
|
Dieter
Zornow | allô Thomas,
cela Lecture si une Schrift Fett usw ist, ist pas enthalten, cet Funktionen habe je seulement comme Umschalter drin. si quelque chose fett ist wird es beim Aufruf normal et renversé. Wäre mais ne...aucune Problem quelque chose comme einzubauen, là je beim commuter oui aussi den jeweiligen Zustand ermitteln muss. Werde cela dans den prochain 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 | | cela liest sich bien. près de dem Fontdialog läßt sich oui ensuite aussi chez markiertem ou bien chez La position du curseur im Text, qui représentation des entsprechenden Button steuern. DANKE! |
|
| |
| |
| |
|
|
Thomas
Freier | allô Dieter,
bevor je mich den Objekten zuwende, habe je encore un Problem.
jusqu'à dato suis je avec qui Erstellung, Bearbeitung, usw. qui RTF très zufrieden. eh bien, par Zufall entdeckt, führt un Droit dans qui RTF trop einer Speicherverletzung.
Könntest du, ou bien chacun qui daran Amusement hat, s'il te plaît einmal sur den stark eingekürzten Script voyons, quoi faux fonctionne.
KompilierenMarqueSéparation $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
|
|
| |
| |
| |
|
|
Thomas
Freier | allô Dieter,
habe den faute encercler peut:
R_GETRIGHTCLICKMENU(ed&) 'Rechtsklickabfrage doit vorhanden son, aussi si RTFMenu(ed&) pas gesetzt ist. Ist im Beispiel DEMO.rtf nachzuvollziehen.
malheureusement ouvrez sich ensuite aussi sans RTFMenu(ed&) cela menu, quoi mich pas stören serait, mais malheureusement ist chez meiner Bilder-RTF qui Druck ensuite unvollständig. |
|
| |
| |
| |
|
(948)
Deutsch
English
Français
Español
Italia