EditorGadget und Cursor

Anfängerfragen zum Programmieren mit PureBasic.
lite
Beiträge: 122
Registriert: 27.08.2012 21:08

EditorGadget und Cursor

Beitrag von lite »

Hallo

Wie kann ich im einem des EditorGadget den Cursor unsichtbar machen ?
Ein TextGadet möchte ich nicht nehmen, weil es da nicht so einfach ist, formatierten Text auszugeben.
Mit DisableGadget geht es ohne Probleme, nur werden dann die Farben nicht mehr richtig dargestellt.
Eine Lösung ohne Callback wäre wünschenswert.

Code: Alles auswählen

If OpenWindow(0,0,0,500,550,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EditorGadget(1,10,10,480,230,0)
  EditorGadget(2,10,260,480,230,0)
  DestroyCaret_()
    
  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf


Grüße
Lite
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: EditorGadget und Cursor

Beitrag von RSBasic »

DestroyCaret_() muss soweit ich weiß dauerhaft in der Event-Schleife ausgeführt werden:

Code: Alles auswählen

EnableExplicit

Define Event

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(1, 0, 0, 500, 400, 0)
  
  Repeat
    Event = WaitWindowEvent()
    DestroyCaret_()
    Until Event = #PB_Event_CloseWindow
EndIf
Callback wäre glaube ich besser.

Ansonsten gibt es auch diese Möglichkeit: https://www.rsbasic.de/aktualisierung/w ... tierung.pb
Leider funktioniert es nur ohne Unicode. Wenn jemand den Code Unicode-fähig machen kann, wäre das sehr nett.
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Antworten