Cursor im StringGadget verschieben

[marco2007]

Code: Alles auswählen

Range.CHARRANGE

Was ist den das schon wieder? .rect und ähnliches habe ich ja schon des öfteren gesehen aber CHARRANGE....

Achja, kleine Verbesserung für Edel`s Code:

Code: Alles auswählen

ButtonGadget(4,240,10,25,23,"v") 

[ts-soft]

Code: Alles auswählen

Range.CHARRANGE

Was ist den das schon wieder?

Code: Alles auswählen

Structure CHARRANGE
  cpMin.l
  cpMax.l
EndStructure

[marco2007]

Ich war natürlich gleich auf MSDN.
Und noch etwas ist mir aufgefallen: Du nutzt hier Rückgabewerte von SendMessage ..habe ich ehrlich gesagt auch noch nie gesehen bzw. ist es mir noch nie aufgefallen.

Der kurze Code ist gar nicht so einfach wie er scheint.

[edel]

Es steht immer dabei was zurueck kommt.

Return Value

[dysti]

Nun ja, hiermit geht es auch hoch und runter:

Code: Alles auswählen

If OpenWindow(0, 0, 0, 322, 180, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  EditorGadget(0, 8, 8, 306, 133)
  ButtonGadget(1, 160, 150, 60, 25, "=>")
  ButtonGadget(2, 100, 150, 60, 25, "<=")
  ButtonGadget(3, 220, 150, 60, 25, ">")
  ButtonGadget(4, 50, 150, 60, 25, "<")
  Define I.l, X.l, Y.l, Text.s
 
  For I = 1 To 8
    Text + "Feel the ..Pure.. Power" + #CRLF$
  Next
  SetGadgetText(0, Text)
  Editor_SetCursorPos(0, 5, 5)
  SetActiveGadget(0)
 
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
     
      Case #PB_Event_Gadget
        If EventGadget() > 0
          X = Editor_GetCursorX(0)
          Y = Editor_GetCursorY(0)
          If EventGadget() = 1
            Editor_SetCursorPos(0, X + 1, Y)
          ElseIf EventGadget() = 2
            Editor_SetCursorPos(0, X - 1, Y)
          ElseIf EventGadget() = 3
            Editor_SetCursorPos(0, X, Y+1)
          ElseIf EventGadget() = 4
            Editor_SetCursorPos(0, X, Y-1)            
          EndIf
          SetActiveGadget(0)
        EndIf
    EndSelect
  ForEver
EndIf