Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рисунок на форме

Страницы: < 1 2 3
dumka © (2007-10-30 09:27:00)
Как сделать так, что бы рисунок на форме загружался с папки проекта при запуске программы?

Рамиль (2007-10-30 09:42:00) [41]
Можно и через Bitmap, только странные у тебя ректы какие то... куда тебе 5000?

ЮЮ (2007-10-30 09:42:00) [42]
В обработчике OnOpen или OnShow формы, на которой находится Image1 написать
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Сиреневый пух.bmp');

>procedure TForm5.FormPaint(Sender: TObject);
Слишком разорительно в OnPainе формы каждый раз загружать картинку.

Если картинка всегда одна и та же, проше кинуть TImage на форму и загрузить его в дизайне

Рамиль (2007-10-30 09:40:00) [43]
Кинуть TImage

В OnCreate формы
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'myimage.jpg)

dumka (2007-10-30 09:37:00) [44]
Например:
procedure TForm5.FormPaint(Sender: TObject);
var
i, j: integer;
Bitmap: TBitmap;
MyRect, MyOther: TRect;
begin
MyRect := Rect(10,10,5000,5000);
MyOther := Rect(10,111,100, 201);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\Documents and Settings\merlin\Рабочий стол\Для Методиста\Сиреневый пух.bmp');
Как преобразовать последнюю строку, что бы рисунок выводился на форму с текущей папки: Для Методиста\Сиреневый пух.bmp.

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »