PureBoard

Verfasst: **26.10.2006 16:56**

Achso, du weißt wie mans färbt? Und brauchstnur die Suchprozedur? Da kann dir bestimmt jemand helfen. Könnte ich auch, hab aber grad keine Zeit, sy.

Verfasst: **26.10.2006 18:24**

genau, nur die suchprozedure.
Nur ich weis nicht, wie ich die machen kann. Alle meine Versuche sind gescheitert

Naja kann mir jmnd eine schreiben??

Grüße JohnMC

Verfasst: **26.10.2006 18:36**

ERstmal würd ich Getgadgettext() verwenden, und dann findstring() dann diversere len und left und right befehle. Wenn ich noch Zeit habe, dnan uche ich noch was raus.

Verfasst: **26.10.2006 21:00**

JohnMC hat geschrieben:genau DAS klapptbei mir nicht....also ich brauch eigentlich nur ne procedure die mir nach einem "<"-zeichen sucht, und wenn sie eins gefunden hat, das nächstbeste ">"-zeichen findet und beide positionen zurückgibt. dann kann ichs ja färben!

achja, welche parameter müssen bei dem folgenden sendmessage_() hin:
Code: Alles auswählen
sendmesssage_(gadgetid(),#em_exstesel,??,??)
also die parameter wo ich durch ?? ersetzt habe, bei denen weis ich nicht was da rein kommt....

grüße JohnMC

Code: Alles auswählen

Procedure Editor_Select(Gadget, LineStart.l, CharStart.l, LineEnd.l, CharEnd.l)
  Protected sel.CHARRANGE
  sel\cpMin = SendMessage_(GadgetID(Gadget), #EM_LINEINDEX, LineStart, 0) + CharStart - 1
  If LineEnd = -1
    LineEnd = SendMessage_(GadgetID(Gadget), #EM_GETLINECOUNT, 0, 0)-1
  EndIf
  sel\cpMax = SendMessage_(GadgetID(Gadget), #EM_LINEINDEX, LineEnd, 0)
  If CharEnd = -1
    sel\cpMax + SendMessage_(GadgetID(Gadget), #EM_LINELENGTH, sel\cpMax, 0)
  Else
    sel\cpMax + CharEnd - 1
  EndIf
  ProcedureReturn SendMessage_(GadgetID(Gadget), #EM_EXSETSEL, 0, @sel)
EndProcedure

Verfasst: **30.10.2006 12:19**

@alves:
hattest du jetzt mal zeit oder kannst du dir mal kurz zeit nehmen für die suchprocedure??

THX
Mb Grüße JohnMC

PureBoard

EditorGadget und Syntax-Highlighting