Re: [Ming-users] inline frames

[<ham...@t-...>]

Hi,

here is simple example of scrolling text - all the data.php has to do is send
&info=text to appear within the display, with <b>html 1.0</b> tags<br>

Note the little thing about "sending something to the server". You will need it once
you want the content of the text field to depend on clicking one of several buttons, data written
to a text entry field, etc.

Wolfgang

<?
Ming_useSWFVersion(6);
$m = new SWFMovie();
$m->setDimension(600, 240);

// geometry of display
$x = 220; $y = 20;
$w = 340; $h = 160;
$font = new SWFFont("_sans");

// textfield proper
$tf = new SWFTextField(SWFTEXTFIELD_DRAWBOX|SWFTEXTFIELD_MULTILINE|SWFTEXTFIELD_HTML|SWFTEXTFIELD_NOEDIT);
$tf->setFont($font);
$tf->setHeight(10);
$tf->setColor(0, 0, 0);
$tf->setName('info');
$tf->setBounds($w, $h);
$tf_i = $m->add($tf); $tf_i->moveTo($x, $y);

// scrollers
$s1 = new SWFShape();
$s1->setRightFill(0, 0xcc, 0);
$s1->drawLine(5, 10);
$s1->drawLine(-10, 0);
$s1->drawLine(5, -10);
$sc1 = new SWFSprite();
$sc1->add($s1);
$b = new SWFButton();
$b->addShape($s1, SWFBUTTON_HIT);
$b->addAction(new SWFAction("
this.active = 1;
"), SWFBUTTON_MOUSEDOWN);
$b->addShape($s1, SWFBUTTON_HIT);
$b->addAction(new SWFAction("
this.active = 0;
"), SWFBUTTON_MOUSEUP|SWFBUTTON_MOUSEUPOUTSIDE);
$sc1->add($b);
$sc1->nextFrame();
$i1 = $m->add($sc1);
$i1->moveTo($x+$w+10, $y);
$i1->addAction(new SWFAction("
if(this.active)
	if(_root.info.scroll > 1) --_root.info.scroll;
"), SWFACTION_ENTERFRAME);

$s2 = new SWFShape();
$s2->setRightFill(0, 0xcc, 0);
$s2->drawLine(-5, -10);
$s2->drawLine(10, 0);
$s2->drawLine(-5, 10);
$sc2 = new SWFSprite();
$sc2->add($s2);
$b = new SWFButton();
$b->addShape($s2, SWFBUTTON_HIT);
$b->addAction(new SWFAction("
this.active = 1;
"), SWFBUTTON_MOUSEDOWN);
$b->addShape($s2, SWFBUTTON_HIT);
$b->addAction(new SWFAction("
this.active = 0;
"), SWFBUTTON_MOUSEUP|SWFBUTTON_MOUSEUPOUTSIDE);
$sc2->add($b);
$sc2->nextFrame();
$i2 = $m->add($sc2);
$i2->moveTo($x+$w+10, $y+$h);
$i2->addAction(new SWFAction("
if(this.active)
if(_root.info.scroll < _root.info.maxscroll) ++_root.info.scroll;
"), SWFACTION_ENTERFRAME);

// read data
$m->add(new SWFAction("
var myData = new Loadvars();
var myreply = new Loadvars();
myData.xx = 1;	// send anything to the server - not used in this demo
myreply.onLoad = function(success)
{	if(success)
		info = this.info;
	else
		info = 'server error';
};
myData.sendAndLoad('data.php', myreply, 'POST');
"));

// send data to browser
header("Content-type: application/x-shockwave-flash");
$m->output();
?>