Setzen/Abfragen der Cursorposition beim EditorGadget

[TKRoth]

Moinsens an alle!

Vielleicht ist es eine doofe Frage aber mit der Forensuche bin ich bisher nicht fündig geworden.

Wie kann man im EditorGadget die aktuelle Cursorposition abfragen oder setzen?

Danke für die Mühe im vorraus

[Kiffi]

Wie kann man im EditorGadget die aktuelle Cursorposition abfragen oder setzen?

guck mal hier unter EditorGadget nach:

http://www.rsbasic.de/winapi-library/

Sollte eigentlich was zu finden sein.

Grüße ... Kiffi

[Nino]

mit der Forensuche bin ich bisher nicht fündig geworden.

Wenn ich nach "Cursorposition Editorgadget" (ohne die Anführungszeichen) suche, dann finde ich einiges, u.a. das worauf Kiffi schon hingewiesen hat.

Und verwende doch bitte für einen neuen Thread einen aussagekräftigen und sachlichen Titel! Das wäre hier etwa "Setzen/Abfragen der Cursorposition im Editorgadget". Das macht das Lesen des Forums und eine spätere Suche für andere leichter.

[rolaf]

http://www.rsbasic.de/winapi-library/

Sollte eigentlich was zu finden sein.

Jo, is was zu finden und um den Thread noch sinnvoller zu machen, das hier:

Code: Alles auswählen

;Autor: Josef Sniatecki

EnableExplicit

Define EventID

Procedure.i EditorGadgetCursorX(Gadget.i)
  Protected GadgetID.i = GadgetID(Gadget), Range.CHARRANGE
 
  SendMessage_(GadgetID, #EM_EXGETSEL, 0, @Range)
  ProcedureReturn (Range\cpMax - (SendMessage_(GadgetID, #EM_LINEINDEX, SendMessage_(GadgetID, #EM_EXLINEFROMCHAR, 0, Range\cpMin), 0)) + 1)
EndProcedure

Procedure.i EditorGadgetCursorY(Gadget.i)
  Protected GadgetID.i = GadgetID(Gadget), Range.CHARRANGE
 
  SendMessage_(GadgetID, #EM_EXGETSEL, 0, @Range)
  ProcedureReturn SendMessage_(GadgetID, #EM_EXLINEFROMCHAR, 0, Range\cpMin) + 1
EndProcedure

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TextGadget(1,10,10,WindowWidth(0)-20,30,"Cursorposition X: "+Chr(13)+"Cursorposition Y: ",0)
  EditorGadget(2,10,50,WindowWidth(0)-20,WindowHeight(0)-60,0)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID=#PB_Event_Gadget
      Select EventGadget()
        Case 2
          SetGadgetText(1,"Cursorposition X: "+Str(EditorGadgetCursorX(2))+Chr(13)+"Cursorposition Y: "+Str(EditorGadgetCursorY(2)))
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

[TKRoth]

Erst einmal 1000 Dank. Jetzt sieht mein Programm schon besser aus

Wenn ich mal wieder 'ne doofe Frage habe, werde ich den Titel besser wählen . Ansonsten gibt es evtl. bald eine Anwendung hier zu sehen

[Nino]

Sei doch bitte so nett, und passe diesen Titel jetzt auch noch an. Danke!
(Nach dem Anmelden haben deine "alten" Beiträge eine Schalfläche mit der Aufschrift "ändern".)

[WPö]

Willkommen im Forum, TK!

Gruß - WPö

[TKRoth]

Danke sehr. Mein aktuelles Programm nimmt auch langsam Form an. Wenn meine Kunden nicht wären, würde ich noch schneller voran kommen

[WPö]

Wenn meine Kunden nicht wären, würde ich noch schneller voran kommen

Dann werd' sie doch los!
Ne, Deine Netzpräsenz habe ich mir mal kurz 'reingedrückt. Sieht ganz nett aus. Weiter so!

Gruß - WPö