PureBoard

Code: Alles auswählen

#MainWindow = 0
#Image = 1
#StringGadget1 = 10
#StringGadget2 = 11

Global Image.l,Brush.l,Brush1.l
Image = LoadImage(#Image,"Tile.bmp");Pfad zum Bitmap anpassen
Brush  = CreatePatternBrush_(Image)
Brush1 = CreateSolidBrush_(RGB(255,255,0))

Procedure WndProc(wnd,msg,wparam,lparam)
Result = #PB_ProcessPureBasicEvents
Select msg
   Case #WM_CTLCOLOREDIT
      Select GetDlgCtrlID_(lparam) 
      Case #StringGadget1
         SetTextColor_(wparam,RGB(255,255,255));TextFarbe
         SetBkMode_(wparam,#TRANSPARENT) 
         ProcedureReturn Brush
      Case #StringGadget2
         SetTextColor_(wparam,RGB(0,0,255))
         SetBkMode_(wparam,#TRANSPARENT) 
         ProcedureReturn Brush1
      EndSelect 
EndSelect
ProcedureReturn Result
EndProcedure

If OpenWindow(#MainWindow, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
If CreateGadgetList(WindowID(0))
    StringGadget(#StringGadget1,10,10,120,24,"Hallo")
    StringGadget(#StringGadget2,10,40,120,24,"Hallo Farbe")
EndIf

SetWindowCallback(@WndProc())

Repeat
   EventID = WaitWindowEvent()
   If EventID = #PB_Event_CloseWindow
      FreeImage(#Image)
      DeleteObject_(Brush)
      Quit = 1
   EndIf
Until Quit = 1
EndIf
End