Перерисовка.

[Sergey1985]

Есть GroupBox. На нем имеются Label ы. Свойство Transparent  у них true. GroupBox по событию OnPaint формы заливается градиентной кистью вот так

Код:

bool GradientRect(HDC hDC, TRect &Rect, bool IsVertical, TColor Start, TColor End)
{
   TRIVERTEX vert[2];

   vert[0].x = Rect.Left;
   vert[0].y = Rect.Top;
   vert[0].Red   = GetRValue(Start)    vert[0].Green = GetGValue(Start)    vert[0].Blue  = GetBValue(Start)    vert[0].Alpha = 0;

   vert[1].x = Rect.Right;
   vert[1].y = Rect.Bottom;
   vert[1].Red   = GetRValue(End)    vert[1].Green = GetGValue(End)    vert[1].Blue  = GetBValue(End)    vert[1].Alpha = 10;

   GRADIENT_RECT gRect;
   gRect.UpperLeft = 0;
   gRect.LowerRight = 1;

   DWORD Direction = (IsVertical ?  GRADIENT_FILL_RECT_V : GRADIENT_FILL_RECT_H);

   return GradientFill(hDC, &vert[0], 2, &gRect, 1, Direction);
}



void __fastcall TMainForm::FormPaint(TObject *Sender)
{
       TRect Rect;
       Rect.Left=0;
       Rect.Top=0;
       Rect.Right=GroupBox4->Width;
       Rect.Bottom=GroupBox4->Height;
       TColor ColStart = clAqua;
       TColor ColEnd = clSkyBlue;
       GradientRect(GetDC(GroupBox4->Handle),Rect, true, ColStart,ColEnd);
   
}

В начале все хорошо но потом после перерисовки формы Labelы пропадают. (Например после перетаскивания формы за пределы монитора) Так же если до этого
 поменять свойство Caption у Labelов  (программно естественно в процессе выполнения приложения) то их цвет (именно цвет а не цвет шрифта) то этот цвет становится равным цвету у GroupBox. Как вообще построена перерисовка? А вот кнопка к примеру не исчезает при перерисовке. Можно ли это как то исправить? 

[POV]

Попробуй в FormPaint ручками сделать Repaint компонентам. Что из этого хорошего выйдет. А может из-за захваченного парента перерисовка дочерних компонент не вызывается.

[Sergey1985]

Так я делал

Код:

Label1->Invalidate();

но перерисовывать каждый компонент как то, скажем так, не по программистки. Тем более что цвет опять таки не совпадает с цветом фона в результате чего надпись оказывается в прямоугольнике а не сама по себе

[POV]

Хмм. действительно лажа выходит. Хотя косяков с цветом нет, просто коротко моргает фон под Label. После чего всё корректно.. если конечно написать

Код

Label1->Repaint();

а не

Код

Label1->Invalidate();

[POV]

Вот добавь в конце FormRepaint

Код

     for (int i = 0; i  GroupBox4->ControlCount; i++)
               if (TLabel *c = dynamic_castTLabel*>(GroupBox4->Controls[i]))
                        c->Repaint();

[Sergey1985]

что repaint что invalidate - разницы не вижу. Код добавил. Во первых - исчезла надпись на GroupBox е   во вторых - все мелькает. В общем не так все просто

[Sergey1985]

У меня на форме еще есть PaintBox реагирующий на MouseMove. Так вот когда по нему мышкой водишь на GroupBoxе вообще мигать все начинает как на елке новогодней

[POV]

У меня при Invalidate  постоянно моргают надписи, при Repaint  - нет. Builder2007
А надпись верхняя пропала, да - как оно должно быть. Ты же при перерисовке захватил контекст и сам что-то там нарисовал. Не должно бы вообще быть надписи.

Если моргание в целом устроило бы, то можно в FormRepaint поставить в конце

Код

GroupBox4->Repaint();

Но двигать форму за пределы монитора становится совсем некрасиво.

[Sergey1985]

Я вот думаю можно ли OnPaint у GroupBox как то перехватить? И выполнять перерисовку при перерисовки именно GroupBox а не всей формы

[POV]

Я вот думаю можно ли OnPaint у GroupBox как то перехватить? И выполнять перерисовку при перерисовки именно GroupBox а не всей формы

Об этом многие и я тоже тут спрашивали не раз. Резюме в плане наиболее адекватного пути - свой компонент. На базе например Tpanel чтобы он точно был контейнером. И уже в его Paint рисуй что хочешь.