Общие вопросы программирования в C++Builder

[direk]

Есть FlowPanel,  на ней динамически создаются компоненты. Количество компонентов неизвестно.


          

Код

 TButton *button = new TButton(FlowPanel1);
               button->Caption = "тест";
           button->Parent = FlowPanel1 ;

По умолчанию, насколько я понял, прокрутки в FlowPanel нет. Как тогда быть,
 если количество компонентов выходить за рамки FlowPanel ?

[POV]

Посчитай координату Y от верха до низа. И посредством scrollby контейнера пролистывай.

[direk]

Посчитай координату Y от верха до низа. И посредством scrollby контейнера пролистывай.

- не совсем понял как ето сделать

Сейчас делаю так - на форму ставлю ScrollBox, а в него уже FlowPanel
 пишу обработку:

Код

void __fastcall TEditFilm::FormResize(TObject *Sender)
{
 RzFlowPanel1->Height = ScrollBox1->Height - 24;
 RzFlowPanel1->Width = ScrollBox1->Width - 5;
}

А теперь о проблеме. Как определить, что компоненты уже выходят за рамки RzFlowPanel1???

Потому как если визуально смотреть, и вручную нажимать хитрые кнопки, то полоса прокрутки в нужный момент появляется.

Код

void __fastcall TEditFilm::Button1Click(TObject *Sender)
{
    RzFlowPanel1->Height =      RzFlowPanel1->Height + 100 ;
}
//---------------------------------------------------------------------------
 
void __fastcall TEditFilm::Button2Click(TObject *Sender)
{
     RzFlowPanel1->Height =      RzFlowPanel1->Height - 100 ;
}

Но хочется, что бы нужный размер подбирался сам. Как можно это автоматизировать?

[POV]

не совсем понял как ето сделать

Панель - контейнер. У него есть массив компонент. Все их перебираешь ища минимальное Top и максимальное Top+Height.
Из разница - есть доступное для прокрутки число пикселей по вертикали.
Вызываешь ScrollBy панели. Первый параметр (по Х) = 0, второй - то, на сколько тебе хочется пролистать.

[direk]

POV, спасибо за подсказку. Реализовал все это дело в таком виде:


 

Код

  for (int i = 0; i  10; i++)
   {
 
        Stream->Clear();
      Stream->Position = 0;
 
 
 TJPEGImage *imagFOTO2 = new TJPEGImage;
 
   imagFOTO2->LoadFromStream(Stream);
    TImage *image = new TImage(RzFlowPanel1);
   image->Parent = RzFlowPanel1;
      image->Stretch  = true;
  image->Proportional = true;
   image->Center = true;
 image->Width = 300;
   image->Height =300;
   image->AlignWithMargins = true;
 
   image->Canvas->Draw(0,0,imagFOTO2); 
   image->Picture->Assign(imagFOTO2);
    }
 
 
void __fastcall TEditFilm::RzFlowPanel1Resize(TObject *Sender)
{
       RzFlowPanel1->Width = ScrollBox1->Width - 24;
 
      TImage *image = (TImage *) RzFlowPanel1->Components[RzFlowPanel1->ControlCount-1];
       RzFlowPanel1->Height =  image->Top +350;
 
}

Р.С. Может кому пригодится...

[Sergey1985]

Для этих целей нужно использовать ScrollBox1 и не изобретать велосипед

[direk]

Для этих целей нужно использовать ScrollBox1 и не изобретать велосипед

ну так я  про что??? Читайте внимательней...