🚀 go-pugleaf

Okay, I'll post the code at the end of  the message.
I see another problem that is more important for me than the fast update.
Using "while" loops the CPU is busy at 99% (checked using TaskManager) and
all the other applications work like a snail.
Any suggestions?
Maybe I should use messages also to solve  this problem?

I hope the code is clear, it's my first attempt with thread.

Thanks for your help.

Lapo

//--------------------------------------------------------------------------
-
class TPlayThread : public TThread {
  private:
    TImgView32 *Frame;
    TColor Color;
    TForm *Sheet;
    TJPEGImage *JPG;
    int FrameIndex;
    TTrackBar *Velocity;
    TScrollBar *ScrollBar;
    int Pause;
    TLabel *Status;
    AnsiString Error;
    int Offset;
    int Frames;
    int Fps;

    AnsiString FolderName;
    TStringList *FrameList;

    AnsiString Current;

  protected:
    void __fastcall Execute();
    void __fastcall UpdateFrame(void);
    void __fastcall DeleteFrame(void);
  public:
    int Step;
    int Last;
    __fastcall TPlayThread(TDeviceItem *DeviceItem, TLabel *AStatus,
TTrackBar *AVelocity, TForm *ASheet, TImgView32 *AFrame, TScrollBar
*AScrollBar);
};
//--------------------------------------------------------------------------
-
__fastcall TPlayThread::TPlayThread(TDeviceItem *DeviceItem, TLabel
*AStatus, TTrackBar *AVelocity, TForm *ASheet, TImgView32 *AFrame,
TScrollBar *AScrollBar)
        : TThread(true)
{
  FreeOnTerminate=true;
  Sheet=ASheet;
  Velocity=AVelocity;
  Status=AStatus;
  Error="";
  Frame=AFrame;
  FrameIndex=0;
  Frames=DeviceItem->Frames;
  Fps=DeviceItem->Fps;
  Offset=DeviceItem->Offset;
  SFSFileName=DeviceItem->PathName;
  FolderName=DeviceItem->FolderName;
  ScrollBar=AScrollBar;
  FrameList=new TStringList();
  FrameList->Sorted=true;

// Populate the StringList with the filenames of the frames (*.jpg)
  TSearchRec SR;
  if(FindFirst("\\"+FolderName+"\\*.jpg", faAnyFile, SR)==0) {
    do {
        FrameList->Add("\\"+FolderName+"\\"+SR.Name);
    } while(FindNext(SR)==0);
    FindClose(SR);
  }
// Initialize the ScrollBar to indicate the current position
  ScrollBar->Max=FrameList->Count-1;
  ScrollBar->Position=0;

// Initialize the frames count
  Last=FrameList->Count;
  Step=1;
}
//--------------------------------------------------------------------------
-
void __fastcall TPlayThread::Execute()
{
  try {
    JPG=new TJPEGImage();

// Start with the first frame
    FrameIndex=0;
    while(!Terminated) {
      while(Step!=0) {
// Load the frame
        Current=FrameList->Strings[FrameIndex];
        JPG->LoadFromFile(Current);
// Display it
        Synchronize(UpdateFrame);
// Wait for the next
        Sleep(Pause);
// Goto next frame
        FrameIndex+=Step;
// Check for begin reached...
        if(FrameIndex<0) {
          FrameIndex=0;
          Step=0;
        }
// ...or end reached
        else if(FrameIndex==Last) {
          FrameIndex=Last-1;
          Step=0;
        }
// Otherwise increment/decrement the position
        else {
          FrameIndex+=Step;
        }
      }
    }
  }
  __finally {
    Synchronize(DeleteFrame);
  }
}
//--------------------------------------------------------------------------
-
void __fastcall TPlayThread::UpdateFrame(void)
{
// Display the frame in the main form
  Frame->Bitmap->Assign(JPG);
// Adjust the speed
  Pause=Velocity->Max-Velocity->Position;
// Just for test display the frame name
  Status->Caption=Current;
// Update the position on the ScrollBar to show the actual position in the
whole frames set
  ScrollBar->Position=FrameIndex;
}
//--------------------------------------------------------------------------
-
void __fastcall TPlayThread::DeleteFrame(void)
{
// Remove the allocated memory
  delete JPG;
  delete FrameList;
}
//--------------------------------------------------------------------------
-