%ffp

/* ==================================================================
   Filter information
   ==================================================================
*/
Category   :"FM"
Title      :"Controls and Borders"
Copyright  :"Freeware"
Author     :"Wm. G. MacBeth"
Filename   :"CtrlBrdr.8bf"
Description:"Displays all control and border types\n"
Version    :"0.1"
About      :"!T! V\n!D\n"
            "!c\n!A"
Dialog     :color=#C0C0C0


ctl(CTL_LOGO): none


ctl(1): combobox(vscroll),action=preview,
		color=#FFFFFF,fontcolor=#0000FF,
		pos=(190,11),size=(55,135),val=0,
		text="checkbox\ncombobox\nframe\ngroupbox\nlistbox\n"
			"ownerdraw\npushbutton\nradiobutton\nrectangle\n"
			"scrollbar\nstandard\nstatictext\ntrackbar\nnone"

ctl(2): groupbox,color=#C0C0C0,fontcolor=#000000,
		pos=(180,3),size=(195,25),
		text="Select Control Type"

ctl(3): groupbox,color=#C0C0C0,fontcolor=#000000,
		pos=(180,30),size=(195,93),
		text="Border Styles"

// Add legends for border styles
ctl(4): statictext(rightalignedtext),
		color=#C0C0C0,fontcolor=#000000,
		pos=(185,43),size=(40,75),
		text=
		"Default\n\n"
		"Border\n\n"
		"Clientedge\n\n"
		"ModalFrame\n\n"
		"Staticedge\n"

ctl(5): ownerdraw(clientedge),pos=(260,13),size=(10,10),color=#C0C0C0
ctl(6): statictext,"Color",pos=(274,13),size=(25,10),fontcolor=black

ctl(7): ownerdraw(clientedge),pos=(310,13),size=(10,10),color=white
ctl(8): statictext,"Font Color",pos=(324,13),size=(40,10),fontcolor=black

OnCtl(n):
{
    if (n == 5 || n == 7) {
        // color control
        if ( e == FME_CLICKED) {
            int retColor = chooseColor(getCtlColor(n),
                           n==5?"Choose control color:"
                               :"Choose font color");
            //if (retColor != -1) {
               setCtlColor(n, retColor); // note -1 = transparent
            //}
        }
    }
    return false;
} //OnCtl(n)


ForEveryTile:
{
    int Color = getCtlColor(5);
    int FontColor = getCtlColor(7);

	//	Set Title bar text
	setDialogText("             Control and Border Types");

	//	Zero out the progress bar
	updateProgress(0,1);

	//	Delete all controls
	for ( i=10; i<=15; i++ ) 
	{
		deleteCtl(i);
	}


	// Branch on selection and draw new controls
	if( ctl(1)<=0 || ctl(1)>13 )
	{
		// initialize the display to checkbox
		setCtlVal(1,0);
		_eval_FFP
		{
			ctl(10): checkbox,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): checkbox(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): checkbox(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): checkbox(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): checkbox(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}

	if( ctl(1)==1 )  // combobox
	{
		_eval_FFP
		{
			ctl(10): combobox(dropdown),color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): combobox(dropdown,border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): combobox(dropdown,clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): combobox(dropdown,modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): combobox(dropdown,staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}


	if( ctl(1)==2 )  // frame
	{
		_eval_FFP
		{
			ctl(10): frame,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text"
			ctl(11): frame(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text"
			ctl(12): frame(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text"
			ctl(13): frame(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text"
			ctl(14): frame(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text"
		}
	}

	if( ctl(1)==3 )  // groupbox
	{
		_eval_FFP
		{
			ctl(10): groupbox,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text"
			ctl(11): groupbox(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text"
			ctl(12): groupbox(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text"
			ctl(13): groupbox(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text"
			ctl(14): groupbox(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text"
		}
	}

	if( ctl(1)==4 )  // listbox
	{
		_eval_FFP
		{
			ctl(10): listbox,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): listbox(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): listbox(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): listbox(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): listbox(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}

	if( ctl(1)==5 )  // ownerdraw
	{
		_eval_FFP
		{
			ctl(10): ownerdraw,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): ownerdraw(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): ownerdraw(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): ownerdraw(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): ownerdraw(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}

	if( ctl(1)==6 )  // pushbutton
	{
		_eval_FFP
		{
			ctl(10): pushbutton,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): pushbutton(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): pushbutton(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): pushbutton(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): pushbutton(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}

	if( ctl(1)==7 )  // radiobutton
	{
		_eval_FFP
		{
			ctl(10): radiobutton,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text"
			ctl(11): radiobutton(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text"
			ctl(12): radiobutton(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text"
			ctl(13): radiobutton(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text"
			ctl(14): radiobutton(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text"
		}
	}

	if( ctl(1)==8 )  // rectangle
	{
		_eval_FFP
		{
			ctl(10): rectangle(gray),color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text"
			ctl(11): rectangle(border,gray),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text"
			ctl(12): rectangle(clientedge,gray),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text"
			ctl(13): rectangle(modalframe,gray),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text"
			ctl(14): rectangle(staticedge,gray),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text"
		}
	}

	if( ctl(1)==9 )  // scrollbar
	{
		_eval_FFP
		{
			ctl(10): scrollbar,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): scrollbar(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): scrollbar(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): scrollbar(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): scrollbar(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}

	if( ctl(1)==10 )  // standard
	{
		_eval_FFP
		{
			ctl(10): standard,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): standard(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): standard(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): standard(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): standard(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}

	if( ctl(1)==11 )  // statictext
	{
		_eval_FFP
		{
			ctl(10): statictext,color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text"
			ctl(11): statictext(border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text"
			ctl(12): statictext(clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text"
			ctl(13): statictext(modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text"
			ctl(14): statictext(staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text"
		}
	}

	if( ctl(1)==12 )  // trackbar
	{
		_eval_FFP
		{
			ctl(10): trackbar(toptip),color=Color,fontcolor=FontColor,pos=(250,40),size=(90,15),text="Text",action=none
			ctl(11): trackbar(toptip,border),color=Color,fontcolor=FontColor,pos=(250,56),size=(90,15),text="Text",action=none
			ctl(12): trackbar(toptip,clientedge),color=Color,fontcolor=FontColor,pos=(250,72),size=(90,15),text="Text",action=none
			ctl(13): trackbar(toptip,modalframe),color=Color,fontcolor=FontColor,pos=(250,88),size=(90,15),text="Text",action=none
			ctl(14): trackbar(toptip,staticedge),color=Color,fontcolor=FontColor,pos=(250,104),size=(90,15),text="Text",action=none
		}
	}

	return true;
}