Editorgadget ohne rahmen ?

[MVXA]

Hallo !
Ich will in meinem Programm ein Editorgadget benutzen, dass kein Rahmen hat. ist das möglich o_O ? Hba schon im Codearchiv nachgeguckt, aber leider nichts gefunden

[sbehrens]

Vielleicht funzt es mit: #PB_Frame3D_Flat oder vielleicht gibt es eine noch nicht dokumentierte Konstante, zB. #PB_Editor_Flat oder #PB_Editor_NoBorder, aber ist das denn so wichtig?

mfG
Basti

[MVXA]

Ist schon wichtig, hätt im Programm das Editorgadegt lieber ohne rahmen.

[Falko]

Hab's mal aus dem Beispiel ( http://www.pocketpcdn.com/articles/prin ... caret.html ) so versucht. Ich weis aber nicht, ob das in etwa so gemeint ist.
Mit Sendmessage kann man die Ränder links und rechts mittels Danilos Proc's setzen.

Code: Alles auswählen

;EditGadgent no border with Margin 
;Written by Falko
;Procedures LOWORD, HIWORD and MAKELONG from Danilo (old german Forum)
;
Procedure LOWORD(value) 
  ProcedureReturn value & $FFFF 
EndProcedure 

Procedure HIWORD(value) 
  ProcedureReturn (value >> 16) & $FFFF 
EndProcedure 

Procedure MAKELONG(low,high) 
  ProcedureReturn low | (high<<16) 
EndProcedure 
   
#EC_RIGHTMARGIN = 2


If OpenWindow(0,0,0,322,150,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"EditorGadget") And CreateGadgetList(WindowID(0)) 
    hEdit=EditorGadget (0,-1,-1,322,150,#PB_Container_Raised) 
   
    For a=0 To 5 
      AddGadgetItem(0,a,"Line "+Str(a)) 
    Next 
    SendMessage_(hEdit,#EM_SETMARGINS,#EC_LEFTMARGIN | #EC_RIGHTMARGIN,MAKELONG(100,10))

    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow 
  EndIf