Spinning Progbar

BlitzMax Forums/BlitzMax Module Tweaks/Spinning Progbar

MacSven

(Posted 2009) [#1]

New Progbar style for MacOS X with spinning style

Change this in cocoa.macos.m

Search for case GADGET_PROGBAR and change a view lines:

	case GADGET_PROGBAR:
		switch (style&1){
		case 0:
			progbar=[[NSProgressIndicator alloc] initWithFrame:rect];
			[progbar setStyle:NSProgressIndicatorBarStyle];	
			[progbar setIndeterminate:NO];
			[progbar setMaxValue:1.0];
			if (view) [view addSubview:progbar];		
			gadget->handle=progbar;
			gadget->view=progbar;
			break;
		case 1:
			progbar=[[NSProgressIndicator alloc] initWithFrame:rect];
			[progbar setStyle:NSProgressIndicatorSpinningStyle];		
			[progbar setIndeterminate:NO];
			[progbar setMaxValue:1.0];
			if (view) [view addSubview:progbar];		
			gadget->handle=progbar;
			gadget->view=progbar;
			break;
		}
		break;

A sample for Blitzmax:

Import MaxGui.Drivers

Strict 

Local window:TGadget=CreateWindow("My Window",50,50,240,100,,WINDOW_TITLEBAR)

Local progbar:TGadget=CreateProgBar(10,10,20,20,window,1)

CreateLabel "Please Wait",10,40,200,20,window

CreateTimer 10

Local t:Float=0.0

While WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_TIMERTICK
			t:+0.1
			If t>1.0 Then
				t=0.0
				UpdateProgBar progbar,0.0
			EndIf
			UpdateProgBar progbar,t/1.0
	End Select
Wend

Ked	(Posted 2009) [#2]

This would probably fit better in BlitzMax Module Tweaks.