XProfan

def CreateColorStatic(9) ! "skcontrol.dll", "SKCtrl_CreateColorStatic"
def SetAlignment(2) ! "skcontrol.dll", "SKCtrl_SetAlignment"
def VersionInfo(1) ! "skcontrol.dll", "SKCtrl_VersionInfo"
def InitDll(0) ! "skcontrol.dll", "SKCtrl_InitDll"
def DeInitDll(0) ! "skcontrol.dll", "SKCtrl_DeInitDll"
declare stat1&, stat2&, skcontrol&, string#
dim string#, 255
window 100, 100 - 400, 400
skcontrol& = UseDll("skcontrol.dll")
InitDll()
VersionInfo( addr(string#) )
print string$(string#, 0)
stat1& = createcolorstatic(%hwnd, "1", 0, RGB(100, 200, 50), 5, 20, 170, 18, %hinstance)
stat2& = createcolorstatic(%hwnd, "2", 0, RGB(100, 200, 50), 5, 50, 170, 18, %hinstance)
waitinput
messagebox("Alingment ändern", "Info", 64)
setalignment(stat1&, 1)
setalignment(stat2&, 2)
waitinput
DeInitDll()
dispose string#