| |
| |
|
Georg
Hovenbitzer | ¡Hola zusammen,
Yo hier una muy extraño Problema.
Der code unten erstellt, si todavía no disponible, una RTF Expediente y läd esta beim Drücken de Go siempre en el RichEdit Feld.
Soweit klappt auch alles 
Wenn Yo nun aber z.B. Línea 1 escribir, Editar Ventana schließen, otra vez abierto, el ganzen Texto löschen, Ventana schließen y otra vez abierto.
Bis dahin es alles O.K.
Wenn Yo nun una neuen Texto escribir y Edit Ventana schließe se dieser no mehr gespeichert 
El vacío rtf Expediente es esta siempre 128Bytes groß !!!
Mache Yo como qué falso oder va el Expediente beim Guardar, si kein Inhalt disponible es, kapput ?!?
Saludo
Georg
KompilierenMarcaSeparaciónDeclare Infofenster&
Declare Inforich&
Declare Infoend&
Declare Go&
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
@Rtf(SaveRTF,Inforich&,D:\RTFInfo.rtf)
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
../function-references/XProfan/end/'>End
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 21.07.2006 ▲ |
|
| |
|
|
Georg
Hovenbitzer | ¡Hola zusammen,
el problema puede ser z.B. así umgehen:
KompilierenMarcaSeparaciónDeclare 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) | 21.07.2006 ▲ |
|
| |
|
|
Georg
Hovenbitzer | ¡Hola zusammen,
podría se alguien Por favor, veces esta code ansehen 
Das Problema con el leeren RTF Expediente kann Yo sí umgehen.
Aber si al todo traducido stürzt el Programa con uno Schutzverletzung de.
Und dies siempre si él una RTF Expediente con Inhalt beim Aufrufen la ventana lesen voluntad
Posesiones Yo hier algo total falso verstanden ?!?! |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 25.07.2006 ▲ |
|
| |
|
|
Rolf
Koch | Hi Georg,
versuchs veces con folgendem:
[...]  |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | ¡Hola Rolf,
vielen Dank, aber con el Tip ha lo auch no geklappt.
Aber si uno con Control una RTF Editar erstellt, klappt alles. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 25.07.2006 ▲ |
|
| |
|
|
Sebastian
König | Mit Profano2Cpp funktionierts sin Choque - verkehrte Welt  |
|
| |
| |
| |
|
|
RGH | Georg Hovenbitzer
¡Hola Rolf,
vielen Dank, aber con el Tip ha lo auch no geklappt.
Aber si uno con Control una RTF Editar erstellt, klappt alles.
Mit welcher Control-Línea genau klappt alles? Si usted esta veces postest, kann Yo ellos con mi Code en XProfan vergleichen y tal vez así el Problema en el Spur kommen.
Saludo
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 | 25.07.2006 ▲ |
|
| |
|
|
Georg
Hovenbitzer | Hola Roland,
mi Antwort a Rolf war algo voreilig.
Mit el Línea:
KompilierenMarcaSeparación@Control(RichEdit,,$5430D1C4,1,1,592,340,InfoFenster&,100,%hInstance,$210) >
Bekomme Yo en el Interpreter sauber para Laufen, aber como EXE no mehr 
Dies es en el aber eben sólo aufgefallen, como Yo mich vorher ya para una Multiedit entschieden habe.
Der Hauptgrund war dafür, dass uno el Características en el rechten Botón del ratón direkt ha y no incluso Coden muss. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 26.07.2006 ▲ |
|
| |
|
(442)
Deutsch
English
Français
Español
Italia