🚀 go-pugleaf

Jos� wrote:

> screen becomes blank

There is nothing in your code that cares for that. Please explain.

> after one second (or more) the left picture appears.
> after another second (or more) the right picture appears.

bool toggle;
void loadphotos()

Oh. Why are you using a global bool and a standalone function ?

It is much better to make that a classmember of TForm1.
If you do you could also use two forms which display
at the same time.

void exchange(void)

ditto.

__fastcall TForm1::TForm1(TComponent* Owner)
   : TFrame(Owner)
{
   // set the second set invisible

	Image2R->Visible = false;
	Image2L->Visible = false;
}

You could as well do all in the timereventhandler.

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
     Timer1->Enabled = false;

     Image1R->Visible = ! Image1R->Visible;
     Image1L->Visible = ! Image1L->Visible;
     Image2R->Visible = ! Image2R->Visible;
     Image2L->Visible = ! Image2L->Visible;

     Application->ProcessMessages(); // does this have effect ?

     FileR = ...
     FileL = ...

     if ( ! Image1R->Visible ) Image1R->Picture->LoadFromFile(fileR);
     if ( ! Image2R->Visible ) Image2R->Picture->LoadFromFile(fileR);
     if ( ! Image1L->Visible ) Image1L->Picture->LoadFromFile(fileL);
     if ( ! Image2L->Visible ) Image2L->Picture->LoadFromFile(fileL);

     Timer1->Enabled = true;
}

pProblems like this where you use a VCL component are better asked in:
borland.public.cppbuilder.vcl.components.using

Hans.