Delphi фон на форме
Шустрый
Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск
Репутация: нет
Всего: 3
Опытный
Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва
Репутация: нет
Всего: 9
Шустрый
Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск
Репутация: нет
Всего: 3
Опытный
Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва
Репутация: нет
Всего: 9
Delphi developer
Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь
Репутация: 53
Всего: 133
Код |
procedure TForm1.FormPaint(Sender: TObject); var Bitmap: TBitmap; begin Bitmap:= TBitmap.Create; Bitmap.LoadFromFile(‘D:\1.bmp’); Form1.Canvas.Draw(0,0,Bitmap); Bitmap.Free; end; |
Шустрый
Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск
Репутация: нет
Всего: 3
а если JPG? конвертировать?
Delphi developer
Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь
Репутация: 53
Всего: 133
Код |
uses jpeg; procedure TForm1.FormPaint(Sender: TObject); var Picture: TPicture; begin Picture:= TPicture.Create; Picture.LoadFromFile(‘D:\1.jpg’); Canvas.Draw(0,0,Picture.Graphic); Picture.Free; end; |
Шустрый
Профиль
Группа: Участник
Сообщений: 70
Регистрация: 13.8.2005
Где: Иркутская обл. г. Тайшет
Репутация: нет
Всего: нет
А чем тебе Image не устраивает. С ним же удобнее.
А как сделать чтоб после следующего открытия была та картинка которую я устанавливал последней. Картинку фона беру из OpenPictureDialog. Программу закрываю потом открываю и стоит последняя картинка которую я устанавливал.
Delphi developer
Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь
Репутация: 53
Всего: 133
Цитата(vovan430 @ 6.11.2005, 17:01) |
Программу закрываю потом открываю и стоит последняя картинка которую я устанавливал. |
А стоит она там потому, что при загрузке в Image на этапе проектирование эта картинка сохраняется в ресурс программы.
Лучшим решение твоей задачи будет сохранять куда-нить новую картинку, а при загрузке читать ее оттуда.
Шустрый
Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск
Репутация: нет
Всего: 3
Image меня не устраивает тем, что на форме уже расположены др. компоненты, а он их перекрывает. Как то я этот момент сразу упустил, теперь уже поздно
Delphi developer
Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь
Репутация: 53
Всего: 133
Шустрый
Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск
Репутация: нет
Всего: 3
мдя. с этого мне наверно и надо было начинать
Профиль
Группа: Участник
Сообщений: 42
Регистрация: 30.7.2005
Репутация: нет
Всего: нет
Эксперт
Профиль
Группа: Завсегдатай
Сообщений: 1120
Регистрация: 19.11.2005
Где: Планета земля
Репутация: 2
Всего: 12
Код |
procedure TForm1.FormPaint(Sender: TObject); var Bitmap: TBitmap; begin Bitmap:= TBitmap.Create; Bitmap.LoadFromFile(‘D:\1.bmp’); Form1.Canvas.Draw(0,0,Bitmap); Bitmap.Free; end; |
Код |
var Form1: TForm1; BitMap: TBitMap; |
procedure TForm1.FormCreate(Sender: TObject);
begin
BitMap := TBitMap.Create;
Bitmap.LoadFromFile(‘1.bmp’);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
BitMap.Free;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Draw(0,0,Bitmap);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Bitmap.LoadFromFile(‘2.bmp’);
Invalidate;
end;
Delphi developer
Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь
Репутация: 53
Всего: 133
Цитата(Instal @ 2.6.2008, 11:49 ) |
Делаю также, нажимаю «перенести ниже», а все остается как было. |
Ты точно «перенести ниже» указываешь в меню у Image?
1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
[ Время генерации скрипта: 0.1578 ] [ Использовано запросов: 21 ] [ GZIP включён ] Задний план. (Фон)Люди, плз помогите мне! На моем TForm стоит TImage. Он стоит на 2 месте, и закрывает (гадость) другие объекты. Без фона не красиво, а так он всё закрывает. МОЁ ЖЕЛАНИЕ: Я хочу переместить TImage на задний план НЕ ПРОГРАММНО. Т.е. без кода. Просто поставить его на задний план. Я уже пытался, чо-то там «замутить» в Object TreeView, но ничего не вышло. Добавлено через 4 минуты Я ВЫРЕЗАЛ все объекты (кроме рисунка) и УДАЛИЛ этот рисунок. Потом создал новый и вставил все объекты на место. Страно, раньше так не получалось. Помощь в написании контрольных, курсовых и дипломных работ здесь. Картинка на задний план Компонент StringGrid на задний план MessageBox отправляет вызываемую форму на задний план РешениеЗадний фон Label Как поставить на задний фон TWebBrowser? Как убрать задний фон у Radiobutton Поместить контролл на передний план, на задний план «по уровням» Смена цвета фона при кнопкеПомощь в написании контрольных, курсовых и дипломных работ здесь. Смена цвета панели при наведении курсора Смена цвета шрифта ячейки DbGrid при клике на неё 1.Смена цвета строк при закрытии или открытии программы. 2.Печать с определенного места а теперь дважды кликни по кнопке на форме или выбери событие onClick именно у кнопки а если бы поискал, сделал бы сам Смена цвета фона в TextBox при вводе символов, отличных от цифр Непроизвольная смена цвета фона Смена цвета фона страниці Помощь в написании контрольных, курсовых и дипломных работ здесь. Как сделать чтоб фон не менялся, и картинка отображалась в своем поле? Картинка на фон формы Картинка как фон формы Картинка как фон для формы связи Медленная перерисовка формы: много элементов управления, фон-картинка и т.д Прозрачный фон формы при pictureBox(png картинка без фона) картинка-фон Картинка на фон Убрать фон формы. Как?Помощь в написании контрольных, курсовых и дипломных работ здесь. Вложения
Использование PNG как фон формы Как убрать 2 сообщения, которые появляются до запуска главной формы Убрать скроллбар формы Как убрать фон в тексте Вложения
Как убрать фон у текста Как убрать фон у слайдера? Как убрать фон из RadioButton? |