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

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

Как это сделать?
Свойства у TImage такого вроде нет. А если вручную, то как? Постоянно в цикле делать TImage.Create.. - ведёт к глюкам. Ведь память забивается.. каждый раз при показе формы. И не освобождается. В общем помогите отыскать самое простое и надёжное решение проблемы.
...
Рейтинг: 0 / 0
24.11.2003, 12:57
    #32332830
daw
daw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как замостить картинками фон?
TCanvas.CopyRect
...
Рейтинг: 0 / 0
24.11.2003, 14:06
    #32332967
sailorr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как замостить картинками фон?
А чуть поподробнее? Пока не очень понятно...
...
Рейтинг: 0 / 0
24.11.2003, 18:09
    #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
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как замостить картинками фон? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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