PureBoard

Code: Alles auswählen

       Procedure TileDirections(var_ActDirection.w, var_TilesPerDir.w)      ; sorgt dafür das die Tiles/Reihen umgerechnet werden
              Shared Mod.w
              If var_ActDirection = 0
                     Mod = 0
              Else
                     Mod = (var_ActDirection-1)*var_TilesPerDir
              EndIf
              ProcedureReturn Mod
       EndProcedure

Code: Alles auswählen

Repeat
    
       Select WindowEvent() 
              Case #PB_Event_CloseWindow 
                     Break 
              Case #PB_Event_SizeWindow
                     ResizeGadget(0, 0, 80, (WindowWidth()/100)*25, WindowHeight()-80)
                     ResizeGadget(1, (WindowWidth()/100)*25, 80, (WindowWidth()/100)*25, WindowHeight()-80)
                     ResizeGadget(2, (WindowWidth()/100)*50, 80, (WindowWidth()/100)*50, WindowHeight()-80)
                     ResizeGadget(3, (WindowWidth()/2)-250, 0, 500, 80)
              Case 0 
       EndSelect 

       Select EventType()
              Case #PB_EventType_LeftClick
                     If GetGadgetState(0) = #PB_Explorer_File
                            End
                     EndIf
       EndSelect

ForEver
End