PureBoard

Shardik hat geschrieben:Dieses Code-Beispiel klemmt die Rück-/Backspace-Taste im Editor-Gadget mit Hilfe eines Callback komplett ab:

Code: Alles auswählen

Procedure EditorCallback(WindowHandle.L, Msg.L, wParam.L, lParam.L)
  Shared PreviousCallback.L

  If Msg = #WM_KEYDOWN
    If wParam = #VK_BACK
      ProcedureReturn 0
    EndIf
  EndIf

  ProcedureReturn CallWindowProc_(PreviousCallback, WindowHandle, Msg, wParam, lParam)
EndProcedure

OpenWindow(0,0,0,500,500,"Windows-Vorlage",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
EditorGadget(1,10,10,480,480,0)
PreviousCallback = SetWindowLong_(GadgetID(1), #GWL_WNDPROC, @EditorCallback())
SetActiveGadget(1)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Der Nachteil liegt darin, daß der eingegebene Text nicht mehr mit der Rück-Taste gelöscht werden kann. Dagegen funktioniert das Löschen von Zeichen mit der "Entf"-Taste (z.B. nach Änderung der Cursor-Position mit den Pfeiltasten) weiterhin problemlos. Soll die Zurück-Taste nur auf der ersten Zeichenposition einer Zeile abgeschaltet werden, müßte eine entsprechende Abfrage noch im Callback eingebaut werden.

Shardik hat geschrieben:Hier ist die Version, bei der die Rück-Taste nur für die erste Spalte abgeschaltet ist (wie die Ermittlung der Cursor-Position im EditorGadget funktioniert, hat netmaestro im englischen Forum bereits gezeigt: http://www.purebasic.fr/english/viewtop ... 50&start=3)

Code: Alles auswählen

Procedure EditorCallback(WindowHandle.L, Msg.L, wParam.L, lParam.L)
  Shared PreviousCallback.L

  Protected CharPosition.L
  Protected CurrentColumn.L
  Protected CurrentLine.L

  If Msg = #WM_KEYDOWN
    If wParam = #VK_BACK
      SendMessage_(GadgetID(1), #EM_GETSEL, @CharPosition, 0)
      CurrentLine = SendMessage_(GadgetID(1), #EM_LINEFROMCHAR, -1, 0)
      CurrentColumn = CharPosition - SendMessage_(GadgetID(1), #EM_LINEINDEX, -1, 0)

      If CurrentColumn = 0
        ProcedureReturn 0
      EndIf
    EndIf
  EndIf

  ProcedureReturn CallWindowProc_(PreviousCallback, WindowHandle, Msg, wParam, lParam)
EndProcedure

OpenWindow(0,0,0,500,500,"Windows-Vorlage",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
EditorGadget(1,10,10,480,480,0)
PreviousCallback = SetWindowLong_(GadgetID(1), #GWL_WNDPROC, @EditorCallback())
SetActiveGadget(1)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

#NULL hat geschrieben:

Code: Alles auswählen

OpenWindow(0,0,0,500,200,"Windows-Vorlage",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
  EditorGadget(1,10,10,480,180,0) :: SetActiveGadget(1)
Repeat
  event = WaitWindowEvent()
  SendMessage_(GadgetID(1), #EM_SCROLL, #SB_LINEDOWN, 0)
Until event = #PB_Event_CloseWindow

so geht schon das was du willst (der code ist in der form natürlich quark), aber du kriegst andere probleme, z.b. kann man mit dem cursor zu weit hoch laufen. vielleicht mußt du vorher die altuelle scrollweite checken, oder die cursor position.
kannst das ja auch mal in ein callback bauen und nur bei rücktaste ausführen. vielleicht eigntet sich auf eine andere konstante als #SB_LINEDOWN.
mußte mal hier gucken: http://msdn2.microsoft.com/en-us/library/bb775458.aspx ..bei > messages > EM_SCROLL oder WM_VSCROLL

<edit>

Code: Alles auswählen

SendMessage_(GadgetID(1), #WM_VSCROLL, #SB_ENDSCROLL, 0)

scheint ganz gut zu gehen.

Falko hat geschrieben:Naja, wer den Notepadeditor kennt, weiss, was gemeint ist
Anscheinend kann das EditorGadget() ohne API sowas nicht!!

Enter so lange drücken, bis der Cursor unten ist und sich der vertikale
Scrollbalken zeigt und verkleinert. Danach mal einfach die Backspacetaste
festhalten, sodaß der Cursor wieder bis zur ersten Zeile.
Dann mal die Augen aufmachen und sich wundern, warum das beim EditorGadget mit dem Cursor anders ist.

Mit dem Stringgadget wird der Notepad schon eher getroffen, ganz ohne API

Code: Alles auswählen

If OpenWindow(0,0,0,500,500,"Windows-Vorlage",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    StringGadget(1,10,10,480,480,"",#ES_MULTILINE| #ES_AUTOHSCROLL|#WS_VSCROLL )
  EndIf
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf 

[Edit] Zu langsam. Vorgänger hat es gut beschrieben. Nun macht mal
den Scrollbalken wieder weg
[/Edit]

Gruß Falko

Shardik hat geschrieben:Hurra, ich habe es endlich kapiert...

Ich versuche einmal das Problem mit meinen Worten in Form einer Anleitung nachvollziehbar zu machen:

1.Schritt: RSBasics erstes Code-Beispiel aus dem ersten Beitrag kopieren, in die PureBASIC-IDE einfügen und starten
2.Schritt: Den Cursor mit Mausklick in Zeile 1 und Position 1 sichtbar machen
3.Schritt: Solange <Enter> drücken bis ein Scroll-Balken erscheint
4.Schritt: Dann noch dreimal zusätzlich <Enter> drücken
5.Schritt: Dann dreimal die Rück-Taste drücken

Ergebnis: Der Cursor wandert hoch, aber eigentlich sollte er ja am Ende des Gadgets stehenbleiben und nur der Scroll-Balken sollte sich verkürzen

6.Schritt: Noch einmal die Rück-Taste drücken und voilá: der Scrollbalken ist weg und der Cursor steht wieder am Ende des Editor-Gadgets

Jetzt muß nur noch jemand eine Lösung finden...