XProfan

- page 4 -

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é.

Gruß Thomas
Windows XP SP2, XProfan X2

23.02.2010 ▲

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?

Mekzettel-2T.zip	8 kB

Hochgeladen:	24.02.2010

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

24.02.2010 ▲

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!

Gruß Thomas
Windows XP SP2, XProfan X2

25.02.2010 ▲

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.
Kompilieren Marque Sé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

rtf-bild-0.exe	540 kB

Hochgeladen:	09.12.2010

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

09.12.2010 ▲

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.

Gruß Thomas
Windows XP SP2, XProfan X2

- page 5 -

Dieter
Zornow

allô Thomas,

soll je dir cela Rechtsklickmenü rausnehmen et dir qui Version zusenden ? je muss mir cela ganze nochmals anschauen, comment qui Zusammenhänge sommes, habe je pour qui langen Zeit oublier qc. la fois voyons si je une commutateur pour ausschalten rein bekomme. je peux aussi seulement cela Drucken aus dem menu rausnehmen, alles autre pourrait oui venons.

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

allô Thomas,

habe den Sündenbock trouvé, qui verbesserte Version habe je dir per Mail zugeschickt. Es lag à qui 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

allô Dieter,
arrivé, getestet et maintenant fonctionne es correct.
je pourrait sur DRUCKEN verzichten, car chez den meisten Texteditoren bekommt on seulement Marque, Ausschneiden, insérer, usw. angeboten.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

allô Thomas,

délicat, dass es klappt. avec dem Drucken voulais je mich comment je Zeit et Lust habe, oui sowieso nochmal beschäftigen um aussi chez vielen Bildern qui dernier la ligne encore avec auszudrucken.

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