Tabs im Editorgadget

[Serge]

Ist es möglich ein Editor Gadget so einzustellen dass da Tabs funktionieren und nicht statdessen der Focus auf das nächste Gadget überspringt?
Und noch was eher unwichtiges, kann man das Scrollbar per Mausrad scrollen lassen?

[Franky]

Also, ich wüsste jetzt nur

Code: Alles auswählen

if event=#wm_keydown
        select eventwparam()
             case #vk_tab
                     if getfocus_()=gadgetid(#editorgadget)
                                    buffer.s=space(20000)                                    sendmessage(gadgetid(#editorgadget),#em_getseltext,0,buffer)
text=space(10)+buffer
          sendmessage(gadgetid(#editorgadget),#em_replacesel,1,text)
         endif
endselect
endif

Ist jetzt ungetestet, sollte so in etwa funzen

[ts-soft]

Vielleicht den TAB-Style der anderen Fenster entfernen. Geht mit folgender Prozedure:

Code: Alles auswählen

Procedure HideTabJump(Gadget.l, Flag.l)
  If Flag
    ProcedureReturn SetWindowLong_(GadgetID(Gadget),#GWL_STYLE, GetWindowLong_(GadgetID(Gadget), #GWL_STYLE) & (~#WS_TABSTOP))
  Else
    ProcedureReturn SetWindowLong_(GadgetID(Gadget),#GWL_STYLE, GetWindowLong_(GadgetID(Gadget), #GWL_STYLE) | #WS_TABSTOP)
  EndIf
EndProcedure

Kannste TAB setzen und entfernen

[Serge]

Yoa damit funktioniert das rüberspringen zum nächsten Gadget nicht mehr, aber leerer Platz wird leider dennoch nicht erzeugt

[bluejoke]

Ist Tab nicht ein Zeichen wie auch Zeilenumbruch u.s.w.?
Du müsstest doch dann einfach bei jedem Tab ein Tab-Zeichen in das Editor-Gadget setzen. Oder halt 2 - unendlich Leerzeichen.

[gonimaus]

Versuchs mal mit diesem Beispiel
http://www.purearea.net/pb/CodeArchiv/G ... Editing.pb . Lass Dich dabei nicht von den vielen Konstanten beeindrucken.

Mit RemoveKeyboardShortcut(#WINDOW_MAIN, #PB_Shortcut_Tab) klappt es bei mir.

Gruß Gonimaus