| |
| |
|
Georg
Hovenbitzer | allô zusammen,
j'ai ici un très seltsames Problem.
qui code unten erstellt, si encore pas vorhanden, une RTF Dossier et läd cet beim Drücken de Go toujours dans cela RichEdit champ.
Soweit klappt aussi alles 
si je eh bien mais z.B. la ligne 1 écrivons, Éditer la fenêtre schließen, wieder ouvrir, den ganzen Text effacer, la fenêtre schließen et wieder ouvrir.
jusqu'à dahin ist alles O.K.
si je eh bien une neuen Text écrivons et cela Éditer la fenêtre schließe wird cette pas plus gespeichert 
qui le vide rtf Dossier ist dabei toujours 128Bytes grand !!!
fais je là quoi faux ou bien allez qui Dossier beim Sauver, si ne...aucune le contenu vorhanden ist, kapput ?!?
Salut
Georg
KompilierenMarqueSéparationDeclare 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/'>Fin
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 21.07.2006 ▲ |
|
| |
|
|
Georg
Hovenbitzer | allô zusammen,
cela Problem peux on z.B. so tourner autour de:
KompilierenMarqueSéparationDeclare 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/'>Fin
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 21.07.2006 ▲ |
|
| |
|
|
Georg
Hovenbitzer | allô zusammen,
pourrait sich quelqu'un s'il te plaît la fois cette code regarder 
cela Problem avec qui vider RTF Dossier peux je oui tourner autour de.
mais si on cela ganze traduit stürzt cela Programme avec einer Schutzverletzung ab.
et ca toujours si il une RTF Dossier avec le contenu beim Aufrufen des Fensters lesen veux
Habe je ici quelque chose total faux verstanden ?!?! |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 25.07.2006 ▲ |
|
| |
|
|
Rolf
Koch | Hi Georg,
versuchs la fois avec folgendem:
[...]  |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | allô Rolf,
vielen Dank, mais avec dem Tip hat es aussi pas geklappt.
mais si on avec Contrôle un RTF Éditer erstellt, klappt alles. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 25.07.2006 ▲ |
|
| |
|
|
Sebastian
König | avec Profan2Cpp funktionierts sans Absturz - verkehrte monde  |
|
| |
| |
| |
|
|
RGH | Georg Hovenbitzer
allô Rolf,
vielen Dank, mais avec dem Tip hat es aussi pas geklappt.
mais si on avec Contrôle un RTF Éditer erstellt, klappt alles.
avec quel Contrôle-la ligne oui c'est ca klappt alles? si Du cet la fois postest, peux je vous avec meinem Code dans XProfan comparer et peut-être so dem Problem sur qui vestige venons.
Salut
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 | allô Roland,
mon Antwort à Rolf était quelque chose voreilig.
avec qui la ligne:
KompilierenMarqueSéparation@Control(RichEdit,,$5430D1C4,1,1,592,340,InfoFenster&,100,%hInstance,$210) >
Bekomme je es im Interpreter net zum courir, mais comme EXE pas plus 
ca ist im mais tantôt aufgefallen, là je mich auparavant déjà pour un Multiedit entschieden habe.
qui Hauptgrund était pour, dass on qui Funktionen sur qui rechten Bouton de la souris direct hat et pas selbst Coden muss. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 26.07.2006 ▲ |
|
| |
|
(547)
Deutsch
English
Français
Español
Italia