XProfan

- Página 4 -

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.

Gruß Thomas
Windows XP SP2, XProfan X2

23.02.2010 ▲

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?

Mekzettel-2T.zip	8 kB

Hochgeladen:	24.02.2010

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

24.02.2010 ▲

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!

Gruß Thomas
Windows XP SP2, XProfan X2

25.02.2010 ▲

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.
Kompilieren Marca Separació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

rtf-bild-0.exe	540 kB

Hochgeladen:	09.12.2010

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

09.12.2010 ▲

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.

Gruß Thomas
Windows XP SP2, XProfan X2

- Página 5 -

Dieter
Zornow

Hola Tomás,

se Yo dir el Rechtsklickmenü rausnehmen y dir el Versión zusenden ? Yo muss me todo nochmals anschauen, como Zusammenhänge son, Yo después de el langen Tiempo vergessen. Tiempo sehen si Soy un Schalter fürs ausschalten rein bekomme. También puedo sólo el Drucken de el Menü rausnehmen, alles otro podría sí kommen.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Dieter
Zornow

Hola Tomás,

habe el Sündenbock gefunden, el verbesserte Versión Yo dir por Mail zugeschickt. Lo lag a el objects.pcu

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

¡Hola Dieter,
angekommen, getestet y ahora se ejecuta lo fehlerfrei.
Yo podría en DRUCKEN verzichten, porque en el meisten Texteditoren bekommt uno sólo Marca, Ausschneiden, Einfügen, usw. angeboten.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hola Tomás,

fein, dass lo klappt. Mit el Drucken Yo quería mich Yo Tiempo y Lust habe, sí sowieso otra vez beschäftigen en auch en vielen Bildern el letzte Línea todavía con auszudrucken.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2