GDI PLUS - zmiana rozmiaru bimapy

[Corvis]

Witam,

Staram się zmienić rozmiar bitmapy w taki sposób aby była zawsze wielkości formy:

Kod: Zaznacz cały

void __fastcall TForm1::FormResize(TObject *Sender) {
    Gdiplus::Graphics NowyObrazek(Image1->Canvas->Handle);
    NowyObrazek.SetInterpolationMode(Gdiplus::InterpolationModeBicubic);
    NowyObrazek.DrawImage(bmp,0,0,this->Width,this->Height) ;
}

gdzie bmp jest bitmapÄ… odczytanÄ… z pliku.

Problem polega na tym, że obrazek nie jest odmalowany na całej formie tylko na jej kawałku ( Screen )

Gdzie robie błąd ??

[Corvis]

Dodam, że jak ustawiam :

Kod: Zaznacz cały

Form1->WindowsState = wsMaximized;

, wtedy obrazek dopasowuje siÄ™ do rozmiaru okna. Tylko czemu tak jest ?

[Cyfrowy Baron]

Problem stanowi obiekt Image a nie GDI+. Sprawdź to takim prostym kodem.

Kod: Zaznacz cały

void __fastcall TForm1::FormResize(TObject *Sender)
{
Image1->Canvas->Brush->Color = clWhite;
Image1->Canvas->FillRect(Rect(0, 0, this->Width, this->Height));
}

Zauważysz, że Image1 jest wypełniane kolorem tylko przy pierwszym użyciu. Po zmianie rozmiaru okna programu funkcja FIllRect wypełnia obszar obiektu Image tylko w początkowym rozmiarze. Jest to jedna z tych dziwnych właściwości klasy TImage, gdyż wiąże się to z klasą TPicture i TBitmap. W skrócie wygląda to tak, że po pierwszym wypełnieniu tego obiektu rozmiar płótna Canvas jest ograniczany do tego obszaru, potem po zmianie rozmiaru obiektu Image rozmiar jego płótna Canvas nie zmienia się automatycznie, przez co dalsze rysowanie odbywa się na na starym rozmiarze.

W celu rozwiązania tego problemu trzeba ustalić nowy rozmiar dla Picture->Bitmap:

Kod: Zaznacz cały


void __fastcall TForm1::FormResize(TObject *Sender)
{
 Image1->Picture->Bitmap->Width = this->Width;
 Image1->Picture->Bitmap->Height = this->Height;

 Gdiplus::Graphics NowyObrazek(Image1->Canvas->Handle);
 NowyObrazek.SetInterpolationMode(Gdiplus::InterpolationModeBicubic);

 NowyObrazek.DrawImage(imageBMP, 0, 0, this->Width, this->Height);
}
  

Być może istnieje inny sposób, ale na razie tak to widzę. Dodam przy tym, że np. rysowanie bezpośrednio na Canvas formularza lub innego obiektu posiadającego TCanvas, nie sprawia takich problemów.

[Corvis]

dzieki !!