Efekt obrotu bitmapy o 90 stopni przeciwnie do wskazówek zegara
Aby po kliknięciu przycisku Button1 bitmapa, która jest załadowana do komponentu Image1 została obrócona o 90 stopni przeciwnie do wskazówek zegara tworzymy w zdarzeniu OnClick przycisku Button1 dynamicznie obiekt TBitmap reprezentujący bitmapę, ustawiamy jej rozmiary, a następnie za pomocą dwóch pętli for rysujemy na niej w odpowiednich miejscach piksele z obrazka Image1 (da to efekt obrotu bitmapy o 90 stopni przeciwnie do wskazówek zegara), na końcu przypisujemy tymczasową bitmapę do komponentu Image1 i usuwamy ją z pamięci:
Unit1.cpp |
void __fastcall TForm1::Button1Click(TObject *Sender) tmpBMP->Height = Image1->Width; for (y = 0; y <= height; y++) Image1->Width = tmpBMP->Width; Image1->Picture->Bitmap->Assign(tmpBMP); |