PureBasic Forums - English

Code: Select all

,Name,Type Constant,Data,Font,Color,Attribute,State,Text,ToolTip,ItemState
1,ButtonGadget,#PB_GadgetType_Button,x,x,o,o,x,x,x,o
2,ButtonImageGadget,#PB_GadgetType_ButtonImage,x,x,o,x,x,o,x,o
3,CalendarGadget,#PB_GadgetType_Calendar,x,x,x,x,x,o,x,x
4,CanvasGadget,#PB_GadgetType_Canvas,x,x,o,x,o,o,x,o
5,CheckBoxGadget,#PB_GadgetType_CheckBox,x,x,o,o,x,o,x,o
6,ComboBoxGadget,#PB_GadgetType_ComboBox,x,x,o,o,x,x,x,o
7,ContainerGadget,#PB_GadgetType_Container,x,x,x,o,o,o,x,o
8,DateGadget,#PB_GadgetType_Date,x,x,x,x,x,x,x,o
9,EditorGadget,#PB_GadgetType_Editor,x,x,x,x,o,x,x,o
10,ExplorerComboGadget,#PB_GadgetType_ExplorerCombo,x,x,o,o,o,x,o,o
11,ExplorerListGadget,#PB_GadgetType_ExplorerList,x,x,x,x,x,x,x,x
12,ExplorerTreeGadget,#PB_GadgetType_ExplorerTree,x,x,x,o,x,x,x,o
13,FrameGadget,#PB_GadgetType_Frame,x,x,o,o,o,x,o,o
14,HyperLinkGadget,#PB_GadgetType_HyperLink,x,x,x,o,o,x,x,o
15,ImageGadget,#PB_GadgetType_Image,x,x,o,o,x,o,x,o
16,IPAddressGadget,#PB_GadgetType_IPAddress,x,x,o,o,x,o,x,o
17,ListIconGadget,#PB_GadgetType_ListIcon,x,x,x,x,x,x,x,x
18,ListViewGadget,#PB_GadgetType_ListView,x,x,x,o,x,x,x,x
19,MDIGadget,#PB_GadgetType_MDI,x,x,x,o,x,o,x,o
20,OpenGLGadget,#PB_GadgetType_OpenGL,x,x,o,x,o,o,x,o
21,OptionGadget,#PB_GadgetType_Option,x,x,o,o,x,o,x,o
22,PanelGadget,#PB_GadgetType_Panel,x,x,o,x,x,o,x,o
23,ProgressBarGadget,#PB_GadgetType_ProgressBar,x,x,x,x,x,o,x,o
24,ScrollAreaGadget,#PB_GadgetType_ScrollArea,x,x,x,x,o,o,o,o
25,ScrollBarGadget,#PB_GadgetType_ScrollBar,x,x,o,x,x,o,x,o
26,ShortCutGadget,#PB_GadgetType_Shortcut,x,x,o,o,x,o,o,o
27,SpinGadget,#PB_GadgetType_Spin,x,x,x,x,x,o,x,o
28,SplitterGadget,#PB_GadgetType_Splitter,x,x,o,x,x,o,x,o
29,StringGadget,#PB_GadgetType_String,x,x,x,x,o,x,x,o
30,TextGadget,#PB_GadgetType_Text,x,x,x,o,x,x,x,o
31,TrackBarGadget,#PB_GadgetType_TrackBar,x,x,o,x,x,o,o,o
32,TreeGadget,#PB_GadgetType_Tree,x,x,x,o,o,x,x,x
33,WebGadget,#PB_GadgetType_Web,x,x,o,x,o,x,o,o

Code: Select all

CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
   
   ; PB Internal Structure Gadget MacOS
   Structure sdkGadget
      *gadget
      *container
      *vt
      UserData.i
      Window.i
      Type.i ; Flags!
      Flags.i; NOT Flags!
   EndStructure
   
   Procedure flags(Gadget)
      If IsGadget(Gadget)
         Protected *Gadget.sdkGadget = IsGadget(Gadget)
         ProcedureReturn *Gadget\Type ; NOT \Flags!
      EndIf
   EndProcedure
   
   If OpenWindow(0,0,0,270,170,"CheckBoxGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
      CheckBoxGadget(0,10,10,250,20,"standard CheckBox")                   ;$000000004
      CheckBoxGadget(1,10,40,250,20,"right CheckBox",#PB_CheckBox_Right)   ;$100000004
      CheckBoxGadget(2,10,70,250,20,"center CheckBox",#PB_CheckBox_Center) ;$200000004
      CheckBoxGadget(3,10,100,250,20,"3 CheckBox",#PB_CheckBox_ThreeState) ;$400000004
      Repeat
         ev=WaitWindowEvent()
         If ev=#PB_Event_Gadget And IsGadget(EventGadget())
            if EventType() = #PB_EventType_Change or GadgetType(EventGadget()) = #PB_GadgetType_CheckBox
               ;Debug "Gadget changed: " + EventGadget()+" - Flags: " + Bin(flags(EventGadget()))
               ;Debug str(flags(EventGadget()))
               
               Debug "$"+Hex(flags(EventGadget())) ; hex results
            EndIf
         EndIf
      Until ev=#PB_Event_CloseWindow
   EndIf
   
CompilerEndIf

Code: Select all

typedef struct
{
  int                          GadgetType;    // Gadget Type for this VT
  int                          SizeOf;        // SizeOf the VT (for future compatibility

  GadgetCallbackProc           GadgetCallback;
  FreeGadgetProc               FreeGadget;
  GetGadgetStateProc           GetGadgetState;
  SetGadgetStateProc           SetGadgetState;
  GetGadgetTextProc            GetGadgetText;
  SetGadgetTextProc            SetGadgetText;
  AddGadgetItem2Proc           AddGadgetItem2;
  AddGadgetItem3Proc           AddGadgetItem3;
  RemoveGadgetItemProc         RemoveGadgetItem;
  ClearGadgetItemsProc         ClearGadgetItems;
  ResizeGadgetProc             ResizeGadget;
  CountGadgetItemsProc         CountGadgetItems;
  GetGadgetItemStateProc       GetGadgetItemState;
  SetGadgetItemStateProc       SetGadgetItemState;
  GetGadgetItemTextProc        GetGadgetItemText;
  SetGadgetItemTextProc        SetGadgetItemText;
  OpenGadgetList2Proc          OpenGadgetList2;
  GadgetXProc                  GadgetX;
  GadgetYProc                  GadgetY;
  GadgetWidthProc              GadgetWidth;
  GadgetHeightProc             GadgetHeight;
  HideGadgetProc               HideGadget;
  AddGadgetColumnProc          AddGadgetColumn;
  RemoveGadgetColumnProc       RemoveGadgetColumn;
  GetGadgetAttributeProc       GetGadgetAttribute;
  SetGadgetAttributeProc       SetGadgetAttribute;
  GetGadgetItemAttribute2Proc  GetGadgetItemAttribute2;
  SetGadgetItemAttribute2Proc  SetGadgetItemAttribute2;
  SetGadgetColorProc           SetGadgetColor;
  GetGadgetColorProc           GetGadgetColor;
  SetGadgetItemColor2Proc      SetGadgetItemColor2;
  GetGadgetItemColor2Proc      GetGadgetItemColor2;
  SetGadgetItemDataProc        SetGadgetItemData;
  GetGadgetItemDataProc        GetGadgetItemData;
  GetRequiredSizeProc          GetRequiredSize;
  SetActiveGadgetProc          SetActiveGadget;
  GetGadgetFontProc            GetGadgetFont;
  SetGadgetFontProc            SetGadgetFont;
  SetGadgetItemImageProc       SetGadgetItemImage;
  GadgetItemIDProc             GadgetItemID;
} PB_GadgetVT;

typedef struct PB_GadgetStructure
{
  HWND         Gadget;
  PB_GadgetVT *VT;
  integer      UserData;      // for Get/SetGadgetData
  WNDPROC      OldCallback;   // for PB_Gadget_RegisterDestroy
  integer      Data[4];       // for gadget internal data. (mostly used for front/backcolor and such).
} PB_Gadget;

Code: Select all

Sub Open()
  PrefFileName = "Piero's Prefs" // Put pref file name here
  ReadPrefs
End Sub

Sub Close()
  WritePrefs  // Use when you want to save to disk
End Sub

Code: Select all

Function CancelClose() As Boolean
  storewin(me,false)
End Function

Code: Select all

Sub Open()
  getwin(me,true)
End Sub

Code: Select all

Structure TWindowData
  Titel.s
  X.i
  Y.i
  W.i
  H.i
EndStructure


Procedure CollectWindowData(PbWinNo, *WinData.TWindowData)
  If *WinData
    If IsWindow(PbWinNo)  
      With *WinData
        \X = WindowX(PbWinNo)
        \Y = WindowY(PbWinNo)
        \W = WindowWidth(PbWinNo)
        \H = WindowHeight(PbWinNo)
        \Titel = GetWindowTitle(PbWinNo)
      EndWith    
    EndIf
  EndIf
  
  ProcedureReturn *WinData  
EndProcedure


Macro DebugWinData(TWindowData)
    Debug "Titel = " + TWindowData\Titel
    Debug " X = " + TWindowData\X
    Debug " Y = " + TWindowData\Y
    Debug "Width = " + TWindowData\W
    Debug "Height = " + TWindowData\H
EndMacro

If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

  MessageRequester("Information", "Click to move the Window", 0)
  ResizeWindow(0, 200, 200, #PB_Ignore, #PB_Ignore)   ; Move the window to the coordinate 200,200
  
  MessageRequester("Information", "Click to resize the Window", 0)
  ResizeWindow(0, #PB_Ignore, #PB_Ignore, 320, 200) ; Resize the window to 320,200
  
  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the Event
  ; isn't 0 and we just have to see what have happened...
  ;
  Define WData.TWindowData

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = #True
    EndIf
    If Quit
      CollectWindowData(0, WData)  
    EndIf
    
  Until Quit = #True
  DebugWinData(WData)
EndIf

End   ; All the opened windows are closed automatically by PureBasic