图形预览小程序

需求：

请帮忙制作一个图形预览小程序，主要实现图形文件管理和动画预览功能：

程序基本过程如下：

执行程序，选择图形文件存放文件夹后，自动显示相关*.sch文件及动画脚本名

 

 

实现代码：

 

__fastcall TForm1::TForm1(TComponent* Owner)

    : TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::FileClick(TObject *Sender)

{

    ListBox->Clear();

    TListItem * Item = File->InnerListView->Selected;

    if(Item) {

        UnicodeString fileName = File->Path + "\\" + Item->Caption;

        UnicodeString directoryName = ChangeFileExt(fileName, ".files");

        if(DirectoryExists(directoryName)) {

            UnicodeString scriptXmlFileName = directoryName + "\\DemoScript.xml";

            if(FileExists(scriptXmlFileName)) {

                CbwXML * xml = new CbwXML(scriptXmlFileName, "CbwDemoScripts");

                xml->Read();

                CbwXmlNode * flowNode = xml->RootNode->NodeByName("Flows");

                if(flowNode) {

                    for(int i = 0; i < flowNode->ElementNumber; ++i) {

                        CbwXmlNode * flowItem = flowNode->Elements(i);

                        UnicodeString description = flowItem->AttributeValueByName("description");

ListBox->Items->Add(description);

}

}

                delete xml;

}

        }

}

}

//---------------------------------------------------------------------------

界面效果：

有时间再完善一下，做个WIN7风格的资源管理器出来。