__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
    Buffer = new TBitmap32();
    Buffer->StretchFilter = sfDraft;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Button1Click(TObject *Sender)
{
    if (OpenDialog->Execute())
    {
        FilterGraph->Stop();
        FilterGraph->ClearGraph();
        FilterGraph->Active = false;
        FilterGraph->Active = true;
        FilterGraph->RenderFile(OpenDialog->FileName);
        IBasicVideo* BV;
        FilterGraph->QueryInterface(IID_IBasicVideo, &BV);
        long w, h;
        BV->get_VideoWidth(&w);
        BV->get_VideoHeight(&h);
        BV->Release();
        Buffer->SetSize(w, h);
        Caption = String(w) + " x " + h;
        FilterGraph->Play();
    }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
    FilterGraph->Stop();
    FilterGraph->Active = false;
    delete Buffer;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SampleGrabberBuffer(TObject *sender,
      double SampleTime, Pointer pBuffer, int BufferLen)
{
    TColor32* src = (TColor32*)pBuffer
                  + (Buffer->Height - 1) * Buffer->Width;
    TColor32* tgt = Buffer->Bits;
    for(int y = 0; y < Buffer->Height; y++)
    {
        for(int x = 0; x < Buffer->Width; x++) tgt[x] = src[x];
        src -= Buffer->Width;
        tgt += Buffer->Width;
    }
    Stage1->Invalidate();
    Stage2->Invalidate();
    Stage3->Invalidate();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::PaintBuffer(TObject *Sender)
{
    if (!Buffer->Width) return;
    Types::TRect dstRect;
    TPaintBox32* stage      = (TPaintBox32*)Sender;
    double srcAspectRatio   = (double)Buffer->Height / Buffer->Width;
    if (srcAspectRatio > (double)stage->Height / stage->Width)
    {
        int w = stage->Height / srcAspectRatio;
        int l = stage->Width - w >> 1;
        dstRect = Rect(l, 0, l + w, stage->Height);
    }
    else
    {
        int h = stage->Width * srcAspectRatio;
        int t = stage->Height - h >> 1;
        dstRect = Rect(0, t, stage->Width, t + h);
    }
    stage->Buffer->Clear(0); // Tuning point
    Buffer->DrawTo(stage->Buffer, dstRect);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormResize(TObject *Sender)
{
    Panel3->Width  = ClientWidth  / 2;
    Panel2->Height = ClientHeight / 2;
    VideoWindow->Height = Panel2->Height / 2;
}
//---------------------------------------------------------------------------