PureBoard

Verfasst: **06.01.2005 23:46**

also jetz so

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

oder wie?

Verfasst: **06.01.2005 23:53**

> 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

Verfasst: **06.01.2005 23:59**

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???

Verfasst: **07.01.2005 00:05**

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

Verfasst: **07.01.2005 00:05**

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

Verfasst: **07.01.2005 00:08**

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

Verfasst: **07.01.2005 00:17**

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, "") ???

Verfasst: **07.01.2005 00:52**

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

Verfasst: **07.01.2005 01:12**

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

Ich glaub die Umlaute sind auch nicht korrekt

Verfasst: **07.01.2005 01:18**

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]

PureBoard

openwindow() öffnet sich net,debugger meldet nix