Verschiedene Button-Typen

[Frabbing]

'
' Buttons mal etwas anders
' (c) Frank Abbing für http://www.paules-pc-forum.de/forum/xprofan/
'

Def GetSysColor(1) !"USER32","GetSysColor"

Cls GetSysColor(15)

UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1

Control("BUTTON", "Button Nummer 1", $54010003, 10, 20, 160, 20, %hwnd, 2001, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 2", $54010303, 10, 40, 160, 20, %hwnd, 2002, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 3", $54010203, 10, 60, 160, 20, %hwnd, 2003, %hInstance, $00000000)

Control("BUTTON", "Button Nummer 4", $54010023, 10, 100, 160, 20, %hwnd, 2004, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 5", $54010323, 10, 120, 160, 20, %hwnd, 2005, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 6", $54010223, 10, 140, 160, 20, %hwnd, 2006, %hInstance, $00000000)

Control("BUTTON", "Button Nummer 7", $54030009, 10, 180, 160, 20, %hwnd, 2007, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 8", $54010309, 10, 200, 160, 20, %hwnd, 2008, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 9", $54010209, 10, 220, 160, 20, %hwnd, 2009, %hInstance, $00000000)

Control("BUTTON", "Button Nummer 10", $54030029, 10, 260, 160, 20, %hwnd, 2010, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 11", $54010329, 10, 280, 160, 20, %hwnd, 2011, %hInstance, $00000000)
Control("BUTTON", "Button Nummer 12", $54010229, 10, 300, 160, 20, %hwnd, 2012, %hInstance, $00000000)


Control("BUTTON", "Button Nummer 13", $54010003, 210, 20, 160, 20, %hwnd, 2013, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 14", $54010303, 210, 40, 160, 20, %hwnd, 2014, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 15", $54010203, 210, 60, 160, 20, %hwnd, 2015, %hInstance, $00000001)

Control("BUTTON", "Button Nummer 16", $54010023, 210, 100, 160, 20, %hwnd, 2016, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 17", $54010323, 210, 120, 160, 20, %hwnd, 2017, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 18", $54010223, 210, 140, 160, 20, %hwnd, 2018, %hInstance, $00000001)

Control("BUTTON", "Button Nummer 19", $54030009, 210, 180, 160, 20, %hwnd, 2019, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 20", $54010309, 210, 200, 160, 20, %hwnd, 2020, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 21", $54010209, 210, 220, 160, 20, %hwnd, 2021, %hInstance, $00000001)

Control("BUTTON", "Button Nummer 22", $54030029, 210, 260, 160, 20, %hwnd, 2022, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 23", $54010329, 210, 280, 160, 20, %hwnd, 2023, %hInstance, $00000001)
Control("BUTTON", "Button Nummer 24", $54010229, 210, 300, 160, 20, %hwnd, 2024, %hInstance, $00000001)


Control("BUTTON", "Button Nummer 25", $54010003, 410, 20, 160, 20, %hwnd, 2025, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 26", $54010303, 410, 40, 160, 20, %hwnd, 2026, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 27", $54010203, 410, 60, 160, 20, %hwnd, 2027, %hInstance, $00000200)

Control("BUTTON", "Button Nummer 28", $54010023, 410, 100, 160, 20, %hwnd, 2028, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 29", $54010323, 410, 120, 160, 20, %hwnd, 2029, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 30", $54010223, 410, 140, 160, 20, %hwnd, 2030, %hInstance, $00000200)

Control("BUTTON", "Button Nummer 31", $54030009, 410, 180, 160, 20, %hwnd, 2031, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 32", $54010309, 410, 200, 160, 20, %hwnd, 2032, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 33", $54010209, 410, 220, 160, 20, %hwnd, 2033, %hInstance, $00000200)

Control("BUTTON", "Button Nummer 34", $54030029, 410, 260, 160, 20, %hwnd, 2034, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 35", $54010329, 410, 280, 160, 20, %hwnd, 2035, %hInstance, $00000200)
Control("BUTTON", "Button Nummer 36", $54010229, 410, 300, 160, 20, %hwnd, 2036, %hInstance, $00000200)


While 1

  WaitInput
  Case %key=2:BREAK

EndWhile

End