openwindow() öffnet sich net,debugger meldet nix

[captain third]

also jetz so

Code: Alles auswählen

setgadgettext(#Editor_0,"Text",#em_replacesel)

oder wie?

[Kiffi]

> oder wie?

Franky schrieb: "Sendmessage() mit #em_replacesel"

Code: Alles auswählen

Text.s = "SendMessage_() ist eine API-Funktion"
SendMessage_(GadgetID(#Editor_0), #EM_REPLACESEL, #False, @Text)

Grüße ... Kiffi

[captain third]

achso...also kann ich das so machen

Code: Alles auswählen

SendMessage_(GadgetID(#Editor_0), #EM_REPLACESEL, #False, "hier kommt mein text rein") 

oder muss ich immer mit @text machen???

[Franky]

Probieren geht über studieren (im ernst, ich weiß es gerade nicht, aber bin zu faul es zu testen, ausserdem, DU willst es ja wissen )

Versuchs, wenns nicht klappt, klappt es nicht

[ts-soft]

oder muss ich immer mit @text machen???

Der Compiler weiß automatisch, das er die Adresse übergeben muß, aber da dieses Future nicht dokumentiert ist wäre es mit @Text korrekter

[captain third]

och ich habs grade so ausprobiert wie ichs dachte...und es funzt wunderbar....

[captain third]

ich weiß ja wie ich nerven kann....ich hab nämlich nochne frage... und zwar bei sowas hier

Code: Alles auswählen

      If EventGadgetID()=#Button_12
       SendMessage_(GadgetID(#Editor_0), #EM_REPLACESEL, #False, "
       SetGadgetText(#Editor_0,"<table border=anführungsstriche zahl anführungsstriche>")
       SetGadgetText(#Editor_0,"<tr>")
       SetGadgetText(#Editor_0,"<td>Test1</td>")
       SetGadgetText(#Editor_0,"<td>Test2</td>")
       SetGadgetText(#Editor_0,"</tr>")
       SetGadgetText(#Editor_0,"<tr>")
       SetGadgetText(#Editor_0,"<td>Test2</td>")
       SetGadgetText(#Editor_0,"<td>Test3</td>")
       SetGadgetText(#Editor_0,"</tr> ")
       SetGadgetText(#Editor_0,"</table>")
      EndIf

da will ich nicht immer unternander SendMessage_(GadgetID(#Editor_0), #EM_REPLACESEL, #False, "") haben (auch wenn ichs noch net gemacht habe ) schreiben,da ja sowiso alles dann im #Editor_0 alles auf einer zeile ist...wie bekomm ich es unternander??? mit nur einmal SendMessage_(GadgetID(#Editor_0), #EM_REPLACESEL, #False, "") ???

[Kiffi]

Code: Alles auswählen

sHTML.s
sHTML = "<table border=anführungsstriche zahl anführungsstriche>" + #CRLF$
sHTML + " <tr>" + #CRLF$
sHTML + "  <td>Test1</td>" + #CRLF$
sHTML + "  <td>Test2</td>" + #CRLF$
sHTML + " </tr>" + #CRLF$
sHTML + " <tr>" + #CRLF$
sHTML + "  <td>Test2</td>" + #CRLF$
sHTML + "  <td>Test3</td>" + #CRLF$
sHTML + " </tr>" + #CRLF$
sHTML + "</table>" + #CRLF$
SetGadgetText(#Editor_0,sHTML) 

#CRLF$ steht hier für einen Zeilenumbruch

Grüße ... Kiffi

[ts-soft]

sHTML = "<table border=anführungsstriche zahl anführungsstriche>" + #CRLF$

Ich glaub die Umlaute sind auch nicht korrekt

[Falko]

oder so

Code: Alles auswählen

#Editor_0=1
;---------------------------------------------------------------
Text$="<table border=anführungsstriche zahl anführungsstriche>"
Text$=Text$+"<tr>"+Chr(13)+Chr(10)
Text$=Text$+"<td>Test1</td>"+Chr(13)+Chr(10)
Text$=Text$+"<td>Test2</td>"+Chr(13)+Chr(10)
Text$=Text$+"</tr>"+Chr(13)+Chr(10)
Text$=Text$+"<tr>"+Chr(13)+Chr(10)
Text$=Text$+"<td>Test2</td>"+Chr(13)+Chr(10)
Text$=Text$+"<td>Test3</td>"+Chr(13)+Chr(10)
Text$=Text$+"</tr>"+Chr(13)+Chr(10)
Text$=Text$+"</table>"
;--------------------------------------------------------------

If OpenWindow(0,0,0,422,180,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"EditorGadget") And CreateGadgetList(WindowID(0)) 
    EditorGadget(#Editor_0,8,8,400,160);#PB_Container_Raised) 
    SetGadgetText(#Editor_0,Text$)
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow 
EndIf 

[Edit] Habs zu spät gesehen bzw. war zu langsam [/Edit]