Смена картинки на кнопке?

[DimaKor]

Есть кнопка типа TImage. Кнопка запускает подвижку на COM порте, я хочу, чтобы во время движения стрелка на кнопке затенялась, то есть меняю изображение вначале, а в конце присваиваю старое

Код

 
Unit1.h ////////////////////////////////////////////
TImage *RightArrow;
Graphics::TBitmap *Rstop, *Rmove;
 
Unit1.cpp //////////////////////////////////////////
 
__fastcall TApp::TApp(TComponent* Owner)
{
...
Rstop = new Graphics::TBitmap();
Rmove = new Graphics::TBitmap();
 
Rstop->LoadFromResourceName((int)HInstance,"Right_yellow");
Rmove->LoadFromResourceName((int)HInstance,"Right_grey");
 
RightArrow->Picture->Bitmap->Assign(Rstop);
.....
}
//---------------------------------------------------------------------------
void __fastcall TApp::RightArrowClick(TObject *Sender)
{
     char buffer[16] = {0};
 
 amp = StepAmpEdit->Text.ToInt();
    nSteps = NumStepsEdit->Text.ToInt();
 
    if( ((amp>=1)&&(amp50)) && (nSteps>0))
    {
                RightArrow->Picture->Bitmap->Assign(Rmove);
 
             sprintf(buffer,"1SU%d\r",amp);
         comp->WriteCOM(buffer);
               Sleep(20);
 
                for(int k = 0; k  nSteps; k++)
              {
                       comp->WriteCOM("1PR1\r");
                      Sleep(10);
            }
 
           RightArrow->Picture->Bitmap->Assign(Rstop);
 }
}
 

Проблема в том, что изображение не меняется, хотя движение (цикл) продолжается достаточно долго, несколько секунд.

[Rius]

Осваивайте работу с отдельными потоками. В билдере пример был, с сортировкой.

[POV]

А когда ей перерисовываться? Поставь для проверки рабочести кода хотя бы внутри цикла - возле Sleep

Код

Application->ProcessMessage();

[DimaKor]

А так работает действительно

Спасибо

[Rius]

Этот костыль только для проверки.

[DimaKor]

А что будет, если оставить?

[Rius]

Привыкните. И будет получаться ***окод, с необъяснимыми (для вас) ошибками.
По уму используются потоки. А ProcessMessages() - костыль, ломающий взаимодействие потоков и очередей сообщений в GUI.

[DimaKor]

Не знаю. Использовать потоки в подобной ситуации - это никак не по уму, а как раз и есть через самую ж...

Потоки предназначены совсем не для того

[Rius]

Потоки предназначены именно для вот этого:

Код

comp->WriteCOM(buffer);

То, что тормозит поток GUI, программист обязан выполнять асинхронно, вне потока GUI. Есть несколько методов, и потоки - один из них.

[POV]

Ни к чему поток, накрученный на потоконебезопасный VCL.
В поток только работу с портом. Я себе для этого много лет назад писал стек команд, которые отрабатывались в потоке. Тогда по кнопке забрасываешь данные для отправки, а ответ смотришь таймером или в событии этого стека.

Но всегда смотря что за прога. Если это какой-то отладочный софт для себя любимого, то чего же не сделать ProcessMessage()?
Зашел в обработчик кнопки, задизаблил ее (чтобы еще раз не нажать), ждёшь в цикле ответа по порту вместе с ProcessMessage, затем покидаешь обработчик не забыв Enabled=true.

[Rius]

Руки надо выпрямлять с детства Для себя любимого тоже надо делать как для себя.
Потом добавится ещё кнопочка с отдельной такой же задачей, и будет новый вопрос на форуме "почему оно так бесподобно глючит?"

[POV]

Без походов по граблям руки не выпрямляются )