Skalowanie gradientu na Image

[usermaw]

Witam
Na początku kod wypełniający gradientem Image

Kod: Zaznacz cały

TRIVERTEX        vert[2] ;
GRADIENT_RECT    gRect;
vert [0] .x      = 0;
vert [0] .y      = 0;
vert [0] .Red    = 0x0000;
vert [0] .Green  = 0x0000;
vert [0] .Blue   = 0x0000;
vert [0] .Alpha  = 0x0000;

vert [1] .x      = Image1->Width;
vert [1] .y      = 20;
vert [1] .Red    = 0x0000;
vert [1] .Green  = 0x0000;
vert [1] .Blue   = 0xff00;
vert [1] .Alpha  = 0x0000;

gRect.UpperLeft  = 0;
gRect.LowerRight = 1;
GradientFill(Image1->Canvas->Handle,vert,2,&gRect,1,GRADIENT_FILL_RECT_H);


Image z parametrem Align=alClient jest umieszczony na Panelu, Panel alBottom

Moje pytanie, Jak sprawić, aby obszar wypełnienia skalował się do szerokości formy?
Podczas rozciągania formy po odcieniu gradientu widać (ciemnieje), że się skaluje, tylko obszar wypełnienia pozostaje cały czas niezmienny, czyli o szerokości formy po uruchomieniu programu.

Zapewne pytanie banalne, ale się jakoś zaciąłem.

Pozdro

[Cyfrowy Baron]

To przez klasę TCanvas. Ma taki rozmiar, jaki ma Image w chwili rozpoczęcia rysowania. Musisz rysować na obiekcie typu TBitmap, ustalając wymiary na wymiary Image, a potem przepisać do do Image, czyli zamiast:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

GradientFill(Image1->Canvas->Handle,vert,2,&gRect,1,GRADIENT_FILL_RECT_H);

zrób to na TBitmap:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

Graphics::TBitmap *Bmp = new Graphics::TBitmap;

Bmp->Width = Image1->Widt;
Bmp->Height = Image1->Height;

GradientFill(Bmp->Canvas->Handle, vert,2, &gRect, 1, GRADIENT_FILL_RECT_H);

Image1->Picture->Bitmap->Assign(Bmp);

Rozciąganie działa tylko w odniesieniu do grafiki wczytanej do Image. Klasa TCanvas nie posiada własnej powierzchni, to tylko zestaw narzędzi, więc nie ma czego rozciągać, a Image przy zmianie rozmiaru, nie przerysowuje zawartości, poza tym obszar TCanvas zawsze będzie miał początkowe rozmiary obiektu i nie ulegnie zmianie. Wszak nie masz możliwości zmiany rozmiarów tego obszaru

Po każdej zmianie rozmiaru okna musisz ponownie wszystko odrysować, w przeciwnym razie gradient zostanie rozciągnięty, a to oznacza, że nie będzie on już tak łagodnie przechodził pomiędzy kolorami. Rozciągając Image tylko powielasz sąsiednie piksele.

Kod rysujący gradient powinieneś umieścić w zdarzeniu OnPaint dla formularza:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include <memory>

void __fastcall TForm1::DrawGradient(TImage *Image)
{
 std::auto_ptr<Graphics::TBitmap> Bmp(new Graphics::TBitmap);
 Bmp->Width = Image1->Width;
 Bmp->Height = Image1->Height;

 int iHeight = (this->ClientHeight + 255) / 256 ;

 for(int Row = 0; Row <= 255; Row++)
 {
  Bmp->Canvas->Brush->Color = RGB(0, 0, 255 - Row);
  Bmp->Canvas->FillRect( Rect(0, Row * iHeight, this->ClientWidth,
                                                                 (Row + 1) * iHeight) );
 }
 Image1->Picture->Assign(Bmp.get());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
 DrawGradient(Image1);
}

---