XProfan

10/21/07 ▲

- Page 2 -

Jörg
Sellmeyer

everything clear, i'm eh ne nachteule

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

GDL

now goes through chance everything, if I to waitinput NEN setfocus(edit&) einsetze.
Compile Mark Separation

whilenot ende%

    setfocus(edit&)
    waitinput

    if (%umessage=16) or (menuitem(450))

        aufraeumen
        ende%=1

    elseIf %wmNotify and (%NotifyCode = ~SCN_MARGINCLICK)

        I% = sendmessage(edit&,~SCI_POSITIONFROMPOINT,0,%MouseY - 80)
        Der Wert 80 in obiger Zeile wurde durch Testen ermittelt.Sonst geht
        Aufklappen nicht richtig !
        I% = sendmessage(edit&,~SCI_LINEFROMPOSITION,I%,0)  + 1
        sendmessage(edit&,~SCI_TOGGLEFOLD,I%,0)

    ElseIf MenuItem(13)   Enter-Taste

        if not(sendmessage(edit&,~SCI_GETLINEVISIBLE,aktuellezeile_(), 0))   gefaltet

            sendmessage(edit&,~SCI_TOGGLEFOLD,aktuellezeile_(), 0)

        endif

        sendmessage(edit&,~SCI_ADDTEXT, 2, Addr(CRLF$))
        CRLine% = aktuellezeile_() - 1
        i% = sendmessage(edit&,~SCI_GETLINEINDENTATION, CRLine% - 1, 0)
        sendmessage(edit&,~SCI_SETLINEINDENTATION, CRLine%, I%)
        i% =sendmessage(edit&,~SCI_GETLINEINDENTPOSITION, CRLine%, 0)
        sendmessage(edit&,~SCI_GOTOPOS, i%, 0)
        zeile_ermitteln

the it now goes is certainly NEN Doppelfehler, the itself then aufhebt.important iss, that my Zusammengesuche ausm Xprofed at all goes.
be still on the Search Why the waitinput durchbrochen becomes.becomes the in the XProfed class already set?

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

have yet moreover rumprobiert.

setfocus(edit&) or setfocus(editor_&) can to waitinput ,into individual inquire,so often stand as likes, It's all right not.standing But to waitinput goes everything.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

@ Jörg,

have time everything so far abstracted,so far I yet be.The Exe is run.any code lying with.in the Ordner 01Test run.

Hello
Georg

01test.zip	578 kB

Hochgeladen:	10/24/07

Downloadcounter:
		Download

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

GDL

You would have it none to individual inquire settle must, separate to the If-structure in the Hauptschleife.
Compile Mark Separation

While 1

    WaitInput

    If 1

        ...

    ElseIf 2

        ...

    ElseIf ...

        ...

    EndIf

    SetFocus(Editor&)

Wend

But letzendlich alike.
i'd only The Variable editor_& not global define, separate inside the procedure. then must of course any further, Procedures, The the control bearing still in the first row one Parameters editor_&,...,... having, but you have then The Procedures beautiful gekapselt and can with want further Editcontrols in Your Program produce.
your Includedatei becomes simply flexibler.
Greeting
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

- Page 3 -

GDL

have with the whom Parameters now made.

come but now here again not further.

an File loading goes correct.want now these Proc for benefit circa too makros To loading.These are simple Text files.

only should these Text files among themselves eingefügt and be not always as new file.
means read I The Number of vorhandenen Lines from and commit these with zei&.
Compile Mark Separation

proc makroladen

    Parameters File$,editor_&,zei&
    print str$(zei&)
    Declare Len&, Erg&, BDatei#
    Len& = FileSize(File$)
    Dim BDatei#, Len&  + 1       +1 für abschließendes Null-Byte
    BlockRead(File$, BDatei#,zei&, Len&)
    Byte BDatei#, Len& = 0
    statt: sendmessage(editor_&,~SCI_SETTEXT,0,BDatei#)
    sendmessage(editor_&,~SCI_SETTEXT,zei&,BDatei#)  geht nicht
    sendmessage(editor_&,~SCI_SETTEXT,zei&-1,BDatei#)  geht nicht
    sendmessage(editor_&,~SCI_SETSAVEPOINT, 0, 0)
    sendmessage(editor_&,~SCI_EMPTYUNDOBUFFER, 0, 0)
    Dispose BDatei#
    Erg& = 1

Windows7 Xprofan 8,9,10 [...]

You could wm_paste benefit or rather settext editor_&,gettext$(editor_&)+

+neuerInhalt$

GDL

I have it now so resolved: I copy The File into Clipboard and setting it then through Insert into document.

Windows7 Xprofan 8,9,10 [...]

GDL

Posting has überschnitten.

Windows7 Xprofan 8,9,10 [...]

GDL

all this only, because I mean Modellbahnsteuerung DCC compatible made have.
me alone had my rtf Gewurstel too gelangt.

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Hello Georg,
look you time that here of Andreas Miethe on:
[web]https://www.rgh-soft.de/forum01/read.php?f=7&i=12314&t=12260#reply_12314[/web]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...