PureBasic

Code : Tout sélectionner

Global ghBorderBrush
hBorder=CreateImage(#PB_Any,1,1)
StartDrawing(ImageOutput(hBorder))
Box(0,0,1,1,RGB(59,68,73))
StopDrawing()
ghBorderBrush = CreatePatternBrush_(ImageID(hBorder)) 
Procedure WindowProc(hwnd,msg,wParam,lParam)  
   Result = #PB_ProcessPureBasicEvents 
   Select msg 
      Case #WM_NCPAINT, #WM_NCACTIVATE 
      GetWindowRect_(hwnd, wr.RECT) 
      new_w = wr\right - wr\left 
      new_h = wr\bottom - wr\top 
      hdc = GetWindowDC_(hwnd) 
      hrgn = CreateRectRgn_(-1,-1,new_w+1, new_h+1) 
      hrgn2 = CreateRectRgn_(4,4,new_w-4,new_h-4) 
      CombineRgn_(hrgn, hrgn, hrgn2, #RGN_XOR) 
      SelectClipRgn_(hdc, hrgn) 
      SelectObject_(hdc, ghBorderBrush) 
      Rectangle_(hdc,-1,-1,new_w+1, new_h+1)  
      DeleteDC_(hdc) 
      DeleteObject_(hrgn) 
      DeleteObject_(hrgn2) 
      Result = 0 

   EndSelect 
   ProcedureReturn Result 
EndProcedure 
WindowMask=#PB_Window_BorderLess|#WS_THICKFRAME|#WS_BORDER
OpenWindow(0,100,100,320,240,"Ownerdrawn Borders",WindowMask) 
SetWindowColor(0, RGB(180,180,180)) 
SetWindowCallback(@WindowProc()) 
SendMessage_(WindowID(0), #WM_NCPAINT, 0 ,0) 
Repeat 
   EventID=WaitWindowEvent()
Until EventID=#PB_Event_CloseWindow 
DeleteObject_(ghBorderBrush) 
End 

Code : Tout sélectionner

;  ********** styles de couleur de epb *********
[coloration]
couleur du fond = 12972788
couleur ecriture = -1
couleur ligne selectionne = 4368094
couleur du curseur = 16188166
couleur des blocs fond = 65535
couleur des blocs text = 0
couleur des numeros de ligne text = 16777215
couleur des numeros de ligne fond = 5904224
couleur du basic = 15743472
type du basic = 1
couleur des fonctions = 10761617
type des fonctions = 1
couleur des types de variables = 14899042
type de variables = 0
couleur des commentaires = 45056
type des commentaires = 0
couleur des strings = 9872548
type des strings = 0
couleur des chiffres = 1381888
type des chiffres = 0
couleur des constantes = 33023
type des constantes = 0
couleur des Apis = 7084280
type des Apis = 0
Fonte = Courier New
Taille Fonte = 10

Code : Tout sélectionner

Je me répète, mais si tu programme une fenêtre : lorsque celle-ci s'affiche apré que le programme soit compilé, elle éfface ton interface si tu la déplace.

Code : Tout sélectionner

;  ********** styles de couleur de epb *********
[coloration]
couleur du fond = 12972788
couleur ecriture = 12302777
couleur ligne selectionne = 4368094
couleur du curseur = 16188166
couleur des blocs fond = 65535
couleur des blocs text = 0
couleur des numeros de ligne text = 16777215
couleur des numeros de ligne fond = 5904224
couleur du basic = 15743472
type du basic = 1
couleur des fonctions = 10761617
type des fonctions = 1
couleur des types de variables = 14899042
type de variables = 0
couleur des commentaires = 45056
type des commentaires = 0
couleur des strings = 9872548
type des strings = 0
couleur des chiffres = 1381888
type des chiffres = 0
couleur des constantes = 33023
type des constantes = 0
couleur des Apis = 7084280
type des Apis = 0
Fonte = Courier New
Taille Fonte = 10

Code : Tout sélectionner

; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.; Explication du programme :;; Version de PB : 4.50; Auteur : Le Soldat Inconnu
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 100, 100, "Cachée", #PB_Window_Invisible | #PB_Window_NoGadgets) = 0
   End
EndIf

If OpenWindow(1, 0, 0, 500, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, WindowID(0)) = 0
   End
EndIf

Repeat
   Event = WaitWindowEvent()

   Select Event
      Case #PB_Event_Menu
      Select EventMenu() ; Menus

      EndSelect

      Case #PB_Event_Gadget
      Select EventGadget() ; Gadgets

      EndSelect
   EndSelect

Until Event = #PB_Event_CloseWindow