PureBoard

Verfasst: **18.08.2008 20:05**

TS-Soft hat geschrieben:
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:

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

Verfasst: **18.08.2008 20:09**

marco2006 hat geschrieben:
TS-Soft hat geschrieben:
Code: Alles auswählen
Range.CHARRANGE
Was ist den das schon wieder?

Code: Alles auswählen

Structure CHARRANGE
  cpMin.l
  cpMax.l
EndStructure

Verfasst: **18.08.2008 20:19**

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.

Verfasst: **18.08.2008 23:02**

Es steht immer dabei was zurueck kommt.

Return Value

Verfasst: **20.08.2008 09:12**

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

PureBoard

Cursor im StringGadget verschieben