XProfan

- Page 4 -

Dieter
Zornow

Hello Thomas,

have The Solution found, I have a solid Multiplikator installed the whom Text always on a solid Size relatively to Controlgröße setting. Since I the only to that reading überlanger Texts virtual having, functions it with so special Applications, where it very very his must, not zufriedenstellend. I must probably the Function to a Parameter to that take on the Multiplikators strain, then can The Relative Size to that Control take on.
I have 12 as standard tuned, with you should it 15 his circa very The desired Size to obtain

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

02/23/10 ▲

Thomas
Freier

Hello Dieter,
THANK YOU for trouble. goes now, and will be it yet with whom Etiketten testing, if You Please The function Change Font markierter Text to there strain would, that in the Fontdialog same manner, Höhe, colour, etc. the marked Textes pretended go.

Gruß Thomas
Windows XP SP2, XProfan X2

02/23/10 ▲

Dieter
Zornow

Hello Thomas,

I know now not what you mean. Meinst You SETMARKEDTEXTFONT The Fontdialog is Yes not in the PCU present. here becomes Yes only the name the Fonts as String transfer. whom dialog moreover must You Yes self create. in the demonstration is it too outside. or Dou you mean what other.

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

02/24/10 ▲

Thomas
Freier

Yes, the Fontdialog is extern. have the example time extended. One GETGetMarkedTextSize(), ists BIG, ITALIC, etc., can I not find or How have you got the realized have.
whether The Solution for Höhe and colour universally valid is???
let the others Settings too yet over a GetMarkedTextSize(ed&)-request release?

Mekzettel-2T.zip	8 kB

Hochgeladen:	02/24/10

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

02/24/10 ▲

Dieter
Zornow

Hello Thomas,

the Reading whether a Font Big etc is, isn't include, these functions have I only as Umschalter drin. If something big is becomes it when calling normal and inverse. would be but no trouble something like incorporate, I at switch indeed whom jeweiligen status detect must. will be the into next Meet install.

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

02/24/10 ▲

Thomas
Freier

the reads itself well. next to the Fontdialog can itself Yes then too with markiertem or with Curserposition in the Text, The statement the suitable Button steer. THANK YOU!

Gruß Thomas
Windows XP SP2, XProfan X2

02/25/10 ▲

Thomas
Freier

Hello Dieter,

before I whom Objects zuwende, have I another trouble.
To dato be I with the Creation, edit, etc. the RTF very pleased. now, through chance discover, introduce Rechtsklick in the RTF to a Speicherverletzung.
could you, or whoso on it Fun has, Please once on the heavy eingekürzten Script see, what wrong runs.
Compile Mark Separation

 $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:	12/09/10

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

12/09/10 ▲

Thomas
Freier

Hello Dieter,
have whom Error einkreisen can:
R_GETRIGHTCLICKMENU(ed&) 'Rechtsklickabfrage must present his, even if RTFMenu(ed&) not staid is. is in the example DEMO.rtf nachzuvollziehen.
unfortunately opens itself then too without RTFMenu(ed&) the Menu, what me not disturbing would, but unfortunately is with of my Images-RTF the pressure then unvollständig.

Gruß Thomas
Windows XP SP2, XProfan X2

- Page 5 -

Dieter
Zornow

Hello Thomas,

should I you the Rechtsklickmenü rausnehmen and you The Version zusenden ? I must me the whole over again look at, as Zusammenhänge are, have I to the long Time forget. time see whether I a switch for switch off mere get. I can also only the Print from the Menu rausnehmen, everything else could Yes come.

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

Hello Thomas,

have whom Sündenbock found, The improved Version have I you by Mail zugeschickt. it lying on the 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

Hello Dieter,
arrived, tested and now runs it fehlerfrei.
I could on DRUCKEN dispense, because with whom most Texteditoren get one only Mark, cut out, Insert, etc. offered.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Hello Thomas,

nice, that it works. with the Print wished I How I Time and pleasure have, Yes anyhow again keep busy circa too with many Images The latest row yet with to print.

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