FAQ PureBasicConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
If OpenWindow(0, 100, 200, 200, 200, "Annulation - undo") 
  ; Crée la liste de gadgets 
  StringGadget(0, 0, 0, 100, 20, "Texte initial")   
  ButtonGadget(1, 100, 100, 100, 100, "Annuler") 
  
  Repeat 
    EventID = WaitWindowEvent() 
 
    If EventID = #PB_Event_CloseWindow 
      Quit = 1 
    EndIf 
    If EventID = #PB_Event_Gadget 
      GadgetID = EventGadget() 
      If GadgetID = 1 
        SendMessage_(GadgetID(0), #EM_UNDO, 0, 0) 
      EndIf 
    EndIf 
 
  Until Quit = 1 
   
EndIf

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
; ************************************************ 
; Code:   Verticaly and Horizontaly centered text 
;         in a multiline StringGadget 
; Author: Sparkie 
; Date:   December 20, 2005 
; OS:     Windows only 
; ************************************************ 
 
; ************************************************ 
; Procedure: Center text in Multiline StringGadget 
; ************************************************ 
Procedure StringGadgetVCenter(gadNum) 
	;--> Get line count of StringGadget 
	lineCount = SendMessage_(GadgetID(gadNum), #EM_GETLINECOUNT, 0, 0) 
	myText$ = GetGadgetText(gadNum) 
	;--> Get width and height of text on one line 
	hdc = GetDC_(GadgetID(gadNum)) 
	GetTextExtentPoint32_(hdc, myText$, Len(myText$), @textXY.SIZE) 
	ReleaseDC_(GadgetID(gadNum), hdc) 
	;--> Set rect coordinates for StringGadget 
	eRect.RECT 
	eRect\left = 0 
	eRect\top = (GadgetHeight(gadNum) - textXY\cy*lineCount) / 2 
	eRect\right = GadgetWidth(gadNum) - (eRect\left * 2) 
	eRect\bottom = eRect\top + textXY\cy*lineCount 
	SendMessage_(GadgetID(gadNum), #EM_SETRECT, 0, eRect) 
EndProcedure 
; ************************************************ 
; Main Window 
; ************************************************ 
If OpenWindow(0, 0, 0, 300, 200, "StringGadget Centered Text", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
	;--> #ES_CENTER will not work with a singleline StringGadget on Win95/NT4 
	StringGadget(0, 50, 10, 200, 80, "Vertical and Horizontal" + #CRLF$ + "Centered Text in" + #CRLF$ + "Multiline StringGadget", #ES_MULTILINE | #ES_CENTER) 
	StringGadgetVCenter(0) 
	Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf 
End

1
2
3
4
5
6
7
8
 
NbCaractere = 4 
If OpenWindow(0, 0, 0, 200, 50, "StringGadget ", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
	StringGadget(0, 50, 10, 80, 20, "") 
  SendMessage_(GadgetID(0),#EM_SETLIMITTEXT,NbCaractere,0) 
	Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf 
End

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Global oldStringGadgetProc 
 
Procedure.i stringGadgetProc(hWnd, uMsg, wParam, lParam) 
  Protected result 
  Select uMsg 
      Case #WM_CONTEXTMENU 
        result = 0 
    Default 
      result = CallWindowProc_(oldStringGadgetProc, hWnd, uMsg, wParam, lParam) 
  EndSelect 
  ProcedureReturn result 
EndProcedure 
 
If OpenWindow(0, 100, 200, 300, 100, "Basic subclassing demo", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  StringGadget(0, 60, 40, 180,20,"") 
  oldStringGadgetProc = SetWindowLongPtr_(GadgetID(0), #GWL_WNDPROC, @stringGadgetProc()) 
 
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf

1
2
3
4
5
6
7
8
9
10
11
 
OpenWindow(0, 100, 100, 300, 100, "") 
StringGadget(0, 5, 5, 290, 20, "", #ES_PASSWORD) 
 
SendMessage_(GadgetID(0), #EM_SETPASSWORDCHAR, '#', 0) 
 
Repeat 
Event = WaitWindowEvent() 
Until Event = #PB_Event_CloseWindow 
 
End

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
CompilerIf #PB_Compiler_OS = #PB_OS_MacOS 
  ImportC "" 
    SetControlData(Control, ControlPartCode, TagName, BufferSize, *Buffer) 
  EndImport 
 
  #kControlEditTextPart = 5 
  #kControlEditTextSelectionTag = 'sele' 
 
  Structure ControlEditTextSelectionRec 
    selStart.W 
    selEnd.W 
  EndStructure 
CompilerEndIf 
 
OpenWindow(0, 100, 200, 400, 200, "", #PB_Window_MinimizeGadget) 
StringGadget(0, 50, 50, 200, 20, "example") 
Text$ = GetGadgetText(0) 
SetActiveGadget(0) 
 
CompilerSelect #PB_Compiler_OS 
  CompilerCase #PB_OS_MacOS 
    TextSelection.ControlEditTextSelectionRec 
    TextSelection\selStart = Len(Text$) 
    TextSelection\selEnd = Len(Text$) 
    SetControlData(GadgetID(0), #kControlEditTextPart, #kControlEditTextSelectionTag, SizeOf(ControlEditTextSelectionRec), @TextSelection) 
  CompilerCase #PB_OS_Linux 
    gtk_editable_set_position_(GadgetID(0), -1) 
  CompilerCase #PB_OS_Windows 
    SendMessage_(GadgetID(0), #EM_SETSEL, Len(Text$), Len(Text$)) 
CompilerEndSelect 
 
Repeat 
  EventID = WaitWindowEvent()    
Until EventID = #PB_Event_CloseWindow