Текст модуля для демонстрации методов
Текст модуля для демонстрации методов SetVariable и GetVariable
//------------------------------------
#include < vcl.h>
#pragma hdrstop
#include "Unit1.h"
//-----------------------------------
#pragma package(smart_init)
#pragma link "ShockwaveFlashObjects_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//-----------------------------------
__fastcall TForm1::
TForm1(TComponent* Owner)
: TForm(Owner)
{
ShockwaveFlash1->Movie =
ExtractFilePath(Application->ExeName) + "BcbToFlash.swf";
Label3->Caption = ShockwaveFlash1->
GetVariable (L"CBuilderText.borderColor");
}
//-------------------------------------
void __fastcall TForm1::
Button1Click(TObject *Sender)
{
ShockwaveFlash1->SetVariable
(L"BcbText", StringToOleStr(Edit1->Text));
}
//--------------------------------------
void __fastcall TForm1::
ComboBox1Change(TObject *Sender)
{
ShockwaveFlash1->SetVariable
(L"CBuilderText.borderColor", StringToOleStr(ComboBox1->Text));
}
//---------------------------------------
void __fastcall TForm1::
Button2Click(TObject *Sender)
{
Label3->Caption = ShockwaveFlash1->
GetVariable (L"CBuilderText.borderColor");
}
//--------------------------------------
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий