| |
| |
|
| - Página 1 - |
|
Dieter
Zornow | Hier mein zweiter Wettbewerbsbeitrag
Descargar
Yo habe mich veces con el Richedit befasst y una PCU geschrieben, el todos Handling
stark vereinfachen se. Hay 99 Características enthalten, con vielen Features como zoomen, el komplette
Handling einschließlich el Dialoge para Suchen y Suchen y Ersetzen sowie verschiedene Bullets
Zeilenumbruch, una Kontextmenü y drucken, hoffe dass el Drucken überall funktioniert, como Yo sólo
el PDF-Printer getestet habe
Dabei es una, Yo mi, gute Documentación y una Beispielprogramm como prf el el Características lauffähig
zeigt, así dass lo kinderleicht ser debería ellos a nutzen.
Yo habe Valor darauf gelegt siempre el komplette Handling uno Función a integrieren, así dass el meiste
con un Aufruf abgedeckt es, sowie el número el Parámetro así gering como posible a halten, meistens se
sólo el Handle des Richedits transferencia.
Es kein Subclassing disponible, como Yo el PCU de XProfan 8.0 lauffähig hacer quería.
Desde que no 8 él Versión installiert habe, necesario Tests zeigen si me gelungen es.
Auch en el Beispielprogramm Yo mich bemüht sólo Befehle el 8.0 Versión a nutzen, saber aber
el Befehlsumfang no genau. Bajo Versión 11 se ejecuta aber alles.
Bilder einfügen es ebenfalls todavía no integriert, como me de Zeitgründen el Aufwand a groß war.
Kommt aber todavía, como mi Tiempo erlaubt.
Propuestas y Kritik a Weiterentwicklung son willkommen.
Im Paket enthalten son
Demo.prf, Ein Demonstartionsprogramm para Möglichkeiten el PCU
Documentación.chm, El Documentación el 99 Características.
Documentación.rtf, El Documentación como RTF-Expediente
MinitextPad.zip, Ein kleiner Editor el Yo a Demonstartion geschrieben habe (como Exe)
RTFHandling.def, El de XPSE erzeugte Definationsdatei,
RTFHandling.pcu, El PCU
RTFHandling.html El de XPSE erzeugte Ayuda.
Saludo
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 ▲ |
|
| |
|
| |
| |
| - Página 4 - |
|
|
Dieter
Zornow | Hola Tomás,
UTF-8. kann no trabajo. ha ya algunos erhebliche Unterschiede a Unicode,
Unicode: Hier voluntad el Signo siempre con 2 Bytes dargestellt y al Anfang el Textdatei posición
zwei Bytes (FF FE), el kennzeichnen, dass se trata de un Unicode-Expediente es.
UTF-8: En UTF-8 verbrauchen el Signo unterschiedlich viele Bytes.
Wenn du aber UTF-8 normal como Ansi y no como Unicode lädst se alles salvo el Sonderzeichen normal adecuado
bedeutet wahrscheinlich, dass el normalen Ansizeichen en UTF-8 auch sólo una Byte groß son y sólo el Sonderzeichen de más 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 | ¡Hola Dieter,
Yo hatte ahora una kleine RTF-Anwendung en el RTFHandling.pcu umgestellt.
Leider bekomme Yo, el Zeilenumbruch (kommt a früh) no como gewünscht hin.
Wo liegt mein Problema? |
|
| |
| |
| |
|
|
Dieter
Zornow | Hola Tomás,
Yo stehe en el Moment auch en el Schlauch, muss Yo mich sólo veces schlau hacer, si yo qué finde melde Yo mich.
Tal vez könntest du una Richedit sin Scrollen uso. Würde aber horizontales y vertikales Scrollen verhindern
ed& = Control("Richedit","",$54011004,10,40,360,362,%hwnd,9000,%hInstance,$0)
Su Programa me está como Prf abgestürzt, como el Bild no gespeichert voluntad podría. Kann ser, dass el una Problema de XProfan 12 es, porque deine Exe se ejecuta sí einwandfrei, auch en me bajo Win 7.
como du lo gespeichert hast, ha lo en el Interpreter no funktioniert, lo kam una Bild el Größe 0 heraus.
KompilierenMarcaSeparación
así funktioniert lo aber einwandfrei
KompilierenMarcaSeparacióntexto$=new_file$+"\Bild.png"
BlockWrite texto$,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,
es eigentlich no así wichtig. Hatte lo beim optischen Aufpeppen una vez en PCU intenta.
Kann aber auch otra vez como vorher angewendet, de Pascals Ejemplo (RTF-Editar con fester Höhe y Breite), el Breite festlegen. |
|
| |
| |
| |
|
|
Dieter
Zornow | Hola Tomás,
habe el Solución gefunden, Yo una festen Multiplikator instalado el el Texto siempre en una feste Größe relativ a Controlgröße setzt. Desde que el sólo para lesen überlanger Textos pensamiento hatte, funktioniert lo en así speziellen Anwendungen, wo lo muy genau ser muss, no zufriedenstellend. Yo muss wohl el Función en una Parámetro para Einstellen des Multiplikators erweitern, entonces puede ser el Relative Größe para Control einstellen.
Yo habe 12 como Standard eingestellt, en dir debería lo 15 ser en genau el gewünschte Größe a obtener |
|
| |
| 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 | ¡Hola Dieter,
DANKE para el Mühe. Geht ahora, y voluntad lo todavía en el Etiketten testen, si du Por favor, el Función ändern Font markierter Texto dahin erweitern würdest, dass en el Fontdialog igual Art, Höhe, Farbe, usw. des markierten Textes vorgegeben voluntad. |
|
| |
| |
| |
|
|
Dieter
Zornow | Hola Tomás,
Yo weiß ahora no qué du media. Meinst du SETMARKEDTEXTFONT Der Fontdialog es sí no en el PCU disponible. Hier se sí sólo el Name des Fonts como String transferencia. Den Diálogo dazu musst du sí incluso redactar. Im Demo es él auch außerhalb. Oder media du qué más. |
|
| |
| 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 | Sí, el Fontdialog es extern. Posesiones el Ejemplo veces erweitert. Ein GETGetMarkedTextSize(), ists FETT, KURSIV, usw., kann Yo no encontrar oder como hast Si es usted el realisiert hast.
Ob el Solución Höhe y Farbe allgemeingültig es???
Lassen el otro Einstellungen auch todavía una GetMarkedTextSize(ed&)-Abfrage realisieren? |
|
| |
| |
| |
|
|
Dieter
Zornow | Hola Tomás,
Das Auslesen si una Schrift Fett usw es, es no enthalten, esta Características Yo sólo como Umschalter drin. Wenn algo fett es se lo beim Aufruf normal y umgekehrt. Wäre aber kein Problema algo como einzubauen, como Yo beim umschalten en efecto el jeweiligen Zustand ermitteln muss. Werde el en el 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 se bien. Neben el Fontdialog läßt se sí entonces auch en markiertem oder en Curserposition en el Texto, el Darstellung des entsprechenden Button steuern. DANKE! |
|
| |
| |
| |
|
|
Thomas
Freier | ¡Hola Dieter,
bevor Yo mich el Objekten zuwende, Todavía una Problema.
Bis dato bin I, con el Erstellung, Bearbeitung, usw. el RTF muy zufrieden. Nun, por Zufall entdeckt, führt una Rechtsklick en el RTF a uno Speicherverletzung.
Könntest du, oder cada el daran Spaß ha, Por favor, una vez en el stark eingekürzten Script sehen, qué falso se ejecuta.
KompilierenMarcaSeparación $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 | ¡Hola Dieter,
habe el Fehler einkreisen puede:
R_GETRIGHTCLICKMENU(ed&) 'Rechtsklickabfrage muß disponible ser, auch si RTFMenu(ed&) no gesetzt es. Ist en el Ejemplo DEMO.rtf nachzuvollziehen.
Leider öffnet se entonces auch sin RTFMenu(ed&) el Menü, qué mich no stören sería, aber desafortunadamente es en meiner Bilder-RTF el Druck entonces unvollständig. |
|
| |
| |
| |
|
(905)
Deutsch
English
Français
Español
Italia