VPF::замостить форму картинкой - Форум программистов

0x00

Дата 21.7.2010, 07:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 3.4.2006

Репутация: нет
Всего: нет

Есть вопрос. На форме лежит TImage (размером на всю форму), в нем есть картинка, каким образом замостить (чтобы повторялась) одной картинкой всю поверхность TImage?

A5uKa

Дата 21.7.2010, 07:41 (ссылка)

(нет голосов)

Загрузка ...

TЋ♥s F1rȜ iƧ BurȠiƞg

Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16

Наверное в пеинте только ...

586

Дата 21.7.2010, 07:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146

Unit1.h

Код

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TImage *Image1;
    void __fastcall FormResize(TObject *Sender);
private:    // User declarations
    Graphics::TBitmap *Bmp;
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
    __fastcall ~TForm1();
};

Unit1.cpp

Код

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Bmp = new Graphics::TBitmap();
    Bmp->Assign(Image1->Picture->Bitmap);
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    delete Bmp;
    Bmp = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
    if(Bmp)
    {
        int imageWidth = Bmp->Width, imageHeight = Bmp->Height;
        int formWidth = ClientWidth, formHeight = ClientHeight;

        Image1->Left = 0;
        Image1->Top = 0;
        Image1->Width = formWidth;
        Image1->Height = formHeight;
        Image1->Picture->Bitmap->Width = formWidth;
        Image1->Picture->Bitmap->Height = formHeight;

        for(int j = 0; j < formHeight; j += imageHeight)
            for(int i = 0; i < formWidth; i += imageWidth)
                Image1->Picture->Bitmap->Canvas->Draw(i, j, Bmp);
    }
}

Это сообщение отредактировал(а) 586 - 21.7.2010, 09:09

0x00

Дата 21.7.2010, 08:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 3.4.2006

Репутация: нет
Всего: нет

огромное спасибо!) с меня +

ИванМ

Дата 27.7.2010, 00:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 5
Всего: 23

Лучше рисовать прямо на форме, чем на на Image. Лишнее действие.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »