XProfan

Georg
Hovenbitzer

Hello together,

the trouble can z.B. so bypass:
Compile Mark Separation

Declare Infofenster&
Declare Inforich&
Declare Infoend&
Declare Go&
Struct Gettextlengthex = Flags&,
Codepage&
Declare Gettextlengthex#
Dim Gettextlengthex#,Gettextlengthex

Proc Infofenster

    Infofenster& = @Create(Window,%Hwnd,Infos,((%Maxx / 2) - 300),((%Maxy / 2) - 200),600,400)
    Inforich& = @Create(RichEdit,Infofenster&,,1,1,592,320)
    @Sendmessage(Inforich&,$45B,1,0)

    If @Fileexists(D:\RTFInfo.rtf)

        @Rtf(LoadRTF,Inforich&,D:\RTFInfo.rtf)

    Endif

    Infoend& = @Create(Button,Infofenster&,Beenden,259,328,82,22)
    @Setfocus(Inforich&)

Endproc

Proc Infosave

    If @Sendmessage(Inforich&,$45F,,Gettextlengthex#,0) > 0

        @Rtf(SaveRTF,Inforich&,D:\RTFInfo.rtf)

    Else

        Assign #1,D:\RTFInfo.rtf
        Erase #1

    Endif

Endproc

Cls
Go& = @Create(Button,%Hwnd,Go,100,100,80,40)

Whilenot %Key = 2

    Waitinput

    If @Clicked(Go&)

        Infofenster
        @Setfocus(Infofenster&)

    Elseif (@Clicked(Infoend&) And (@Getactivewindow() = Infofenster&))

        Infosave
        @Destroywindow(Infofenster&)
        @Setfocus(%Hwnd)

    Endif

Endwhile

4 href='./../../function-references/XProfan/end/'>End

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

07/21/06 ▲

Georg
Hovenbitzer

Hello together,

could itself someone please times this code standing

The problem with the clear RTF File can I Yes bypass.
But if to the whole Translated crashes the program with of/ one Schutzverletzung ex.
and this always if it a RTF File with Content at Call the Fensters reading wants

have I here something utterly wrong understood ?!?!

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

Rolf
Koch

Hi Georg,

versuchs time with folgendem:
[...]

Georg
Hovenbitzer

Hello Rolf,

many Thanks, but with the hint has it neither worked.

But if one with Control one RTF Edit prepares, works everything.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

Sebastian
König

with Profan2Cpp funktionierts without crash - verkehrte world

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

RGH

Georg Hovenbitzer

Hello Rolf,

many Thanks, but with the hint has it neither worked.

But if one with Control one RTF Edit prepares, works everything.

with which Control-row very works everything? If you these time postest, can I tappt im dunkeln with my code in XProfan vergleichen and Perhaps so the trouble on The track come.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Georg
Hovenbitzer

Hello Roland,

my response on Rolf was something voreilig.

with the row:
Compile Mark Separation

@Control(RichEdit,,$5430D1C4,1,1,592,340,InfoFenster&,100,%hInstance,$210)

get I it in the Interpreter tidy running, but as EXE not any more

these in the but even first noticed, I me before already for a MultiEdit decided have.
The Hauptgrund was for, that one The functions on the rechten Mouse button directly has and not self Coden must.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

07/26/06 ▲