powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как замостить картинками фон?
4 сообщений из 4, страница 1 из 1
Как замостить картинками фон?
    #32332824
sailorr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Несложный вопрос

Надо на форму накидать картинок одинаковых - как кирпичиками замостить фон. В винде ещё такая штука есть "замостить".

Как это сделать?
Свойства у TImage такого вроде нет. А если вручную, то как? Постоянно в цикле делать TImage.Create.. - ведёт к глюкам. Ведь память забивается.. каждый раз при показе формы. И не освобождается. В общем помогите отыскать самое простое и надёжное решение проблемы.
...
Рейтинг: 0 / 0
Как замостить картинками фон?
    #32332830
Фотография daw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TCanvas.CopyRect
...
Рейтинг: 0 / 0
Как замостить картинками фон?
    #32332967
sailorr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А чуть поподробнее? Пока не очень понятно...
...
Рейтинг: 0 / 0
Как замостить картинками фон?
    #32333441
sailorr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
разобрался.. сделал следующим образом:

var
x,y:integer;
gr:tbitmap;

....

gr:=tbitmap.create;
gr.LoadFromFile('E:\1.bmp');
for x:=0 to round(image1.width/132) do
for y:=0 to round(image1.height/53) do
image1.Canvas.Draw( X*132, Y*53, gr);
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как замостить картинками фон?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]